📄 editdo.asp
字号:
<HTML>
<HEAD>
<TITLE>处理提交的数据</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%
on error resume next
form_name=request.form("name")
form_address=request.form("year")
form_ID=request.form("ID")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=pubs;user id=sa;pwd=123"
'修改记录
form_name=Replace(form_name, "'", "''")
SQLstmt = "UPDATE authors SET "
SQLStmt = SQLstmt & "au_fname='" & form_name & "',"
SQLstmt = SQLstmt & "address='" & form_address& "'"
SQLStmt = SQLStmt & " WHERE AU_ID='" & form_id & "'"
Set RS = Conn.Execute(SQLStmt)
If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
end if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & "<P>"
response.write SQLstmt & "<P>"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "<P>"
response.write "Error desc. -> " & conn.errors(counter).description & "<P>"
next
else
response.write "<B>记录已经被修改!</b>"
' response.write "<br>" & SQLstmt
end if
rs.close
set rs=nothing
Conn.Close
set conn=nothing
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -