<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%call Fortxtmsg response.write "

" Dim urls urls=Request.Querystring("url") urlss=Request.Querystring("url") if urls="" then urls="msgin.asp?sid="&sid&"" urlss=replace(urlss,"@@","&") urlss=replace(urlss,"o=","sid=") urlss=replace(urlss,"sid=&sid=","sid=") urlss=replace(urlss,"sid=&sid=","sid=") urlss=replace(urlss,"sid=@@sid=","sid=") response.write "返回之前页
" dim id id=request("id") if id="" or Isnumeric(id)=False then id=0 '检查留言是否已经满 if keys > 0 or skey>0 then guestcount = keymsgcount '社区管理员和版主信箱储存数 else guestcount = msgcount '普通会员信箱储存数 end if dim Count1,Count2,Count Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT ID from Guest where sid="&myid&" and fzt = 1 and sdel=0",conn,1,1 Count1=rs.RecordCount rs.close rs.open "SELECT ID from Guest where fid="&myid&" and fzt = 1 and fdel=0",conn,1,1 Count2=rs.RecordCount Count=Count1+Count2 if clng(Count) >= abs(int(guestcount)) then rs.close set rs=Nothing conn.close set conn=Nothing response.write "你的信箱已满，需要清空旧消息后才可以查看留言！" response.write "
马上清空旧消息" response.write "
取消" response.write "

" response.end end if rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select top 1 id,fnr,fid,sid,tou,ftm from guest where sdel=0 and fzt=0 and sid="&myid&" order by ID asc",conn,1,1 if rs.eof then response.write "没有新信息了
" else dim ids,sendtxt,ftm,guestid guestid=rs("ID") sendtxt=rs("fnr") biao=rs("tou") ids=rs("fid") ftm=rs("ftm") rs.close set rs=nothing dim username set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,name from Users where id="&ids,conn,1,1 if rs.eof then username="" Else username=rs("name") rs.close set rs=nothing end if conn.Execute("update guest set fzt=1 where id="&guestid) response.write "内容：" if biao<>0 then response.write "" end if response.write ubb2(sendtxt) if username<>"" then response.write "
作者：" response.write ""&ubb(username)&"(ID:"&ids&")" response.write "
时间："&ftm&"" response.write "
"&chr(13) response.write "
" response.write "快速回复" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "聊天记录
" response.write "删除消息
" else response.write "
社区系统消息
" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,fid from guest where id="&guestid&" and sid="&myid,conn,1,2 if not rs.eof then if rs("fid")=0 then rs.delete rs.update end if end if rs.close set rs=nothing end if end if conn.close set conn=nothing response.write "我的信箱"%>