📄 updateuserinfo.asp

📁 大家好

💻 ASP

字号:

<%@ language="vbscript" %>
<%if request("username")="" or request("password")="" or request("verpsw")="" or request("email")="" or request("city")="" then
response.write "请填完整带*的空白处！<a href='javascript:history.back();'>返回前页</a>"
response.end
elseif trim(request("password"))<>trim(request("verpsw")) then
response.write "密码不对！<a href='javascript:history.back();'>返回前页</a>"
response.end
else

  DbPath = SERVER.MapPath("db1.mdb")
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
      sql="update user_info set password='"&trim(request("password"))&"',email='"&trim(request("email"))&"',homepage='"&trim(request("homepage"))&"',city='"&trim(request("city"))&"',sex='"&trim(request("sex"))&"',phone='"&trim(request("phone"))&"' "
 if request("born")<>"" then
sql=sql&",born='"&trim(request("born"))&"' "
end if
if trim(request("signs"))<>"" then
sql=sql&",signs='"&Server.htmlencode(request("signs"))&"'"
end if
sql=sql&"where username='"&trim(request("username"))&"'"
   conn.execute sql
conn.close
set conn=nothing
response.write "信息修改成功！<a href='default.asp'>返回首页登录</a>或继续浏览。"
end if
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -