mess_list.asp

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

<link rel="stylesheet" href="style.css" type="text/css">
<!--#include file="conn.asp"-->
<%
set rs = server.CreateObject("adodb.recordset")
sql = "Select * from MB_Message where E_To='" & session("name") &"' ORDER BY E_ID DESC"
rs.open Sql,my_conn,1,1
%>
<p align="center">

<br>
<br>
<%
Dim TotalPage
Dim PageNo
Dim RecordCount
If RS.RecordCount=0 then
response.write "对不起，您的留言信箱是空的！"
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="reg_home.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="63" bgcolor="#BCBCBC">发信人</td>
    <td width="192" bgcolor="#BCBCBC">主题</td>
    <td width="135" bgcolor="#BCBCBC">发送时间</td>
    <td width="40" bgcolor="#BCBCBC">读过</td>
    <td width="104" bgcolor="#BCBCBC">操作</td>
  </tr>
 <%
Do while Not Rs.eof and RowCount>0
%>
  <tr align="center" valign="middle" bgcolor="#DEDEDE"> 
    <td width="63"><a href="reg_info.asp?id=<%=rs("E_From")%>"><%=rs("E_From")%></a>　</td>
    <td width="192"><a href="mess_info.asp?id=<%=rs("E_ID")%>"><%=rs("E_title")%></a>　</td>
    <td width="135"><%=rs("E_time")%>　</td>
    <td width="40"><%if rs("E_yes")=1 then%>已读<%else%><b>未读</b><%end if%>　</td>
    <td width="104">[<a href="mess_info.asp?id=<%=rs("E_ID")%>">阅读</a>] [<a href="#">删除</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>
麦布会员管理系统 Ver 2.0&nbsp;- Powered By <a href="http://www.mybu.net" target="_blank">MyBu.Net</a><br>
</p>