essage.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > message.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
contents=contents &"<title>短消息－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser="" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>，2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>"
else
if gb<30 then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你的"& gbname &"不足30，不能使用短信功能。<br><a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>"
else
Dim username,i,content,unread,read
username=Trim(Replace(Request.Form("username"),"'",""))
content=Request.Form("content")
if username<>"" then
rs.Open "gbmaduser Where gbmaduser Like '%"& username &"%' Order by gbmaduser",conn,1,1
username=""
For i=1 to rs.RecordCount
username=username &"<a href=""#"" onClick=""su('"& rs("gbmaduser") &"')"">"& rs("gbmaduser") &"</a><br>"
rs.MoveNext
Next
rs.Close
end if
rs.Open "Select count(posttime) From message Where gbmaduser='"& gbmaduser &"'",conn,1,1
unread=rs(0)
rs.Close
rs.Open "Select count(posttime) From oldmessage Where gbmaduser='"& gbmaduser &"'",conn,1,1
read=rs(0)
rs.Close
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">短消息</td></tr>"&_
"<tr class=""tds""><td>"&_
"<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr><td width=""64""><a href=""showmessage.asp"" onClick=""return shows(this.href);"">未读消息</a></td><td class=""otr"">"& unread &" 条　查看自己还没有阅读的短消息。</td></tr>"&_
"<tr><td><a href=""showmessages.asp"" onClick=""return shows(this.href);"">已读消息</a></td><td class=""otr"">"& read &" 条　查看自己已经阅读过的短消息，包括已回复。</td></tr>"&_
"</table>"&_
"</td></tr>"&_
"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">发送消息</td></tr>"&_
"<tr class=""tds""><td title=""可以使用Alt+S或者Ctrl+Enter直接提交消息"">"&_
"<script language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.sendmessage.username.value.length==0)"&_
"{"&_
"alert(""请填写好短消息接收人。"");"&_
"document.sendmessage.username.focus();"&_
"return false;"&_
"}"&_
"if (document.sendmessage.content.value.length==0)"&_
"{"&_
"alert(""请填写好短消息内容。"");"&_
"document.sendmessage.content.focus();"&_
"return false;"&_
"}"&_
"document.sendmessage.button.disabled=""true"";"&_
"return true;"&_
"}"&_
"function resend()"&_
"{"&_
"if ((event.altKey==true && event.keyCode==83) || (event.ctrlKey==true && event.keyCode==13))"&_
"{"&_
"this.document.sendmessage.button.click();"&_
"}"&_
"}"&_
"function su(username)"&_
"{"&_
"document.sendmessage.username.value=username;"&_
"}"&_
"</script>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""sendmessage"" method=""post"" onsubmit=""return validinput();"" action=""sendmessage.asp"" onkeydown=""resend()"" target="""& bbssn &"sendmessage"">"&_
"<tr><td width=""64"">接收对象：</td><td><input name=""username"" type=""text"" maxlength=""255"" size=""20"" class=""iptwin"">　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out""></td></tr>"&_
"<tr><td valign=""top"">短信内容：</td><td><textarea name=""content"" rows=""8"" cols=""53"">"& content &"</textarea></td></tr>"&_
"</form>"&_
"</table>"&_
"</td></tr>"&_
""
end if
end if
contents=contents &"</table>"&_
""
%><!--#include file="bottom.asp"-->