📄 addbook.asp
字号:
<!-- #include file="ADOFunctions.asp" -->
<link rel="stylesheet" href="css/admin.css" type="text/css">
<%
Dim bn,bsort,btitle,bauthor,bprice,bnumber
bn=Request("bn")
btitle=Request("btitle")
bsort=Request("bsort")
bauthor=Request("bauthor")
bprice=Request("bprice")
bnumber=Request("bnumber")
Dim rs
set rs=GetRecordset("BOOK.mdb","books")
rs.Addnew
rs("bookno")=bn
rs("sortno")=bsort
rs("title")=btitle
rs("author")=bauthor
rs("price")=bprice
rs("number")=bnumber
rs.update
rs.close
set rs=nothing
response.Write("新图书添加成功!")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -