📄 updateuserinfo.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
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
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("yborn")<>"" then
sql=sql&",born='"&request("yborn")&"-"&request("mborn")&"-"&request("dborn")&"'"
end if
if trim(request("signs"))<>"" then
sql=sql&",signs='"&Server.htmlencode(request("signs"))&"'"
end if
sql=sql&" where username='"&trim(request("username"))&"'"
'response.write sql
'response.write vartype(trim(request("born")))
'response.end
conn.execute sql
conn.close
set conn=nothing
response.write "信息修改成功！<a href='default.asp' target='_parent'>返回首页登录</a>或继续浏览。"
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -