【導(dǎo)讀】行的一次全面的綜合練習(xí)。其目的在于加深對(duì)網(wǎng)站開發(fā)的理解，掌握使用asp. 聽從指導(dǎo)教師的安排，認(rèn)真完成老師布置的各。項(xiàng)任務(wù)，并以小組為單位，上交作品，同時(shí)交個(gè)人報(bào)告。掌握動(dòng)態(tài)網(wǎng)頁(yè)編程技術(shù)，綜合運(yùn)用所學(xué)動(dòng)態(tài)網(wǎng)頁(yè)知識(shí)；掌握Response、Request和Session等ASP內(nèi)置對(duì)象的綜合應(yīng)用。掌握Connection、Recordset等ADO對(duì)象的綜合應(yīng)用。掌握SELECT、INSERT、UPDATE和DELETE等SQL語(yǔ)句的綜合應(yīng)用。整個(gè)論壇各個(gè)功能模塊實(shí)現(xiàn)階段。在代碼編寫過(guò)程中肯定會(huì)碰到問(wèn)題，建議花課余時(shí)間把第六章的對(duì)象再好好。員每天需要制作大量的網(wǎng)頁(yè)，從而浪費(fèi)很多時(shí)間和精力。使用新聞發(fā)布及管理系。分析與總體設(shè)計(jì)。新聞發(fā)布及管理系統(tǒng)包括新聞發(fā)布管理、圖片處理、新聞查詢和網(wǎng)友評(píng)論等模塊。的“系統(tǒng)管理員”用戶Admin，由程序設(shè)計(jì)人員手動(dòng)地添加到數(shù)據(jù)庫(kù)中。戶則只能注冊(cè)和登錄。確認(rèn)用戶是否是有效的系統(tǒng)用戶。前臺(tái)系統(tǒng)不需要進(jìn)行身份認(rèn)證，基本新聞表News用來(lái)保存網(wǎng)上新聞的基本信息，結(jié)構(gòu)如表2所示。

　　

【正文】 n(sDate)0 And Len(eDate)0 Then strSqlPTime = WHERE PostTime=39。 amp。 sDate amp。 39。 strSqlPTime = strSqlPTime amp。 And PostTime=39。 amp。 eDate amp。 39。 ElseIf Len(sDate)0 And Len(eDate)=0 Then strSqlPTime = WHERE PostTime=39。 amp。 sDate amp。 39。 ElseIf Len(sDate)=0 And Len(eDate)0 Then strSqlPTime = WHERE PostTime=39。 amp。 eDate amp。 39。 End If 39。 取得查詢模式（精確查詢或模糊查詢），參見 中的定義 searchcontent1 = Request(searchcontent) fanwei = Request(fanwei) If fanwei =all Then 39。精確查詢 searchcontent = searchcontent1 Else 39。模糊查詢 searchcontent = % amp。 searchcontent1 amp。 % End If 22 39。 取得查詢范圍值 searchfanwei = Request(D1) If searchfanwei=title Then 39。只在新聞標(biāo)題中查詢 h4font color=7966C6按 信息標(biāo)題 查詢的結(jié)果/font/h4br strSQL = Title LIKE 39。 amp。 searchcontent amp。 39。 ORDER BY PostTime DESC ElseIf searchfanwe=content Then 39。只在新聞內(nèi)容中查詢 h4font color=7966C6按 信息內(nèi)容 查詢的結(jié)果/font/h4br strSQL = Content LIKE 39。 amp。 searchcontent1 amp。 39。 ORDER BY PostTime DESC End If 39。合并查詢條件 If Len(strSqlPTime)=0 Then strSQL = WHERE amp。 strSQL Else strSQL = strSqlPTime amp。 And amp。 strSQL End If 39。記錄查找到的新聞序號(hào) Dim nt nt = 0 39。輸出表格 table width=39。100%39。 tr td align=middle width=39。10%39。b序號(hào) /b/td td align=left width=39。30%39。b信息標(biāo)題 /b/td td align=middle width=39。14%39。b所屬類別 /b/td td align=middle width=39。10%39。b內(nèi)容長(zhǎng)度 /b/td td align=middle width=39。16%39。b提交人 /b/td td align=middle width=39。20%39。b提交時(shí)間 /b/td 23 /tr Dim rsSearch,rsCate Set rsSearch= () Set rsCate = () 39。生成查詢語(yǔ)句 strSQL = SELECT * FROM News amp。 strSQL 39。 sql :amp。 strSQL strSQL, Conn, 1, 3 以上代碼的工作過(guò)程如下： 根據(jù)參數(shù) sdate 和 edate 生成與日期相關(guān)的查詢條件；根據(jù)查詢模式 (精確查詢或模糊查詢 )生成相關(guān)的查詢條件。如果是精確查詢，則使用“ =”；如果是模糊查詢，則使用 LIKE 和通配符％；根據(jù)查詢范圍生成相關(guān)的查詢條件；將所有查詢條件合并成 WHERE 子句；生成顯示查詢結(jié)果的表頭；生成并執(zhí)行 SELECT 語(yǔ)句。 接著程序?qū)⑹褂醚h(huán)語(yǔ)句依次處理每條查詢記錄，代碼如下： 39。依次處理查詢結(jié)果 Do While Not nt = nt + 1 tr bgColor=Lavender style=39。COLOR:Purple。39。 td align=middleamp。ntamp。/td 39。輸出新聞標(biāo)題及鏈接 tda href=?id=amp。rsSearch(Id)amp。 onClick=39。return newwin()39。amp。rsSearch(Title)amp。/a 39。 判斷是否有圖片 If rsSearch(attpic) Then (附圖 ) End If /td 39。 取得信息分類名稱 sql = SELECT * FROM Category WHERE CateId= amp。 rsSearch(CateId) 24 Set rsCate = (sql) If NOT Then td align=middleamp。rsCate(CateName)amp。/td End If 39。 計(jì)算內(nèi)容大小 If rsSearch(Content)= Then nlength=0 Else nlength = Len(rsSearch(Content)) 39。 輸出內(nèi)容大小、提交人姓名 td align=middleamp。nlengthamp。 Bytes/td 39。 顯示提交人姓名 td align=middleamp。GetUserName(rsSearch(Poster))amp。/td 39。 顯示提交時(shí)間 td align=middleamp。rsSearch(PostTime)amp。/td /tr End If () LOOP /table Set rsSearch = Nothing Set rsCate = Nothing Set Conn = Nothing % 25 輸入時(shí)間： 查詢結(jié)果： 26 輸入查找內(nèi)容： 效果顯示： 27 查詢無(wú)內(nèi)容： 28 29 總結(jié) 經(jīng)過(guò)那么多天的實(shí)訓(xùn)，通過(guò)自己的實(shí)踐，我懂得了做好一個(gè)網(wǎng)站時(shí)那么的不容易，其中最主要的還是我們要認(rèn)真打每一段代碼，弄懂它們?cè)谡麄€(gè)網(wǎng)站中起到了什么作用，我們才能更好的運(yùn)用代碼，做好網(wǎng)站。 結(jié)束語(yǔ) 經(jīng)過(guò)老師耐心細(xì)致的指導(dǎo)，及設(shè)計(jì)小組同學(xué)們的密切合作，同時(shí)翻閱了大量的資料 (包括網(wǎng)上資料，書本及學(xué)校的一些相關(guān)資料 )經(jīng)過(guò)近一個(gè) 星期 的努力，網(wǎng)站的設(shè)計(jì)制作 終于完成 ?？偨Y(jié)這次“ 新聞發(fā)布網(wǎng)站 ”開發(fā)制作過(guò)程，我們綜合使用了目前因特網(wǎng)上的各種靜態(tài)制作方法及交互式動(dòng)態(tài)網(wǎng)站 的制作設(shè)計(jì)手段，并對(duì)初步利用后臺(tái)程序完成了網(wǎng)站的動(dòng)態(tài)響應(yīng)與生成網(wǎng)頁(yè)的技術(shù)。在交互式網(wǎng)頁(yè)設(shè)計(jì)學(xué)會(huì)了如何使用 MYSQL 建立數(shù)據(jù)庫(kù)，以及對(duì)數(shù)據(jù)庫(kù)瀏覽，修改，添加，查詢。 本次設(shè)計(jì)由于設(shè)計(jì)時(shí)間較緊，且相關(guān)模塊比較多，加之設(shè)計(jì)經(jīng)驗(yàn)的不足，在網(wǎng)站的整體設(shè)計(jì)及各模塊功能可能設(shè)計(jì)的不完全，有待于進(jìn)一步的完善和改進(jìn)。 參 考 文 獻(xiàn) 《 FrontPage2020 入門與實(shí)戰(zhàn)技術(shù)》，人民郵電出版社 2020 年 5 月第 1 版。 互聯(lián)網(wǎng)上提供的網(wǎng)頁(yè)制作素材及特效。 3 ASP+SQLSEVER 項(xiàng)目開發(fā)。