<%=ForumName%>--短消息

<% dim msg set rs=server.createobject("adodb.recordset") if membername="" then errmsg=errmsg+"
"+"

您没有登录。" founderr=true else end if if founderr=true then call error() else if request("action")="inbox" then call inbox() elseif request("action")="outbox" then call outbox() elseif request("action")="new" then call sendmsg() elseif request("action")="read" or request("action")="outread" then call read() elseif request("action")="delete" then call delete() elseif request("action")="deleteall" then call deleteall() elseif request("action")="send" then call savemsg() elseif request("action")="newmsg" then call newmsg() else call error() end if end if '收件箱 sub inbox() %> align=center>

<% sql="select * from message where incept='"&trim(membername)&"' order by flag" rs.open sql,conn,1,1 if rs.eof and rs.bof then %> <%else%> <%do while not rs.eof%> bgcolor="<%=aTabletitlecolor%>"<%end if%>> <% rs.movenext loop end if rs.close %>

欢迎使用您的收件箱，<%=membername%>
valign=middle align=center colspan=3>
align=center valign=middle>来自	align=center valign=middle>主题	align=center valign=middle>已读
align=center valign=middle colspan=3>您还没有新留言噢：）
0 then%>bgcolor=<%=Tablebodycolor%><%end if%> align=center valign=middle><%=htmlencode(rs("sender"))%>	0 then%>bgcolor=<%=Tablebodycolor%><%end if%> align=left valign=middle>"><%=htmlencode(rs("title"))%>	0 then%>bgcolor=<%=Tablebodycolor%><%end if%> align=center valign=middle><%if rs("flag")=0 then%>否<%else%>是<%end if%>
删除所有的短消息

<% end sub '发件箱 sub outbox() %> align=center>

<% sql="select * from message where sender='"&trim(membername)&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then %> <%else%> <%do while not rs.eof%> <% rs.movenext loop end if rs.close %>

align=center colspan=2>欢迎使用短消息发送，<%=membername%>
valign=middle align=center colspan=3>
align=center valign=middle width=20%>收件人	align=center valign=middle>标题
align=center valign=middle colspan=2>您还没有给别人发过信息呢~~
align=center valign=middle width=20%><%=htmlencode(rs("incept"))%>	align=left valign=middle>"><%=htmlencode(rs("title"))%>
align=center valign=middle colspan=2>删除所有的短消息

<% end sub '发送信息 sub sendmsg() %>

align=center>

align=center colspan=3>发送短消息
valign=middle align=center colspan=3>
colspan=2 align=center> 请完整输入下列信息
valign=middle>收件人：	valign=middle> " size=20>
valign=top width=30%>标题：	valign=middle>
valign=top width=30%>内容： Ctrl+Enter发送	valign=middle>
valign=middle colspan=2 align=center>

<% end sub '读取信息 sub read() %> <% sql="update message set flag=1 where ID="&cstr(request("id")) rs.open sql,conn,1,3 sql="select * from message where incept='"&membername&"' and id="&cstr(request("id")) rs.open sql,conn,1,1 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

你是不是跑到别人的信箱啦、或者该信息已经删除。" founderr=true end if if founderr=true then call error() else %> align=center>

align=center colspan=3>欢迎使用短消息接收，<%=membername%>

valign=middle align=center colspan=3>">

valign=middle align=center> <%if request("action")="outread" then%> 在<%=rs("sendtime")%>，您发送此消息给<%=htmlencode(rs("incept"))%>！ <%else%> 在<%=rs("sendtime")%>，<%=htmlencode(rs("sender"))%>给您发送的消息！ <%end if%>

valign=top align=left> 消息标题：<%=htmlencode(rs("title"))%>

<%if rs("sender")="动网小精灵" then%> <%=rs("content")%> <%else%> <%=ubbcode(rs("content"))%> <%end if%>

<%end if%> <% end sub sub savemsg() if request("touser")="" then errmsg=errmsg+"
"+"

您忘记填写发送对象了吧。" founderr=true else incept=request("touser") end if if request("title")="" then errmsg=errmsg+"
"+"

您还没有填写标题呀。" founderr=true else title=request("title") end if if request("message")="" then errmsg=errmsg+"
"+"

内容是必须要填写的噢。" founderr=true else message=request("message") end if if founderr=true then call error() else sql="select * from [user] where username='"&incept&"'" rs.open sql,conn,1,1 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

论坛没有这个用户，看看你的发送对象写对了嘛？" founderr=true end if rs.close if founderr=true then call error() else sql="select * from message where (id is null)" rs.open sql,conn,1,3 rs.addnew rs("incept")=incept rs("sender")=membername rs("title")=title rs("content")=message rs("sendtime")=Now() rs("flag")=0 rs.update msg=msg+"
"+"

恭喜您，发送短信息成功。
发送的消息同时保存在您的发件箱。" call success() rs.close end if end if end sub sub delete() sql="delete from message where incept='"&membername&"' and id="&cstr(request("id")) conn.execute sql if err.Number<>0 then err.clear errmsg=errmsg+"
"+"

删除失败！" founderr=true call error() else msg=msg+"
"+"

短信息成功删除！" call success() end if end sub sub deleteall() sql="delete from message where incept='"&membername&"'" conn.execute sql if err.Number<>0 then err.clear errmsg=errmsg+"
"+"

删除失败！" founderr=true call error() else msg=msg+"
"+"

短信息全部成功删除！" call success() end if end sub sub success() %> align=center>

>成功：短信息

><%=msg%>

> << 返回上一页

<% end sub sub newmsg() %> align=center>

>短消息通知

align=center>

有新的短消息

按此查看

><%=Copyright%>

<% end sub set rs=nothing stats="发送短信" call endline() %>