user_messagewr.asp

一个朋友购买的商业版房产网源程序

<!-- #include file="conn.asp"-->
<% if session("uid")="" then
response.Redirect"error.asp" 
end if
uid=session("uid") 
uname=session("uname")
if request("jsr")<>"" and request("nr")<>"" then 
jsr=request("jsr")
uid=replace(trim(request("uid")),"'","''")
sql3="select * from puser where uid='"&jsr&"'"
set rs3=conn.execute (sql3)
if rs3.eof or err then %>
<script language=Javascript>
<!--
alert("     >>> 无该用户,请重新输入正确的用户名 <<<");
window.history.go(-1);
//-->
</script>

<% else
fbr=session("uid")
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>
<TABLE width="98%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=ff9900>
  <form name="regform" onSubmit="return VerifySubmit()" method="post" action="user_messageWR.asp">
    <TR align=middle borderColor=ff9900 bgColor=#FFCC66> 
      <TD colspan="2"><b><font color="#FFFFFF">签写信件</font></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=#ededed class=htd><div align="center"> 
          <input type="submit" name="Submit" value="发送信件">
          <input name="fbr" type="hidden" id="fbr" value="<% =session("uid") %>">
        </div></TD>
    </TR></form>
  </TABLE>