📄 message_user.asp
字号:
<tr>
<td align=right valign=top class="td_bg"><a href=Message_User.asp?action=read&id=<%=rs(0)%>&sEnder=<%=rs(1)%>>[读取下一条信息]</a> </td>
</tr>
<%
End If
RS.close:Set rs=Nothing
%>
</table>
<%
End If
End Sub
'转发信息
Sub fw()
dim title,content,sEnder
If s("ID")<>"" and isNumeric(s("ID")) Then
Set rs=server.createobject("adodb.recordSet")
SqlStr="Select title,content,sEnder from Art_Message where (Incept='"&UserHS.UserName&"' or sEnder='"&UserHS.UserName&"') and id="&Clng(s("ID"))
RS.open SqlStr,Conn,1,1
If RS.eof and RS.bof Then
RS.close:Set rs=Nothing
Response.Write "<script>alert('请指定正确的参数。');history.back();</script>"
Else
title=rs("title"):content=rs("content"):sEnder=rs("sEnder")
End If
RS.close:Set rs=Nothing
End If
%>
<table width="100%" align=center cellpadding=2 cellspacing=1 class=table>
<form action="Message_User.asp" name="myform" method="post" id="myform" onSubmit="return CheckForm();">
<tr class="bg_tr">
<td colspan=2 align=center height=25>
发送短消息
</td>
</tr>
<tr >
<td valign=middle width=100><b>收件人：</b></td>
<td valign=middle>
<input type="hidden" name="action" value="sEnd">
<input class='textbox' type=text name="Touser" value="<%=s("Touser")%>" size=70>
<Select name="font" onChange="DoTitle(this.options[this.selectedIndex].value)">
<OPTION selected value="">选择</OPTION>
<%
Set rs=server.createobject("adodb.recordSet")
SqlStr="Select friend from Art_Friend where Username='"&UserHS.UserName&"' order by Addtime desc"
RS.open SqlStr,Conn,1,1
Do While not RS.eof
%>
<OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>
<%
RS.movenext
loop
RS.close:Set rs=Nothing
%>
</Select>
</td>
</tr>
<tr >
<td width="100" valign=top><b>标 题：</b></td>
<td valign=middle>
<input class='textbox' type=text name="title" size=80 maxlength=90 value="Fw：<%=title%>">
</td>
</tr>
<tr >
<td width="100" valign=top><b>内 容：</b></td>
<td valign=middle>
<% dim content1
If s("ID")<>"" Then
content1=content1&"============= 下面是转发信息 ==============<br>"
content1=content1&"原发件人："&sEnder&"<br>"
content1=content1&server.htmlencode(content)
content1=content1&"======================================================="
End If
%>
<div><input type="hidden" id="content" name="content" value="<%= content1 %>" style="display:none" />
<input name="hidden" type="hidden" id="cont___Config" style="display:none" value="" />
<IFRAME ID="eWebEditor1" SRC="../edit/ewebeditor.htm?id=content&style=Simple" frameborder="0" scrolling="no" width="651" HEIGHT="450" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME>
</div> </td>
</tr>
<tr >
<td colspan=2>
<b>说明</b>：<br>
① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
② 可以用英文状态下的逗号将用户名隔开实现群发，最多<b><%=max_sEnd%></b>个用户<br>
③ 标题最多<b>50</b>个字符，内容最多<b><%=max_sms%></b>个字符<br>
</td>
</tr>
<tr >
<td valign=middle colspan=2 align=center>
<input type=Submit value=" 发 送 " name=Submit>
<input type=Submit value=" 保 存 " name=Submit>
<input type="reSet" name="Clear" value=" 清 除 ">
<input type="button" name="close" value=" 关 闭 " onClick="window.close()">
</td>
</tr>
</form>
</table>
<%
DoTitleJs
End Sub
Sub savemsg()
dim Incept,title,message,Subtype,i,sUname
If s("Touser")="" Then
Response.Write("<script>alert('您忘记填写发送对象了吧。');history.back();</script>")
Else
Incept=s("Touser")
Incept=split(Incept,",")
End If
If s("Title")="" Then
Response.Write("<script>alert('您还没有填写标题呀。');history.back();</script>")
ElseIf strLength(s("title"))>50 Then
Response.Write("<script>alert('标题限定最多50个字符。');history.back();</script>")
Else
title=s("title")
End If
If s("content")="" Then
Response.Write("<script>alert('内容是必须要填写的噢。');history.back();</script>")
ElseIf strLength(s("content"))>Cint(max_sms) Then
Response.Write("<script>alert('内容限定最多"&max_sms&"个字符。');history.back();</script>")
Else
message=s("content")
End If
for i=0 to ubound(Incept)
sUname=replace(Incept(i),"'","")
SqlStr="Select UserName from Art_User where UserName='"&sUname&"'"
Set rs=Conn.Execute(SqlStr)
If RS.eof and RS.bof Then
RS.close:Set rs=Nothing
call Alert("系统没有这个用户，看看你的发送对象写对了嘛？","")
response.end
End If
RS.Close
rs.open "select username from Art_Friend where username='" & sUname & "' and friend='" & UserHS.username & "' and flag=3",conn,1,1
if not rs.eof then
RS.close:Set rs=Nothing
call Alert("对不起，你被" & sUname & "列为黑名单,不能发送短信给他！","")
response.end
end if
RS.close:Set rs=Nothing
Select Case s("Submit")
Case " 发 送 "
SqlStr="insert into Art_Message (Incept,sEnder,title,content,SendTime,flag,IsSend,DelR,DelS) values ('"&sUname&"','"&UserHS.UserName&"','"&title&"','"&message&"',"& NowString &",0,1,0,0)"
Subtype="已发送信息"
Case " 保 存 "
SqlStr="insert into Art_Message (Incept,sEnder,title,content,SendTime,flag,IsSend,DelR,DelS) values ('"&sUname&"','"&UserHS.UserName&"','"&title&"','"&message&"',"& NowString &",0,0,0,0)"
Subtype="发件箱"
Case Else
SqlStr="insert into Art_Message (Incept,sEnder,title,content,SendTime,flag,IsSend,DelR,DelS) values ('"&sUname&"','"&UserHS.UserName&"','"&title&"','"&message&"',"& NowString &",0,1,0,0)"
Subtype="已发送信息"
End Select
'判断对方信箱是否已满
If conn.execute("select count(*) from Art_Message where Incept='"&sUname&"'")(0)>=Max_Num Then
Response.Write("<script>alert('由于[" & sUname & "]的信箱已满，发送没有成功！');history.back();</script>")
Else
Conn.Execute(SqlStr)
End If
If i>Cint(max_sEnd)-1 Then
Response.Write("<script>alert('最多只能发送给"&max_sEnd&"个用户，您的名单"&max_sEnd&"位以后的请重新发送');history.back();</script>")
exit for
End If
next
Response.Write("<script>alert('恭喜您，发送短信息成功。发送的消息同时保存在您的"&Subtype&"中。');location.href='Message_User.asp';</script>")
End Sub
'更改信息
Sub edit()
dim Incept,title,content,id
If s("ID")<>"" and isNumeric(s("ID")) Then
Set rs=server.createobject("adodb.recordSet")
SqlStr="Select id,Incept,title,content from Art_Message where sEnder='"&UserHS.UserName&"' and IsSend=0 and id="&Clng(s("ID"))
RS.open SqlStr,Conn,1,1
If not(RS.eof and RS.bof) Then
Incept=rs("Incept"):title=rs("title"):content=rs("content"):id=rs("id")
Else
Response.Write("<script>alert('没有找到您要编辑的信息。');history.back();</script>")
End If
RS.close:Set rs=Nothing
Else
Response.Write("<script>alert('请指定相关参数。');history.back();</script>")
End If
%>
<table width="100%" align=center cellpadding=2 cellspacing=1 class=table>
<form action="Message_User.asp" method="post" name="myform" id="myform" onSubmit="return CheckForm();">
<tr>
<td height=25 colspan=2 align="center" class="bg_tr">
<input type=hidden name="action" value="savedit">
<input type=hidden name="id" value="<%=id%>">
发送短消息--请完整输入下列信息</td>
</tr>
<tr>
<td valign=middle class="td_bg"><b>收件人：</b></td>
<td valign=middle class="td_bg">
<input type=text name="Touser" value="<%=Incept%>" size=80>
</td>
</tr>
<tr>
<td valign=top class="td_bg"><b>标题：</b></td>
<td valign=middle class="td_bg">
<input type=text name="title" size=80 maxlength=80 value="<%=title%>">
</td>
</tr>
<tr>
<td valign=top class="td_bg"><b>内容：</b></td>
<td valign=middle class="td_bg">
<div><input type="hidden" id="content" name="content" value="<%= server.htmlencode(content) %>" style="display:none" />
<input name="hidden" type="hidden" id="cont___Config" style="display:none" value="" />
<IFRAME ID="eWebEditor1" SRC="../edit/ewebeditor.htm?id=content&style=Simple" frameborder="0" scrolling="no" width="651" HEIGHT="450" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME>
</div> </td>
</tr>
<tr>
<td colspan=2 class="td_bg">
<b>说明</b>：<br>
① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
② 标题最多<b>50</b>个字符，内容最多<b><%=max_sms%></b>个字符<br>
</td>
</tr>
<tr>
<td colspan=2 align=center valign=middle class="td_bg">
<input type=Submit value=" 发 送 " name="Submit">
<input type=Submit value=" 保 存 " name="Submit">
<input type="reSet" name="Clear" value=" 清 除 ">
<input type="button" name="close" value=" 关 闭 " onClick="window.close()">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
End Sub
Sub savedit()
dim Incept,title,message,Subtype
If s("ID")="" or not isNumeric(s("ID")) Then
Response.Write("<script>alert('请指定相关参数。');history.back();</script>")
End If
If s("Touser")="" Then
Response.Write("<script>alert('您忘记填写发送对象了吧。');history.back();</script>")
Else
Incept=s("Touser")
End If
If s("Title")="" Then
Response.Write("<script>alert('您还没有填写标题呀!');history.back();</script>")
Else
title=s("title")
End If
If s("content")="" Then
Response.Write("<script>alert('内容是必须要填写的噢!');history.back();</script>")
Else
message=s("content")
End If
SqlStr="Select UserName from Art_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 s("Submit")=" 发 送 " Then
SqlStr="Update Art_Message Set Incept='"&Incept&"',sEnder='"&UserHS.UserName&"',title='"&title&"',content='"&message&"',SendTime="& NowString &",flag=0,IsSend=1 where id="&Clng(s("ID"))
Subtype="已发送信息"
Else
SqlStr="Update Art_Message Set Incept='"&Incept&"',sEnder='"&UserHS.UserName&"',title='"&title&"',content='"&message&"',SendTime="& NowString &",flag=0,IsSend=0 where id="&Clng(s("ID"))
Subtype="发件箱"
End If
Set rs=Conn.Execute(SqlStr)
Response.Write("<script>alert('恭喜您，发送短信息成功。发送的消息同时保存在您的"&Subtype&"中。');location.href='Message_User.asp';</script>")
End Sub
'收件置于回收站，参数字段delR，可用于批量及单个删除
Sub delinbox()
dim DelID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -