【正文】 | % Loop % 如果網(wǎng)頁中顯示的內(nèi)容較多，通常需要通過定義書簽的方法使用戶快速到達(dá)指定的位置。在FrontPage 中選擇“插入” /“書簽”菜單項(xiàng)，可以在指定位置插入書簽。39。39。 的運(yùn)行界面如圖 所示： 圖 添加新聞 將新聞?lì)悇e添加到下拉菜單中，代碼如下： % Set rs 39。編輯新聞內(nèi)容表單的定義代碼如下： form action method POST name myform align center onsubmit return ValidationPassed 可以看到，表單名為 myfom，表單提交后，將由 處理表單數(shù)據(jù)。變量ValidationPassed 的值將在對(duì)數(shù)據(jù)有效性進(jìn)行驗(yàn)證時(shí)被賦值。 if ctedIndex 0 alert 請(qǐng)選擇新聞?lì)悇e ValidationPassed false。 if e alert 請(qǐng)?zhí)顚懶侣剺?biāo)題 。 return ValidationPassed。 ValidationPassed false。 這是一段 JavaScript 代碼，參數(shù) obj 接受 的值，表示表單 myfom。如果沒有填寫前面提到的信息，將彈出相關(guān)的對(duì)話框， ValidationPassed false，這樣表單數(shù)據(jù)將無法提交。 下面是 的部分代碼。被替換的功能字符串包括以下內(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é)束。nbsp；”； chr 13 回車符將被替換為 。為了避免這種情況發(fā)生，這里將空格表示為 [space]，并存入數(shù)據(jù)庫，在讀取數(shù)據(jù)時(shí)再將其轉(zhuǎn)換為空格。新聞標(biāo)題 Dim content 39。新聞?lì)悇e Dim sql 39。記錄集變量 title Request title title Replace title,39。替換函數(shù) rqtContent Replace rqtContent,39。 是特殊字符，所以需要將新聞標(biāo)題和正文中的單引號(hào)替換為全角單引號(hào) ‘ ，并使用 ChangeChr 函數(shù)對(duì)新聞?wù)倪M(jìn)行轉(zhuǎn)換。定義 sql 語句，為插入新聞?dòng)涗浂x記錄集 sql SELECT * FROM News sql, Conn, 1, 3 39。釋放資源，顯示提示信息 set rs nothing 添加成功！ 本節(jié)前面介紹插入新數(shù)據(jù)時(shí)，都是采用定義 INSERT 語句的方法。 修改新聞 在 中，每條新聞?dòng)涗浀暮竺娑加幸粋€(gè)修改超級(jí)鏈接。參數(shù) id 表示新聞編號(hào)。在 的開始部分，將使用下面的代碼包含相關(guān)文件，從而連接到數(shù)據(jù)庫，并判斷用戶的編輯權(quán)限。讀取指定新聞數(shù)據(jù) Set rsNews SELECT * FROM News WHERE id amp。對(duì)新聞內(nèi)容進(jìn)行替換 txtcontent rsNews content txtcontent replace txtcontent, , chr 13 txtcontent replace txtcontent, , rqtContent replace txtcontent, 39。, 39。代碼中省略的部分包括生成新聞?lì)悇e下拉菜單，以及根據(jù)新聞數(shù)據(jù)對(duì)表單中的各組件賦值。 與 相似，在提交新聞信息時(shí)，需要首先執(zhí)行 form_onsubmit函數(shù)，對(duì)用戶輸入數(shù)據(jù)的有效性進(jìn)行驗(yàn)證。對(duì)新聞?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。,‘ 39。,‘ 39。設(shè)置 UPDATE 語句，更新新聞信息 sql UPDATE News SET Posttime 39。 now amp。, Attpic amp。 , Title 39。 title _amp。, CateID amp。 , amp。 amp。 39。 CInt Request Id sql 修改成功！ % 程序首先定義了替換函數(shù) ChangeChr ，然后接收從 中傳遞來的新聞數(shù)據(jù)，最后定義了 update 語句，根據(jù)接收到的數(shù)據(jù)更新新聞信息。 刪除新聞 在刪除新聞之前，需要選中相應(yīng)的復(fù)選框。 處理刪除新聞操作的腳本為 ，參數(shù) id表示要?jiǎng)h除的新聞編號(hào)。 ids amp。 。 新聞查詢 如果系統(tǒng)中新聞數(shù)量比較多，那么只按照分類察看新聞顯然是不夠的。 新聞查詢管理頁面的腳本是 ，運(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í)行 。 1． IsEmpty 函數(shù) IsEmpty 函數(shù)的功能是判斷字符串是否為空，代碼如下： function isEmpty str if str null || 0 return true。 參數(shù) str 表示要判斷的字符串，如果它為空或長(zhǎng)度為 0 則返回 true，否則返回 false。 if ! s return false return true 參數(shù) s 表示要判斷的字符串。該模式描述在查找文字主體時(shí)待匹配的一個(gè)或多個(gè)字符串。正則表達(dá)式中的 Execute 方法對(duì)指定的字符串執(zhí)行正則表達(dá)式搜索。 3． IsInt 函數(shù) IsInt 函數(shù)的功能是判斷指定的字符串是否是整型數(shù)據(jù)，代碼如下： function isInt theStr var flag true。 else for var i 0。 i++ if isDigit i,i+1 false flag false。 return flag 。如果 theStr 為空，則返回 false；否則對(duì) theStr 中的每個(gè)字符進(jìn)行判斷，如果有一個(gè)字符不是數(shù)字類型 使用IsDigital 函數(shù)判斷 則 返回 false。 4． IsBetween 函數(shù) IsBetween 函數(shù)的功能是判斷指定數(shù)據(jù)是否在兩個(gè)數(shù)字之間，代碼如下： function isBetween val, lo, hi if val lo || val hi return false 。 參數(shù) val 表示要比較的數(shù)值，參數(shù) lo 表示比較范圍的下限，參數(shù) hi 表示比較范圍的上限。 5． IsIDate 函數(shù) IsDate 函數(shù)的功能是判斷指定數(shù)據(jù)是否是日期型數(shù)據(jù)，代碼如下： function isDate theStr var the1st 39。 。39。 if the1st the2nd return false 。 var m the1st+1,the2nd 。 var Days 31。 else if 4 return false 。 else if m 4 || m 6 || m 9 || m 11 Days 30。 else if y % 100 0 amp。 y % 400 0 Days 28。 if isBetween d, 1, Days false return false 。 可以看到前面定義的函數(shù)都是為了實(shí)現(xiàn) Isdate 函數(shù)的功能。 Button2_onclick 函數(shù)，代碼如下： function button2_onclick // 字段不能都為空，如果發(fā)布日期為空，則查詢條件不能空 if fe amp。fe amp。 alert 查詢條件不能都為空！ 。 return false 。 fs 。 if 0 if !isDate fe alert 截至日期格式不正確，請(qǐng)重新輸入！ 。 return false 。 下面介紹 的實(shí)現(xiàn)方法。在 中，定義了一個(gè)函數(shù) GetUserName ，它的功能是根據(jù)用戶名返回用戶的真實(shí)姓名，代碼如下： % 39。 amp。 6 調(diào)試 服務(wù)器配置 下面介紹新聞發(fā)布系統(tǒng)的服務(wù)器配置過程。如果使用的是 Windows2020 以上版本的操作系統(tǒng)，那么添加 服務(wù)器非常簡(jiǎn)單，只需要打開“控制面板”里面的“添加 /刪除程序”選項(xiàng)，然后選擇“添加 /刪除 Windows 組件”，最后選中彈出對(duì)話框“ Inter信息服務(wù)（ IIS）選項(xiàng)”，如圖 所示，按照系統(tǒng)的提示進(jìn)行安裝既可。這樣，就必須創(chuàng)建一個(gè) ASP 應(yīng)用程序來處理用戶登錄次數(shù)信息 。頁面的具體位置并不重要，但要讓這些頁面都位于一個(gè)公用的目錄結(jié)構(gòu)里。單擊鼠標(biāo)右鍵，選擇“屬性”命令，彈出如圖 所示的屬性對(duì)話框，在應(yīng)用程序設(shè)置里，創(chuàng)建 ASP 應(yīng)用程序。這樣我們就創(chuàng)建了一個(gè) ASP 應(yīng)用程序。 簡(jiǎn)介： AspWebServer 服務(wù)器 顧名思義，此軟件是一款小巧輕盈的 Asp Web 服務(wù)器，它能幾乎非常完美的支持 ASP。 。 如果不使用 IIS 就可以選擇這種簡(jiǎn)單的方法。此次網(wǎng)上系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)，使我學(xué)習(xí) ASP。由親身體驗(yàn)軟件設(shè)計(jì)、開發(fā)的過程，個(gè)人覺得收獲頗豐。也讓我看到了自己知識(shí)的欠缺，我會(huì)在今后的生活中努力學(xué)習(xí)，不斷的