<%
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,QQ,MSN
Sex=trim(Request("Sex"))
Email=trim(request("Email"))
Homepage=trim(request("Homepage"))
Comane=trim(request("Comane"))
Add=trim(request("Add"))
Somane=trim(request("Somane"))
Zip=trim(request("Zip"))
Phone=trim(request("Phone"))
Fox=trim(request("Fox"))
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 Comane="" then
founderr=true
errmsg=errmsg & "
公司名称不能为空
"
end if
if Add="" then
founderr=true
errmsg=errmsg & "
收货地址不能为空
"
end if
if Somane="" 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("Comane")=Comane
rsUser("Add")=Add
rsUser("Somane")=Somane
rsUser("Zip")=Zip
rsUser("Phone")=Phone
rsUser("Fox")=Fox
rsUser.update
response.write""
'call WriteSuccessMsg("会员资料修改成功！")
else
call WriteErrMsg()
end if
else
%>
<%
Id=Session("UserName")
set Rst = Server.CreateObject("ADODB.recordset")
sql="select * from User where UserName='"&Id&"'"
rst.open sql,conn,1,1
%>
上海得远国际货运代理有限公司
--空运在线
合作伙伴
