edit.asp

来自「ASP,版本,HUANYING NI DE XIAZAI ! LIANXIFAN」· ASP 代码 · 共 40 行

ASP
40
字号
<!--#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 + =
减小字号Ctrl + -
显示快捷键?