list.asp

麦布会员管理程序是一个简易的会员注册及管理系统

<%
if session("ok")="" then
response.write"<script>alert('对不起，请先登陆！');history.back();</script>"
end if
%>
<!--#include file="conn.asp"-->
<%
set rs = server.CreateObject("adodb.recordset")
sql = "Select * from MB_Member ORDER BY M_ID DESC"
rs.open Sql,my_conn,1,1
if request("del")="del" then
response.write "<script language=javascript>alert('对不起，免费版无此功能，欢迎到麦布源码超市购买专业版[ www.mybu.net ]，麦布会员管理 Ver 1.0 专业版售价 200 元/套！');history.back(-1)</script>"
end if
%>
<link rel="stylesheet" href="../style.css" type="text/css">

<p align="center">

<br>
<br>
<%
Dim TotalPage
Dim PageNo
Dim RecordCount
If RS.RecordCount=0 then
response.write "< P>< center>对不起，数据库中没有相关信息！< /center>< /P>"
response.end
else
RS.PageSize = 10
Totalpage=INT(RS.recordcount / rs.pagesize * -1)*-1
PageNo = Request.QueryString ("PageNo")
If Request.Form("PageNo")<>"" Then PageNo = Request.Form("PageNo")
If PageNo = "" then PageNo = 1 
Rs.AbsolutePage = PageNo
End If
Dim fileName,postion
fileName = Request.ServerVariables("script_name")
postion = InstrRev(fileName,"/")+1
fileName = Mid(fileName,postion) 
Dim RowCount
RowCount = 10
%>麦布会员管理系统 [ <a href="out.asp">退出</a> ]<br>
</p>
<div align="center">
  <center>
<table width="500" border="1" cellpadding="3" cellspacing="0" bgcolor="#000000" bordercolor="#ACACAC" style="border-collapse: collapse">
  <tr align="center" valign="middle"> 
    <td width="30" bgcolor="#BCBCBC">编号</td>
    <td width="63" bgcolor="#BCBCBC">用户名</td>
    <td width="65" bgcolor="#BCBCBC">所在地</td>
    <td width="33" bgcolor="#BCBCBC">性别</td>
    <td width="43" bgcolor="#BCBCBC">邮箱</td>
    <td width="51" bgcolor="#BCBCBC">主页</td>
    <td width="69" bgcolor="#BCBCBC">QQ号码</td>
    <td width="74" bgcolor="#BCBCBC">用户组</td>
    <td width="106" bgcolor="#BCBCBC">编辑</td>
  </tr>
 <%
Do while Not Rs.eof and RowCount>0
%>
  <tr align="center" valign="middle" bgcolor="#DEDEDE"> 
    <td width="30"> <%=rs("M_ID")%>　</td>
    <td width="63"><%=rs("M_Name")%>　</td>
    <td width="65"><%=rs("M_City")%>　</td>
    <td width="33"><%=rs("M_sex")%>　</td>
    <td width="43"><a href="mailto:<%=rs("M_Email")%>">发信</a></td>
    <td width="51"><a target="_blank" href="<%=rs("M_Web")%>">访问</a></td>
    <td width="69"><%=rs("M_QQ")%>　</td>
    <td width="74"><%=rs("M_Vip")%>　</td>
    <td width="106">[<a href="edit.asp?id=<%=rs("M_ID")%>">编辑</a>] [<a href="list.asp?id=<%=rs("M_ID")%>&del=del&pageno=<%=pageno%>">删除</a>]</td>
  </tr>
  <%
RowCount = RowCount - 1
Rs.MoveNext
Loop
%>

</table>
  </center>
</div>
<br>
<div align="center">
  <center>
<table width='500' border=0 cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
  <tr align="center" valign="middle"> 
    <td width="250" height="18"> 
    <p align="left">共计 <font color=#ff3333><%=RS.recordcount%></font> 条记录 
    | 共: <font color=#ff3333><%=TotalPage%></font>  页 | 当前: 第 <font color=#ff3333><%=PageNo%></font>  页</td>
    <td width="250"> <div align="right">
        <%If rs.RecordCount = 0 or TotalPage = 1 Then 
Response.Write "当前只有一页"
Else%>
        <a href="<%=fileName%>?PageNo=1">首 
        页</a> | 
        <%If PageNo - 1 = 0 Then
Response.Write "上一页|"
Else%>
        <a href="<%=fileName%>?PageNo=<%=PageNo-1%>">上一页</a> 
        | 
        <%End If

If PageNo+1 > TotalPage Then
Response.Write " "
Else%>
        <a href="<%=fileName%>?PageNo=<%=PageNo+1%>">下一页</a> 
        | 
        <%End If%>
        <a href="<%=fileName%>?PageNo=<%=TotalPage%>">末 
        页</a> 
        <%End If%>
      </div></td>
  </tr>
</table>
  </center>
</div>
<p align="center">
<br><a target="_blank" href="http://www.mybu.net/soft.asp">
<font color="#FF0000">欢迎到麦布源码超市购买专业版[ www.mybu.net ]，麦布会员管理 Ver 1.0 专业版售价 200 
元/套！</font></a> </p>
<p align="center">
专业版用户可获得免费的软件升级服务，强大的技术支持，欢迎订购程序；OICQ：330419081<br></p>