bupdate3.asp

来自「在线图书销售系统源代码下载」· ASP 代码 · 共 42 行

ASP

42 行

<%@ 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>

bupdate3.asp - 源码说明

本页面展示了「在线图书销售系统源代码下载」中的 bupdate3.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与图书相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?