updata.asp

用ASP编写的网上购书系统,数据库部分用SQL编写

<% @ language="vbscript"%>
<%
dim act
dim db3
dim st3
dim i,ii
dim mysqlstr
act=request.form("ok")
if act="" then
response.redirect("default.asp")
elseif act="确 定" then
set db3=server.createobject("adodb.connection")
db3.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE= " & server.mappath("\bookstore\book.mdb")
st3=session("sqlstring2")
ii=request.form("sno").count()
for i=1 to ii
mysqlstr="update book set 书号='" & request.form("sno")(i) & "',书名='" & request.form("sname")(i) & "',作者='" & request.form("author")(i) & "',定价=" & request.form("price")(i) & " where 书号='" & request.form("hsno")(i) & "'"
response.write mysqlstr & "<br>"
db3.execute mysqlstr
next
db3.close
response.redirect("browse.asp")
end if
%>