<% if CheckUserLogined()=False then response.Redirect "User_Login.asp" end if dim Action,FoundErr,ErrMsg dim rsUser,sqlUser Action=trim(request("Action")) if Action="Modify" then UserName=trim(request("UserName")) else UserName=Trim(Request.Cookies("asp163")("UserName")) end if if UserName="" then FoundErr=True ErrMsg=ErrMsg & "
  • 参数不足!
  • " end if if FoundErr=true then call WriteErrMsg() else Set rsUser=Server.CreateObject("Adodb.RecordSet") sqlUser="select * from " & db_User_Table & " where " & db_User_Name & "='" & UserName & "'" rsUser.Open sqlUser,Conn_User,1,3 if rsUser.bof and rsUser.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到指定的用户!
  • " call writeErrMsg() else if Action="Modify" then dim Sex,Email,Homepage,Company,Department,jszc Sex=trim(Request("Sex")) Email=trim(request("Email")) Homepage=trim(request("Homepage")) OICQ=trim(request("OICQ")) MSN=trim(request("MSN")) if Sex="" then founderr=true errmsg=errmsg & "
  • 性别不能为空
  • " else sex=cint(sex) if Sex<>0 and Sex<>1 then Sex=1 end if end if if Email="" then founderr=true errmsg=errmsg & "
  • Email不能为空
  • " else if IsValidEmail(Email)=false then errmsg=errmsg & "
  • 您的Email有错误
  • " founderr=true end if end if if FoundErr<>true then rsUser(db_User_Sex)=Sex rsUser(db_User_Email)=Email rsUser(db_User_Homepage)=HomePage rsUser(db_User_QQ)=OICQ rsUser(db_User_Msn)=MSN rsUser.update call WriteSuccessMsg("成功修改用户信息!") else call WriteErrMsg() end if else %> 修改注册用户信息
    修改注册用户信息
    用 户 名: <%=Trim(Request.Cookies("asp163")("UserName"))%> ">
    性别: > 男    > 女
    Email地址:
    主页:
    OICQ号码:
    MSN:
    <% end if end if rsUser.close set rsUser=nothing end if call CloseConn_User() %>