📄 message_user.asp
字号:
<!--#include file="User_conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>1</title>
<link href="Images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
td {
background:#ffffff;
color:#1E5494;
font-size: 12px;
height: 23px;
}
</style>
</head>
<body>
<%
Dim UserHS
Set UserHS = New Art_User
IF Cbool(UserHS.UserLoginChecked)=false then
Response.Write "<script>top.location.href ='login.asp' ;</script>"
Response.end
End If
Private Max_sEnd
Private Max_sms
Private Max_Num
Private Action
Private ComeUrl
Private FoundErr,Errmsg
Private i
Max_sEnd=UserHS.G_Max_sEnd''群发限制人数
Max_sms=UserHS.G_Max_sms '内容最多字符数
Max_Num=UserHS.G_Max_Num'最多允许存放条数
Action=Lcase(request("action"))
ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
If ComeUrl="" Then ComeUrl="Message_User.asp"
%>
<script language = "JavaScript">
function CheckForm()
{
if (document.myform.Touser.value=='')
{
alert('请输入收信人!')
document.myform.Touser.focus();
return false;
}
if (document.myform.title.value=='')
{
alert('请输入信件主题!')
document.myform.title.focus();
return false;
}
}
</script>
<%
IF Action<>"read" And Action<>"outread" Then
%>
<div align="center" style="height:30">
<a href="Message_User.asp?action=inbox"><img src="Images/inbox.gif" border=0 alt="收件箱"></a>
<a href="Message_User.asp?action=outbox"><img src="Images/outbox.gif" border=0 alt="发件箱"></a> <a href="Message_User.asp?action=issend"><img src="Images/issend.gif" border=0 alt="已发送邮件"></a>
<a href="Message_User.asp?action=recycle"><img src="Images/recycle.gif" border=0 alt="废件箱"></a>
<a href="Message_User.asp?action=new"><img src="Images/write.gif" border=0 alt="发送消息"></a>
<table width="98%" border="0" align="center" class="table" cellpadding="2" cellspacing="1" style="display:nowrap">
<tr class="tdbg">
<td width="127" align="right" class="bg_tr">您的邮箱容量：</td>
<td width="602" class="bg_tr" ><img src="images/bar.gif" width="0" height="16" id="Sms_bar" align="absmiddle" /></td>
<td width="211" align="center" class="bg_tr" id="Sms_txt">100%</td>
</tr></table>
</div>
<%
response.write showtable("Sms_bar","Sms_txt",conn.execute("select count(*) from Art_Message where Incept='"&UserHS.UserName&"'")(0),Max_Num)
Else
Response.Write "<br>"
End IF
Select Case Action
Case "new" : sendMessage
Case "read" : read
Case "outread" : read
Case "delet" : delete
Case "newmsg" : newmsg
Case "send" : savemsg
Case "fw" : fw
Case "edit" : edit
Case "savedit" : savedit
Case "删除收件箱" : delinbox
Case "清空收件箱" : AllDelinbox
Case "删除草稿" : deloutbox
Case "清空草稿箱" : AllDeloutbox
Case "删除已发送的消息" : DelIsSend
Case "清空已发送的消息" : AllDelIsSend
Case "删除垃圾箱" : delrecycle
Case "清空垃圾箱" : AllDelrecycle
Case Else : MessageMain
End Select
'发送信息
Sub sendMessage()
dim SendTime,title,content
If s("ID")<>"" and isNumeric(s("ID")) Then
Set rs=server.createobject("adodb.recordSet")
SqlStr="Select SendTime,title,content from Art_Message where Incept='"&UserHS.UserName&"' and id="&Clng(s("ID"))
RS.open SqlStr,Conn,1,1
If not(RS.eof and RS.bof) Then
SendTime=rs("SendTime")
Title="RE " & rs("title")
Content=server.htmlencode(rs("content"))
End If
RS.close
Set rs=Nothing
End If
%>
<table width="98%" align="center" cellpadding="2" cellspacing="1" class="table">
<form action="Message_User.asp" name="myform" method="post" id="myform" onSubmit="return CheckForm();">
<tr>
<td colspan=2 align=center class="bg_tr">
发送短消息 </td>
</tr>
<tr >
<td width="100" align="right" valign=middle><b>收件人：</b></td>
<td valign=middle>
<input type=hidden name="action" value="sEnd">
<input class="textbox" type=text name="Touser" value="<%=s("Touser")%>" size=60>
<Select class="textbox" 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>
<a href="Friend_User.asp?action=addF">添加好友</a>
</td>
</tr>
<tr >
<td width="100" align="right" valign=top><b>标 题：</b></td>
<td valign=middle>
<input class="textbox" type=text name="title" size=70 maxlength=90 value="<%=title%>">
</td>
</tr>
<tr >
<td width="100" align="right" valign=top><b>内 容：</b></td>
<td valign=middle>
<%dim content1
If s("ID")<>"" Then
content1=content1&"============= 在 "&SendTime&" 您来信中写道： ==============<br>"
content1=content1&content
content1=content1&"<br>=======================================================<br><br>"
End If
%>
<div><input type="hidden" id="content" name="content" value="<%= content1 %>" style="display:none" />
<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=" 清 除 ">
<%If request("reaction")="chatlog" Then%>
<input type=button value="关闭聊天记录" name="chatlog" onClick="location.href='?action=new&id=<%=s("ID")%>&Touser=<%=s("Touser")%>'">
<%Else
If s("ID")<>"" and isNumeric(s("ID")) Then
%>
<input type=button value="查看聊天记录" name="chatlog" onClick="location.href='?action=new&id=<%=s("ID")%>&Touser=<%=s("Touser")%>&reaction=chatlog'">
<%Else%>
<input type=button value="查看聊天记录" name="chatlog" disabled>
<% End IF
End If%>
<input type="button" name="close" value=" 关 闭 " onClick="window.close()">
</td>
</tr>
<%If request("reaction")="chatlog" Then%>
<tr>
<td colspan=3 class="bg_tr" >我与<%=s("Touser")%>的聊天记录</td>
</tr>
<%If UserHS.UserName=s("Touser") Then%>
<tr>
<td colspan=3 class="td_bg">自己跟自己的聊天记录没什么好看的^_^</td>
</tr>
<%Else%>
<%
Set rs=server.createobject("adodb.recordSet")
SqlStr="Select * from Art_Message where ((Incept='"&UserHS.UserName&"' and Incept='"&replace(s("Touser"),"'","")&"') or (sEnder='"&replace(s("Touser"),"'","")&"' and Incept='"&UserHS.UserName&"')) and delS=0 order by SendTime desc"
RS.open SqlStr,Conn,1,1
If RS.eof and RS.bof Then
%>
<tr>
<td colspan=3>还没有任何聊天记录！</td>
</tr>
<%
Else
Do While not RS.eof
%>
<tr>
<td height=25 colspan=3 class="bg_tr">
<%If rs("sEnder")=UserHS.UserName Then%>
在<b><%=rs("SendTime")%></b>，您发送此消息给<b><%=server.htmlencode(rs("Incept"))%></b>！
<%Else%>
在<b><%=rs("SendTime")%></b>，<b><%=server.htmlencode(rs("sEnder"))%></b>给您发送的消息！
<%End If%></td>
</tr>
<tr>
<td valign=top align=left colspan=2 class="td_bg">
<b>消息标题：<%=server.htmlencode(rs("title"))%></b><hr size=1>
<%=server.htmlencode(rs("content"))%>
</td>
</tr>
<%
RS.movenext
loop
End If
RS.close:Set rs=Nothing
%>
<%End If%>
<%End If%>
</form>
</table>
<%
DoTitleJs
End Sub
'读取信息
Sub read()
If s("id")=0 Then
Response.Write "<script>alert('请指定正确的参数。');history.back();</script>"
End If
Set rs=server.createobject("adodb.recordSet")
If request("action")="read" Then
Conn.Execute("Update Art_Message Set flag=1 where ID="&Clng(s("id")))
End If
SqlStr="Select * 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
%>
<table width="98%" align=center cellpadding=2 cellspacing=1 class="table">
<tr>
<td align="center" class="bg_tr">欢迎使用短消息接收，<%=UserHS.UserName%></td>
</tr>
<tr class="bg_tr">
<td valign=middle align=center colspan=3><a href="Message_User.asp?action=delet&id=<%=rs("id")%>&ComeUrl=<%=ComeUrl%>"><img src="images/delete.gIf" border=0 alt="删除消息"></a> <a href="Message_User.asp?action=new"><img src="images/write.gIf" border=0 alt="发送消息"></a> <a href="Message_User.asp?action=new&Touser=<%=server.htmlencode(rs("sEnder"))%>&id=<%=s("ID")%>"><img src="images/reply.gIf" border=0 alt="回复消息"></a> <a href="Message_User.asp?action=fw&id=<%=s("ID")%>"><img src="images/fw.gIf" border=0 alt=转发消息></a></td>
</tr>
<tr>
<td height=25 class="td_bg">
<%If request("action")="outread" Then%>
在<b><%=rs("SendTime")%></b>，您发送此消息给<b><%=server.htmlencode(rs("Incept"))%></b>！
<%Else%>
在<b><%=rs("SendTime")%></b>，<b><%=server.htmlencode(rs("sEnder"))%></b>给您发送的消息！
<%End If%></td>
</tr>
<tr>
<td align=left valign=top class="td_bg">
<b>消息标题：<%=server.htmlencode(rs("title"))%></b><hr size=1>
<%=rs("content")%>
</td>
</tr>
<%
RS.close:Set rs=Nothing
SqlStr="Select id,sEnder from Art_Message where Incept='"&UserHS.UserName&"' and flag=0 and IsSend=1 and id>"&ChkNumeric(s("ID")&" order by SendTime")
Set rs=Conn.Execute(SqlStr)
If not (RS.eof and RS.bof) Then
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -