user_messager.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 435 行 · 第 1/2 页

Response.write "<tr>" 
Response.write "<td valign=top width='20%'><b>&nbsp;标题：<=30</b></td>"
Response.write "<td valign=middle><input type=text name='title' value='"&request("title")&"' size=36 class='input'></td>"
Response.write "</tr>"
Response.write "<tr>" 
Response.write "<td valign=top width='20%'><b>&nbsp;内容：<=500</b></td>"
Response.write "<td valign=middle><textarea cols=60 rows=10 name='message' class='input'></textarea></td>"
Response.write "</tr>"
Response.write "<tr>" 
Response.write "<td colspan=2 align=center>"
dim inboxsum:inboxsum=conn.execute("select count(*) from message where incept='"&Hx66_name&"'")(0)
if inboxsum>=Messagesum then
response.write "<font color=red>您的收信箱可以储存"&Messagesum&"条短信已满，请先删除无用信息后发送。谢谢！</font>"
else
response.write "<input type=Submit value='发 送' name=Submit>&nbsp;<input type='reset' name='Clear' value='清 除'>"
end if
Response.write "</td>"
Response.write "</tr>"
Response.write "<tr> "
Response.write "<td colspan=2 align=center>"
Response.write "<< <a href=""javascript:history.go(-1)"">返回上一页</a> >></a></td>"
Response.write "</tr>"
Response.write "</form></table>"
end sub

'=================================================
'过程名：friend_select
'作  用：显示我的好友
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
function friend_select()
dim temp,temp1,Hx66friend
temp1=vbcrlf&"<select name=friend_select size=1 onchange=""javascript:Hx_accept(this.options[this.selectedIndex].value);"" class='input'>" & _
  vbcrlf&"<option value=''>选择我的好友</option>"
IF Hx66_friend<>"" Then 
Hx66friend=Hx66_friend
else
Hx66friend="|"
End IF
temp=split(Hx66friend,"|")
for j = 1 to ubound(temp)
  temp1=temp1&vbcrlf&"<option value='"&temp(j)&"'>"&temp(j)&"</option>"
next
  temp1=temp1&vbcrlf&"</select>"
  friend_select=temp1
end function

'=================================================
'过程名：read
'作  用：读取信息
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
sub read()
set rs=server.createobject("adodb.recordset")
sql="select * from message where (incept='"&Hx66_name&"' or sender='"&Hx66_name&"') and id="&messages_id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<script language=javascript>alert('如果您不是跑到别人的信箱里了，那就请确定后再次刷新本页!!!');history.back(1);</script>"
Response.End 
else
Conn.execute("update message set flag=1 where incept='"&Hx66_name&"' and ID="&messages_id&"")
Response.write "<table bgcolor='#ffffff' borderColor='#e6e6e6' Border='1' Cellspacing='0' Cellpadding='5' width='100%' align='Center' style=""border-collapse: collapse"">"
Response.write "<tr>"
Response.write "<td align=center><b>欢迎使用短消息接收，"&Hx66_name&"</b></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td valign=middle align=center>"
if request("action")="read" then
Response.write "<a href='messager.asp?action=delete&id="&rs("id")&"'><img src='img/deletepm.gif' border=0 alt='删除消息'></a> &nbsp; "
end if
Response.write "<a href='messager.asp?action=inbox'><img src='img/inboxpm.gif' border=0 alt='收件箱'></a> &nbsp;"
Response.write "<a href='messager.asp?action=outbox'><img src='img/outboxpm.gif' border=0 alt='发件箱'></a> &nbsp;"
Response.write "<a href='messager.asp?action=new'><img src='img/newpm.gif' border=0 alt='发送消息'></a> &nbsp;"
Response.write "<a href='messager.asp?action=new&touser="&rs("sender")&"'><img src='img/replypm.gif' border=0 alt='回复消息'></a>"
Response.write "<a onfocus=""this.blur()"" href=""javascript:this.location.reload()""><img height='12' src='img/refresh.gif' border='0' alt='如果看不到信就刷新一下!'></a></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td valign=middle align=center>"
if request("action")="outread" then
Response.write "在<b>"&rs("sendtime")&"</b>，您发送此消息给<b>"&rs("incept")&"</b>！"
else
Response.write "在<b>"&rs("sendtime")&"</b>，<b>"&rs("sender")&"</b>给您发送的消息！"
end if
Response.write "</font></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td valign=top align=left><b>消息标题："&FormatStr(rs("title"))&"</b><BR>"&FormatStr(rs("content"))&"</td>"
Response.write "</tr>"
Response.write "</table>"
end if
rs.Close
set rs=nothing
end sub

'=================================================
'过程名：savemsg
'作  用：短信息发表
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
sub savemsg()
        if session("Hx_cms")=true then
        response.write "<script language=javascript>alert('对不起，请不要刷新操作！');history.back(1);</script>"
	Response.End
	end if
        touser=CheckStr(request.form("touser"))
        title=CheckStr(request.form("title"))
        message=CheckStr(request.form("message"))
        if touser="" or strLength(touser)>12 then
		response.write "<script language=javascript>alert('你填写的发送对象为空或错误,快回去重写！');history.back(1);</script>"
		Response.End 
	end if
	if strLength(title)<2 or strLength(title)>30 then
		response.write "<script language=javascript>alert('你忘了写标题或标题超过30个字符！');history.back(1);</script>"
		Response.End 
	end if
	if strLength(message)<4 or strLength(message)>1000 then
		response.write "<script language=javascript>alert('你忘了写内容或内容超过1000个字符！');history.back(1);</script>"
		Response.End 
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from [user] where username='"&touser&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "<script language=javascript>alert('对不起，本站没有这个用户，看看你的发送对象写对了吗？');history.back(1);</script>"
		Response.End 
	else
		rs.Close 
                set rs=server.createobject("adodb.recordset")
		sql="select * from message"
		rs.open sql,conn,1,3
		rs.addnew
		rs("incept")=touser
		rs("sender")=Hx66_name
                rs("title")=title
                rs("content")=message
		rs("sendtime")=now()
		rs("flag")=0
		rs.update
                msg=msg+"<br>"+"<li><b>恭喜您，发送短信息成功。</b><br>发送的消息同时保存在您的发件箱。"
		call success()
		rs.close
                set rs=nothing
	end if
end sub

'=================================================
'过程名：delete
'作  用：短信息单个删除
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
sub delete()
	sql="delete from message where incept='"&Hx66_name&"' and id="&messages_id
	conn.execute sql
	if err.Number<>0 then
		err.clear
		conn.close
		set conn=nothing
		response.write "<script language=javascript>alert('对不起，短信息删除失败！已发给朋友的短信息你不能删除！');history.back(1);</script>"
		Response.End 
	else
		msg=msg+"<br>"+"<li>短信息成功删除！"
		call success()
	end if
end sub

'=================================================
'过程名：deleteall
'作  用：短信息批量删除
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
sub deleteall()
	sql="delete from message where incept='"&Hx66_name&"'"
	conn.execute sql
	if err.Number<>0 then
		err.clear
		conn.close
		set conn=nothing
		response.write "<script language=javascript>alert('对不起，短信息删除失败！');history.back(1);</script>"
		Response.End 
	else
		msg=msg+"<br>"+"<li>短信息全部成功删除！"
		call success()
	end if
end sub

'=================================================
'过程名：success
'作  用：短信息操作提示
'参  数：无
'Web:    http://www.Hx66.net
'=================================================
sub success()
session("Hx_cms")=true
Response.write "<table cellpadding=5 cellspacing=0 border=1 width='100%' style=""border-collapse: collapse"" bordercolor='#f0f0f0' align='center'>"
Response.write "<tr align='center'>" 
Response.write "<td>短信息提示</td>"
Response.write "</tr>"
Response.write "<tr> "
Response.write "<td align='center'>"&msg&"<BR></td>"
Response.write "</tr>"
Response.write "<tr align='center'><td><a href='messager.asp?action=inbox'> << 返回收件箱</a></td>"
Response.write "</tr>"  
Response.write "</table>"
end sub
'****************************************************
' Hxcms Ver7.6       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>