l_user.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td>
<!--#include file="top.asp"-->
<!--#include file="inc/UserChk.asp"-->
<%
pname=request("pname")
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from user_info 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="男" Then   
sex1="<img src=images/male.gif width=23 height=21 border=0 alt=我是帅哥，快来找我>"
ElseIF str="女" 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=760 align=center bgColor=#ffffff border=0>
  <TBODY><tr>
    <Td vAlign=top width=176> 
       <!--#include file="center.asp"--></td>
               
               
               <td bgcolor="#dfdfdf" width="1"></td>
      <TD width="583"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
          <TBODY>
            <TR> 
              <TD width="100%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="100%" bgcolor="#EFEFEF" height="24">
					<font color=red>
                      <% =rs2("user_name") %></font> 的个人资料</td>
                  </tr>
                </table></TD>
            </TR>
            <TR> 
              <TD height="210" valign="top"> 
                <DIV align=center>
                  <table width="100%" border="1" cellpadding="0" cellspacing="1" bordercolor="#C0C0C0">
                    <tr> 
                      <td height="23" align="right" bgcolor="#FFFFFF"><div align="center">
						会员名:</div></td>
                      <td height="23" bgcolor="#FFFFFF"> &nbsp; 
                        <% =rs2("user_realname") %>
                      </td>
                    </tr>
                    <tr> 
                      <td width="23%" height="23" align="right" bgcolor="#EFEFEF"><div align="center">
						性 　别: </div></td>
                      <td width="77%" height="23" bgcolor="#EFEFEF">&nbsp; 
                        <%=sex1(rs2("user_sex"))%>
                      </td>
                    </tr>
                     <tr> 
                      <td height="23" align="right" bgcolor="#FFFFFF"><div align="center">
						oicq:</div></td>
                      <td height="23" bgcolor="#FFFFFF">&nbsp; 
      <a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs2("user_qq")%>&Site=jjyy&Menu=yes title="有事Ｑ我"><% =rs2("user_qq") %></a>
                      </td>
                    </tr>
                    <tr> 
                      <td height="23" align="right" bgcolor="#EFEFEF"><div align="center">
						mail:</div></td>
                      <td height="23" bgcolor="#EFEFEF">&nbsp; 
                        <a href="mailto:<% =rs2("user_email") %>"><% =rs2("user_email") %></a>
                      </td>
                    </tr>
                      <tr> 
                      <td height="23" align="right" bgcolor="#FFFFFF"><div align="center">
						注册时间:</div></td>
                      <td height="23" bgcolor="#FFFFFF">&nbsp; 
                       <%=rs2("user_date")%>
                      </td>
                    </tr>
              
                 
                  </table>
				 
                  <div align="center">
				 
                  <TABLE width="100%" border=1 cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#C0C0C0>
                    <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 borderColor=ff9900 bgColor=#FFCC66> 
                        <TD colspan="2" bgcolor="#EFEFEF" bordercolor="#FFFFFF"><b>
						<font color="#FF0000">给 
                          <% =rs2("user_name") %>
                          发送站内信件 </font></b></TD>
                      </TR>
                      <TR bgcolor="#FFFFFF"> 
                        <TD width="15%" height=30 align=middle class=htd><div align="left">接 
                            收 人：</div></TD>
                        <TD width="88%" 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 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=#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%>