📄 house.asp
字号:
<!-- #include file="top.asp"-->
<%lb=request("lb")
dim liuyan,bbs
sqlz="select * from counst"
set rsz=conn.execute(sqlz)
liuyan=rsz("W_liuyan")
bbs=rsz("W_bbs")
if lb="留言" then
response.Redirect liuyan
elseif lb="论坛" then
response.Redirect bbs
end if
set rs=server.createobject("adodb.recordset")
sql="select * from house where mytype='"&lb&" ' order by id desc"
rs.open sql,conn,1
rs.pagesize=18 '每页显示多少条
pagecount=rs.pagecount '总页数
%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff border=0>
<TBODY>
<TR vAlign=top>
<TD width=180>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif">数据统计</td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set house=conn.execute("Select count(*) as house1 From house") %>
<td width="90%">房产信息：<font color="#FF9933">
<% =house("house1") %>
</font> 条 </td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set news=conn.execute("Select count(*) as news1 From news") %>
<td>新闻总数：<font color="#FF9933">
<% =news("news1") %>
</font> 条</td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<% set puser=conn.execute("Select count(*) as puser1 From puser") %>
<td>注册会员：<font color="#FF9933">
<% =puser("puser1") %>
</font> 人</td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<%set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select top 1 * from puser order by id desc"
rs2.Open rs2.Source,conn,1,1
%>
<td>最新注册：<font color="#FF9933"><a href="L_user.asp?pname=<% =rs2("uid") %>"><%=rs2("uid")%></a></font></td>
</tr>
<tr>
<td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<td>总访问量：<font color="#FF9933">
<% =application("counter") %>
</font></td>
</tr>
</table></TD>
</TR>
<TR>
<TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
<td width="94%" background="images/left_02.gif">热点新闻</td>
<td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<% set rsTOP=server.createobject("adodb.recordset")
sqlTOP="select top 10 * from news where mytype='热点新闻' order by lls desc"
rsTOP.open sqlTOP,conn,3,3
for i=1 to 10 %>
<tr>
<td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
<td width="90%"><a title="<% =left(rsTOP("nr"),15) %>..." href=news.asp?xiangxi=<% =rsTOP("id") %>>
<% =left(rsTOP("bt"),9) %><% if len(rsTOP("bt")) > 10 then
response.Write"..."
end if%>
</a></td>
</tr>
<% rsTOP.movenext
if rsTOP.eof then exit for
next
rsTOP.close %>
</table></TD>
</TR>
<TR>
<TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff> </TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width=6 bgColor=#ffffff> </TD>
<TD><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 background="images/c-b.gif" style="BORDER-COLLAPSE: collapse">
<TR>
<TD>
<table width="98%" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width=11
background="images/news_line.gif"
height=1></td>
<td bgcolor=#666666 width="541"></td>
<td width=1 bgcolor=#666666 rowspan=4></td>
</tr>
<tr>
<td width=11
background="images/news_b.gif"
height=5></td>
<td width="541">
<table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td width="28%"> <img src="anniu/xx.gif" width="100" height="22"></td>
<td width="46%">
<div align="center"><font size="+1"><b><%=request("lb")%></b></font> </div>
</td>
<td width="26%">
<div align="center"><a href="fb.asp"><img src="images/fb01.gif" width="105" height="22" border="0"></a></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td background="images/news_line.gif"
height=1 width="11"></td>
<td bgcolor=#666666 height=1 width="541"></td>
</tr>
</tbody>
</table>
</TD>
</TR>
<TR>
<TD>
<DIV align=center>
<table width="98%" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width=22
background="images/news_line.gif"
height=1></td>
<td bgcolor=#666666></td>
<td width=1 bgcolor=#666666 rowspan=5></td>
</tr>
<tr>
<td width=22
background="images/news_b.gif"
height=5></td>
<td></td>
</tr>
<tr>
<td
background="images/news_bg.gif"></td>
<td align=middle>
<table class=tf width="98%" align=center border=0>
<tbody>
<tr>
<td class=bw width="100%"> <font class=htd
id=font_word
style="FONT-SIZE: 14px; FONT-FAMILY: 宋体, Verdana, Arial, Helvetica, sans-serif">
</font>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<%
if rs.bof and rs.eof then
response.write "暂时没有信息"
else
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page '跳到多少页
for i=1 to rs.pagesize
%>
<tr>
<td width="11%"> <img src="images/006.gif" width="8" height="10"><font size="2">
<% =rs("mytype")%>
</font></td>
<td align=right width="13%">
<div align="center"><font size="2">
<% =rs("fw_quyu")%>
</font></div>
</td>
<td align=left width="16%">
<div align="center"><font size="2">
<% =rs("fw_jiegou")%>
</font></div>
</td>
<td align=middle width="20%">
<div align="center"><font size="2">
<% =rs("fw_jiage") %>
<% =rs("fw_jiageLX") %>
</font></div>
</td>
<td align=left width="10%">
<div align="center"><font color="#666666" size="2">
<% =rs("fw_lls") %>
</font></div>
</td>
<td align=left width="18%">
<div align="center"><font color="#666666" size="2">
<% =rs("fw_fbri") %>
</font></div>
</td>
<td align=left width="12%">
<div align="center"><a href="h_open.asp?id=<%=rs("id")%>" target="_blank"><img src="anniu/ck.gif" width="65" height="22" border="0"></a></div>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td width=22
background="images/news_b.gif"
height=5></td>
<td></td>
</tr>
<tr>
<td background="images/news_line.gif"
height=1></td>
<td bgcolor=#666666 height=1></td>
</tr>
</tbody>
</table>
</DIV>
</TD>
</TR>
<TR>
<TD><div align="right"><img src="images/more_01.gif" width="29" height="9">
<%
r=7
'总页数
zys=round(clng(rs.pagecount)/r+0.5)
'当前页数
dqys=request.QueryString("dqys")
'开始页
ksy=request.QueryString("ksy")
if dqys="" then dqys=1
if ksy="" then ksy=1
js=clng(dqys) * r '一个FOR语句结束
if js > clng(rs.pagecount) then js=clng(rs.pagecount)
newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &"&lb="& lb &">" &"上一页" &"</a>"
for t=newksy to js
response.write "<a href=?page=" &t&"&dqys="&dqys&"&lb="& lb &">" &t& "</a> "
next
if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &"&lb="& lb &">" &"下一页" &"</a>"
%>
</div></TD>
</TR>
<TR>
<TD width="100%" height=0 align=right background="images/c-dl.gif"></TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="let.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -