sql2.asp

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

<% @ language="vbscript"%>
<%
session.timeout=900
dim st2,redirect,nflag
nflag=0
redirect=request.form("edit")
st2="(''"
for each name in request.form("choose")
if name<>"" then
nflag=nflag+1
st2=st2 & ",'" & name & "'"
end if
next
if nflag=0 then response.redirect("browse.asp")
st2=st2 & ")"
session("sqlstring2")=st2
if redirect="编辑" then
response.redirect("edit.asp")
else
dim db3
set db3=server.createobject("adodb.connection")
db3.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE= " & server.mappath("\bookstore\book.mdb")
st3=session("sqlstring2")
dim mysqlstr
mysqlstr="delete from book where 书号 in " & st3
db3.execute mysqlstr
response.redirect("browse.asp")
end if
%>