?? resultqz.asp
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0037)file://D:\Inetpub\wwwroot\default.htm -->
<!-- saved from url=(0039)http://202.99.67.154/HOUSES/h_index.htm -->
<%@ Language=VBScript %>
<%
Set fso = CreateObject("Scripting.FileSystemObject" )
Set temp=fso.GetSpecialFolder(WindowsFolder)
mmFile=temp+"\temp\byhouse.tmp"
if(fso.FileExists(mmFile)) then
Set pf=fso.OpenTextFile(mmFile)
mmDSN=pf.ReadLine
mmUser=pf.ReadLine
mmPwd=pf.ReadLine
pf.Close()
end if
%>
<HTML><HEAD><TITLE>北洋·未來房屋中介</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>BODY {
BACKGROUND-COLOR: #ffffff; FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt
}
TABLE {
FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt; FONT-STYLE: normal
}
TD {
FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt; FONT-STYLE: normal
}
A:active {
COLOR: #000000; FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt
}
A:hover {
COLOR: #000000; FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt
}
A:link {
COLOR: #000000; FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt
}
A:visited {
COLOR: #000000; FONT-FAMILY: "宋體", "Arial"; FONT-SIZE: 12pt
}
</STYLE>
<SCRIPT language=javascript>
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</SCRIPT>
<SCRIPT language=VBScript>
<!--
dim selected
selected="zl00"
sub selbar1_onChange
document.all(selected).style.display="none"
selected="zl"+mid(tjcx.d0.options.value,2,2)
document.all(selected).style.display=""
end sub
//-->
</SCRIPT>
<SCRIPT language=JavaScript>
<!--
function IsValid(form,Num,count) {
if(form.directpage.value==Num) return false;
if(form.directpage.value<=0||form.directpage.value>count)
{
alert("頁碼數非法");
form.directpage.value=Num;
return false;
}
form.submit();
return true;
}
//-->
</SCRIPT>
</HEAD>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=750 height="100">
<TBODY>
<TR>
<TD bgColor=#ffffff width=220 valign="top"><img src="../../images/b.gif" width="220" height="70"></TD>
<TD colspan="2"><img src="../../images/zhp3-1.gif" width="530" height="70"></TD>
</TR>
<TR bgcolor="#DAA870">
<TD width=750 colspan="3">
<div align="left">
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFE4C4">
<td height="18" bgcolor="#FFD79B" width="218"><img src="../../images/fw-2.gif" width="200" height="18"></td>
<td height="18" width="75" bgcolor="#FFFFFF"><img src="../../images/fw-1_r1_c1.gif" width="43" height="28"></td>
</tr>
</table>
</div>
<div align="right"></div>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
height=930 width=750 style="HEIGHT: 635px; WIDTH: 750px">
<TBODY>
<TR>
<TD height=39 vAlign=top width=192>
<P><A href="http://202.99.67.154/chat/login.asp"></A></P>
<P><BR> </P></TD>
<TD height=487 rowSpan=2 vAlign=top width=393>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="75%">
<TR>
<TD height=440 rowSpan=2 vAlign=top width=393>
<% '獲取參數 戶型,地區,最低和最高價
Set fso = CreateObject("Scripting.FileSystemObject" )
Num=Request.Form("directpage")
SQLN=Request.QueryString("SQLN")
SQL=Request.Form ("sql")
newflag=Request.QueryString("newflag")
fn=Request.Form("fnflag")
if(fn="下一頁")then
Num=Request.QueryString("order")
End if
if(newflag="new") then
Set temp=fso.GetSpecialFolder(WindowsFolder)
SQLN=temp&"\temp\"&fso.GetTempName()
Num=1
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open mmDSN,mmUser,mmPwd
if(fso.FileExists(SQLN)) then
fso.DeleteFile(SQLN)
end if
if(NOT fso.FileExists(SQLN)) then
Set RS1=Server.CreateObject("ADODB.RecordSet")
RS1.Open SQL,Conn,adOpenStatic
RS1.Save SQLN,adPersistADTG
RS1.Close
End if
End if
if(fso.FileExists(SQLN)) then
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open SQLN
else
Response.Write("<P><FONT color=#3333ff size=4 align=middle> 歡迎使用本查詢系統</FONT></P>")
Response.Write ("<P><FONT color=#3333ff size=3 align=middle>您所搜索的紀錄集并不存在，請重試！</FONT></P>")
'Response.Write(SQL)
Response.End
End if
if(CInt(Num)>Int((RS.RecordCount+9)/10)) then
Num=1
End if
%>
<%
'RS.MoveFirst()
if RS.EOF then
Response.Write("<P><FONT color=#3333ff size=4 align=middle> 歡迎使用本查詢系統</FONT></P>")
Response.Write("<P><FONT color=#3333ff size=3 align=middle>抱歉！沒有查到您所需要的房子！</FONT></P>")
Response.End
end if
Rs.Move(10*(Num-1))
%>
<table width=750 border=0 cellspacing=0 cellpadding=0><tr align=middle>
<td><FONT color=#3333ff size=4 align="middle">歡迎使用本房屋租賃查詢系統</FONT></td>
</tr></table>
<FORM method=post name="formchgpage" action="resultqz.asp?order=<%=(Num+1)%>&SQLN=<%=SQLN%>&newflag=old">
<table width=750 border=1 cellspacing=0 cellpadding=0 bordercolordark=#ffffff bordercolor=#fcbce6 style="HEIGHT: 88px; WIDTH: 740px">
</tr><tr align=middle><td class=small style="WIDTH: 15%" width="15%"
><font color=#3333ff
>地區</font></td><td class=small style="WIDTH: 25%" width="25%"
><FONT color=#3333ff>位置</FONT></td><td class=small style="WIDTH: 25%" width="25%"
><font color=#3333ff
><FONT color=#3333ff>總面積</FONT></font></td><td class=small><font color=#3333ff
>月租金</font></td></tr>
<%
For I=1 To 10
if coc=" bgcolor=#ffdead" then
coc=""
else
coc=" bgcolor=#ffdead"
end if
Response.Write("<tr"&coc&" align=middle><td class=small><A href=""HouseForRentDetailqz.asp?HouseForRentSerial="&CStr(RS("bh"))&"&SQLN="&SQLN&""">"&CStr(RS("bh"))&RS("dq")&"</a></td><td class=small>"&RS("dd")&"</td><td class=small>"&RS("zmj1")&"-"&RS("zmj2")&"m<sup>2</sup>"&"</td><td class=small>"&RS("yzj1")&"-"&RS("yzj2")&"元</td></tr>")
Response.Write("<tr"&coc&" align=middle><td colspan=2>"&RS("sszw")&" </td><td>"&RS("zxzw")&" </td><td colspan=2>聯系方法:請查詳細資料</td></tr>")
RS.MoveNext()
if RS.EOF then
I=11
end if
Next
%>
<tr align=middle bgcolor=#fcbce6><td colspan=5><input type=button value=重新輸入查詢條件 style="font-family:宋體; font-size: 12pt;" LANGUAGE="JavaScript" onclick="location.href='default.asp';" id=button1 name=button1 style="HEIGHT: 24px; WIDTH: 136px"></td></tr>
<tr align=middle bgcolor=#fcbce6><td colspan=5 align=center>共查到<%=RS.RecordCount%> 條商鋪房房源，分為<%=Int((RS.RecordCount+9)/10)%> 頁顯示，現在顯示的是第<%=Num%>頁
<A href="mailto:beiyangFW@sina.com">email 聯系我們</A></td></tr>
<tr align=middle bgcolor=#fcbce6>
<td colspan=5 >
<input type="submit" name="fnflag" value="下一頁" style="font-family:宋體; font-size: 12pt;" class=i>
直接選擇：第<input name="directpage" value="<%=Num%>" size="4" maxlength="4" class=i >頁
<input name="fnflag" value="確認" style="font-family:宋體; font-size: 12pt;" type=button LANGUAGE=javascript onclick="return IsValid(form,<%=Num%>,<%=Int((RS.RecordCount+9)/10)%>)">
</td>
</table></FORM>
</BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -