【正文】 lass)%/option % loop end if set rs = nothing set conn = nothing % /select** /td/tr tr td width=15% align=right height=30b文章標(biāo)題：/b/td td width=85% height=30input type=text name=txttitle size=70 class=smallinput maxlength=100/td /tr tr td width=15% align=right valign=topb文章內(nèi)容：/b/td td width=85%textarea rows=15 name=txtcontent cols=60 class=smallarea/textarea/td /tr tr td width=15% align=right height=30b相關(guān)文章：/b/td td width=85% height=30input type=text name=key size=70 class=smallinput maxlength=100/td /tr tr td width=15% align=right height=30b 作者：/b/td td width=85% height=30input type=text name=writer size=70 class=smallinput maxlength=100/td /tr tr td width=15% align=right height=30b 來(lái)源：/b/td td width=85% height=30input type=text name=writefrom size=70 class=smallinput maxlength=100/td /tr tr td width=15% align=right height=30b支持 HTML：/b/td td width=85% height=30input type=checkbox name=htmlable value=yes 選擇后文章全部支持 HTML 語(yǔ)法， UBB 語(yǔ)法將沒(méi)有任何作用 /td /tr /table /td /tr /table /center/divdiv align=centercenterpinput type=submit value= 添 加 name=cmdok class=buttonface input type=reset value= 清 除 name=cmdcancel class=buttonface/p /center/div /form /body /html 5． 5 修改刪除頁(yè)面 5． 5． 1 修改刪除頁(yè)面示例： 當(dāng)讀者進(jìn)入本頁(yè)面時(shí)，可以對(duì)新聞進(jìn)行刪除和修改操 作。trim(title)amp。 還 沒(méi) 有 任 何 文 章 /p else totalPut= if currentpage1 then currentpage=1 end if if (currentpage1)*MaxPerPagetotalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage, showContent showpage totalput,MaxPerPage, else if (currentPage1)*MaxPerPagetotalPut then (currentPage1)*MaxPerPage dim bookmark bookmark= showpage totalput,MaxPerPage, showContent showpage totalput,MaxPerPage, else currentPage=1 showpage totalput,MaxPerPage, showContent showpage totalput,MaxPerPage, end if end if end if set rs=nothing set conn=nothing sub showContent dim i i=0 % table class=border border=0 cellspacing=0 width=589 cellpadding=3 tr class=title td width=46 align=center height=20strongID/strong/td td width=400 align=center strong 文章/strong/td td width=68 align=center input type=39。/td /tr %do while not % tr class=tdbg td height=23 width=46p align=center%=rs(articleid)%/td td width=400a href=?id=%=rs(articleid)%amp。 name=39。/td /tr % i=i+1 if i=MaxPerPage then exit do loop % /table 5． 6 欄目管理頁(yè)面 5． 6． 1 欄目管理頁(yè)面示例： 欄目管理頁(yè)面如圖 56所示： 圖 56 欄目管理頁(yè)面 5． 6． 2 欄目管理頁(yè)面實(shí)現(xiàn)方法： 在欄目管理頁(yè)面里，可以分別對(duì)大小類(lèi)專(zhuān)題進(jìn)行“改名 ” 和“新增”以及“刪除”操作。amp。return false。 input type=hidden name=options value table border=0 cellpadding=0 cellspacing=0 width=95% align=center tr tddiv align=centercenterp 類(lèi) 別 ： select name=subject size=1 style=fontsize: 9pt %if and then option value=請(qǐng)?jiān)黾宇?lèi)別 else Do while not option value=39。 /td tdp 新 名 字 ： input type=text name=reTitle size=20 class=smallinput input type=submit value= 改名 name=B1 onclick==39。/td form method=POST action= align=center language=javascript onsubmit=return test(this)。del39。 + Cstr(rs2(Nclassid)) + 39。 tdp新類(lèi)別： input type=text name=newTitle size=20 class=smallinput input type=submit value= 新增 name=B3 onclick==39。 + rs(class) + /option Loop end if %input type=submit value= 刪除 name=B2 onclick==39。} return true。amp。要增加新的大類(lèi)，可直接在新類(lèi)別一欄中輸入新欄目的名稱(chēng)，然后點(diǎn)擊“新增”按鈕；刪除欄目可直接選擇要?jiǎng)h除的欄目名稱(chēng)，然后點(diǎn)擊“刪除”按鈕；要添加小類(lèi)，可先選擇小類(lèi)附屬的欄目名稱(chēng)，然后可以完成刪除、修改和新增功能。 value=39。Nclassid=%=rs(Nclassid)%%=rs(title)%/a/td td width=68p align=centerinput type=39。 class=buttonface value=39。 order by articleid desc else sql=select * from article order by articleid desc end if Set rs= () sql,conn,1,1 if and then p align=39。 圖 55 修改刪除頁(yè)面 5． 5． 2 修改刪除頁(yè)面的實(shí)現(xiàn)方法 ASP代碼如下： table border=0 width=92% cellspacing=0 cellpadding=0 tr td width=100%p align=centerbr 點(diǎn)擊相關(guān)軟件察看及修改軟件資料 br刪除軟件請(qǐng)選中相關(guān)軟 件然后點(diǎn)擊刪除 br form name=searchsoft method=POST action= 查找軟件 : input class=smallInput type=text name=txtitle size=13input type=submit value=查 詢(xún) name=title /form form method=Post action= div align=center % if title then sql=select * from article where title like 39。} } } centerpb添 加 文 章 /b/td td width=15% align=right valign=top height=20b文章類(lèi)型： /b/td % sql = select * from Aclass sql,conn,1,1 if and then 請(qǐng)先添加欄目。 var i。 onecount=0。 圖 53 管理系統(tǒng)頁(yè)面 5． 3． 2 管理系統(tǒng)首頁(yè)頁(yè)面實(shí)現(xiàn)方法 其主要 ASP 程序如下： 添加文章的鏈接頁(yè)面是： 修改刪除頁(yè)面的鏈接頁(yè)面是 : 欄目管理頁(yè)面的鏈接頁(yè)面是 : 用戶(hù)管理 頁(yè)面的鏈接頁(yè)面是： ◇ a href= target=right title