📄 deleteborrow.asp
字号:
<!--#include file="Conn.asp"-->
<%
Dim id
Dim ISBN
ISBN=Request("ISBN")
id = Request("id")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From borrowlist Where id="&id
Rs.Open Sql,conn,3,3
Rs.Delete
Rs.Update
Rs.Close
Set Rs=nothing
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql1="Select * From bookInfo where ISBN = '"&ISBN&"'"
Rs1.Open Sql1,conn,3,3
Rs1("remain") = Rs1("remain") + 1
Rs1.Update
id=Rs1("id")
Rs1.Close
Set Rs1 = nothing
Conn.close
Set Conn=nothing
Response.Redirect "AdminBorrow.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -