【文章內(nèi)容簡介】 admin_id 自動編號 主鍵，自動編號admin_name 文本 不允許為空oskey 文本admin_password 文本 不允許為空表43 新聞分類表 type字段 類型 備注type_id 自動編號 主鍵，自動編號type 文本 不允許為空typename 文本typetime 日期/時間 系統(tǒng)實現(xiàn)建好數(shù)據(jù)庫后，就可以實現(xiàn)新聞系統(tǒng)的代碼，根據(jù)前面給出的新聞系統(tǒng)結(jié)構(gòu)圖，系統(tǒng)實現(xiàn)主要包括公告新聞瀏覽、公告新聞管理、公告新聞搜索和公告新聞點擊排名4個部分。 公告、新聞瀏覽新聞瀏覽將數(shù)據(jù)庫中的新聞信息查詢出來，并在頁面中將新聞標(biāo)題等幾個字段進(jìn)行列表顯示，這樣就可以在頁面中顯示較多的信息內(nèi)容，并且在列表頁面提供鏈接，可以打開頁面閱讀新聞詳細(xì)內(nèi)容。 限于篇幅，公告和新聞及其詳細(xì)列表頁面的源代碼在此就不再列出了，當(dāng)前頁顯示采用了cint(request(page))函數(shù)，Set rs= ()，sql=select * from article order by news_id desc，使用Server對象之方法CreateObject來創(chuàng)建一腳本對象，擴(kuò)展了ASP的功能。 (str)和cutstr(str,strlen,more,url)函數(shù)，以獲取和截取字符串。 公告、新聞管理新聞管理包括發(fā)布新聞、修改新聞、刪除新聞頁面，以及進(jìn)行數(shù)據(jù)庫操作的頁面。圖43其代碼如下：!include file=%IF not(Session(KEY)=super or session(KEY)=check or Session(KEY)=input) THEN END IF%htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312meta name=GENERATOR content=Microsoft FrontPage title創(chuàng)建文章/titlelink rel=stylesheet type=text/css href=/headbodytable width=100% height=20 border=0 align=center cellpadding=0 cellspacing=0 tr bgcolor=304D7C td bgcolor=304D7C class=unnamed1div align=centera href=font color=FFFFFF增加新聞文章/font/a font color=FFFFFFb|/b/font a href=font color=FFFFFF生成首頁圖片新聞/font/a font color=FFFFFFb|/b/font a href=font color=FFFFFF審核新聞/font/a font color=FFFFFFb/b/fontfont color=FFFFFFb|/b/font a href=font color=FFFFFF用戶管理/font/afont color=FFFFFF b|/b /fonta href=font color=FFFFFF欄目管理/font/a font color=FFFFFFb|/b/font a href=font color=FFFFFF新聞模版管理/font/a font color=FFFFFFb|/b/font a href=font color=FFFFFF瀏覽/font/afont color=FFFFFF b|/b /fonta href=font color=FFFFFF/font/aa href=font color=FFFFFF退出系統(tǒng)/font/a/div/td td bgcolor=304D7C class=unnamed1amp。nbsp。/td /tr/tableform method=POST action= div align=centercenter table border=0 cellspacing=1 width=758 cellpadding=0 tr td width=100% height=20 p align=centerb class=unnamed2添 加 文 章/b /td /tr tr align=center td width=100% table border=0 cellspacing=0 width=100% cellpadding=0 tr td width=15% align=right height=30 class=unnamed2 valign=middle bgcolor=FFFFFF文章標(biāo)題：/td td width=85% height=30 bgcolor=FFFFFF span style=39。cursor:hand39。 title=39?？s短對話框39。 onClick=39。if (10)=39。/span input name=txttitle id=me type=TEXT size=50 maxlength=22 style=backgroundcolor:ffffff。color:000000。border: 1 double span style=39。cursor:hand39。 title=39。加長對話框39。 onClick=39。if (102)=+239。+/span (最多22個漢字) /td /tr tr td width=15% align=right valign=middle class=unnamed2 bgcolor=FFFFFF文章分類：/td td width=85% bgcolor=FFFFFF select class=unnamed2 name=typeid size=1 %dim rs,sql,sel set rs=() sql=select * from type sql,conn,1,1 do while not sel=selected option amp。 sel amp。 value=39。+CStr(rs(typeID))+39。 name=typeid+rs(type)+/option+chr(13)+chr(10) loop % /select/td /tr tr td width=15% align=right valign=middle class=unnamed2 height=5 bgcolor=FFFFFF推薦新聞：/td td width=85% valign=middle height=5 bgcolor=FFFFFF input type=checkbox name=checkbox1 value=1 class=unnamed5 /td /tr tr td width=15% align=right valign=middle class=unnamed2 height=5 bgcolor=FFFFFF新聞模版：/td td width=85% valign=middle height=5 bgcolor=FFFFFF select class=unnamed2 name=Example size=1 %dim rs1,sql1,sl set rs1=() sql1=selec