messanger.asp

一个美化的论坛程序

            <td valign=middle colspan=2 align=center> 
              <input type=Submit value="发 送" name=Submit"> &nbsp; <input type="reset" name="Clear" value="清 除">
            </td>
			</tr>
			</form>
            </table>
			</td></tr></table>
<%
end sub


'读取收件箱信息
sub read()
   	sql="update message set flag=1 where ID="&cstr(request("id"))
   	rs.open sql,conn,1,3
	sql="select * from message where incept='"&membername&"' and id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		errmsg=errmsg+"<br>"+"<li>你是不是跑到别人的信箱啦、或者该信息已经删除。"
		founderr=true
	end if
	if founderr=true then
		call error()
	else
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
  <tr>
            <td>
                
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr>
                
          <td bgcolor="<%=tabletitlecolor%>" align=center colspan=3><b><font color="#0000AA">欢迎使用短消息接收，</font><font color="#FFFFFF"><%=membername%></font></b></td>
            </tr>
            <tr>
          <td valign=middle align=center colspan=3 bgcolor="<%=tablebodycolor%>"> &nbsp; <a href="messanger.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a> 
            &nbsp; <a href="messanger.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a> 
            &nbsp;<a href="messanger.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a> 
            &nbsp;<a href="messanger.asp?action=new&name=<%=rs("sender")%>"><img src="images/replypm.gif" border=0 alt="回复消息"></a> 
            &nbsp;<a href="messanger.asp?action=delete&id=<%=rs("id")%>"><img src="images/deletepm.gif" border=0 alt="删除消息"></a></td>
            </tr>
                <tr>
          <td valign=middle align=center bgcolor="<%=tablebodycolor%>"><font face="宋体" color=#333333>在<b><%=rs("sendtime")%></b>，<b><%=rs("sender")%></b>给您发送的消息！</font></td>
                </tr>
                <tr>       
          <td valign=top align=center bgcolor="<%=tablebodyacolor%>"><font face="宋体" color=#333333> 
            <b>消息标题：<%=rs("title")%></b></font> 
            <div align=left><%=rs("content")%></div>
		    </td>
                </tr>
                </table></td></tr></table>
<%end if
end sub
'读取发件箱信息
sub outread()
	sql="select * from message where sender='"&membername&"' and id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		errmsg=errmsg+"<br>"+"<li>你是不是跑到别人的信箱啦、或者该信息已经删除。"
		founderr=true
	end if
	if founderr=true then
		call error()
	else
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
  <tr>
            <td>
                
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr>
                
          <td bgcolor="<%=tabletitlecolor%>" align=center colspan=3><b><font color="#0000AA">欢迎查看已发送的短消息，</font><font color="#FFFFFF"><%=membername%></font></b></td>
            </tr>
            <tr>
                
          <td valign=middle align=center colspan=3 bgcolor="<%=tablebodycolor%>">
            &nbsp; <a href="messanger.asp?action=inbox"><img src="images/inboxpm.gif" border=0 alt="收件箱"></a> 
            &nbsp; <a href="messanger.asp?action=outbox"><img src="images/outboxpm.gif" border=0 alt="发件箱"></a> 
            &nbsp;<a href="messanger.asp?action=new"><img src="images/newpm.gif" border=0 alt="发送消息"></a>
			&nbsp;<a href="messanger.asp?action=delete&id=<%=rs("id")%>"><img src="images/deletepm.gif" border=0 alt="删除消息"></a> </td>
            </tr>
                <tr>
                    
          <td valign=middle align=center bgcolor="<%=tablebodycolor%>"><font face="宋体" color=#333333> 
            在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=rs("incept")%></b>！ 
            </font></td>
                </tr>
                <tr>
                    
          <td valign=top align=center bgcolor="<%=tablebodyacolor%>"><font face="宋体" color=#333333> 
            <b>消息标题：<%=rs("title")%></b></font> 
            <div align=left><%=rs("content")%></div>
		    </td>
                </tr>
                </table></td></tr></table>
<%end if
end sub
sub savemsg()
	if request("touser")="" then
		errmsg=errmsg+"<br>"+"<li>您忘记填写发送对象了吧。"
		founderr=true
	else
		incept=request("touser")
	end if
	if request("title")="" then
		errmsg=errmsg+"<br>"+"<li>您还没有填写标题呀。"
		founderr=true
	else
		title=request("title")
	end if
	if request("message")="" then
		errmsg=errmsg+"<br>"+"<li>内容是必须要填写的噢。"
		founderr=true
	else
		message=htmlencode(request("message"))
	end if
	if founderr=true then
		call error()
	else
		sql="select * from user where username='"&incept&"'"
		rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			errmsg=errmsg+"<br>"+"<li>没有这个用户，看看你的发送对象写对了嘛？"
			founderr=true
		end if
		rs.close
		if founderr=true then
			call error()
		else
		sql="select * from message where (id is null)"
		rs.open sql,conn,1,3
		rs.addnew
		rs("incept")=incept
		rs("sender")=membername
		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
		end if
	end if
end sub

sub delete()
sql="select * from message where id="&cstr(request("id"))
rs.open sql,conn,1,1
if not rs.eof then
	if rs("flag")=0 then
		conn.execute "delete from message where id="&cstr(request("id"))
	else
		if rs("incept")=membername then
			conn.execute "update message set delR=1 where id="&cstr(request("id"))
		elseif rs("sender")=membername then
			conn.execute "update message set delS=1 where id="&cstr(request("id"))
		end if
	end if
	conn.execute "delete * from message where delS=1 and delR=1 and id="&cstr(request("id"))
end if
    	if err.Number<>0 then
	err.clear
	errmsg=errmsg+"<br>"+"<li>删 除 失 败 ！"
	founderr=true
	call error()
    	else
	msg=msg+"<br>"+"<li>短信息成功删除！"
	call success()
    	end if
end sub

sub success()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
  <tr>
            <td>
                
      <table cellpadding=3 cellspacing=1 border=0 width=100% bgcolor="<%=tablebackcolor%>">
        <tr align="center"> 
          <td width="100%" bgcolor="<%=tabletitlecolor%>"><b><font color="#FFFFFF">成功：短信息</font></b></td>
    </tr>
    <tr> 
          <td width="100%" bgcolor="<%=tablebodycolor%>"><%=msg%> </td>
    </tr>
    <tr align="center"> 
          <td width="100%" bgcolor="<%=tablebodycolor%>"> <a href="javascript:history.go(-1)"> << 
            返回上一页</a> </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub

sub newmsg()
%>
<table cellpadding=0 cellspacing=0 border=0 width=100% bgcolor=<%=tablebackcolor%> align=center>
  <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr align="center"> 
          <td width="100%" bgcolor="<%=tabletitlecolor%>"><font color="#0000AA"><b>短消息通知</b></font></td>
    </tr>
    <tr> 
          <td width="100%" bgcolor="<%=tablebodycolor%>" align=center><br>
            <font face="宋体" color="#333333"><a href=messanger.asp?action=inbox><img src="images/newmail.gif" border=0>有新的短消息</a><br>
                <br>
                <a href=messanger.asp?action=inbox>按此查看</a><br><br>
                </font>
      </td>
    </tr>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=aTabletitlecolor%>>
      </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>