📄 message_user.asp
字号:
DelID=s("ID")
If DelID="" or isnull(DelID) or Not IsNumeric(Replace(Replace(DelID,",","")," ","")) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Exit Sub
Else
Conn.Execute("Update Art_Message Set delR=1 where Incept='"&UserHS.UserName&"' and id in ("&DelID&")")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
End If
End Sub
Sub AllDelinbox()
Conn.Execute("Update Art_Message Set delR=1 where Incept='"&UserHS.UserName&"' and delR=0")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End Sub
'发件逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
Sub deloutbox()
dim DelID
DelID=s("ID")
If DelID="" or isnull(DelID) or Not IsNumeric(Replace(Replace(DelID,",","")," ","")) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("Update Art_Message Set delS=1 where Sender='"&UserHS.UserName&"' and IsSend=0 and id in ("&DelID&")")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End If
End Sub
Sub AllDeloutbox()
Conn.Execute("Update Art_Message Set delS=1 where Sender='"&UserHS.UserName&"' and delS=0 and IsSend=0")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End Sub
'已发送置于回收站，入口字段delS，可用于批量及单个删除
'delS：0未操作，1发送者删除，2发送者从回收站删除
Sub DelIsSend()
dim DelID
DelID=s("ID")
If DelID="" or isnull(DelID) or Not IsNumeric(replace(Replace(DelID,",","")," ","")) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("Update Art_Message Set delS=1 where Sender='"&UserHS.UserName&"' and IsSend=1 and id in ("&DelID&")")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End If
End Sub
Sub AllDelIsSend()
Conn.Execute("Update Art_Message Set delS=1 where Sender='"&UserHS.UserName&"' and delS=0 and IsSend=1")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End Sub
'用户能完全删除收到信息和逻辑删除所发送信息，逻辑删除所发送信息设置入口字段delS参数为2
Sub delrecycle()
dim DelID
DelID=s("ID")
If DelID="" or isnull(DelID) or Not IsNumeric(Replace(Replace(DelID,",","")," ","")) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("delete from Art_Message where Incept='"&UserHS.UserName&"' and id in ("&DelID&")")
Conn.Execute("Update Art_Message Set delS=2 where Sender='"&UserHS.UserName&"' and delS=1 and id in ("&DelID&")")
Response.Write "<script language=""javascript"">alert('删除短信息成功。删除的消息将不可恢复');location.href='"&ComeUrl&"';</script>"
Response.End
End If
End Sub
Public Function strLength(Str)
On Error Resume Next
Dim WINNT_CHINESE:WINNT_CHINESE = (Len("中国") = 2)
If WINNT_CHINESE Then
Dim l, T, c,I
l = Len(Str)
T = l
For I = 1 To l
c = Asc(Mid(Str, I, 1))
If c < 0 Then c = c + 65536
If c > 255 Then
T = T + 1
End If
Next
strLength = T
Else
strLength = Len(Str)
End If
If Err.Number <> 0 Then Err.Clear
End Function
Sub AllDelrecycle()
Conn.Execute("delete from Art_Message where Incept='"&UserHS.UserName&"' and delR=1")
Conn.Execute("Update Art_Message Set delS=2 where Sender='"&UserHS.UserName&"' and delS=1")
Response.Write "<script language=""javascript"">alert('删除短信息成功。删除的消息将不可恢复');location.href='"&ComeUrl&"';</script>"
Response.End
End Sub
Sub delete()
dim DelID
DelID=s("id")
ComeUrl=Request("ComeUrl")
'Response.End()
If ComeUrl="" Then ComeUrl="Message_User.asp"
If not isNumeric(DelID) or DelID="" or isnull(DelID) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("Update Art_Message Set delR=1 where Incept='"&UserHS.UserName&"' and id="&Clng(DelID))
Conn.Execute("Update Art_Message Set delS=1 where sEnder='"&UserHS.UserName&"' and id="&Clng(DelID))
Response.Write "<script language=""javascript"">alert('删除短信息成功。删除的消息将置于您的回收站内。');location.href='"&ComeUrl&"';</script>"
Response.End
End If
End Sub
Sub MessageMain()
dim SqlStr,boxName,smstype,readaction,turl
Select Case Action
Case "inbox"
boxName="收件箱":smstype="inbox":readaction="read":turl="readsms"
SqlStr="select * from Art_Message where Incept='"&UserHS.UserName&"' and IsSend=1 and delR=0 order by flag,SendTime desc"
Case "outbox"
boxName="草稿箱":smstype="outbox":readaction="edit":turl="sms"
SqlStr="select * from Art_Message where Sender='"&UserHS.UserName&"' and IsSend=0 and delS=0 order by SendTime desc"
Case "issend"
boxName="已发送的消息":smstype="IsSend":readaction="outread":turl="readsms"
SqlStr="select * from Art_Message where Sender='"&UserHS.UserName&"' and IsSend=1 and delS=0 order by SendTime desc"
Case "recycle"
boxName="垃圾箱":smstype="recycle":readaction="read":turl="readsms"
SqlStr="select * from Art_Message where ((Sender='"&UserHS.UserName&"' and delS=1) or (Incept='"&UserHS.UserName&"' and delR=1)) and not delS=2 order by SendTime desc"
Case Else
boxName="收件箱":smstype="inbox":readaction="read":turl="readsms"
SqlStr="select * from Art_Message where Incept='"&UserHS.UserName&"' and IsSend=1 and delR=0 order by flag,SendTime desc"
End Select
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<form action="Message_User.asp" method="post" name="inbox">
<tr height='23' class="Title">
<td width="50" align="center" class="bg_tr">已读</td>
<td width="277" align="center" class="bg_tr">主题</td>
<td width="100" height="26" align="center" class="bg_tr">
<%if smstype="inbox" or smstype="recycle" then Response.Write "发件人" else Response.Write "收件人"%></td>
<td width="140" align="center" class="bg_tr">日期</td>
<td width="65" align="center" class="bg_tr">大小</td>
<td align="center" class="bg_tr">操作</td>
</tr>
<%
Dim RS:Set RS=server.createobject("adodb.recordset")
RS.open SqlStr,Conn,1,1
if RS.eof and RS.bof then
%>
<tr>
<td colspan=6 align=center valign=middle >您的<%=boxname%>中没有任何内容。</td>
</tr>
<%else
Do While not RS.eof
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td height="25" align=center valign=middle class="td_bg">
<%
select case smstype
case "inbox"
if rs("flag")=0 then
Response.Write "<img src=""images/news.gif"">"
else
Response.Write "<img src=""images/olds.gif"">"
end if
case "outbox"
Response.Write "<img src=""images/IsSend_2.gif"">"
Case "issend"
Response.Write "<img src=""images/IsSend_1.gif"">"
case "recycle"
if rs("flag")=0 then
Response.Write "<img src=""images/news.gif"">"
else
Response.Write "<img src=""images/olds.gif"">"
end if
end select
%>
</td>
<td height="25" align=left class="td_bg"><a href="Message_User.asp?action=<%=readaction%>&id=<%=rs("id")%>&sender=<%=rs("sender")%>"><%=server.htmlencode(rs("title"))%></a> </td>
<td height="25" align=center valign=middle class="td_bg">
<%if smstype="inbox" or smstype="recycle" then%>
<%=server.htmlencode(rs("sender"))%>
<%else%>
<%=server.htmlencode(rs("Incept"))%>
<%end if%>
</td>
<td height="25" align="center" class="td_bg"><%=formatdatetime(rs("SendTime"),2)%></td>
<td height="25" align="center" class="td_bg"><%=len(rs("content"))%>Byte</td>
<td width=47 height="25" align=center class="td_bg"><input type=checkbox name=id value=<%=rs("id")%>></td>
</tr>
<%
RS.movenext
loop
end if
RS.close:set rs=Nothing
%>
<tr >
<td height="26" colspan=6 align=right valign=middle>节省每一分空间，请及时删除无用信息
<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="删除<%=boxname%>">
<input type=submit name=action onClick="{if(confirm('确定清除<%=boxname%>所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空<%=boxname%>"></td>
</tr>
</form>
</table>
<br>
<script language=javascript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
function overColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg1"
Obj.bgColor="";
}
}
function outColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg";
Obj.bgColor="";
}
} </script>
<%
end sub
Sub DoTitleJs()
%>
<script language="javascript">
function DoTitle(addTitle) {
var revisedTitle;
var currenttitle = document.myform.Touser.value;
if(currenttitle=="") revisedTitle = addTitle;
else {
var arr = currenttitle.split(",");
for (var i=0; i < arr.length; i++) {
if( addTitle.indexOf(arr[i]) >=0 && arr[i].length==addTitle.length ) return;
}
revisedTitle = currenttitle+","+addTitle;
}
document.myform.Touser.value=revisedTitle;
document.myform.Touser.focus();
return;
}
function document.onkeydown()
{
if(event.ctrlKey && window.event.keyCode==13)
{
CheckForm();
}
}
</script>
<%
End Sub
'（图片对象名称，标题对象名称，更新数，总数）
Function ShowTable(SrcName,TxtName,str,c)
Dim Tempstr,Src_js,Txt_js,TempPercent
If C = 0 Then C = 99999999
Tempstr = str/C
TempPercent = FormatPercent(tempstr,0,-1)
Src_js = "document.getElementById(""" + SrcName + """)"
Txt_js = "document.getElementById(""" + TxtName + """)"
ShowTable = VbCrLf + "<script>"
ShowTable = ShowTable + Src_js + ".width=""" & FormatNumber(tempstr*600,0,-1) & """;"
ShowTable = ShowTable + Src_js + ".title=""容量上限为："&c&"条，总共已储存（"&str&"）条站内短信！"";"
ShowTable = ShowTable + Txt_js + ".innerHTML="""
If FormatNumber(tempstr*100,0,-1) < 80 Then
ShowTable = ShowTable + "已使用:" & TempPercent & """;"
Else
ShowTable = ShowTable + "<font color=\""red\"">已使用:" & TempPercent & ",请赶快清理！</font>"";"
End If
ShowTable = ShowTable + "</script>"
End Function
%>
<% Set UserHS = Nothing:call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -