writop.asp

这是一个文章管理的网页源程序

<table cellspacing=1 cellpadding=4 width="100%" border=0>
  <tr> 
    <td bgcolor="<%=Tabletitlecolor%>" align="center"><b>添加文章排行榜</b>(前10位) </td>
  </tr>
  <tr align="right"> 
    <td bgcolor="<%=Tablebodycolor%>"> 
      <table align="center">
        <%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("mymdb/news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")

sql="Select top 10 * from admin where flag>"&Session("flag")&" order by wzs desc" 
rs.open sql,conn,0,1
%> 
        <tr> 
          <td width="20%" height="11">名次</td>
          <td width="60%" height="11"> 
            <p align="center">姓名 
          </td>
          <td width="20%" height="11">文章</td>
        </tr>
        <% i=1
do while not rs.eof%> 
        <tr> 
          <td width="20%" height="10"> 
            <p align="center"><%=i%> 
          </td>
          <td width="60%" height="10"> 
            <p align="center"><a href=writerinfo.asp?name=<%=rs("username")%> target="_blank" title="查看<%=rs("username")%>的详细情况"><%=rs("username")%></a> 
          </td>
          <td width="20%" height="10"> 
            <p align="center"><%=rs("wzs")%> 
          </td>
          <% rs.movenext
i=i+1
   loop
%> <% rs.close 
set conn=nothing 
set rs=nothing 
%> </tr>
      </table>
      <br>
      <a href="allwriter.asp" target="_blank">查看全部作者</a> </td>
  </tr>
</table>