%
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
%>
修改注册用户信息
<%
end if
end if
rsUser.close
set rsUser=nothing
end if
call CloseConn_User()
%>