📄 edit.asp
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>edit.asp</title>
</head>
<body>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
username=request.Cookies("xingxing")("username")
response.Write(username)
strSql="Select user_id From user where username='" & username &"'"
rs.open strSql,conn,1,1
user_id=rs(0)
Dim strSql,varUsername,varName,verSex,verAdress,verEmail,verPostalcode,verFax,verTel
varUsername=Request.Form("username")
varName=Request.Form("name")
verSex=Request.Form("sex")
verAdress=Request.Form("adress")
verEmail=Request.Form("email")
verPostalcode=Request.Form("postalcode")
verFax=Request.Form("fax")
verTel=Request.Form("tel")
strSql="Update user set username='"& varUsername &"',name='"& varName &"',sex='"& verSex &"',tel='"& verTel &"',fax='" & verFax &"',adress='"& verAdress &"',email='"& verEmail &"',postalcode='"& verPostalcode &"' where user_id="& user_id
conn.Execute(strSql)
response.Cookies("xingxing")("username")=varUsername
Response.Redirect "right1.asp"
rs.close
set rs=nothing
closedb
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -