📄 update.asp
字号:
<!--#include file="../dbconn.asp"-->
<html>
<head>
<link rel="stylesheet" type="text/css" href="../css/cdol.css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<title>公司信息修改结果</title>
</head>
<body topmargin=0 marginheight=0 bgColor=#E6E5B8 text="#383098">
现在位置：<a href="index.asp">首页</a>—<a href="postcom.htm">会员注册</a>--修改结果
<%if Request.Form("id")="" then
Response.Redirect "comlogin.htm"
else%>
<%
ID=trim(Request.Form("ID"))
passwd=trim(Request.Form("user_pass_1"))
name=trim(Request.Form("company_name"))
owner=trim(Request.Form("company_owner"))
cclass=trim(Request.Form("company_class"))
address=trim(Request.Form("company_address"))
zipcode=trim(Request.Form("zipcode"))
email=trim(Request.Form("company_email"))
tel=trim(Request.Form("tel"))
fax=trim(Request.Form("fax"))
web=trim(Request.Form("web_site"))
info=trim(Request.Form("company_info"))
Dim SQL
SQL = "Update company " & "Set " & "pwd="
SQL = SQL & "'" & passwd & "'" & ", "
SQL = SQL & "name="
SQL = SQL & "'" & name & "'" & ", "
SQL = SQL & "owner="
SQL = SQL & "'" & owner & "'" & ", "
SQL = SQL & "class="
SQL = SQL & "'" & cclass & "'" & ", "
SQL = SQL & "address="
SQL = SQL & "'" & address & "'" & ", "
SQL = SQL & "zipcode="
SQL = SQL & "'" & zipcode & "'" & ", "
SQL = SQL & "email="
SQL = SQL & "'" & email & "'" & ", "
SQL = SQL & "tel="
SQL = SQL & "'" & tel & "'" & ", "
SQL = SQL & "fax="
SQL = SQL & "'" & fax & "'" & ", "
SQL = SQL & "web="
SQL = SQL & "'" & web & "'" & ", "
SQL = SQL & "info="
SQL = SQL & "'" & info & "'"
SQL = SQL & " where userid=" & ID
Conn.Execute SQL
Response. Write "<html><body><center>数据已经成功更新！<p>"
Response.Write "<a href='comview.asp?userid="&id&"'> 查看结果 </a>"
Response.Write "</center></body></html>"
Conn.Close
Set Conn = Nothing %>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -