<% 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 %>

昵称：		<% if Request("report")="1" then %> 版主列表 <% else %> 好友列表 <% end if %>
<%=Request("body")%>

<% 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%>