博文
asp购物车前台代码(原创）(2006-11-04 14:54:00)
摘要：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%dim bookid,booknum,num,shopid,conn,connstr,rs,sqlconnstr="driver={microsoft access driver (*.mdb)}; dbq="&server.MapPath("book.mdb")set conn=server.CreateObject("adodb.connection")conn.open connstrset rs=server.CreateObject("adodb.recordset")sql="select * from orde"rs.open sql,conn,1,3if 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("userid")=session("userid") rs("date")=now() rs("num")=1 rs.update() else &n......