user_messager.asp

后台登陆admin.asp

<script language=javascript>
function Hx_accept(addaccept)
{
  if (addaccept!="")
  { document.messager.touser.value=addaccept; }
}
</script>
<%

'****************************************************
dim msg,messages_id
if UserLogined<>True then
		response.write"<SCRIPT language=JavaScript>alert(' 请 登 陆 后 操 作  ，请 返 回 ！');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
end if
if request.querystring("id")<>"" then
  if not isInteger(request.querystring("id")) then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
  end if
  messages_id=CLng(request("id"))
else
  messages_id=0
end if
start="短信管理"
'=================================================
'过程名：content_messages
'作  用：显示内容、表单
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub content_messages()
action=request("action")
select case action
case "inbox"
    call inbox()
case "outbox"
    call outbox()
case "new"
    call sendmsg()
case "read"
    call read()
case "outread"
    call read()
case "delete"
    call delete()
case "deleteall"
    call deleteall()
case "send"
    call savemsg()
case else
conn.close
set conn=nothing
    response.write "<SCRIPT language=JavaScript>alert('操作错误或服务器出错，请与程序作者联系！');"
    response.write"history.back(1);</SCRIPT>"
    Response.End 
end select
end sub

'=================================================
'过程名：inbox
'作  用：短消息收件箱
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub inbox()
Dim CurPage,Url_Add
Url_Add="?action=inbox&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
Response.write "<table bgcolor='#ffffff' borderColor='#f0f0f0' Border='1' Cellspacing='0' Cellpadding='5' width='100%' align='Center' style=""border-collapse: collapse"">"
Response.write "<tr>" 
Response.write "<td align=center colspan=4><b>欢迎使用您的收件箱，"&Hx66_name&"</b></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td align=center colspan=4><a href='messager.asp?action=inbox'><img src='img/inboxpm.gif' border=0 alt='收件箱'></a> &nbsp; <a href='messager.asp?action=outbox'><img src='img/outboxpm.gif' border=0 alt='发件箱'></a> &nbsp; <a href='messager.asp?action=new'><img src='img/newpm.gif' border=0 alt='发送消息'></a><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 align=center width='20%'><b>发件人</b></td>"
Response.write "<td align=center width='47%'><b>短信主题</b></td>"
Response.write "<td align=center width='25%'><b>发送日期</b></td>"
Response.write "<td align=center width='8%'><b>已读</b></td>"
Response.write "</tr>"
set rs=server.createobject("adodb.recordset")
  sql="select * from message where incept='"&Hx66_name&"' order by flag ASC,id DESC"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
Response.write "<tr>"
Response.write "<td align=center valign=middle colspan=4>您还没有新留言噢：）</td>"
Response.write "</tr>"
else
   Dim Hx_Nums,MultiPages,i
   Hxperpage=15
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.write "<tr>"
Response.write "<td align=center valign=middle>"&rs("sender")&"</td>"
Response.write "<td align=left valign=middle><a href='messager.asp?action=read&id="&rs("id")&"'>"&FormatStr(rs("title"))&"</a></td>"
Response.write "<td align=center>"&rs("sendtime")&"</td>"
Response.write "<td align=center valign=middle>"
if rs("flag")=0 then
Response.write "<font color=red><b>否</b></font>"
else
Response.write "是"
end if
Response.write "</td></tr>"
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.write "<tr>" 
Response.write "<td align=center colspan=4>您的收信箱总共可以储存<font color=red>"&Messagesum&"</font>条短信，目前已有<font color=red>"&Hx_Nums&"</font>条短信。</td>"
Response.write "</tr>"
Response.write "<tr> "
Response.write "<td align=center colspan=4>为了节省空间，请及时删除无用信息，谢谢！&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-=> <a href='messager.asp?action=deleteall'>清空收信箱</a></td>"
Response.write "</tr>"
Response.Write(MultiPages)
Response.write "</table>"
end sub

'=================================================
'过程名：outbox
'作  用：短消息发件箱
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub outbox()
Dim CurPage,Url_Add
Url_Add="?action=outbox&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
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 colspan=3><b>"&Hx66_name&"，这是你的短消息发件箱</b></td>"
Response.write "</tr>"
Response.write "<tr>"
Response.write "<td align=center colspan=3><a href='messager.asp?action=inbox'><img src='img/inboxpm.gif' border=0 alt='收件箱'></a> &nbsp; <a href='messager.asp?action=outbox'><img src='img/outboxpm.gif' border=0 alt='发件箱'></a> &nbsp; <a href='messager.asp?action=new'><img src='img/newpm.gif' border=0 alt='发送消息'></a><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 align=center width='25%'><b>收件人</b></td>"
Response.write "<td align=center><b>短信标题</b></td>"
Response.write "<td align=center width='25%'><b>发送日期</b></td>"
Response.write "</tr>"
set rs=server.createobject("adodb.recordset")
 sql="select * from message where sender='"&Hx66_name&"' order by id DESC"
 rs.open sql,conn,1,1
 if rs.eof and rs.bof then
Response.write "<tr>"
Response.write "<td align=center colspan=3>您还没有给别人发过信息呢~~</td>"
Response.write "</tr>"
else
   Dim Hx_Nums,MultiPages,i
   Hxperpage=20
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.write "<tr>"
Response.write "<td align=center width='25%'>"&rs("incept")&"</td>"
Response.write "<td align=left>&nbsp;<a href='messager.asp?action=outread&id="&rs("id")&"'>"&FormatStr(rs("title"))&"</a></td>"
Response.write "<td align=center>"&rs("sendtime")&"</td>"
Response.write "</tr>"
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write(MultiPages)
Response.write "</table>"
end sub

'=================================================
'过程名：sendmsg
'作  用：发送信息表单
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
sub sendmsg()
session("Hx_cms")=false
Response.write "<form action='messager.asp' method=post name=messager>"
Response.write "<table bgcolor='#ffffff' borderColor='#f0f0f0' Border='1' Cellspacing='0' Cellpadding='5' width='100%' align='Center' style=""border-collapse: collapse"">"
Response.write "<tr> "
Response.write "<td align=center colspan=2><b>发送短消息</b></td>"
Response.write "</tr>"
Response.write "<tr> "
Response.write "<td valign=middle align=center colspan=2><a href='messager.asp?action=inbox'><img src='img/inboxpm.gif' border=0 alt='收件箱'></a>" 
Response.write "&nbsp; <a href='messager.asp?action=outbox'><img src='img/outboxpm.gif' border=0 alt='发件箱'></a> "
Response.write "&nbsp; <a href='messager.asp?action=new'><img src='img/newpm.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 colspan=2 align=center><input type=hidden name='action' value='send'><b>请完整输入下列信息</b></td>"
Response.write "</tr>"
Response.write "<tr> "
Response.write "<td valign=middle><b>&nbsp;收件人：</b></td>"
Response.write "<td valign=middle><input type=text name='touser' value='"&request("touser")&"' size='20' class='input'>"
response.write friend_select()
Response.write "</td>"
Response.write "</tr>"