user_messagewr.asp

校园二手交易系统,具有完备的后台操作以及应用功能!

<!--#include file="inc/UserChk.asp"-->
<%
'****************************************************
' 多多校园电子商务工作室        Power by ddtaobao.com
' Email:[e-mail]    OICQ:6334278     站长:小羽
' Web: http://www.ddtaobao.com    淘宝旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************
user_name=session("user_name") 
if request("jsr")<>"" and request("nr")<>"" then 
jsr=request("jsr")
uid=replace(trim(request("uid")),"'","''")
sql3="select * from dduser where user_name='"&jsr&"'"
set rs3=conn.execute (sql3)
if rs3.eof or err then %>
<script language=Javascript>
<!--
alert("     >>> 无该用户,请重新输入正确的用户名 <<<");
window.history.go(-1);
//-->
</script>

<% else
fbr=session("user_name")
jsr=request("jsr")
bt=request("bt")
nr=request("nr")
set rs2=server.createobject("adodb.recordset")
sql2="select * from message"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("fbr")=fbr
rs2("jsr")=jsr
rs2("bt")=bt
rs2("nr")=nr
rs2.update
Response.Write"<script language=JavaScript>"
Response.Write"alert(""信件发送成功！"");"
Response.Write"window.location='user.asp?gn=box';"
Response.Write"</script>"
end if
end if %>
<SCRIPT language="javascript">
<!--
function del_space(s)
{
	for(i=0;i<s.length;++i)
	{
	 if(s.charAt(i)!=" ")
		break;
	}

	for(j=s.length-1;j>=0;--j)
	{
	 if(s.charAt(j)!=" ")
		break;
	}

	return s.substring(i,++j);
}

function VerifySubmit()
{
	jsr = del_space(document.all("jsr").value);
     if (jsr.length == 0)
     {
        alert("你忘了填写接收人姓名");
	return false;
     }
	 
	fbr = del_space(document.all("fbr").value);
     if (fbr==jsr)
     {
        alert("不允许自己给自己发信件");
	return false;
     }
	 
	 bt = del_space(document.all("bt").value);
     if (bt.length == 0)
     {
        alert("您忘了填写信件标题");
        return false;
     }
	 
	 nr = del_space(document.all("nr").value);
     if (nr.length == 0)
     {
        alert("您忘了填写信件内容");
        return false;
     }

	nr = del_space(document.all("nr").value);
     if (nr.length > 300)
     {
        alert("内容不能大于300字");
        return false;
     }

	return true;
}
//-->
</SCRIPT>
<div align="center">
<TABLE width="98%" border=0 cellPadding=0 cellSpacing=1 bgColor=#C0C0C0>
  <form name="regform" onSubmit="return VerifySubmit()" method="post" action="user_messageWR.asp">
    <TR align=middle bgColor=#FFCC66> 
      <TD colspan="2" bgcolor="#EFEFEF"><b>签写信件</b></TD>
    </TR>
    <TR bgcolor="#FFFFFF"> 
      <TD width="15%" height=30 align=middle class=htd><div align="left">接 收 人：</div></TD>
      <TD width="85%" align=middle class=htd><div align="left"> 
          <input name="jsr" type="text" id="jsr">
          &nbsp;<font color="#FF0000">*</font></div></TD>
    </TR>
    <TR bgcolor="#FFFFFF"> 
      <TD height=30 align=middle class=htd><div align="left">信件主题：</div></TD>
      <TD height=30 align=middle class=htd><div align="left"> 
          <input name="bt" type="text" id="bt2">
          &nbsp;<font color="#FF0000">*</font></div></TD>
    </TR>
    <TR bgcolor="#FFFFFF"> 
      <TD height=30 align=middle class=htd><div align="left">信件内容： <br>
          <br>
          ≤300 </div></TD>
      <TD height=30 align=middle class=htd><div align="left"> 
          <textarea name="nr" cols="70" rows="8" id="textarea"></textarea>
          &nbsp;<font color="#FF0000">*</font> </div></TD>
    </TR>
    <TR> 
      <TD height=30 colspan="2" align=middle bgColor=#EFEFEF class=htd><div align="center"> 
          <input type="submit" name="Submit" value="发送信件">
          <input name="fbr" type="hidden" id="fbr" value="<% =session("user_id") %>">
        </div></TD>
    </TR></form>
  </TABLE></div>