【正文】 也讓我看到了自己知識的欠缺，我會在今后的生活中努力學(xué)習(xí)，不斷的充實(shí)自己。此次網(wǎng)上系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)，使我學(xué)習(xí) ASP。 。這樣我們就創(chuàng)建了一個(gè) ASP 應(yīng)用程序。頁面的具體位置并不重要，但要讓這些頁面都位于一個(gè)公用的目錄結(jié)構(gòu)里。如果使用的是 Windows2020 以上版本的操作系統(tǒng)，那么添加 服務(wù)器非常簡單，只需要打開“控制面板”里面的“添加 /刪除程序”選項(xiàng)，然后選擇“添加 /刪除 Windows 組件”，最后選中彈出對話框“ Inter信息服務(wù)（ IIS）選項(xiàng)”，如圖 所示，按照系統(tǒng)的提示進(jìn)行安裝既可。 amp。 下面介紹 的實(shí)現(xiàn)方法。 if 0 if !isDate fe alert 截至日期格式不正確，請重新輸入！ 。 return false 。fe amp。 可以看到前面定義的函數(shù)都是為了實(shí)現(xiàn) Isdate 函數(shù)的功能。 y % 400 0 Days 28。 else if m 4 || m 6 || m 9 || m 11 Days 30。 var Days 31。 if the1st the2nd return false 。 。 參數(shù) val 表示要比較的數(shù)值，參數(shù) lo 表示比較范圍的下限，參數(shù) hi 表示比較范圍的上限。如果 theStr 為空，則返回 false；否則對 theStr 中的每個(gè)字符進(jìn)行判斷，如果有一個(gè)字符不是數(shù)字類型 使用IsDigital 函數(shù)判斷 則 返回 false。 i++ if isDigit i,i+1 false flag false。 3． IsInt 函數(shù) IsInt 函數(shù)的功能是判斷指定的字符串是否是整型數(shù)據(jù)，代碼如下： function isInt theStr var flag true。該模式描述在查找文字主體時(shí)待匹配的一個(gè)或多個(gè)字符串。 參數(shù) str 表示要判斷的字符串，如果它為空或長度為 0 則返回 true，否則返回 false。 新聞查詢管理頁面的腳本是 ，運(yùn)行界面如圖 所示 圖 新聞查詢 可以根據(jù)新聞的發(fā)布日期進(jìn)行查找，也可以根據(jù)新聞標(biāo)題和新聞內(nèi)容中包括的文字進(jìn)行查詢 在 中，用于編輯查詢條件的表單為 Form1，它的定義代碼如下： form name form1 method POST action 當(dāng)表單數(shù)據(jù)提交時(shí)，將執(zhí)行 。 。 處理刪除新聞操作的腳本為 ，參數(shù) id表示要?jiǎng)h除的新聞編號。 CInt Request Id sql 修改成功！ % 程序首先定義了替換函數(shù) ChangeChr ，然后接收從 中傳遞來的新聞數(shù)據(jù)，最后定義了 update 語句，根據(jù)接收到的數(shù)據(jù)更新新聞信息。 amp。, CateID amp。 , Title 39。 now amp。,‘ 39。對新聞?wù)倪M(jìn)行替換的函數(shù) Function ChangeChr str ChangeChr Replace str,[upload], div[space]align center img[space]src images/ ChangeChr Replace ChangeChr,[/upload], [space]border 0[space]width 300 ChangeChr Replace ChangeChr, , ChangeChr Replace ChangeChr, chr 13 , End Function rqtContent ChangeChr request txtcontent 39。代碼中省略的部分包括生成新聞?lì)悇e下拉菜單，以及根據(jù)新聞數(shù)據(jù)對表單中的各組件賦值。對新聞內(nèi)容進(jìn)行替換 txtcontent rsNews content txtcontent replace txtcontent, , chr 13 txtcontent replace txtcontent, , rqtContent replace txtcontent, 39。在 的開始部分，將使用下面的代碼包含相關(guān)文件，從而連接到數(shù)據(jù)庫，并判斷用戶的編輯權(quán)限。 修改新聞 在 中，每條新聞?dòng)涗浀暮竺娑加幸粋€(gè)修改超級鏈接。定義 sql 語句，為插入新聞?dòng)涗浂x記錄集 sql SELECT * FROM News sql, Conn, 1, 3 39。替換函數(shù) rqtContent Replace rqtContent,39。新聞?lì)悇e Dim sql 39。為了避免這種情況發(fā)生，這里將空格表示為 [space]，并存入數(shù)據(jù)庫，在讀取數(shù)據(jù)時(shí)再將其轉(zhuǎn)換為空格。被替換的功能字符串包括以下內(nèi)容： [upload]“ div[sp ace]align center img[space]src images/”，其中[space]是空格標(biāo)記，需要在顯示新聞?wù)臅r(shí)轉(zhuǎn)換： [/upload] 與 [upload]匹配使用，標(biāo)記上傳新聞圖片的結(jié)束。如果沒有填寫前面提到的信息，將彈出相關(guān)的對話框， ValidationPassed false，這樣表單數(shù)據(jù)將無法提交。 ValidationPassed false。 if e alert 請?zhí)顚懶侣剺?biāo)題 。變量ValidationPassed 的值將在對數(shù)據(jù)有效性進(jìn)行驗(yàn)證時(shí)被賦值。 的運(yùn)行界面如圖 所示： 圖 添加新聞 將新聞?lì)悇e添加到下拉菜單中，代碼如下： % Set rs 39。39。 % stitle% | % Loop % 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達(dá)指定的位置。顯示所有新聞?lì)悇e鏈接 Do While Not stitle rsCate CateName cid rsCate CateId 39。這樣，就可以通過單擊鏈接直達(dá)新聞?lì)悇e了。如果新聞?lì)悇e較多，則網(wǎng)頁會被拉長，使閱讀不便。_self39。20%39。 ALT 39。 + rs Title + 39。returnnewwin 。只顯示 10 條新聞 If t 11 Then Dim ndate ndate DateAdd d,3,date 39。按提交時(shí)間的降序顯示新聞標(biāo)題 sql SELECT * FROM NewsWHERECateId amp。顯示新聞?lì)悇e標(biāo)題 stitle + 39。cellspacing 1 cellpadding 2 39。依次顯示每個(gè)新聞?lì)悇e中最新的 10 條新聞 DO WHILE Not stitle rsCate CateName cid rsCate CateId 39。 font color red 新聞查詢 a href font color red style 39。TEXTDECORATION: none。顯示所有新聞?lì)悇e供點(diǎn)擊，點(diǎn)擊不同類別顯示該類別的新聞 39。 5 系統(tǒng)功能與主要模塊設(shè)計(jì) 數(shù)據(jù)庫連接設(shè)計(jì) 本主界面為 ，它的功能是顯示新聞?lì)悇e和每個(gè)類別中的 10 條新聞，并提供進(jìn)入管理界面 的鏈接。+c+39。 39。 font[space]face 39。 OPTION selected value 宋體 宋體 OPTION value 楷體 _GB2312 楷體 OPTION value 新宋體 新宋體 OPTION value 黑體 黑體 OPTION value 隸書 隸書 OPTION value Andale Mono Andale Mono OPTION value Arial Arial OPTION value Arial Black Arial Black OPTION value Book Antiqua Book Antiqua OPTION value Century Gothic Century Gothic OPTION value Comic Sans MS Comic Sans MS OPTION value Courier New Courier New OPTION value Geia Geia OPTION value Impact Impact OPTION value Tahoma Tahoma OPTION value TimesNew Roman Times New Roman OPTION value Trebuchet MS Trebuchet MS OPTION value Script MT Bold Script MT Bold OPTION value Stencil Stencil OPTION value Verdana Verdana OPTIONvalue Lucida Console Lucida Console 在下拉菜單中，定義了系統(tǒng)支持的字體名稱，下拉菜單的值與字體名稱相同。+mye+39。 else mye 39。+c+39。if .text! 39。nbsp；”，所以這里使用 [space]表示空格。 可以實(shí)現(xiàn)這些功能。判斷用戶權(quán)限，是否可以維護(hù)新聞，管理員可以編輯所有新聞，編輯者只能修改自己 的新聞 If rsNews Poster Session UserName Then 不是 Admin 或新聞的作者，無權(quán)修改！ End If End If End If % 如果當(dāng)前用戶是 Admin，則 不做任何操作；否則，程序?qū)⒏鶕?jù)參數(shù) Id 讀取新聞信息，并將 Poster 字段的值與當(dāng)前用戶名進(jìn)行比較。所以在修改和刪除新聞時(shí)，需要判斷當(dāng)前用戶是否是 Admin或指定新聞的作者。 DB If Err Then Set conn Nothing 數(shù)據(jù)庫連接出錯(cuò)，請檢查連接字串。 通用模塊 本系統(tǒng)中包含一些通用模塊，這些模塊以文件的形式保存，可以在其他文件中使用 include 語句包含這些模塊，使用其中定義的功能。 圖 數(shù)據(jù)庫 其中，新聞信息表如表 所示 ,表名： news 表 news 表 列名 數(shù)據(jù)類型