【正文】 ineheight:150% %function gotTopic(str,strlen) dim l,t,c, i l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c255 then t=t+2 else t=t+1 end if if t=strlen then gotTopic=left(str,i)amp。,dateandtime,Date())=amp。 圖 53 管理系統(tǒng)頁面 5． 3． 2 管理系統(tǒng)首頁頁面實現(xiàn)方法 其主要 ASP 程序如下： 添加文章的鏈接頁面是： 修改刪除頁面的鏈接頁面是 : 欄目管理頁面的鏈接頁面是 : 用戶管理 頁面的鏈接頁面是： ◇ a href= target=right title=直接添加下載地址等信息 添加文章 /abr %if session(flag)3 then% ◇ a href= target=right修改刪除 /abr %if session(flag)=1 then% ◇ a href= target=right欄目管理 /abr ◇ a href= target=right用戶管理 /abr ◇ a href= target=_top返回首頁 /abr ◇ a href= target=_top退出系統(tǒng) 5． 4 添加文章頁面 5． 4． 1添加文章頁面示例： 圖 54 文章添加頁面 5． 4． 2 添加文章頁面實現(xiàn)方法： 管理員添加文章時，必須首先選擇新聞的從屬大小類別，輸入文章的標(biāo)題，必 要的話，還可以加入 UBB 標(biāo)簽，然后輸入新聞內(nèi)容，最后填寫相關(guān)文章、作者以及來源。 var i。 圖 55 修改刪除頁面 5． 5． 2 修改刪除頁面的實現(xiàn)方法 ASP代碼如下： table border=0 width=92% cellspacing=0 cellpadding=0 tr td width=100%p align=centerbr 點擊相關(guān)軟件察看及修改軟件資料 br刪除軟件請選中相關(guān)軟 件然后點擊刪除 br form name=searchsoft method=POST action= 查找軟件 : input class=smallInput type=text name=txtitle size=13input type=submit value=查 詢 name=title /form form method=Post action= div align=center % if title then sql=select * from article where title like 39。 class=buttonface value=39。 value=39。amp。 + rs(class) + /option Loop end if %input type=submit value= 刪除 name=B2 onclick==39。 + Cstr(rs2(Nclassid)) + 39。/td form method=POST action= align=center language=javascript onsubmit=return test(this)。 input type=hidden name=options value table border=0 cellpadding=0 cellspacing=0 width=95% align=center tr tddiv align=centercenterp 類 別 ： select name=subject size=1 style=fontsize: 9pt %if and then option value=請增加類別 else Do while not option value=39。amp。 name=39。 還 沒 有 任 何 文 章 /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。selclass sql,conn,1,1 if not( and ) then % option selected value=%=rs(NclassID)%%=rs(Nclass)%/option % do while not % option value=%=rs(NclassID)%%=rs(Nclass)%/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 來源：/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 語法， UBB 語法將沒有任何作用 /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 修改刪除頁面 5． 5． 1 修改刪除頁面示例： 當(dāng)讀者進(jìn)入本頁面時，可以對新聞進(jìn)行刪除和修改操 作。 function changelocation(locationid) { = 0。每個級別的管理員擁有不同的管理權(quán)限。 order by hits desc,title case 2 sql=SELECT top 10 * FROM article where DateDiff(39。 TD class=title b近期圖片新聞 /b/TD img src=pic/ width=180 height=135br 東風(fēng)汽車公司領(lǐng)導(dǎo)李紹燭副總經(jīng)理致辭。cstr(classid) sql,conn,1,1 if and then 還沒有任何欄目 else do while not % (4)小類新聞的最新新聞，具體的代碼如下： 從數(shù)據(jù)庫的 article、 Anclass 表中檢索相關(guān)文章、文章 ID、文章標(biāo)題、文章發(fā)表日期和時間、點擊次數(shù)、新聞大類 ID、從屬小類 ID、從屬小類標(biāo)題。dbamp。這樣我們