<% 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 %> 宁波德溢验货服务有限公司
     
     
     
     

     
    修改注册用户信息
    用 户 名: " size=30 maxLength=14>
    性别: > 男    > 女
    Email地址: " size=30 maxLength=50>
    主页: " size=30 maxLength=100>
    公司名称: " size=30 maxLength=20>
    收货地址: " size=30 maxLength=50>
    收货人: " size=30 maxLength=50>
    邮政编码: " size=30 maxLength=50>
    联系电话:
    " size=30 maxLength=50>
    传 真: " size=30 maxLength=50>

     
      
      Copyright © 2005-2008  NingBo DTAL Inspection service Co.,Ltd.     Address:No.76, LiangFeng Street, NingBo ZheJiang China
    Tel:86-574-81618172  87467489            Fax:86-574-87467489

    E-Mail:   dtalinspection@yahoo.com.cn
    <% end if end if rsUser.close set rsUser=nothing end if call CloseConn() %>