message.asp

九酷网络个人主页系统破解版

<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
if rshost("msg")=False then
WriteErrMsg("您没有权限使用此功能！")
end if
menu=request("menu")
select case menu
case ""
set rsto=conn.Execute("select * from [message] where touser='"&Request.Cookies("9cool_username")&"'") 
message
case "write"
if request("touser")="系统管理员" then WriteErrMsg("不能向管理员发送短信! ")
write
case "post"
touser=request.form("touser")
If conn.Execute("Select userid From [user] where username='"&touser&"'" ).eof Then
WriteErrMsg("收件人不存在! ")
Response.Write("<div align=center>[<a href='javascript:history.back()'>返回</a>]</div>")
elseif touser=Request.Cookies("9cool_username") then
WriteErrMsg("不能发短信给自己!")
else
sql="select * from message"
rs.Open sql,Conn,1,3
rs.addnew
rs("title")=htmlencode2(request.form("title"))
rs("fromuser")=Request.Cookies("9cool_username")
rs("touser")=touser
rs("content")=htmlencode2(request.form("content"))
rs.update
rs.close
Response.redirect("message.asp?menu=send")
end if
case "del"
id=cint(request("id"))
conn.execute("delete from [message] where id="&id&" and touser='"&Request.Cookies("9cool_username")&"'")
Response.redirect("message.asp")
case "delsend"
id=cint(request("id"))
conn.execute("delete from [message] where id="&id&" and fromuser='"&Request.Cookies("9cool_username")&"'")
Response.redirect("message.asp?menu=send")
case "alldel"
conn.execute("delete from [message] where touser='"&Request.Cookies("9cool_username")&"'")
Response.redirect("message.asp")
case "send"
set rssend=conn.Execute("select * from [message] where fromuser='"&Request.Cookies("9cool_username")&"'") 
send
case "view"
id=cint(request("id"))
conn.execute("update [message] set readed=1 where id="&id&" and touser='"&Request.Cookies("9cool_username")&"'")
set rs=conn.Execute("select * from [message] where id="&id&" and touser='"&Request.Cookies("9cool_username")&"'") 
Response.Write rs("content")
case "viewsend"
id=cint(request("id"))
set rs=conn.Execute("select * from [message] where id="&id&" and fromuser='"&Request.Cookies("9cool_username")&"'") 
Response.Write rs("content")
end select
sub message
%>
<TABLE width="778" border=0 align="center" cellpadding="4"  cellSpacing=1 class=a2>
<TR>
  <TD align="center" bgcolor="FFFFFF" colspan=5>

          <a href="message.asp">          </a><a href="message.asp"><img alt src="images/m_inbox.gif" border="0" dypop="收件箱"></a>&nbsp;
          <a href="message.asp?menu=send">
          <img alt src="images/M_issend.gif" border="0" dypop="已发送邮件"></a>&nbsp;
          <a href="?menu=alldel" onClick="return confirm('确定清空收件箱？');">
          <img alt src="images/recycle.gif" border="0" dypop="清空收件箱"></a>&nbsp;
          <a href="friend.asp">          </a>
          <a href="?menu=write"><img alt src="images/m_write.gif" border="0" dypop="发送讯息"></a></td>
</TR>

  <TR  class=a1 >
          
    <TD vAlign=center align=middle 
          width=5% height="20">　</TD>
          
    <TD vAlign=center align=middle width=14% height="20"><B><span id=send>发件人</span></B></TD>
          
    <TD vAlign=center align=middle width=39% height="20"><B>主题</B></TD>
          
    <TD align=middle  width=26% height="20"><B>日期</B></TD>
          
    <TD vAlign=center align=middle width=16% height="20"><B>操作</B></TD>
  </TR>
  <%
  i=0
  do while not rsto.eof
if i mod 2 = 0 then
a="a3"
else
a="a4"
end if
  %>
<TR class="<%=a%>">          
    <TD width="5%" align=middle vAlign=center> <IMG 
            src="images/f_norm.gif"></TD>
          
    <TD width="14%" align=middle vAlign=center nowrap><%=rsto("fromuser")%>
    　</TD>
          
    <TD width="39%"><a href="javascript:void(0)" <%if rsto("readed")=0 then Response.Write " style='font-weight: bold'"%> onClick="javascript:open_win('message.asp?menu=view&id=<%=rsto("id")%>','',320,170,'no')"><%=rsto("title")%></a></TD>
    <TD width="26%" align="center"><%=rsto("time")%></TD>
          
    <TD width="16%" align="center"><a href="?menu=write&touser=<%=rsto("fromuser")%>"><img src="images/reply.gif" border="0"></a> <a href="?menu=del&id=<%=rsto("id")%>" onClick="return confirm('确定删除吗？');"><img src="images/delete.gif" border="0"></a></TD>
  </TR>
  <%
i=i+1
  rsto.movenext
loop
rsto.close
%>
</TABLE>
<%end sub
sub write
%>
<table width="778" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
  <form name="form" method="post" action="?menu=post">
    <tr class="a1">
      <td height="25" colspan="2">发送短信</td>
    </tr>
    <tr class="a3">
      <td width="73" align="left"> 收件人：</td>
      <td width="362">
        <input name="touser" type="text" id="touser" maxlength="20" value=<%=request("touser")%>>
        * </td>
    </tr>
    <tr class="a4">
      <td>主　题：</td>
      <td><input name="title" type="text" size="40" maxlength="40"></td>
    </tr>
    <tr class="a4">
      <td>发件人：</td>
      <td><%=Request.Cookies("9cool_username")%></td>
    </tr>
    <tr class="a4">
      <td> 内容：</td>
      <td width="362">
        <textarea name="content" cols="60" rows="6" id="content"></textarea>        </td>
    </tr>
    <tr align="center" class="a4">
      <td colspan="2"><input name=submit type=submit value=递交>
          <input name="submit2" type="button" value="返回" onClick="javascript:history.back()"></td>
    </tr>
  </form>
</table>
<%
end sub
sub send
%>
<TABLE width="778" border=0 align="center" cellpadding="3"  cellSpacing=1 class=a2>
<TR>
  <TD align="center" bgcolor="FFFFFF" colspan=5>

          <a href="message.asp">
          </a><a href="message.asp"><img alt src="images/m_inbox.gif" border="0" dypop="收件箱"></a>&nbsp; <a href="message.asp?menu=send"> <img alt src="images/M_issend.gif" border="0" dypop="已发送邮件"></a>&nbsp; <a href="?menu=alldel" onClick="return confirm('确定清空收件箱？');"> <img alt src="images/recycle.gif" border="0" dypop="清空收件箱"></a>&nbsp; <a href="friend.asp"> </a> <a href="?menu=write"><img alt src="images/m_write.gif" border="0" dypop="发送讯息"></a></td>
</TR>

  <TR>
          
    <TD vAlign=center align=middle 
          width=5% class=a1 height="20">　</TD>
          
    <TD vAlign=center align=middle 
          width=12% class=a1 height="20"><B><span id=send>收件人</span></B></TD>
          
    <TD vAlign=center align=middle 
          width=50% class=a1 height="20"><B>主题</B></TD>
          
    <TD align=middle 
          width=17% class=a1 height="20"><B>日期</B></TD>
    <TD align=middle 
          width=17% class=a1><B>操作</B></TD>
  </TR>
  <%do while not rssend.eof%>
<TR>          
    <TD vAlign=center align=middle width="5%" bgcolor="FFFFFF"> <IMG 
            src="images/f_norm.gif"></TD>
          
    <TD vAlign=center align=middle width="12%" bgcolor="FFFFFF"><%=rssend("touser")%>
    　</TD>
          
    <TD width="50%" bgcolor="FFFFFF"><a href="#" <%if rssend("readed")=0 then Response.Write " style='font-weight: bold'"%> onClick="javascript:open('?menu=viewsend&id=<%=rssend("id")%>','','width=320,height=170')"><%=rssend("title")%></a></TD>
    <TD align="center" width="17%" bgcolor="FFFFFF"><%=rssend("time")%></TD>
    <TD align="center" width="17%" bgcolor="FFFFFF"><a href="?menu=delsend&id=<%=rssend("id")%>" onClick="return confirm('确定删除吗？');">删除</a></TD>
</TR>
  <%
  rssend.movenext
loop
rssend.close
end sub
%>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->