📄 savemodify.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="newconn.asp"-->
<%
dim UserID
dim sex
dim useremail
dim userpassword
dim comefrom
dim homepage
UserID=request("UserID")
sex=request.form("sex")
useremail=replace(trim(request.form("email")),"<","<")
userpassword=replace(trim(request.form("password")),"<","<")
comefrom=replace(trim(request.form("comefrom")),"<","<")
homepage=replace(trim(request.form("homepage")),"<","<")
on error resume next
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from user where UserID="&UserID
rs.open sql,conn,1,3
rs("sex")=sex
rs("useremail")=useremail
rs("UserPassword") = UserPassword
rs("comefrom")=comefrom
rs("homepage")=homepage
rs.Update
rs.close
conn.close
if err.number<>0 then
err.clear
FoundError=true
ErrMsg="数据库操作失败，请以后再试"&err.Description
response.write ErrMsg
else
response.write "<html><head>"
response.write "<link rel=stylesheet type=text/css href=forum.css>"
response.write "</head><body>"
response.write "<p align=center><br>修改成功！请记住你的密码。<br></p>"
response.write "</body></html>"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -