user_edit.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"-->
<!--#include file="inc/msgbox.asp"-->
<script language="javascript">
<!--
function check_null()
{
if (form1.user_qq.value=="")
{
alert("请输入qq号");
form1.user_qq.focus()
return false;
}
if (form1.user_qq.value.length < 5)
{
alert("请正确填写您的qq号码！您的虚拟形象就靠它啦！");
form1.user_qq.focus();
return (false);
}
if (form1.user_qq.value.length > 12)
{
alert("请正确填写您的qq号码！您的虚拟形象就靠它啦！");
form1.user_qq.focus();
return (false);
}
if (form1.user_email.value=="")
{
alert("请输入mail");
form1.user_email.focus()
return false;
}

if(form1.user_email.value.length!=0)
{
if (form1.user_email.value.charAt(0)=="." ||        
form1.user_email.value.charAt(0)=="@"||       
form1.user_email.value.indexOf('@', 0) == -1 || 
form1.user_email.value.indexOf('.', 0) == -1 || 
form1.user_email.value.lastIndexOf("@") ==form1.user_email.value.length-1 || 
form1.user_email.value.lastIndexOf(".") ==form1.user_email.value.length-1)
{
alert("只有正确的邮件地址才能获得本站相应服务");
form1.user_email.focus();
return false;
}
}
return true;
}
//-->
</script>
<%
IF Trim(Request("Submit"))<>Empty Then
  Dim user_sex,user_qq,user_email,user_home,sign,user_realname,userface
  user_sex=HTMLEncode(request.Form("user_sex"))
 user_qq=HTMLEncode(request.Form("user_qq"))
 user_email=HTMLEncode(request.Form("user_email"))
  user_home=HTMLEncode(request.Form("user_home")) 
userface=HTMLEncode(request.Form("userface"))
  user_realname=HTMLEncode(request.Form("user_realname"))
  sign=HTMLEncode(request.Form("sign"))
  set rs=server.CreateObject("adodb.recordset")
  strsql="select * from [dd_user] where user_id="&session("user_id")&""
  rs.open strsql,conn,1,3  
  rs("user_sex")=user_sex
  rs("user_qq")=user_qq
  rs("user_email")=user_email
  rs("user_home")=user_home 
  rs("sign")=sign
 rs("userface")=userface
  rs("user_realname")=user_realname  
  rs.update
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  call msgbox("修改成功","GoUrl","user_Edit.asp")
  response.End()
End IF

if len(sign)>200 then
	response.write "<script language='javascript'>" & VbCRlf
	response.write "alert('签名档不能多于200字！');" & VbCrlf
	response.write "history.go(-1);" & vbCrlf
	response.write "</script>" & VbCRLF
	Response.End	
end if

Dim StrSql,Rs
Set Rs=Server.CreateObject("adodb.recordset")
strsql="select * from [dd_user] where user_id="&session("user_id")&""
rs.open strsql,conn,1,1
%>
<TABLE width=778 border=0 align=center cellSpacing=0 cellPadding=0 >
  <TBODY>
    <TR> 
      <td width=182 valign=top>
           
               <!--#include file="center.asp"--></td><td class=line></td>
      <TD align="center" vAlign=top> 
     
          <form name="form1" method="post" action="" onsubmit="javascript:return check_null();">
           <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
  <TR> 
              <TD class=main_title_bsf colspan="2">资料修改</td></tr>    
        <tr>
          <td width="11%" class="tablebody1" align="center">说明：</td>
          <td width="85%" class="tablebody1">你所填写的信息越详细，那么你的[<font color=red>信用度</font>]就越高。</td>
        </tr>
 <tr>
          <td  class="tablebody1" align="center"><div align="right">
			帐号：</div></td>
          <td  class="tablebody1"><%=session("user_Name")%>
			<font color="#FF0000">不能修改</font></td>
        </tr>
 <tr>
          <td class="tablebody1" align="center"><div align="right">姓名：</div></td>
          <td class="tablebody1"><input name="user_realname" type="text" class="input2" id="user_realname" value="<%=rs("user_realname")%>" size="30">&nbsp;<font color=red>*显示店铺掌柜</font></td>
		
        </tr>
   <tr>
          <td class="tablebody1" align="center"><div align="right">性别：</div></td>
          <td class="tablebody1"><select name="user_sex" id="user_sex">
			  <option value="0">男生</option>
			    <option value="1">女生</option>


          </select></td>
        </tr>
     <tr>
          <td class="tablebody1" align="center"><div align="right">头像：</div></td>
          <td class="tablebody1"><img src="<%=rs("userface")%>"  name="tus"  width=32 height=32>　　<script>function showimage(){document.images.tus.src=""+document.form1.userface.options[document.form1.userface.selectedIndex].value+"";}</script><select name=userface size=1  id=userface onChange="showimage()">
<option value="<%=rs("userface")%>">默认</option>
<script>
for(i=1;i<=30;i++) {
document.write("<option value='images/face/"+i+".gif'>"+i+"</option>")
}
</script>
</select></td>
        </tr>
  
        <tr>
          <td class="tablebody1" align="center"><div align="right">QQ号：</div></td>
          <td class="tablebody1"><input name="user_qq" type="text" class="input2" id="user_qq" value="<%=rs("user_qq")%>" size="30" style="ime-mode:disabled">&nbsp;<font color=red>*主要联系方式</font></td>
        </tr>
 
        <tr>
          <td class="tablebody1" align="center"><div align="right">信箱：</div></td>
          <td class="tablebody1"><input name="user_email" type="text" class="input2" id="user_email" value="<%=rs("user_email")%>" size="30" style="ime-mode:disabled" maxlength="50">
			<font color="#FF0000">*最多50个字</font></td>
        </tr>
   <tr>
          <td class="tablebody1" align="center"><div align="right">主页：</div></td>
          <td class="tablebody1"><input name="user_home" type="text" class="input2" id="user_home" value="<%=rs("user_home")%>" size="30" maxlength="60">
			<font color="#FF0000">*最多60个字</font></td>
        </tr>
<tr>
          <td class="tablebody1" align="center"><div align="right">签名档：</div></td>
          <td class="tablebody1"><textarea name=sign rows=5 cols=65><%=rs("sign")%></textarea>
			<font color="#FF0000">*最多200个字</font></td>
        </tr>


        <tr>
          <td class="tablebody1">　</td>
          <td class="tablebody1"><input type="submit" name="Submit" class=input value="修改"></td>
        </tr>
      </table>
    </form>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"-->

<%
conn.Close
Set conn=Nothing
%>