📄 result2.asp
字号:
<TR>
<TD bgColor=#ffefb0>
<DIV align=center>北方人才市场</DIV></TD></TR>
<TR>
<TD bgColor=#ffefb0>
<DIV align=center></DIV></TD></TR>
<TR>
<TD bgColor=#ffefb0>
<DIV align=center></DIV></TD></TR>
<TR>
<TD bgColor=#ff9900 height=20>
<DIV align=center><B><FONT color=#ffffff>·在 线 调
查·</FONT></B></DIV></TD></TR>
<TR>
<TD bgColor=#ffefb0>
<LI type=circle>您认为我们在以下哪些方面需要加以改进：<BR>
<FORM action=../poll/save.asp id=FORM2 method=post name=FORM2><INPUT
name=theitema type=checkbox value=a>访问速度<BR><INPUT name=theitemb
type=checkbox value=b>更新速度<BR><INPUT name=theitemc type=checkbox
value=c>色彩搭配<BR><INPUT name=theitemd type=checkbox value=d>版面结构
<P><TEXTAREA name=themessage></TEXTAREA>
<P><INPUT id=submit1 name=submit1 type=submit value=确认 LANGUAGE='javascript"'><INPUT id=reset1 name=reset1 type=reset value=重选>
</FORM></P></LI></TD></TR>
<TR>
<TD bgColor=#ff9900>
<DIV align=center><B><FONT color=#ffffff>·图 片 链
接·</FONT></B></DIV></TD></TR>
<TR>
<TD height=57>
<DIV align=center><A href="http://cn.yahoo.com/"><IMG border=0
height=21 src="/img/YAHOO.gif" width=80></A></DIV></TD></TR>
<TR>
<TD height=62>
<DIV align=center><A href="http://www.skykong.com/"><IMG border=0
height=35 src="/img/skysoft.gif"
width=88></A></DIV></TD></TR></TABLE>
<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")
USER=Request.QueryString("USER")
PWD=Request.QueryString("PWD")
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))
%>
<FONT color=#3333ff size=4 align="middle"> 欢迎使用本房屋租赁查询系统</FONT>
<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>
<tr align=middle><td colspan=5 align=right>共查到<%=RS.RecordCount%>条楼房房源，分为<%=Int((RS.RecordCount+9)/10)%>页显示，现在显示的是第<%=Num%>页
<A href="mailto:abc@sina.com">email 联系我们</A></td></tr>
<tr align=middle bgcolor=#fcbce6>
<td colspan=5 >
<input type=button name="fnflag" value="下一页" 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="确认" type=button LANGUAGE=javascript onclick="return IsValid(form,<%=Num%>,<%=Int((RS.RecordCount+9)/10)%>)">
</td></tr><tr align=middle><td class=small style="WIDTH: 15%" width="15%"
><font color=#3333ff>地区</font></td><td class=small style="WIDTH: 20%" width="20%"
><font color=#3333ff>位置</font></td><td class=small style="WIDTH: 15%" width="15%"
><font color=#3333ff>户型</font></td><td class=small style="WIDTH: 35%" width="35%"
><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
Response.Write("<tr bgcolor=#fee9f7 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")&RS("lm")&"</td><td class=small>"&RS("fx")&"</td><td class=small>"&"共为"&RS("jzmj")&RS("symj")&"m<sup>2</sup>"&"厅"&RS("tmj")&" 居室"&RS("jmj")&"</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 align=middle><td colspan=3> "&RS("sszw")&"</td><td align=left><INPUT DISABLED name='ifprt' type='checkbox' "&chksfys&">钥匙"&chksfzp&chksfsx&"</td><td><INPUT name='ifprt' type='checkbox' value="&CStr(RS("bh"))&chk&">打印</td></tr>")
Response.Write("<tr 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
RS.Close()
%>
<tr align=middle>
<td colspan=3><input type=button value=重新输入查询条件 LANGUAGE="JavaScript" onclick="location.href='default.asp';" id=button1 name=button1 style="HEIGHT: 24px; WIDTH: 136px"></td>
<td><input type=button value="内部管理" name="nbglbt" LANGUAGE="JavaScript" onclick="return NbGL(form)" style="HEIGHT: 24px; WIDTH: 100px"></td>
<td colspan=1><input type=button value="打印" name="prtbt" LANGUAGE="JavaScript" onclick="return ToPrint(form)" style="HEIGHT: 24px; WIDTH: 50px"><input type="hidden" name="directprt" value="0"></td>
</tr>
</table>
</FORM>
</TD></TR></TABLE>
<DIV></DIV></TD></TR></TBODY></TABLE>
<!-- 脚本 --></TD></TR>
<TR>
<TD>
<P> </P>
<P> </P>
<P> </P></TD></TR>
<TR>
<TD height="8" style="HEIGHT: 8px">
<P> </P>
<P> </P>
<P> </P></TD></TR>
<TR>
<TD>
<P><A href="http://202.99.67.154/chat/login.asp"><IMG border=0
height=54 src="/img/jianli_6.gif" width=126></A></P>
<P><A
href="http://202.99.67.154/chat/login.asp">北洋聊天室</A></P></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=6 width="100%">
<TBODY>
<TR>
<TD background=/img/person_r15.gif height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><MAP
name=Map><AREA coords=13,5,68,20
href="http://202.99.67.154/PERSONS/P_index.asp" shape=RECT target=_self><AREA
coords=81,5,132,20 href="http://202.99.67.154/HOUSES/h_index.htm" shape=RECT
target=_self><AREA coords=147,5,198,20
href="http://202.99.67.154/FRIENDS/default.htm" shape=RECT target=_self><AREA
coords=214,5,265,19 href="http://202.99.67.154/HOUSES/h_index.htm#" shape=RECT
target=_self><AREA coords=281,6,330,20
href="http://202.99.67.154/HOUSES/h_index.htm#" shape=RECT target=_self><AREA
coords=348,5,398,19 href="http://202.99.67.154/bbs/index.asp" shape=RECT
target=_blank><AREA coords=412,6,449,19
href="http://202.99.67.154/chat/login.asp" shape=RECT
target=_self></MAP></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -