l_user.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%>
<!--#include file="top.asp"-->
<!--#include file="inc/UserChk.asp"-->
<%
pname=HTMLEncode(request("pname"))
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from dd_user where user_name='"& pname &"'"
rs2.open sql2,conn,1,3
if rs2.bof and rs2.eof then
response.Write"<div align=""center""><font color=""#FF0000"" size=""3""><strong>对不起！本站无此用户</strong></font></div>"
else

'判断
Function sex1(str)
IF str="0" Then   
sex1="<img src=images/male.gif width=23 height=21 border=0 alt=我是帅哥，快来找我>"
ElseIF str="1" Then   
sex1="<img src=images/female.gif width=23 height=21 border=0 alt=我是美女，快来找我>"
End IF
End Function
%>
<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 cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff border=0>
  <TBODY><tr>
    <Td vAlign=top width=182> 
       <!--#include file="center.asp"--></td>
               
               
               <td class=line></td>
      <TD ><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 style="BORDER-COLLAPSE: collapse">
          <TBODY>
            <TR> 
              <TD height="210" valign="top"> 
                <DIV align=center>
  <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">                    <tr> 
                      <td height="23" align="right" class="tablebody1"><div align="center">
						会员名:</div></td>
                      <td height="23" class="tablebody1"> &nbsp; 
                        <% =rs2("user_name") %>
                      </td>
                    </tr>
                    <tr> 
                      <td width="23%" height="23" align="right" class="tablebody1"><div align="center">
						性 　别: </div></td>
                      <td width="77%" height="23" class="tablebody1">&nbsp; 
                        <%=sex1(rs2("user_sex"))%>
                      </td>
                    </tr>
                     <tr> 
                      <td height="23" align="right" class="tablebody1"><div align="center">
						oicq:</div></td>
                      <td height="23" class="tablebody1">&nbsp; 
      <a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs2("user_qq")%>&Site=多多校园&Menu=yes title="有事Ｑ我"><% =rs2("user_qq") %></a>
                      </td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" class="tablebody1"><div align="center">
						mail:</div></td>
                      <td height="23" class="tablebody1">&nbsp; 
                        <a href="mailto:<% =rs2("user_email") %>"><% =rs2("user_email") %></a>
                      </td>
                    </tr>
                      <tr> 
                      <td height="23" align="right" class="tablebody1"><div align="center">
						注册时间:</div></td>
                      <td height="23" class="tablebody1">&nbsp; 
                       <%=rs2("user_date")%>
                      </td>
                    </tr>
              
                 
                  </table>
				 
                  <div align="center">
				 
  <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">                    <form name="regform" onSubmit="return VerifySubmit()" method="post" action="user_messageWR.asp">
                            <input name="fbr" type="hidden" id="fbr" value="<% =session("user_name") %>">
                          <TR align=middle> 
                        <TD colspan="2" class=th><b>
						<font color="#FF0000">给 
                          <% =rs2("user_name") %>
                          发送站内信件 </font></b></TD>
                      </TR>
                      <TR class="tablebody1"> 
                        <TD width="13%" height=30 align=middle class=htd><div align="left">接 
                            收 人：</div></TD>
                        <TD width="84%" align=middle class=htd><div align="left"> 
                            <input name="jsr" type="text" id="jsr" value="<% =rs2("user_name") %>" size="20">
                            &nbsp;<font color="#FF0000">*</font></div></TD>
                      </TR>
                      <TR class="tablebody1"> 
                        <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 class="tablebody1"> 
                        <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="66" rows="8" id="textarea"></textarea>
                            &nbsp;<font color="#FF0000">*</font> </div></TD>
                      </TR>
                      <TR> 
                        <TD height=30 colspan="2" align=middle bgColor=#FFFFFF class=htd><div align="center"> 
                            <input type="submit" name="Submit" value="发送信件"></div></TD>
                      </TR>
                    </form>
                  </TABLE>
                  </div>
                </DIV></TD>
            </TR>
			</TBODY>
        </TABLE>
        
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"--><%end if%>