userchginfo.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
if Userid=empty then response.Redirect("../common/showerr.asp?ErrType=1")
%>
<%
	if request.QueryString("action")="chginfo" then
		dim usersex,useremail,userqq,usermsn,usersign,userintro,userface,userfaceheight,userfacewidth
		usersex=trim(request.Form("sex"))	
		useremail=trim(request.Form("email"))
		userqq=trim(request.Form("qq"))
		usermsn=trim(request.Form("msn"))
		usersign=trim(request.Form("sign"))
		userintro=trim(request.Form("intro"))	
		userface=trim(request.Form("face"))
		userfaceheight=trim(request.Form("faceheight"))
		userfacewidth=trim(request.Form("facewidth"))
		
		strSQL="select * from user_info where user_id="& userid
		objrs.open strsql,objconn,1,3
		objrs("user_sex")=usersex
		objrs("user_email")=useremail
		objrs("user_qq")=userqq
		objrs("user_msn")=usermsn
		objrs("user_sign")=usersign
		objrs("user_intro")=userintro
		objrs("user_face")=userface
		objrs("user_faceheight")=userfaceheight
		objrs("user_facewidth")=userfacewidth
		objrs.update
%>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle" bordercolor="#FFFFFF" >
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead"><img src="../resource/images/blog/li.gif" width="12" height="12"><a href="../blog/main.asp">56Blog</a>→<a href="userinfo.asp">我的信息</a>→修改信息结果</td>
  </tr>
</table>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
  <tr>
    <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">修改我的信息成功！</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C"class="tablehead">
      <table width="100%" border="0" cellspacing="5" cellpadding="5">
        <tr>
          <td><li><a href="../blog/main.asp">返回56Blog首页</a></td>
        </tr>
        <tr>
          <td><li><a href="userinfo.asp?UserID=<%=userid%>">返回我的信息</a> <meta http-equiv='refresh' content=2;url="userinfo.asp?UserID=<%=userid%>">
</td>
        </tr>
        <tr>
          <td><li><a href="userchginfo.asp">返回修改我的信息</a></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center"><a href="javascript:history.go(-1)"><b>返回</b></a></td>
  </tr>
</table>
<%	
	else
		strSQL="select * from user_info where user_id="& userid
		objrs.open strsql,objconn,1,3
%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<form name="chginf" method="post" action="userchginfo.asp?action=chginfo" onSubmit="return checkin(this)">
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle" bordercolor="#FFFFFF" >
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead"><img src="../resource/images/blog/li.gif" width="12" height="12"><a href="../blog/main.asp">56Blog</a><a href="../blog/main.asp"></a>→<a href="userinfo.asp">我的信息</a>→修改我的信息</td>
  </tr>
</table>
  <table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
    <tr>
      <td align="center"   bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">基本信息</td>
    </tr>
    <tr>
      <td bordercolor="#4C4C4C"><table width="100%"  border="0" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#BDBABD">
          <tr bgcolor="#FFFFFF">
            <td width="355" align="right">用户名：</td>
            <td width="349"><%=objrs("user_name")%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">性别：</td>
            <td>
              <input type="radio" name="sex" value="男" <%if objrs("user_sex")="男" then response.Write("checked=1")%>>
              男
              <input type="radio" name="Sex" value="女"<%if objrs("user_sex")="女" then response.Write("checked=1")%>>
              女</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">Email：</td>
            <td><input name="email" type="text" value="<%=objrs("user_email")%>" size=18></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">QQ：</td>
            <td><input name="qq" type="text" value="<%=objrs("user_qq")%>" size=18></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">MSN：</td>
            <td><input name="msn" type="text" value="<%=objrs("user_msn")%>" size=18></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">签名：(论坛显示)</td>
            <td><textarea name="sign" cols="40 " rows="6"><%=objrs("user_sign")%></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">自我简介：</td>
            <td><textarea name="intro" cols="40 " rows="6"><%=objrs("user_intro")%></textarea></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">            头像
              <input name="facetype" type="radio" value="1" checked>
            ：</td>
            <td><img src="../resource/images/userface/Image<%=objrs("user_face")%>.gif" width="<%=objrs("user_facewidth")%>" height="<%=objrs("user_faceheight")%>" align="top">
                <select name="face" onChange="chgface">
                  <%
					for  i=1 to 60%>
					<option value="<%=i%>">image<%=i%>
					<%next%>
              </select></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">            自定义头像
              <input name="facetype" type="radio" value="2">
            ：</td>
            <td><input type="file" name"uploadface" size="6" title="如果图像位置中有连接图片将以自定义的为主"> <input type="submit" name="Submit" value="上传"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td align="right">头像高度：</td>
            <td><input name="faceheight" type="text" value="<%=objrs("user_faceheight")%>" size=4></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td  align="right">头像宽度：</td>
            <td ><input name="facewidth" type="text" value="<%=objrs("user_facewidth")%>" size=4></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td  align="right">&nbsp;</td>
            <td >&nbsp;</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td  align="right">&nbsp;</td>
            <td align="right"><a href="userchgpsw.asp"><b>修改密码</b></a></td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td align="center" bordercolor="#4C4C4C" background="../resource/images/bj2.gif"><a href="javascript:history.go(-1)"></a>
      <input type="submit" name="Submit2" value="确定修改"></td>
    </tr>
  </table>
  <%end if%>
</form>
<script language="vbscript">
Function IsValidEmail(byRef Email)   
	Dim names, name, i, c
	IsValidEmail = True
	Names = Split(email, "@")
	IF UBound(names) <> 1 then
   		IsValidEmail = False
   		Exit Function
	End IF
	For Each name IN names
		if Len(name) <= 0 Then
     		IsValidEmail = False
     		Exit Function
   		End IF
   		For i = 1 to Len(name)
     		c = Lcase(Mid(name, i, 1))
     		IF InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c) Then
       			IsValidEmail = false
       			Exit Function
     		End IF
   		Next
   		IF Left(name, 1) = "." or Right(name, 1) = "." then
      		IsValidEmail = false
      		Exit Function
   		End IF
	Next
	IF InStr(names(1), ".") <= 0 Then
   		IsValidEmail = False
   		Exit Function
	End IF
	i = Len(names(1)) - InStrRev(names(1), ".")
	IF i <> 2 And i <> 3 Then
   		IsValidEmail = False
   		Exit Function
	End IF
	IF InStr(email, "..") > 0 Then
   		IsValidEmail = False
	End IF
End Function 
</script>

<script language="vbscript">
Function checkin(myform)
checkin=true

if (not IsNumberic(myform.qq.value)) then
  msgbox ("QQ输入出错！") 
  checkin= false
  exit function
end if

if (not isnull(myform.email.value)) then
  msgbox ("请填写确认密码！") 
  checkin= false
  exit function
end if

if trim(myform.email.value)="" then
  msgbox ("新密码与确认密码不一致，请重新输入！")
  checkin= false
  exit function
end if
end Function
</script>

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->