<%
dim Action,UserName,FoundErr,ErrMsg
dim rsUser,sqlUser
Action=trim(request("Action"))
UserName=trim(request("UserName"))
if UserName="" then
UserName=session("UserName")
end if
if UserName="" then
if Action="" then
response.redirect "Server.asp"
else
FoundErr=True
ErrMsg=ErrMsg & "
参数不足！
"
end if
end if
if FoundErr=true then
call WriteErrMsg()
else
Set rsUser=Server.CreateObject("Adodb.RecordSet")
sqlUser="select * from [User] where UserName='" & UserName & "'"
rsUser.Open sqlUser,conn,1,3
if rsUser.bof and rsUser.eof then
FoundErr=True
ErrMsg=ErrMsg & "
找不到指定的用户！
"
call writeErrMsg()
else
if Action="Modify" then
dim Sex,Email,Homepage
Sex=trim(Request("Sex"))
Email=trim(request("Email"))
Homepage=trim(request("Homepage"))
CompanyName=trim(request("CompanyName"))
Add=trim(request("Add"))
Receiver=trim(request("Receiver"))
Postcode=trim(request("Postcode"))
Phone=trim(request("Phone"))
Fax=trim(request("Fax"))
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 CompanyName="" then
founderr=true
errmsg=errmsg & "
公司名称不能为空
"
end if
if Add="" then
founderr=true
errmsg=errmsg & "
收货地址不能为空
"
end if
if Receiver="" then
founderr=true
errmsg=errmsg & "
收货人不能为空
"
end if
if Phone="" then
founderr=true
errmsg=errmsg & "
联系电话不能为空
"
end if
if FoundErr<>true then
rsUser("Sex")=Sex
rsUser("Email")=Email
rsUser("HomePage")=HomePage
rsUser("CompanyName")=CompanyName
rsUser("Add")=Add
rsUser("Receiver")=Receiver
rsUser("Postcode")=Postcode
rsUser("Phone")=Phone
rsUser("Fax")=Fax
rsUser("LastLoginTime")=Now()
rsUser.update
response.write""
else
call WriteErrMsg()
end if
else
%>
会员中心