<% if Request.Cookies("username")=empty then error2("您还未登录论坛") id=int(Request("id")) username=HTMLEncode(Trim(Request("username"))) if Request("menu")="online" then %> <% responseend end if if Request("menu")="post" then %> 发送讯息 - Powered By BBSxp
 昵称:  
<% responseend end if if Request("menu")="del" then conn.execute("delete from [message] where id="&id&" and incept='"&Request.Cookies("username")&"'") end if top if newmessage>0 then conn.execute("update [user] set newmessage=0 where username='"&Request.Cookies("username")&"'") end if %>
   <%ClubTree%> → 控制面板


<% if Request("send")="1" then sql="select * from message where author='"&Request.Cookies("username")&"' order by time Desc" response.write "" else sql="select * from message where incept='"&Request.Cookies("username")&"' order by time Desc" end if rs.Open sql,Conn,1 pagesetup=10 '设定每页的显示数量 rs.pagesize=pagesetup TotalPage=rs.pagecount '总页数 PageCount = cint(Request.QueryString("ToPage")) if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数 i=0 Do While Not RS.EOF and i聊天记录" else author=rs("author") del="回复这个帖子 删除该留言" end if %> <% RS.MoveNext loop RS.Close %>
     
  发件人 内容 日期 操作
<%=author%>   <%=rs("time")%>  <%=del%>  

Page:[ ]
<%htmlend%>