dataedit1.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 57 行

<% @LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
'确保在浏览器上看到的数据不是缓存在客户端的数据
'而是服务器端随时更新的数据
Response.Expires=0
%>
<!--#include file="adovbs.inc"-->
<%
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")
'建立RecordSet对象
Dim rsTest
Set rsTest=Server.CreateObject("ADODB.RecordSet")
'启动指定的数据表
rsTest.Open "BookCatalog",Conn,adOpenkeySet,adLockOptimistic
'修改一条记录
Do While Not rsTest.EOF 
	If rsTest("图书代码").Value=edit Then
		rsTest("图书代码")=BookID
		rsTest("图书名称")=Bookname
		rsTest("出版社")=Bookconcern
		rsTest("图书种类")=Bookkind
		rsTest("作者")=Author
		rsTest("单价")=Price
		rsTest("库存数量")=Amount
	End If
	rsTest.MoveNext
Loop
'将数据存回到数据表中
rsTest.Update'Batch
If Conn.Errors.Count>0 Then
	Response.Write "系统出现"&Conn.Errors.Count&"个错误！"
Else
	Response.Write "数据修改成功！"
	Response.Write "<A href=BookEdit.asp>返回</A>"
End If
rsTest.Close
Set Conn=nothing
Set rsTest=nothing
%>