【正文】
se sql = Insert into GoodsType(type) values(39。amp。newTitleamp。39。) (sql) 商品類別已經(jīng)成功添加! End if 39。修改記錄 ElseIf Soperate = edit Then newTitle = Request(txttitle) orgTitle = Request(sOrgTitle) 39。如果新類別名稱和舊的不同則執(zhí)行 If newTitleorgTitle Then 39。判斷數(shù)據(jù)庫(kù)中是否存在此類別 sql = Select * from GoodsType where Type=39。amp。newTitleamp。39。 Set rsInsert = (sql) If Not Then 已經(jīng)存在此商品類別,添加失敗! Else (Update GoodsType Set type=39。amp。newTitleamp。39。 Where id=amp。Cint(Operid)) 商品類別已經(jīng)成功修改! 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。讀取所有的商品類別數(shù)據(jù)到記錄集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%// 如果為修改和添加操作,則分別顯示下面的內(nèi)容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總結(jié)與體會(huì)通過對(duì)該網(wǎng)上購(gòu)物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn),使我們將所學(xué)的知識(shí)靈活的運(yùn)用起來(lái),增強(qiáng)了對(duì)數(shù)據(jù)庫(kù)應(yīng)用方面的理解,積累了不少經(jīng)驗(yàn)。在該系統(tǒng)設(shè)計(jì)過程中,對(duì)數(shù)據(jù)庫(kù)設(shè)計(jì)理念及思想上有更高的認(rèn)識(shí)。學(xué)會(huì)了如何設(shè)計(jì)數(shù)據(jù)庫(kù),如何利用面向?qū)ο笳Z(yǔ)言對(duì)數(shù)據(jù)庫(kù)進(jìn)行編程,如何實(shí)現(xiàn)數(shù)據(jù)庫(kù)與開發(fā)相應(yīng)程序的連接問題。為以后數(shù)據(jù)庫(kù)開發(fā)打下了堅(jiān)實(shí)的基礎(chǔ)。參考文獻(xiàn)[1]王珊,薩師煊.?dāng)?shù)據(jù)庫(kù)系統(tǒng)概論[M].高等教育出版社。[2]孫風(fēng)棟.Oracle數(shù)據(jù)庫(kù)基礎(chǔ)教程[M].電子工業(yè)出版社。[3]石志國(guó),李穎.ASP程序設(shè)計(jì)[M].清華大學(xué)出版社.。 19