| 发表于：2007-06-27 20:35:16 楼主 |
我现在从数据库中取数据显示全部，新信息要保留两天，而且前面要加个图标！这个怎么做呀！谢谢！我的代码如下！在那个加呀？
<%
dim rssql2,pagesize,rowcount,totalpages,pageno,position,pagebegin,pageend
set conn = server.createobject（ "adodb.connection ")
set rs= server.createobject（ "adodb.recordset ")
conn.open（ "provider=microsoft.jet.oledb.4.0;data source= "&server.mappath（ "zhongzhong.asp "))
rssql2 = "select * from house where fwlb= '出售 ' and sfsh= '是 ' order by sj desc "
rs.open rssql2,conn,3,3
pagesize=20
pagesize=20
if rs.recordcount=0 then
%>
<%
else
rs.pagesize = cint（pagesize)
totalpages=rs.pagecount
pageno=request.querystring（ "pageno ")
if pageno= " " or pageno <1 then
pageno = 1
end if
rs.absolutepage = pageno
position=rs.pagesize*pageno
pagebegin=position-rs.pagesize+1
if position <rs.recordcount then
pageend=position
else
pageend= rs.recordcount
end if
%>
<table width=529 border=0 cellpadding=1 cellspacing=1 style= 'font-size:9pt '>
<tr >
<td colspan= "2 ">
<%
response.write "页 "& pageno & " / "& totalpages & " ¦记录 "& pagebegin & " - " & pageend & " / " &rs.recordcount
%>
</td>
</tr>
<tr bgcolor=#003366 height=20px>
<td width= "20% "> <div align= "center "> 区域 </div> </td>
<td width= "140 "> <div align= "center "> 路段 </div> </td>
<td width= "92 "> <div align= "center "> 户型 </div> </td>
<td width= "100 "> <div align= "center "> 价位 </div> </td>
<td width= "90 "> <div align= "center "> 查看详情 </div> </td>
</tr>
<%
rowcount = rs.pagesize
dim color1,color2
color1= "#dddddd "
color2= "#eeeeee "
do while not rs.eof and rowcount > 0
response.write " <tr height=20px bgcolor= "
%>
<%
if rowcount mod 2=0 then:response.write color1 else:response.write color2
%>
<%
response.write "> "
%>
<td> <div align= "center "> <%=rs（ "qy ")%> </div> </td>
<td> <div align= "center "> <%=rs（ "ld ")%> </div> </td>
<td> <div align= "center "> <%=rs（ "hx ")%> </div> </td>
<td> <div align= "center "> <%=rs（ "fj ")%> </div> </td>
<td> <div align= "center "> <a href=fwxx.asp?id= <%=trim（rs（ "id "))%> class= "linkone "> 查看详情 </a> </div> </td>
</tr>
</tr>
<%
rowcount = rowcount - 1
rs.movenext
loop
conn.close
set rs = nothing
set conn = nothing
%>
<tr>
<td>
<%
for i=1 to totalpages
if cint（pageno) = cint（i) then
response.write "[ "&i& "] "
else
response.write "  <a href=chushouxx.asp?pageno= "&i& "> "&i& " </a>   "
end if
next
%>
</td>
</tr>
</table>
<%
end if
%>
</table>
|
|
|
|
|
