dataedit.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
On Error resume Next
Dim edit
'取得要修改记录的标识
edit=Request("editid")
'由表单取得用户数据
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,StrSql
Fields=array("图书代码","图书名称","出版社","图书种类","作者","单价","库存数量")
Values=array(BookID,Bookname,Bookconcern,Bookkind,Author,Price,Amount)
'Sql="Updata BookCatalog("&Join(Fields,",")&") Values ('"&Join(Values,"','")&"')"
'修改数据
StrSql="Update BookCatalog Set "
Dim i
For i=0 To ubound(Fields)'返回指定数组维数的最大下标值
	StrSql=StrSql & Fields(i) & "='" &Values(i) &"'"
	If i<>ubound(Fields) Then
		StrSql=StrSql &","
	Else
		StrSql=StrSql & " Where 图书代码='" & edit&"'"
	End If
Next
'利用Connection的Execute方法执行SQL语句中的命令。
Conn.Execute StrSql
If Conn.Errors.Count>0 Then
	Response.Write "系统出现"&Conn.Errors.Count&"个错误！"
Else
	Response.Write "数据修改成功！"
	Response.Write "<A href=Bookedit.asp>返回</A>"
End If
Set Conn=Nothing
%>