?? update.asp
字號(hào):
<!--#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>公司信息修改結(jié)果</title>
</head>
<body topmargin=0 marginheight=0 bgColor=#E6E5B8 text="#383098">
現(xiàn)在位置：<a href="index.asp">首頁</a>—<a href="postcom.htm">會(huì)員注冊(cè)</a>--修改結(jié)果
<%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>數(shù)據(jù)已經(jīng)成功更新！<p>"
Response.Write "<a href='comview.asp?userid="&id&"'> 查看結(jié)果 </a>"
Response.Write "</center></body></html>"
Conn.Close
Set Conn = Nothing %>
<%end if%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -