flase1.asp

很美观的供求信息平台！超级无错版

<div align="center">
  <center>
  <table width=409 height=169 cellspacing=0 cellpadding=0 border="0">
  <tr height=300>
  <td height="169" width="409">&nbsp;
   <table border=0 cellspacing=0 cellpadding=3 align=center>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim row
msg_per_page = 5
set rs=server.createobject("adodb.recordset")
sql="select * from link where yanzheng='flase' order by id DESC"
rs.cursorlocation = 3

rs.pagesize = msg_per_page
rs.open sql,conn,0,1 

if err.number<>0 then 
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then 
totalrec = RS.RecordCount 
if rs.recordcount mod msg_per_page = 0 then 
n = rs.recordcount\msg_per_page 
else 
n = rs.recordcount\msg_per_page+1 
end if 

currentpage = request("page") 
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then 
currentpage = 1
end if 
if err.number <> 0 then 
err.clear
currentpage = 1
end if
else
currentpage = 1
End if 
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
currentPage=1
end if
rs.absolutepage = currentpage 
rowcount = rs.pagesize 

while not rs.eof and rowcount>0
if therow mod 3 = 0 then
response.write("<tr>")
end if
%> 
   <td align=center width=110 height=60>
   <table width=100 height=60 cellspacing=1 cellpadding=0>
    <tr height=40>
     <td align=center>
                      <img src="<%=rs("imgurl")%>" border=0 width=120 height=89 alt="<%=rs("site")%>">
    <tr>
     <td align=center>
   </table>
<%
 therow=therow+1
 rowcount=rowcount-1
 rs.MoveNext
 wend
 end if
 end if
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 if therow mod 5<>0 then
 for i=1 to 5-(therow mod 5)
 response.write("<td width=110 height=60>&nbsp;")
 next
 end if
%>
   </table><br>
<table border="0" align="center">
<tr>
<td align="center" valign="middle"> 
<%call listPages()%>
</td>
</tr>
</table>
<%
sub listPages() 

for i=0 to n\msg_per_page-1 
for j=1 to msg_per_page 
%> 
<a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>" style="text-decoration: none">
  <font color="#808080" style="font-size: 9pt">[<% =i*msg_per_page+j %>]</font></a></font>&nbsp;&nbsp;
<% 
next 
next
EndPage = n mod msg_per_page 
for j=1 to EndPage 
%>
<a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>" style="text-decoration: none">
  <span style="font-size: 9pt"><font color="#808080">[<% =i*msg_per_page+j %>]</font></span></a>
<%next%>
<font color="#808080" class=my3><span style="font-size: 9pt">当前页:<%=currentpage%>  &nbsp;&nbsp;<%=msg_per_page%>个用户/页 
  &nbsp;&nbsp;总个数:</span><b><%=totalrec%></b></font><font color="#808080">
<%end sub%> </font>
  </td>
 </table>
  </center>
</div>
</body>
</html>