【文章內(nèi)容簡介】 nckname文本類型用戶名稱repiy備注類型管理答復(fù)內(nèi)容status識字類型是否顯示文本類型郵件userautoid數(shù)字類型用戶IDproductid數(shù)字類型產(chǎn)品IDlasttime數(shù)字類型對應(yīng)目錄屬性ID表39記錄用戶對查的評論，userautoid為0客人，不是網(wǎng)站用戶。，以方便其他頁面調(diào)用。 例程31 %const myDatabase=lvzhi 39。Database nameconst mydblocation=db/39。location of database relative to %例程31定義了兩個常量myDatabase和mydblocation，其中m,yDatabase為數(shù)據(jù)庫名稱，mydblocation為數(shù)據(jù)庫存放位置，如果需要修改數(shù)據(jù)庫存放位置和名稱，就修改myDatabase和mydblocation這2個變量的值。例程31中引入了頁面allmon，asp,allmon,asp頁面中定義了數(shù)據(jù)庫連接的操作函數(shù)，例程32為這些函數(shù)定義的參考代碼。 例呈32 打開數(shù)據(jù)庫 最頂級函數(shù)%39。 Debug MessageSub Debug (msg) msg amp。 brend sub39。 get ComeFrom Cookiefunction getComeFromCookie()dim retret=(efrom)if (efrom=null) thenret=end ifgetComeFromCookie=retend functionconst myCookieKey=lvzhiconst myUseCookies=noSub SetSess (field, value)If myUseCookiesYes then Session(field)=valueelse (myCookiekey) (field)=valueend if end subSub ProcessAccessOpen(connection)dim strconnstrconn = provider=。persist security info=false。data source= amp。 ( mydblocation amp。 myDatabase amp。 .mdb)Set connection = ()on error resume next strConnIf 0 thenSetSess Openerror, Open Messagesbr amp。 (0).description amp。 br amp。 GetSess(dbc)elseSetSess Openerror,end ifEnd Sub39。 main database open for shopSub ShopOpenDataBase (connection) ProcessAccessOpen connectionend sub39。 close database Sub CloseRecordSet (irs)set irs=nothingend sub39。***************Sub ShopCloseDatabase (connection)on error resume nextset connection=nothingEnd sub39。disable property 對應(yīng)的產(chǎn)品列表sub disableListFlower(property,value)dim retdim mynameif (property=0) thenmyname=List amp。property amp。 Felsemyname=List amp。property amp。 F amp。valueend if Application(myname)=end sub39。List property 對應(yīng)的產(chǎn)品列表function GetListFlower(property,value)dim retdim mynameif (property=0) thenmyname=List amp。property amp。 Felsemyname=List amp。property amp。 F amp。valueend if ret=Application(myname)if (ret=) thenret=GetListFlowerFromDB(property,value)Application(myname)=retend ifGetListFlower=retend function39。List property 對應(yīng)的產(chǎn)品列表 從數(shù)據(jù)庫function GetListFlowerFromDb(property,value)Dim ret,dbc,query,rs,myconditionshopopendatabase dbcquery = select result from navigateresult mycondition=where sort=0 and property=amp。property amp。 and value=amp。valuequery=query amp。 myconditionset rs = (query)ret= if not thenret=CStr(rs(result))end ifcloserecordset rsshopclosedatabase dbc GetListFlowerFromDb=retend function39。dir 對應(yīng)的產(chǎn)品列表function GetDirProduct(dir)dim retif (dir =null or dir=) thendir=end ifdim dirnamedirname=dir amp。 dirret=Application(dirname)if (ret=) thenret=GetDirProductFromDB(dir)Application(dirname)=retend ifGetDirProduct=retend function39。dir 對應(yīng)的產(chǎn)品列表,從數(shù)據(jù)庫讀出function GetDirProductFromDB(dir)dim retDim dbc,query,rsshopopendatabase dbcif (dir=) then 39。讀出所有產(chǎn)品query = select autoid from product order by priority elsequery = select autoid from product where Left(category,+Cstr(len(dir))+)=39。amp。diramp。39。end ifset rs = (query)ret= Do WHILE not if (ret=) thenret=CStr(rs(autoid))elseret=ret+,+CStr(rs(autoid))end if Loopcloserecordset rsshopclosedatabase dbc GetDirProductFromDb=retend function產(chǎn)品類定義39。Class Product39。public name,autoid,saleprice,Desc,marketPrice,vipPrice,netImageSmall,netImageMid,netImageBig39。End Class39。得到對應(yīng)的產(chǎn)品function GetProduct(ID)dim retif (ID =null or ID=) thenID=1end ifdim productnameproductname=P amp。 IDret=Application(productname)if ( not IsArray(ret)) thenret=GetProductFromDB(ID)Application(productname)=retend ifGetProduct=Application(productname)end function39。得到對應(yīng)的產(chǎn)品sub disableProduct(ID)dim retif (ID =null or ID=) thenID=1end ifdim productnameproductname=P amp。 IDApplication(productname)=end sub39。對應(yīng)的產(chǎn)品,從數(shù)據(jù)庫讀出dim FIELDAUTOID,FIELDNAME,FIELDSALEPRICE,FIELDDESC,FIELDMARKETPRICEdim FIELDVIPPRICE,FIELDNETIMAGESMALL,FIELDNETIMAGEMID,FIELDNETIMAGEBIG,FIELDCODEFIELDAUTOID=0FIELDNAME=1FIELDSALEPRICE=2FIELDDESC=3FIELDMARKETPRICE=4FIELDVIPPRICE=5FIELDNETIMAGESMALL=6FIELDNETIMAGEMID=7FIELDN