博文
asp购物车前台代码(原创）(2006-11-04 14:54:00)
摘要：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim bookid,booknum,num,shopid,conn,connstr,rs,sql
connstr="driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("book.mdb")
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from orde"
rs.open sql,conn,1,3
if session("userid")=""then
response.Write("请先登录该系统，谢谢合作！")
response.End()
end if
if request.QueryString("mode")="add" then
index=0
shopid=request.QueryString("itemo")
for i=1 to rs.recordcount
if rs("bookid")=shopid then
index=i
exit for
end if
rs.movenext()
next
if index=0 then
rs.addnew()
rs("bookid")=shopid
rs("user......