datainsert1.asp

《动态网页设计基础教程》,胡杰,科学出版社

<% @LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Expires=0
%>
<!--#include file="adovbs.inc"-->
<%
On Error resume Next'如果发生错误就直接执行出错语句下面的那句
'由表单取得用户数据
Dim BookID,Bookname,Bookconcern,Bookkind,Author,Price,Amount
BookID=Request.Form("txtBookID")
Bookname=Request.Form("txtBookname")
BookConcern=Request.Form("SelBookConcern")
Bookkind=Request.Form("SelBookkind")
Author=Request.Form("txtAuthor")
Price=Request.Form("txtPrice")
Amount=Request.Form("txtAmount")
'创建数据库连接
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("BookSys.mdb")
'建立RecordSet对象
Dim rsTest
Set rsTest=Server.CreateObject("ADODB.RecordSet")
'启动指定的数据表
rsTest.Open "BookCatalog",Conn,adOpenkeySet,adLockOptimistic
'添加一条记录
rsTest.AddNew
rsTest("图书代码")=BookID
rsTest("图书名称")=Bookname
rsTest("出版社")=Bookconcern
rsTest("图书种类")=Bookkind
rsTest("作者")=Author
rsTest("单价")=Price
rsTest("库存数量")=Amount
'将数据存回到数据表中
rsTest.Update
If Conn.Errors.Count>0 Then
	Response.Write "系统出现"&Conn.Errors.Count&"个错误！"
Else
	Response.Write "数据添加成功！"
	Response.Write "<A href=Book.htm>返回</A>"
End If
rsTest.Close
Set Conn=nothing
Set rsTest=nothing
%>