freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

基于asp的新聞發(fā)布管理系統(tǒng)設(shè)計(jì)-預(yù)覽頁

2024-12-14 15:36 上一頁面

下一頁面
 

【正文】 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)。
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評公示相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1