db.inc

一套简单的购物车程序

<!-- #include file="adovbs.inc" -->
<%
'--------------------------------------------------------------------
' 
' Constants added for shopping cart
'
' (c) 1999 Katrien De Graeve 
' 
' http://www.URLogy.com
'--------------------------------------------------------------------

Const maxCartItems = 10
Const cartAttributes = 5

'--- Shopping cart attributes ----
Const cProductid = 1
Const cProductCode = 2
Const cProductname = 3
Const cQuantity = 4
Const cUnitPrice = 5
%>

<%
Dim dbc
Dim strConn
Dim strpath

strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\a.shopKart10\admin\scart.mdb"
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
%>