【正文】 se sql = Insert into GoodsType(type) values(39。amp。newTitleamp。39。) (sql) 商品類別已經成功添加！ End if 39。修改記錄 ElseIf Soperate = edit Then newTitle = Request(txttitle) orgTitle = Request(sOrgTitle) 39。如果新類別名稱和舊的不同則執(zhí)行 If newTitleorgTitle Then 39。判斷數據庫中是否存在此類別 sql = Select * from GoodsType where Type=39。amp。newTitleamp。39。 Set rsInsert = (sql) If Not Then 已經存在此商品類別,添加失敗! Else (Update GoodsType Set type=39。amp。newTitleamp。39。 Where id=amp。Cint(Operid)) 商品類別已經成功修改！ End If End If End If%p align=39。center39。font style=FONTSIZE: 12ptb商 品 類 別 管 理/b/font/pcentertable border=1 cellspacing=0 width=90% bordercolorlight=4DA6FF bordercolordark=ECF5FF style=39。FONTSIZE: 9pt39。 tr td width=60% align=center bgcolor=FEEC85strong類 別/strong/td td width=20% align=center bgcolor=FEEC85strong修 改/strong/td td width=20% align=center bgcolor=FEEC85strong選 擇/strong/td /tr% Dim rs Set rs = () 39。讀取所有的商品類別數據到記錄集rs中 sql = SELECT * FROM GoodsType ORDER BY Id sql,conn,1,1 If Then trtd colspan=3 align=centerfont style=39。COLOR:Red39。目前還沒有記錄。/font/td/tr/table Else Do While Not % trtd%=rs(type)%/td td align=centera href=?Oper=updateamp。id=%=rs(id)%amp。name=%=rs(type)%修改/a/td td align=centerinput type=checkbox name=type id=%=rs(id)%/td/tr% () Loop%/table p align=center % End If If 0 Then % input type=button value=全 選 onclick=sltAll() amp。nbsp。amp。nbsp。input type=button value=清 空 onclick=sltNull() amp。nbsp。amp。nbsp。input type=submit value=刪 除 name=tijiao onclick=SelectChk() % End If%/form%// 如果為修改和添加操作，則分別顯示下面的內容If Soperate =update Then sTitle = (name)% form name=UFrom method=post action=?id=%=Operid%amp。Oper=edit div align=center input type=hidden name=sOrgTitle value=%=sTitle% font color=FFFFFFbfont color=000000類別名稱/font/b/font input type=text name=txttitle size=20 value=%=sTitle% input type=submit name=Submit value= 修 改 /div /form%Else% form name=AForm method=post action=?Oper=add div align=center font color=FFFFFFbfont color=000000類別名稱/font/b/font input type=text name=txttitle size=20 input type=submit name=Submit value= 添 加 /div /form%End If%input type=hidden name=type/BODY/HTML總結與體會通過對該網上購物系統(tǒng)的設計與實現，使我們將所學的知識靈活的運用起來，增強了對數據庫應用方面的理解，積累了不少經驗。在該系統(tǒng)設計過程中，對數據庫設計理念及思想上有更高的認識。學會了如何設計數據庫，如何利用面向對象語言對數據庫進行編程，如何實現數據庫與開發(fā)相應程序的連接問題。為以后數據庫開發(fā)打下了堅實的基礎。參考文獻[1]王珊，薩師煊．數據庫系統(tǒng)概論[M]．高等教育出版社。[2]孫風棟．Oracle數據庫基礎教程[M]．電子工業(yè)出版社。[3]石志國，李穎．ASP程序設計[M]．清華大學出版社.。 19