📄 bupdate3.asp
字号:
<%@ Language=VBScript %>
<%option explicit
' on error resume next
dim conn,rs,sql,i,connstr
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from book "
rs.Open sql,conn,3,2
dim temp,book,author,price,publish,num,photo,memo
temp=Request.QueryString("id")
if temp<>"" then
do while not rs.EOF
if cstr(rs(0))=temp then exit do
rs.MoveNext
loop
rs("num")=Request("num")
rs("book")=request("book")
rs("author")=request("author")
rs("price")=request("price")
rs("publish")=request("publish")
rs("photo")=request("photo")
rs("class")=request("class")
rs("memo")=request("memo")
rs.Update
else
Response.Redirect "bupdate2.asp"
end if%>
<script language="javascript">
alert("你已经成功的修改了一条记录!")
top.document.location="manage.htm"
</script>
<HTML>
<HEAD>
</HEAD>
<BODY>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -