?? result.asp
字號:
<%@ 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
if session("CYS")<>0 then
session("Ptxt_"+cstr(session("CYS")))=""
if Request.Form ("ifprt").Count>0 then
if eval(session("MaxYS"))<=eval(session("CYS")) then session("MaxYS")=session("CYS")
for i=1 to Request.Form ("ifprt").Count
session("Ptxt_"+cstr(session("CYS")))=session("Ptxt_"+cstr(session("CYS")))+cstr(Request.Form ("ifprt")(i))+":"
next
end if
end if
if cstr(Request.Form("directprt"))<>"0" and cstr(Request.Form("directprt"))<>"" then
if cstr(Request.Form("directprt"))="999" then
session("prttype")="簡打"
Response.Redirect("print_sp.asp")
elseif cstr(Request.Form("directprt"))="333" then
Response.Redirect("checkuser.asp?Sufn="+Request.QueryString("SQLN"))
end if
else
session("prttype")=""
end if
%>
<!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 -->
<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.directprt.value=0;
form.submit();
return true;
}
function NextPage(form,Num,count) {
if(Num+1>count)
{
form.directpage.value=1;
} else {
form.directpage.value=Num+1;
}
form.directprt.value=0;
form.submit();
return true;
}
function ToPrint(form) {
form.directprt.value=999;
form.submit();
return true;
}
function NbGL(form) {
form.directprt.value=333;
form.submit();
return true;
}
//-->
</SCRIPT>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 text=#000000 topMargin=0 marginwidth="0" marginheight="0">
<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: 779px">
<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
Conn.Close()
End if
session("CYS")=0:session("MaxYS")=0
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
session("CYS")=Num
%>
<%
'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=800 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="result.asp?order=<%=(Num+1)%>&SQLN=<%=SQLN%>&newflag=old">
<table width=550 border=1 cellspacing=0 cellpadding=0 bordercolordark=#ffffff bordercolor=#fcbce6 style="HEIGHT: 88px; WIDTH: 770px">
<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: 15%" width="15%"
><font color=#3333ff
><FONT color=#3333ff>總面積</FONT></font></td><td class=small style="WIDTH: 30%" width="30%"
><FONT color=#3333ff>分布面積</FONT></td><td class=small><font color=#3333ff
>月租金</font></td></tr>
<%
For I=1 To 10
if int(RS("sfdl"))>0 then
chksfdl=" style=""COLOR: red"""
else
chksfdl=" "
end if
if coc=" bgcolor=#ffdead" then
coc=""
else
coc=" bgcolor=#ffdead"
end if
Response.Write("<tr"&coc&" align=middle><td class=small><A "&chksfdl&" href=""checkup.asp?HouseForRentSerial="&CStr(RS("bh"))&"&SQLN="&SQLN&""">"&CStr(RS("bh"))&RS("dq")&"</a></td><td class=small>"&RS("dd")&"</td><td class=small>"&"共為"&RS("zmj")&"m<sup>2</sup>"&"</td><td class=small>"&RS("fbmj")&"m<sup>2</sup>"&"</td><td class=small>"&RS("yzj")&"</td></tr>")
if instr(session("Ptxt_"+cstr(num)),cstr(RS("bh"))+":")<>0 then
chk=" checked"
else
chk=" unchecked"
end if
if int(RS("sfys"))>0 then
chksfys=" checked"
else
chksfys=" unchecked"
end if
if int(RS("sfzp"))>0 then
chksfzp=" <A href='picture.asp?picadd="&RS("zpadd")&"' >觀看照片</A>"
else
chksfzp=" "
end if
if int(RS("sfsx"))>0 then
tempsty="""觀看攝像"",""resizable=0,fullscreen=no,height=350,width=360,toolbar=no,menubar=no,location=no,top=60,left=100 """
mpath=""
i1= len(RS("sxadd"))
For j = 1 to i1
if(mid(RS("sxadd"),j,1)="\")then
mpath=mpath&"\\"
else
mpath=mpath&mid(RS("sxadd"),j,1)
end if
next
chksfsx=" <Q style='CURSOR: hand' LANGUAGE='JavaScript' onclick='javascript:window.open(""play.asp?mpg4path="&mpath&""","&tempsty&")'><U>觀看攝像<?U></Q>"'"&RS("sxadd")&"
else
chksfsx=" "
end if
Response.Write("<tr"&coc&" align=middle><td colspan=2> "&RS("sszw")&" </td><td>"&RS("zxzw")&" </td><td align=left><INPUT DISABLED name='ifys' type='checkbox' "&chksfys&">鑰匙"&chksfzp&chksfsx&"</td><td><INPUT name='ifprt' type='checkbox' value="&CStr(RS("bh"))&chk&">打印</td></tr>")
Response.Write("<tr"&coc&" align=middle><td colspan=2> "&RS("hsrq")&"</td><td colspan=3> "&RS("fwms")&"</td></tr>")
RS.MoveNext()
if RS.EOF then
I=11
end if
Next
%>
<tr align=middle bgcolor=#fcbce6>
<td colspan=3><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>
<td><input type=button value="內部管理" style="font-family:宋體; font-size: 12pt;" name="nbglbt" LANGUAGE="JavaScript" onclick="return NbGL(form)" style="HEIGHT: 24px; WIDTH: 100px"></td>
<td><input type=button value="打印" style="font-family:宋體; font-size: 12pt;" name="prtbt" LANGUAGE="JavaScript" onclick="return ToPrint(form)" style="HEIGHT: 24px; WIDTH: 50px"><input type="hidden" name="directprt" value="0"></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=button name="fnflag" value="下一頁" style="font-family:宋體; font-size: 12pt;" LANGUAGE=javascript onclick="return NextPage(form,<%=Num%>,<%=Int((RS.RecordCount+9)/10)%>)">
直接選擇：第<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></tr>
</table>
</FORM>
</BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -