📄 usersms.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<html>
<head>
<title><%=ForumName%>--短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="forum.css" rel=stylesheet>
<script language="javascript">
function DoTitle(addTitle) {
var revisedTitle;
var currentTitle = document.messager.touser.value;
revisedTitle = currentTitle+addTitle;
document.messager.touser.value=revisedTitle;
document.messager.touser.focus();
return; }
</script>
</head>
<body <%=Forumbody%>>
<%
dim msg
if membername="" then
errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
founderr=true
else
end if
call nav()
response.write "<TABLE border=0 width="&tablewidth&" align=center><TBODY>"&_
"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
"<TD Align=right> <a href=usersms.asp?action=inbox><img src=pic/m_inbox.gif border=0 alt=收件箱></a> <a href=usersms.asp?action=outbox><img src=pic/M_outbox.gif border=0 alt=发件箱></a> <a href=usersms.asp?action=issend><img src=pic/M_issend.gif border=0 alt=已发送邮件></a> <a href=usersms.asp?action=recycle><img src=pic/M_recycle.gif border=0 alt=废件箱></a> <a href=friendlist.asp><img src=pic/M_address.gif border=0 alt=地址簿></a> <a href=usersms.asp?action=new&id=><img src=pic/m_write.gif border=0 alt=发送消息></a> <a href=usersms.asp?action=new&touser="&htmlencode(request("sender"))&"&id="&request("id")&"><img src=pic/m_reply.gif border=0 alt=回复消息></a> <a href=usersms.asp?action=fw&id="&request("id")&"><img src=pic/m_fw.gif border=0 alt=转发消息></a> <a href=usersms.asp?action=delete&id="&request("id")&"><img src=pic/m_delete.gif border=0 alt=删除消息></a>"&_
"</TD></TR></TBODY></TABLE><br>"
if founderr=true then
call error()
else
select case request("action")
case "inbox"
call inbox()
case "outbox"
call outbox()
case "issend"
call issend()
case "recycle"
call recycle()
case "new"
call sendmsg()
case "read"
call read()
case "outread"
call read()
case "delete"
call delete()
case "send"
call savemsg()
case "newmsg"
call newmsg()
case "fw"
call fw()
case "edit"
call edit()
case "savedit"
call savedit()
case "删除收件"
call delinbox()
case "清空收件箱"
call AllDelinbox()
case "删除发件"
call deloutbox()
case "清空发件箱"
call AllDeloutbox()
case "删除已发信息"
call delissend()
case "清空已发送信息"
call AllDelissend()
case "删除指定信息"
call delrecycle()
case "清空回收站"
call AllDelrecycle()
case else
call inbox()
end select
if founderr then call error()
end if
'收件箱
sub inbox()
%>
<form action="usersms.asp" method=post name=inbox>
<table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor=<%=Tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor=<%=Tabletitlecolor%>>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>已读</b></font></td>
<td align=center valign=middle width=100><font color="<%=TableFontColor%>"><b>发件人</b></font></td>
<td align=center valign=middle width=300><font color="<%=TableFontColor%>"><b>主题</b></font></td>
<td align=center valign=middle width=150><font color="<%=TableFontColor%>"><b>日期</b></font></td>
<td align=center valign=middle width=50><font color="<%=TableFontColor%>"><b>大小</b></font></td>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>操作</b></font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message where incept='"&trim(membername)&"' and issend=1 and delR=0 order by flag,sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan=6><font color="<%=TableContentColor%>">您的收件箱中没有任何内容。</font></td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr bgcolor=<%if rs("flag")=0 then%>"<%=aTablebodycolor%>"<%else%>"<%=Tablebodycolor%>"<%end if%>>
<td align=center valign=middle><%if rs("flag")=0 then%><img src="pic/m_news.gif"><%else%><img src="<%=picurl%>m_olds.gif"><%end if%></td>
<td align=center valign=middle><%if rs("flag")=0 then%><b><%end if%><a href="dispuser.asp?name=<%=htmlencode(rs("sender"))%>" target=_blank><%=htmlencode(rs("sender"))%></a></td>
<td align=left><a href="usersms.asp?action=read&id=<%=rs("id")%>&sender=<%=rs("sender")%>"><%if rs("flag")=0 then%><b><%end if%><%=htmlencode(rs("title"))%></a> </td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=rs("sendtime")%></font></td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=len(rs("content"))%>Byte</font></td>
<td align=center valign=middle width=30><input type=checkbox name=id value=<%=rs("id")%>></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr bgcolor="<%=Tabletitlecolor%>">
<td align=right valign=middle colspan=6><font color="<%=TablefontColor%>">节省每一分空间，请及时删除无用信息 <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">选中所有显示记录 <input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除收件"> <input type=submit name=action onclick="{if(confirm('确定清除收件箱所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空收件箱"></font></td>
</tr>
</table></td></tr></table></form>
<%
end sub
'收件逻辑删除，置于回收站，入口字段delR，可用于批量及单个删除
sub delinbox()
delid=request("id")
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关参数。"
Founderr=true
else
conn.execute("update message set delR=1 where incept='"&trim(membername)&"' and id in ("&delid&")")
msg=msg+"<br>"+"<li><b>恭喜您，删除短信息成功。</b><br>删除的消息将转移到您的回收站。"
call success()
end if
end sub
sub AllDelinbox()
conn.execute("update message set delR=1 where incept='"&trim(membername)&"' and delR=0")
msg=msg+"<br>"+"<li><b>恭喜您，删除短信息成功。</b><br>删除的消息将转移到您的回收站。"
call success()
end sub
'发件箱
sub outbox()
%>
<form action="usersms.asp" method=post name=inbox>
<table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor=<%=Tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor=<%=Tabletitlecolor%>>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>已读</b></font></td>
<td align=center valign=middle width=100><font color="<%=TableFontColor%>"><b>收件人</b></font></td>
<td align=center valign=middle width=300><font color="<%=TableFontColor%>"><b>主题</b></font></td>
<td align=center valign=middle width=150><font color="<%=TableFontColor%>"><b>日期</b></font></td>
<td align=center valign=middle width=50><font color="<%=TableFontColor%>"><b>大小</b></font></td>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>操作</b></font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message where sender='"&trim(membername)&"' and issend=0 and delS=0 order by sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan=6><font color="<%=TableContentColor%>">您的发件箱中没有任何内容。</font></td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr bgcolor=<%if rs("flag")=0 then%>"<%=aTablebodycolor%>"<%else%>"<%=Tablebodycolor%>"<%end if%>>
<td align=center valign=middle><img src="<%=picurl%>m_issend_2.gif"></td>
<td align=center valign=middle><%if rs("flag")=0 then%><b><%end if%><a href="dispuser.asp?name=<%=htmlencode(rs("incept"))%>" target=_blank><%=htmlencode(rs("incept"))%></a></td>
<td align=left><a href="usersms.asp?action=edit&id=<%=rs("id")%>"><%if rs("flag")=0 then%><b><%end if%><%=htmlencode(rs("title"))%></a> </td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=rs("sendtime")%></font></td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=len(rs("content"))%>Byte</font></td>
<td align=center valign=middle width=30><input type=checkbox name=id value=<%=rs("id")%>></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr bgcolor="<%=Tabletitlecolor%>">
<td align=right valign=middle colspan=6><font color="<%=TablefontColor%>">节省每一分空间，请及时删除无用信息 <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">选中所有显示记录 <input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除发件"> <input type=submit name=action onclick="{if(confirm('确定清除发件箱所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空发件箱"></font></td>
</tr>
</table></td></tr></table></form>
<%
end sub
'发件逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
sub deloutbox()
delid=request("id")
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关参数。"
Founderr=true
else
conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and issend=0 and id in ("&delid&")")
msg=msg+"<br>"+"<li><b>恭喜您，删除短信息成功。</b><br>删除的消息将转移到您的回收站。"
call success()
end if
end sub
sub AllDeloutbox()
conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and delS=0 and issend=0")
msg=msg+"<br>"+"<li><b>恭喜您，删除短信息成功。</b><br>删除的消息将转移到您的回收站。"
call success()
end sub
'已发送信息
sub issend()
%>
<form action="usersms.asp" method=post name=inbox>
<table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor=<%=Tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor=<%=Tabletitlecolor%>>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>已读</b></font></td>
<td align=center valign=middle width=100><font color="<%=TableFontColor%>"><b>收件人</b></font></td>
<td align=center valign=middle width=300><font color="<%=TableFontColor%>"><b>主题</b></font></td>
<td align=center valign=middle width=150><font color="<%=TableFontColor%>"><b>日期</b></font></td>
<td align=center valign=middle width=50><font color="<%=TableFontColor%>"><b>大小</b></font></td>
<td align=center valign=middle width=30><font color="<%=TableFontColor%>"><b>操作</b></font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from message where sender='"&trim(membername)&"' and issend=1 and delS=0 order by sendtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor=<%=Tablebodycolor%> align=center valign=middle colspan=6><font color="<%=TableContentColor%>">您的已发送信息中没有任何内容。</font></td>
</tr>
<%else%>
<%do while not rs.eof%>
<tr bgcolor=<%if rs("flag")=0 then%>"<%=aTablebodycolor%>"<%else%>"<%=Tablebodycolor%>"<%end if%>>
<td align=center valign=middle><img src="<%=picurl%>m_issend_1.gif"></td>
<td align=center valign=middle><%if rs("flag")=0 then%><b><%end if%><a href="dispuser.asp?name=<%=htmlencode(rs("incept"))%>" target=_blank><%=htmlencode(rs("incept"))%></a></td>
<td align=left><a href="usersms.asp?action=outread&id=<%=rs("id")%>"><%if rs("flag")=0 then%><b><%end if%><%=htmlencode(rs("title"))%></a> </td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=rs("sendtime")%></font></td>
<td><font color="<%=TableContentColor%>"><%if rs("flag")=0 then%><b><%end if%><%=len(rs("content"))%>Byte</font></td>
<td align=center valign=middle width=30><input type=checkbox name=id value=<%=rs("id")%>></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr bgcolor="<%=Tabletitlecolor%>">
<td align=right valign=middle colspan=6><font color="<%=TablefontColor%>">节省每一分空间，请及时删除无用信息 <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">选中所有显示记录 <input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除已发信息"> <input type=submit name=action onclick="{if(confirm('确定清除已发送信息所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空已发送信息"></font></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -