基于asp的新聞發(fā)布管理系統(tǒng)設(shè)計(jì)-預(yù)覽頁
【正文】 If Session(UserName) Admin Then NewsId = Request(Id) set rsNews = () sql = SELECT * FROM News WHERE Id= amp。 8 在文件中引用此文件作為頭文件，代碼如下： !include File= 4． 在添加和修改新聞內(nèi)容時(shí)，需要對字體、字號、顏色和排列位置等屬性進(jìn)行設(shè)置。 相關(guān)代碼如下： 字體 SELECT onChange=var c=[].value。font[space]face=39。/font39。39。FONTSIZE: 9pt39。 表示當(dāng)前選擇字符的內(nèi)容，如果它不為空，則將其替換為如下代碼： ().text=39。+().text+39。font[space]face=39。/font 在添加和修改新聞內(nèi)容的網(wǎng)頁中，必須將表單定義為 myform，輸入新聞內(nèi)容的滾動(dòng)文本框定義為 txtcontent，否則此功能將無法實(shí)現(xiàn)。本節(jié)將介紹管理界面 的實(shí)現(xiàn)方法。 !include file= !include file= (2)顯示新聞?lì)悇e鏈接 將新聞按照分類顯示，每個(gè)新聞?lì)悇e只顯示最新的 20 條新聞。TEXTDECORATION: none。 (3)顯示管理鏈接 在 中，將根據(jù)用戶類型顯示管理鏈接，包括“用戶管理”和“退出登錄”，只有 Admin 用戶才能看到“類別管理”和“用戶管理”鏈接。39。 39。 變量 sql_where 用來記錄查詢條件。 (4)分頁顯示新聞信息 下面將根據(jù)指定的新聞?lì)悇e和頁碼顯示新聞標(biāo)題列表，代碼如下： % If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。 ORDER BY Posttime DESC End If End If sql,conn,1,1 If Then trtd colspan=4 align=center目前還沒有記錄。?flag= amp。 i amp。 /b]/a/td 15 Next /tr/table End If End If % 這部分代碼的關(guān)鍵部分是根據(jù)新聞?lì)悇e和用戶類型生成 SELECT 語句，查詢指定的新聞?dòng)涗洝? 新聞查詢管理頁面的腳本是 ，運(yùn)行界面如圖所示 可以看到，新聞查詢可以分為下面幾種情況： (1)按發(fā)布日期查詢。 1． IsEmpty()函數(shù) IsEmpty()函數(shù)的功能是判斷字符串是否為空，代碼如下： function isEmpty (str) { 17 if ((str==null)||(==0)) return true。 if (!(s)) return false return true } 參數(shù) s 表示要判斷的字符串。正則表達(dá)式中的 Execute 方法對指定的字符串執(zhí)行正則表達(dá)式搜索。 } else { for (var i=0。 } } } 18 return(flag)。 (、 )函數(shù) IsBetween()函數(shù)的功能是判斷指定數(shù)據(jù)是否在兩個(gè)數(shù)字之間，代碼如下： function isBetween (val, lo, hi) { if ((val lo) || (val hi)) { return(false)。 5． IsIDate()函數(shù) IsDate()函數(shù)的功能是判斷指定數(shù)據(jù)是否是日期型數(shù)據(jù)，代碼如下： function isDate (theStr) { var the1st = (39。39。 var m = (the1st+1,the2nd)。 else if ( 4) return(false)。 else if (y % 100 == 0 amp。 } if (isBetween(d, 1, maxDays) == false) { return(false)。amp。 ()。 return (false)。 } } } 這段程序?qū)⑴袛嘤脩糨斎氲牟樵儣l件是否為空，并使用自定義函數(shù) IsDate()驗(yàn)證日期是否有效。根據(jù)用戶名讀取用戶姓名 Function GetUserName(UserId) Dim RsUser,sql Set RsUser = () sql= SELECT * FROM Users WHERE UserName=39。 Set rsUser = (sql) If NOT Then 21 GetUserName = rsUser(Ename) Else GetUserName = 無名 End If End Function % 這里使用 GetuserName()函數(shù)的作用是取得 新聞提交人的姓名，并在查詢結(jié)果中顯示。 提取發(fā)布時(shí)間查詢范圍 sDate = Request(sdate) eDate = Request(edate) 39。 39。 eDate amp。 sDate amp。 eDate amp。精確查詢 searchcontent = searchcontent1 Else 39。 取得查詢范圍值 searchfanwei = Request(D1) If searchfanwei=title Then 39。 39。 searchcontent1 amp。 strSQL Else strSQL = strSqlPTime amp。輸出表格 table width=39。b序號 /b/td td align=left width=39。b所屬類別 /b/td td align=middle width=39。b提交人 /b/td td align=middle width=39。 strSQL 39。 接著程序?qū)⑹褂醚h(huán)語句依次處理每條查詢記錄，代碼如下： 39。 td align=middleamp。rsSearch(Id)amp。rsSearch(Title)amp。 rsSearch(CateId) 24 Set rsCate = (sql) If NOT Then td align=middleamp。 輸出內(nèi)容大小、提交人姓名 td align=middleamp。GetUserName(rsSearch(Poster))amp。/td /tr End If () LOOP /table Set rsSearch = Nothing Set rsCate = Nothing Set Conn = Nothing % 25 輸入時(shí)間： 查詢結(jié)果： 26 輸入查找內(nèi)容： 效果顯示： 27 查詢無內(nèi)容： 28 29 總結(jié) 經(jīng)過那么多天的實(shí)訓(xùn)，通過自己的實(shí)踐，我懂得了做好一個(gè)網(wǎng)站時(shí)那么的不容易，其中最主要的還是我們要認(rèn)真打每一段代碼，弄懂它們在整個(gè)網(wǎng)站中起到了什么作用，我們才能更好的運(yùn)用代碼，做好網(wǎng)站。 本次設(shè)計(jì)由于設(shè)計(jì)時(shí)間較緊，且相關(guān)模塊比較多，加之設(shè)計(jì)經(jīng)驗(yàn)的不足，在網(wǎng)站的整體設(shè)計(jì)及各模塊功能可能設(shè)計(jì)的不完全，有待于進(jìn)一步的完善和改進(jìn)。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1