?? 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("UserPassword") = UserPassword
rs("comefrom")=comefrom
rs("homepage")=homepage
rs.Update
rs.close
conn.close
if err.number<>0 then
err.clear
FoundError=true
ErrMsg="數(shù)據(jù)庫操作失敗，請以后再試"&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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -