开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
saveuserinfo.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：3k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

saveuserinfo.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!--#include file="md5.asp"-->
  3. <%dim action,username
  4. action=request.QueryString("action")
  5. username=request.cookies("Cnhww")("username")
  6. select case action
  7. '//收货人信息
  8. case "shouhuoxx"
  9. set rs=server.CreateObject("adodb.recordset")
  10. rs.Open "select * from [YX_User] where name='"&username&"' ",conn,1,3
  11. rs("shouname")=trim(request("shouname"))
  12. rs("shengshi")=trim(request("shengshi"))
  13. rs("reglx")=2
  14. rs("szSheng")=trim(request("szSheng"))
  15. rs("szShi")=trim(request("szShi"))
  16. rs("shouhuodizhi")=trim(request("shouhuodizhi"))
  17. rs("youbian")=trim(request("youbian"))
  18. rs("usertel")=trim(request("usertel"))
  19. rs("songhuofangshi")=trim(request("songhuofangshi"))
  20. rs("zhifufangshi")=trim(request("zhifufangshi"))
  21. rs.Update
  22. rs.Close
  23. set rs=nothing
  24. response.Write "<script language=javascript>alert('您的详细资料信息保存成功！');</script>"
  25. response.redirect "myuser.asp?action=shouhuoxx"
  26. response.End
  27. case "userziliao"
  28. set rs=server.CreateObject("adodb.recordset")
  29. rs.open "select * from [YX_User] where name='"&username&"'",conn,1,3
  30. rs("useremail")=trim(request("useremail"))
  31. if request("ifgongkai")="" then 
  32. rs("ifgongkai")=0
  33. else
  34. rs("ifgongkai")=trim(request("ifgongkai"))
  35. end if
  36. rs("userzhenshiname")=trim(request("userzhenshiname"))
  37. rs("sfz")=trim(request("sfz"))
  38. rs("sex")=trim(request("shousex"))
  39. rs("nianling")=trim(request("nianling"))
  40. rs("szsheng")=trim(request("szsheng"))
  41. rs("szshi")=trim(request("szshi"))
  42. rs("shouhuodizhi")=trim(request("shouhuodizhi"))
  43. rs("usertel")=trim(request("usertel"))
  44. rs("youbian")=trim(request("youbian"))
  45. rs("qq")=trim(request("qq"))
  46. rs("mail")=trim(request("useremail"))
  47. rs("homepage")=trim(request("homepage"))
  48. rs("content")=trim(request("content"))
  49. rs.update
  50. rs.close
  51. set rs=nothing
  52. response.Write "<script language=javascript>alert('您的个人资料修改成功！');window.location.href='"&request.servervariables("http_referer")&"';</script>"
  53. response.end
  54. case "savepass"
  55. set rs=server.CreateObject("adodb.recordset")
  56. rs.open "select * from [YX_User] where name='"&username&"'",conn,1,3
  57. if trim(request("userpassword"))<>"" then
  58. rs("password")=md5(trim(request("userpassword")))
  59. end if
  60. rs.update
  61. rs.close
  62. set rs=nothing
  63. response.Write "<script language=javascript>alert('密码更改成功！');window.location.href='"&request.servervariables("http_referer")&"';</script>"
  64. response.End
  65. case "repass"
  66. set rs=server.CreateObject("adodb.recordset")
  67. rs.open "select password from [YX_User] where name='"&trim(request("username2"))&"'",conn,1,3
  68. rs("password")=md5(trim(request("userpassword2")))
  69. rs.update
  70. rs.close
  71. set rs=nothing
  72. response.Write "<script language=javascript>alert('您的密码取回成功，请登陆！');history.go(-1);</script>"
  73. end select
  74. %>