📄 user_message.asp
字号:
Sub savedit()
dim Incept,title,message,Subtype
If KSCMS.G("ID")="" or not isNumeric(KSCMS.G("ID")) Then
Response.Write("<script>alert('请指定相关参数。');history.back();</script>")
End If
If KSCMS.G("Touser")="" Then
Response.Write("<script>alert('您忘记填写发送对象了吧。');history.back();</script>")
Else
Incept=KSCMS.G("Touser")
End If
If KSCMS.G("Title")="" Then
Response.Write("<script>alert('您还没有填写标题呀!');history.back();</script>")
Else
title=KSCMS.G("title")
End If
If KSCMS.G("Message")="" Then
Response.Write("<script>alert('内容是必须要填写的噢!');history.back();</script>")
Else
message=KSCMS.G("message")
End If
SqlStr="Select UserName from KS_User where UserName='"&Incept&"'"
Set rs=Conn.Execute(SqlStr)
If RS.eof and RS.bof Then
Set rs=Nothing
Response.Write("<script>alert('系统没有这个用户，看看你的发送对象写对了嘛？');history.back();</script>")
End If
Set rs=Nothing
If KSCMS.G("Submit")="发送" Then
SqlStr="Update KS_Message Set Incept='"&Incept&"',sEnder='"&KSUser.Get_UserName&"',title='"&title&"',content='"&message&"',SendTime=Now(),flag=0,IsSend=1 where id="&Clng(KSCMS.G("ID"))
Subtype="已发送信息"
Else
SqlStr="Update KS_Message Set Incept='"&Incept&"',sEnder='"&KSUser.Get_UserName&"',title='"&title&"',content='"&message&"',SendTime=Now(),flag=0,IsSend=0 where id="&Clng(KSCMS.G("ID"))
Subtype="发件箱"
End If
Set rs=Conn.Execute(SqlStr)
Response.Write("<script>alert('恭喜您，发送短信息成功。发送的消息同时保存在您的"&Subtype&"中。');location.href='User_Message.asp';</script>")
End Sub
'收件置于回收站，参数字段delR，可用于批量及单个删除
Sub delinbox()
dim DelID
DelID=KSCMS.G("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 KS_Message Set delR=1 where Incept='"&KSUser.Get_UserName&"' and id in ("&DelID&")")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
End If
End Sub
Sub AllDelinbox()
Conn.Execute("Update KS_Message Set delR=1 where Incept='"&KSUser.Get_UserName&"' and delR=0")
Response.Write "<script>alert('删除短信息成功。删除的消息将转移到您的回收站!');location.href='" & ComeUrl & "';</script>"
Response.End
End Sub
'发件逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
Sub deloutbox()
dim DelID
DelID=KSCMS.G("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 KS_Message Set delS=1 where Sender='"&KSUser.Get_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 KS_Message Set delS=1 where Sender='"&KSUser.Get_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=KSCMS.G("ID")
'Response.Write delid
'Response.End()
If DelID="" or isnull(DelID) or Not IsNumeric(replace(Replace(DelID,",","")," ","")) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("Update KS_Message Set delS=1 where Sender='"&KSUser.Get_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 KS_Message Set delS=1 where Sender='"&KSUser.Get_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=KSCMS.G("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 KS_Message where Incept='"&KSUser.Get_UserName&"' and id in ("&DelID&")")
Conn.Execute("Update KS_Message Set delS=2 where Sender='"&KSUser.Get_UserName&"' and delS=1 and id in ("&DelID&")")
Response.Write "<script language=""javascript"">alert('删除短信息成功。删除的消息将不可恢复');location.href='"&ComeUrl&"';</script>"
Response.End
End If
End Sub
Sub AllDelrecycle()
Conn.Execute("delete from KS_Message where Incept='"&KSUser.Get_UserName&"'")
Conn.Execute("Update KS_Message Set delS=2 where Sender='"&KSUser.Get_UserName&"' and delS=1")
Response.Write "<script language=""javascript"">alert('删除短信息成功。删除的消息将不可恢复');location.href='"&ComeUrl&"';</script>"
Response.End
End Sub
Sub delete()
dim DelID
DelID=KSCMS.G("id")
ComeUrl=Request("ComeUrl")
'Response.End()
If ComeUrl="" Then ComeUrl="User_Message.Asp"
If not isNumeric(DelID) or DelID="" or isnull(DelID) Then
Response.Write "<script>alert('请选择相关参数!');history.go(-1);</script>"
Else
Conn.Execute("Update KS_Message Set delR=1 where Incept='"&KSUser.Get_UserName&"' and id="&Clng(DelID))
Conn.Execute("Update KS_Message Set delS=1 where sEnder='"&KSUser.Get_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 KS_Message where Incept='"&KSUser.Get_UserName&"' and IsSend=1 and delR=0 order by flag,SendTime desc"
Case "outbox"
boxName="草稿箱":smstype="outbox":readaction="edit":turl="sms"
SqlStr="select * from KS_Message where Sender='"&KSUser.Get_UserName&"' and IsSend=0 and delS=0 order by SendTime desc"
Case "issend"
boxName="已发送的消息":smstype="IsSend":readaction="outread":turl="readsms"
SqlStr="select * from KS_Message where Sender='"&KSUser.Get_UserName&"' and IsSend=1 and delS=0 order by SendTime desc"
Case "recycle"
boxName="垃圾箱":smstype="recycle":readaction="read":turl="readsms"
SqlStr="select * from KS_Message where ((Sender='"&KSUser.Get_UserName&"' and delS=1) or (Incept='"&KSUser.Get_UserName&"' and delR=1)) and not delS=2 order by SendTime desc"
Case Else
boxName="收件箱":smstype="inbox":readaction="read":turl="readsms"
SqlStr="select * from KS_Message where Incept='"&KSUser.Get_UserName&"' and IsSend=1 and delR=0 order by flag,SendTime desc"
End Select
%>
<div align=center>我的<%=boxname%></div>
<table border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef" class=border>
<form action="User_Message.asp" method=post name=inbox>
<tr height='23'>
<td width=30 align="center" bgcolor="F4F4EA">已读</td>
<td width=300 align="center" bgcolor="F4F4EA">主题</td>
<td width=100 height="26" align="center" bgcolor="F4F4EA">
<%if smstype="inbox" or smstype="recycle" then Response.Write "发件人" else Response.Write "收件人"%></td>
<td width=150 align="center" bgcolor="F4F4EA">日期</td>
<td width=50 align="center" bgcolor="F4F4EA">大小</td>
<td width=30 align="center" bgcolor="F4F4EA">操作</td>
</tr>
<%
Dim RS:Set RS=server.createobject("adodb.recordset")
OpenConn
RS.open SqlStr,Conn,1,1
if RS.eof and RS.bof then
%>
<tr>
<td colspan=6 align=center valign=middle bgcolor="#FFFFFF">您的<%=boxname%>中没有任何内容。</td>
</tr>
<%else
Do While not RS.eof
%>
<tr bgcolor=#ffffff onmouseover="this.style.background='#F5f5f5'" onmouseout="this.style.background='#FFFFFF'">
<td height="25" align=center valign=middle>
<%
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><a href="User_Message.asp?action=<%=readaction%>&id=<%=rs("id")%>&sender=<%=rs("sender")%>"><%=KSCMS.HTMLEncode(rs("title"))%></a> </td>
<td height="25" align=center valign=middle>
<%if smstype="inbox" or smstype="recycle" then%>
<%=KSCMS.HTMLEncode(rs("sender"))%>
<%else%>
<%=KSCMS.HTMLEncode(rs("Incept"))%>
<%end if%>
</td>
<td height="25"><%=rs("SendTime")%></td>
<td height="25"><%=len(rs("content"))%>Byte</td>
<td width=30 height="25" align=center valign=middle><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 bgcolor="#FFFFFF">节省每一分空间，请及时删除无用信息
<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="删除<%=replace(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;
}
}
</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;
}
</script>
<%
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -