admin.asp

一个用ASP编制的电子留言板

<% 
if Request.QueryString("Uppage")<>"" or Request.QueryString("Downpage")<>"" then
   Session("admin")=true
end if
   if Session("admin")=true then 
      Session("admin")=false
	  Session("edit")=true %>
<!-- #INCLUDE file="head.asp" -->
<% dim outstr
   if (Session("Mnumber") mod 5)=0 then
   Session("page")=Session("Mnumber")/5
   else
   Session("page")=int(Session("Mnumber")/5+1)
   end if
    if not Request.QueryString("Uppage")=""and Session("nowpage")>1  then
   Session("nowpage")=Session("nowpage")-1
   else
   if not Request.QueryString("Downpage")="" and   Session("nowpage")<Session("page") then
   Session("nowpage")=Session("nowpage")+1
   else
   Session("nowpage")=1
   end if
   end if 
   dim i
   i=int(Session("nowpage"))
 %>
<table width="768" border="0" align="center" cellspacing="0">
	 <tr>
    <td width="38" height="20" background="../img/ad_mqdhl.gif">&nbsp;</td>
    <td width="742" bgcolor="#E8F5E1"><span class="style4"><span class="style3">当前位置　</span></span>留言板\查看留言</td>
  </tr>
</table>
<table width="615" height="20" border="0" align="center" cellpadding="0" cellspacing="1">
 <%
    if Session("Mnumber")>0 then
    dim sql
    Response.Expires=0
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../data/system.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    sql="select * from massage"
    Set rs=Server.CreateObject("ADODB.RecordSet")
    rs.Open sql,conn,3,2
	do while not rs.eof
	if rs("ID")>=i*5-4 and rs("ID")<=i*5 then
	%>
  <tr bgcolor="#A2CF88">
    <td width="112" height="20" bordercolor="#FFFFFF"> <div align="center">昵称</div></td>
    <td width="365" bordercolor="#FFFFFF" bgcolor="#A2CF88"><div align="center">留言内容</div></td>
    <td width="138" bordercolor="#FFFFFF"><div align="center">留言时间</div></td>
  </tr>
  <tr bgcolor="#E8F5E1">
    <td height="20" bordercolor="#FFFFFF"><div align="center"><%=rs("name")%></div></td>
    <td bordercolor="#FFFFFF"><div align="center"><%=rs("massage")%></div></td>
    <td bordercolor="#FFFFFF"><div align="center"><%=rs("m_time")%></div></td>
  </tr>
  <tr bgcolor="#E8F5E1">
    <td height="20" bordercolor="#FFFFFF"><div align="center">管理员</div></td>
    <td bordercolor="#FFFFFF"><div align="center">回复内容</div></td>
    <td bordercolor="#FFFFFF"><div align="center">回复时间</div></td>
  </tr>
  <tr bgcolor="#E8F5E1">
    <td height="20" bordercolor="#FFFFFF"><div align="center"><% outstr="<a href=edit.asp?ID="&rs("ID")&">修　改</a>"
	 Response.Write(outstr)%></div></td>
    <td bordercolor="#FFFFFF"><div align="center"><%=rs("reversion") %></div></td>
    <td bordercolor="#FFFFFF"><div align="center"><%=rs("r_time") %></div></td>
  </tr>
  <% 
     end if
	 rs.movenext
	 loop
     rs.close
     conn.close
	 Set rs=Nothing
	 Set Conn=Nothing
	 else
	 %>
	  <tr>
    <td height="20" colspan="3" bordercolor="#FFFFFF">&nbsp;</td>
  </tr>
      <tr bgcolor="#FFFFFF">
        <td height="20" colspan="3" bordercolor="#FFFFFF"><div align="center">现在还没有留言</div></td>
      </tr>
  <tr bgcolor="#FFFFFF">
    <td height="20" colspan="3" bordercolor="#FFFFFF">&nbsp;</td>
  </tr>
	 <%
	 end if
	 %>
</table>
<div align="center">
  <p>
  </p>
</div>
<form action="admin.asp" method="get">
  <table width="517" border="0" align="center" cellspacing="0">
    <tr>
      <td width="515" height="44">        
        <div align="center">
          <input name="Uppage" type="submit" id="Uppage" value="上一页">
        第<%=Session("nowpage") %>页／共<%=Session("page") %>页
        <input name="Downpage" type="submit" id="Downpage" value="下一页">        
        </div></td>
    </tr>
  </table>
</form>
<!-- #INCLUDE file="foot.asp" -->
<% else 
   Response.Redirect("../error/index.asp?ID=1")  
end if
%>