【正文】 ght=13 width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td height=13 width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td /tr tr td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td /tr tr td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td td width=20% div align=centera href=carton/ target=_blankimg src=carton/ width=100 height=75 border=0/a/div /td /tr 音樂板塊 點擊雨晴音樂進入圖庫板塊，該板塊收藏的有許多精美的圖片，如下圖： 動畫板塊 進入動畫板塊，可以看到許多 flash動畫，如下圖： 實現(xiàn)在網(wǎng)頁上顯示 flash動畫的代碼如下： br object classid=clsid:D27CDB6EAE6D11cf96B8444553540000 codebase=ersion=6,0,29,0 width=500 height=400 param name=movie value= param name=quality value=high embed src=%CC%F8%CE%E8%B5% quality=high pluginspage= type=application/xshockwaveflash width=500 height=400/embed/object br br table width=95% border=0 cellspacing=0 cellpadding=0 tr bgcolor=D6DB94 td height=1/td /tr /table ASP 編寫的頁面 用 ASP編寫的頁面是留言板塊，下面講解如何實現(xiàn)： 進入留言板塊后首先看到的是已有的留言，如下圖： 顯示留言的代碼如下： public sub main() do while not (TABLE cellPadding=0 cellSpacing=0 height=129 width=amp。img src=images/ width=16 height=16 border=0 align=absmiddle 郵箱 /a ) Else (img src=images/ align=absmiddle font color=666666信箱 /font ) End if If rs(url) and rs(url) then (a href=amp。 target=_blankimg src=images/ width=16 height=16 border=0 align=absmiddle OICQ/a ) Else (img src=images/ width=16 height=16 border=0 align=absmiddle font color=666666OICQ/font ) End if If showIP = true Then (img src=images/ width=16 height=15 align=absmiddleamp。img src=images/ width=16 height=16 border=0 align=absmiddle 退出管理 /a ) End If (/td) (/tr) (/table) (table width=100% height=1 border=0 cellpadding=0 cellspacing=0) (trtd height=1 class=indextd2img src=images/ height=1/td/tr/table) (/td /trtr) (td height=79 rowspan=2 align=center valign=top class=indextd) (img src=amp。rs(sex)amp。ubbcode(rs(content))) Else (table width=80% border=0 cellspacing=0 cellpadding=0trtd align=center) (hr align=center width=90% size=1 noshade) (a href=這是留給站長的一點悄悄話 ... .../a) (hr align=center width=90% size=1 noshade) (/tr/table) End If End If If rs(reply) Then (fieldset style=padding: 2。rs(time1)amp。 stprompt = true。 } else if (swtch == 2) { helpstat = false。 if (txt!=null) { if (txt2==) { AddTxt=[]+txt+[/]。 } else { txt=prompt(Flash 文件的地址 , if (txt!=null) { AddTxt=[flash]+txt。 if (txt!=null) { AddTxt=[size=+size+]+txt。 if (txt!=null) { AddTxt=[b]+txt。 if (txt!=null) { AddTxt=[i]+txt。) 39。39。返回首頁 End If Else connclose() header() Call login() footer() End If % 成功登陸后，進入管理界面： 在管理頁面中可以進行對系統(tǒng)的設置，如下圖： 判斷對系統(tǒng)設置選項是否為空的代碼如下： function xxgcheck() { if (==) { alert(站長姓名 ？ ) return false。 參考文獻： [1] 林金霖 ，《 ASP實務經(jīng)典 》 ，中國鐵道出版社， 2020 [2] 健蓮科技 ，《 ASP建網(wǎng)策略與案例 —— 人才篇 》 ，科學出版 社， 2020 [3] 清漢計算機工作室 ，《 ASP開發(fā)實例 》 ，機械工業(yè)出版社， 2020 [4] Paul Whitehead，曹曉剛 ，《 Active Server Pages 》 ，清華大學出版社， 2020 [5] 鄭曉峰，周治平 ， 利用 ASP開發(fā)基于 Web的成績查詢系統(tǒng) ，江南學院學報， [6] 武延軍 ，《 精通 ASP網(wǎng)絡編程 》 ，人民郵電出版社， [7] 王國榮著 ，《 Active Server Pages amp。Reillyamp。 } if (==) { alert(主頁地址？ ) return false。amp。,39。 AddTxt=[/i]。 AddTxt=[/b]。 AddTxt=[/size]。 AddTxt=[/flash]。 AddText(AddTxt)。 stprompt = true。 function thelp(swtch){ if (swtch == 1){ basic = false。rs(ID)amp。 legend站長回復 /legend bimg src=IMAGES/ width=16 height=16 border=0amp。 WIDTH: 100%。 align=topbrbr) (TABLE class=namefilter) ( FONT color=ffffffamp。 ) Else (a href=Javascript:openWindow(39。 title=到 amp。 align=center class=table002) (tr) (td width=151 height=9 align=center class=indextd留言作者信息 /td) (td width=597 height=9table width=100% border=0 cellspacing=4 cellpadding=0) (tr) (td ) If rs(mai