📄 resultqz.asp

📁 一个房产中介网站的代码
💻 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>&nbsp;</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)%>&amp;SQLN=<%=SQLN%>&amp;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")&"&nbsp;</td><td>"&RS("zxzw")&"&nbsp;</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%>页
	&nbsp;&nbsp;&nbsp;<A href="mailto:beiyangFW@sina.com">email 联系我们</A></td></tr>
	<tr align=middle bgcolor=#fcbce6>
    <td colspan=5 >  &nbsp;&nbsp;&nbsp;
    <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>
💿 文件大小 2338 K
👤 上传用户 kuoiai
📂 所属分类其他
🏷️ 相关标签

#网站 #代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -