【正文】 trSQL = select Name from catalog where FatherID=amp。要查詢某個(gè)分類 FID 的下一級(jí)分類，SQL 語句非常簡單： select Name from catalog where FatherID=FID 顯示這些類別時(shí)，我們簡單地用LI來做到： % REM oConn數(shù)據(jù)庫連接，調(diào)用 GetChildren 時(shí)已經(jīng)打開 REM FID當(dāng)前分類的編號(hào) Function GetChildren(oConn,FID) strSQL = select ID,Name from catalog where FatherID=amp。在設(shè)計(jì)一個(gè)電子商店時(shí)，要涉及到商品分類；在設(shè)計(jì)發(fā)布系統(tǒng)時(shí)，要涉及到欄目或者頻道分類；在設(shè)計(jì)軟件下載這樣的程序時(shí)，要涉及到軟件的分類；如此等等。采用的組件代碼如下：上傳 form 的寫作form enctype=multipart/formdata method=post action= name=Uploadenctype=multipart/formdata 是必須的，并且 method 必須是 post在上傳 Form 內(nèi)必須加上input type=hidden name=CopyrightInfo value=否則上傳組件將不能正常使用如果獲得上傳文件的文件個(gè)數(shù)set FileUp=() 文件個(gè)數(shù)：amp。圖 圖 圖書屬于多類的處理和圖片上載功能的實(shí)現(xiàn)：因?yàn)橐紤]到一本書可以屬于多個(gè)類，添加圖書時(shí)，需要在不同類別實(shí)現(xiàn)同一本書的添加。, 102)) AND ( CONVERT(DATETIME, 39。 Sub UpdateRecordselect case idfield case 用戶編號(hào) idfield=strCustID case 真實(shí)姓名 idfield=strName case 公司名 idfield=strCpyName case 住址 idfield=strAdd case 郵箱 idfield=strPostBox case 郵編 idfield=intPostCode case 電話號(hào)碼 idfield=strPhone case 電子信箱 idfield=strEmail case 用戶名 idfield=strUname case 密碼 idfield=strPasswd end selectsqltemp=select * from amp。 fieldvalue amp。 :/tdtdinput size=50 name= 28 / 34amp。which=%=which% p align=centerinput type=submit value=刪除 name=Delete input type=text name=key value= %=keyvalue% size=10bKey/b input type=text name=table value= %=dbtable% size=10input type=text name=id value= %=idfield% size=10/p /form%end subSub FormatRow (fieldname,fieldvalue, sRowColor,fieldname2)(tr bgcolor= amp。 next for i=0 to howmanyfields fieldvalue = rstemp(i).value fieldname = rstemp(i).name fieldname2 = rstemp(i).name select case fieldname case strCustID fieldname=用戶編號(hào) case strName fieldname=真實(shí)姓名27 / 34 case strCpyName fieldname=公司名 case strAdd fieldname=住址 case strPostBox fieldname=郵箱 case intPostCode fieldname=郵編 case strPhone fieldname=電話號(hào)碼 case strEmail fieldname=電子信箱 case strUname fieldname=用戶名 case strPasswd fieldname=密碼 end select FormatRow fieldname,fieldvalue,sRowColor,fieldname2 next (/tablep) (input type=submit name=action value=修改記錄) mylink= trtd valign=topa HREF= amp。 /fontp)(table cellpadding=1 cellspacing=1)39。做為后臺(tái)管理部分，它可以設(shè)定查找方式，如，可以設(shè)定按用戶名的升序來查看；可以設(shè)定任一字段的關(guān)鍵字來查找；還可以設(shè)定查找結(jié)果的顯示字段，如規(guī)定只顯示“用戶名”“真實(shí)姓名”兩個(gè)字段。 strong對(duì)不起，密碼錯(cuò)誤，請(qǐng)?jiān)僭囈淮?/strong/fontbrEnd If22 / 34End If書店訂單管理 當(dāng)管理員收到在線訂單后，首先關(guān)心的是訂單的內(nèi)容，包括訂單所訂購的圖書、訂購時(shí)間、訂購總消費(fèi)和用戶信息等等。amp。ImageNameamp。 )39。先刪除圖片Dim GetImgName,ImageName,ofs,filedelSet GetImgName= (Select strItmImg From tblStItm Where strItmID =39。刪除 tblStItm 表中的商品 = 0 = strItmID = amp。) = LSAdminPassword) Then39。) )（2） 圖書信息的刪除與修改圖（ ）可以進(jìn)一步進(jìn)入小類，復(fù)選實(shí)現(xiàn)圖書的刪除主要代碼實(shí)現(xiàn)：%21 / 34On Error resume next39。,39。開本InsertItem(strBkRemark)=ff(10) 39。一句話介紹InsertItem(strBkAuthor)=ff(4) 39。內(nèi)容簡介InsertItem(dblItmCost)=ff(2) 39。出版社InsertItem(strItmID)=NewID 39。))39。 filemove= ((temp/amp。寫成完整文件名elsepic_name=0end ifnext set FileUp=nothing 39。.amp。if =name then name=next39。 strong對(duì)不起，密碼錯(cuò)誤，請(qǐng)?jiān)僭囈淮?/strong/fontbrEnd If17 / 34圖書信息錄入管理1）圖書信息數(shù)據(jù)庫設(shè)計(jì)，主要用到表有圖書目錄表（tblstcat）圖書信息表（tblstltm）和圖書所屬目錄表（tblltmcat） 表 tblStItm 表字段名稱 說名 數(shù)據(jù)類型strMfgName 圖書出版社名稱 文本strItmID 圖書 ID 文本strPartNum ISN 號(hào) 文本strItmName 圖書名 文本glbItmDesc 圖書簡介 備注dblItmCost 圖書原價(jià) 貨幣dblItmDiscount 圖書現(xiàn)價(jià) 貨幣strItmImg 圖書圖片 文本strTeaser 圖書一句話描述 文本strBkAuthor 圖書作者 文本strBkPbDate 出版日期 文本strBkWords 圖書字?jǐn)?shù) 文本strBkFormat 圖書開本 文本strBkRemark 圖書備注 文本intItmFlag 圖書標(biāo)志（一般推薦停用） 數(shù)字表 tblItmCat 表（考慮到一本圖書可能屬于多個(gè)類別）字段名稱 說明 數(shù)據(jù)類型intCatIDFK 圖書所屬類別 ID（與tblStCat 表關(guān)聯(lián)）數(shù)字strItmIDFK 圖書 ID（與 tblStCat 表關(guān)聯(lián)） 文本 2）圖書信息管理 （1）圖書信息添加 除了一般信息的錄入外，還提供了圖片上載瀏覽框和目錄復(fù)選框。如果 tblItmCat 中此商品為空，則要?jiǎng)h除 tblStItm 中對(duì)應(yīng)商品（過程）39。Set objRecDelCats = (strSQL)Do While NOT Redim Preserve arDelCats(UBound(arDelCats)+1)arDelCats(UBound(arDelCats)) = objRecDelCats(intCatID)DelCats intLevel+1,objRecDelCats(intCatID)LoopEnd Sub39。Have a quick tidy up. If only house work was this easy.Set objRec = NothingSet objConn = Nothing%/td/tr/table/body/html3）圖書目錄刪除（圖 ） 圖 主要程序代碼：39。set objRec = (strSQL)%form action=?catid=%=(catid)%amp。39。39。如果有提交