datainsert.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
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")
'构建连接字符串数组
Dim Fields,Values,Sql
Fields=array("图书代码","图书名称","出版社","图书种类","作者","单价","库存数量")
Values=array(BookID,Bookname,Bookconcern,Bookkind,Author,Price,Amount)
Sql="Insert Into BookCatalog("&Join(Fields,",")&") Values ('"&Join(Values,"','")&"')"
'添加数据
Conn.Execute Sql
If Conn.Errors.Count>0 Then
	Response.Write "系统出现"&Conn.Errors.Count&"个错误！"
Else
	Response.Write "数据添加成功！"
	Response.Write "<A href=Book.htm>返回</A>"
End If
Set Conn=Nothing
%>