【正文】
[3]石志國,李穎.ASP程序設(shè)計(jì)[M].清華大學(xué)出版社.。參考文獻(xiàn)[1]王珊,薩師煊.?dāng)?shù)據(jù)庫系統(tǒng)概論[M].高等教育出版社。學(xué)會(huì)了如何設(shè)計(jì)數(shù)據(jù)庫,如何利用面向?qū)ο笳Z言對數(shù)據(jù)庫進(jìn)行編程,如何實(shí)現(xiàn)數(shù)據(jù)庫與開發(fā)相應(yīng)程序的連接問題。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ì)通過對該網(wǎng)上購物系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn),使我們將所學(xué)的知識(shí)靈活的運(yùn)用起來,增強(qiáng)了對數(shù)據(jù)庫應(yīng)用方面的理解,積累了不少經(jīng)驗(yàn)。nbsp。nbsp。nbsp。nbsp。id=%=rs(id)%amp。目前還沒有記錄。讀取所有的商品類別數(shù)據(jù)到記錄集rs中 sql = SELECT * FROM GoodsType ORDER BY Id sql,conn,1,1 If Then trtd colspan=3 align=centerfont style=39。FONTSIZE: 9pt39。center39。 Where id=amp。newTitleamp。 Set rsInsert = (sql) If Not Then 已經(jīng)存在此商品類別,添加失敗! Else (Update GoodsType Set type=39。newTitleamp。判斷數(shù)據(jù)庫中是否存在此類別 sql = Select * from GoodsType where Type=39。修改記錄 ElseIf Soperate = edit Then newTitle = Request(txttitle) orgTitle = Request(sOrgTitle) 39。39。amp。 Set rsInsert = (sql) 39。 newTitle amp。判斷數(shù)據(jù)庫中是否存在此類別 sql = SELECT * FROM GoodsType WHERE Type=39。) (sqldelt) 商品類別已經(jīng)成功刪除! 39。刪除記錄 If Soperate=delete Then sqldelt = Delete From GoodsType Where id In(amp。處理添加、修改和刪除操作 Dim Soperate 39。j++) { (type,j).checked = false。 for(j=0。j++) { (type,j).checked = true。 for(j=0。 ()。 return false。id= + strid。 } else { strid = strid + , + typeid。 typeid = (type,j).id+。j++) { if ((type,j).checked) { n = n + 1。 for (j=0。 var strid,strurl。}function SelectChk(){ var s=false。 ()。 oth = oth+,width=+wth+,height=+hth 。 topth=50。 lefth =100。 topth=135。 lefth =212。 var lefth,topth。 charset=gb2312title商品類別管理/titlelink rel=stylesheet href=/shop//headscript language=JavaScriptfunction newtype(url) { var wth=。 = ?flag=0。idsamp。Rs(imageFile)) Set MyFileObject=() If ((trim(filename))) Then trim(filename) End If () Loop 39。) Set Rs = (sql) Do While Not 39。 input type=reset value= 重 寫 name=B2/td /tr /table /form/body/html 商品刪除模塊!include File=../!include file=htmlheadtitle刪除商品信息/title/headbody% Dim ids ids = (id) sql = Select * From Goods Where id In (amp。amp。amp。amp。讀取商品類別信息 sql=SELECT * FROM G