admin_sheji.asp

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

<%
if request.cookies("okadmin")="" then
  response.redirect "../7dilogin.asp"
end if
%>
<div align="center">
  <center>
<table width=90% height=340 cellspacing=0 cellpadding=0 border="0" style="border-collapse: collapse">
  <tr height=300>
  <td>
   <table border=0 cellspacing=0 cellpadding=3 align=center width="326" height="162">
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim row
msg_per_page = 5  '每页显示的个数
set rs=server.createobject("adodb.recordset")
sql="select * from link 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 1 = 0 then  '一行显示的个数
response.write("<tr>")
end if
if rs("yanzheng")="ok" then isorno="被推荐用户"
if rs("yanzheng")="flase" then isorno="被拒绝用户"
if rs("yanzheng")="ing" then isorno="等待验证用户"
%> 
   <td align=center width=1 height=156>
   <table width=100 height=60 cellspacing=0 cellpadding=0 border="1" style="border-collapse: collapse">
    <tr>
     <td align=center colspan="2"><font color="#808080"><span style="font-size: 9pt"><%=isorno%></span></font>　<tr height=40>
     <td align=center><a href="<%=rs("url")%>" target=_blank>
                      <img src="<%=rs("imgurl")%>" border=0 alt="<%=rs("site")%>" width=120 height=89>
                      </a>
  
     <td align=center>　<tr>
     <td align=center colspan="2">
     <font color="#808080" style="font-size: 9pt">名称：<%=rs("site")%></font></table>

   <td align=center width=147 height=156>
   <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="110%" id="AutoNumber1" height="106">
     <tr>
       <td width="45%" height="27"><a href=ok.asp?num=<%=rs("num")%> style="text-decoration: none">
     <span style="font-size: 9pt"><font color="#808080">通过认证</font></span></a></td>
     </tr>
     <tr>
       <td width="45%" height="28"><a href=no.asp?num=<%=rs("num")%> style="text-decoration: none">
     <font color="#808080" style="font-size: 9pt">拒绝通过</font></a></td>
     </tr>
     <tr>
       <td width="45%" height="28"><a href=del.asp?num=<%=rs("num")%> style="text-decoration: none">
     <font color="#808080" style="font-size: 9pt">删除记录</font></a></td>
     </tr>
     <tr>
       <td width="45%" height="28"><a href=flase.asp style="text-decoration: none"><font color="#808080" style="font-size: 9pt">有谁被拒绝？</font></a></td>
     </tr>
     </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>&nbsp;")
 next
 end if
%>
   </table><br>
<table border="0" align="center">
<tr>
<td align="center" valign="middle"> 
<%call listPages()%>
</td>
</tr>
</table>
      <font color="#66ccff">
      <%
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">
  <span style="font-size: 9pt"><font color="#808080">[
      <% =i*msg_per_page+j %>
      ]</font></span></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">
  <font color="#808080" style="font-size: 9pt">[
      <% =i*msg_per_page+j %>
      ]</font></a> 
      <%next%> <font color="#808080" style="font-size: 9pt">
      <font class=my3>当前页:<%=currentpage%><b> &nbsp;&nbsp;<%=msg_per_page%></b>个设计师/每页<b> 
   &nbsp;&nbsp;</b>共有<b><%=totalrec%></b>个设计师</font></font>
      <%end sub%> </font></td>
</table>
  </center>
</div>
</body>
</html><!-- 
'******************************以下信息切记一定不要删除******************************************************'
'**                                                                                                     *****'
'**                 启迪信息平台由www.7di.net开发完成，如果需要转载，请保留作者的劳动成果               *****'
'**                   此程序由 我（qq:9256114）和 没有鱼的水（356754）开发完成，历时2周。               *****'
'**                   我的站点是http://www.7di.net，最近正在加紧改版，欢迎提出宝贵建议。                *****'
'**          没有鱼的水的站点是http://www.heartyue.com，这是一个不错的文学站点，由我们两人合作完成      *****'
'**                                                                                                     *****'
'************************************************************************************************************' -->