addbook.asp

来自「我的课程设计」· ASP 代码 · 共 26 行

 <!-- #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("新图书添加成功!")
  %>