【導(dǎo)讀】隨著Inter的廣泛應(yīng)用，動態(tài)網(wǎng)頁技術(shù)也應(yīng)運而生。本文介紹了應(yīng)用ASP. 動態(tài)網(wǎng)頁技術(shù)開發(fā)博客系統(tǒng)的設(shè)計與實現(xiàn)。可以發(fā)表一些自己撰寫的文章以和其他網(wǎng)友進行交流。據(jù)庫，并通過使用ODBC技術(shù)訪問。最后，對系統(tǒng)作以客觀、全面的評價，并對進一步改進

　　

【正文】 var cy = parseInt()。 if(cy y) { = (cy + ((ycy)/5)) +px。 } else { clearInterval(proy)。 } } 附錄 31 function closeed(id){/*關(guān)閉 */ clearInterval(prox)。 clearInterval(proy)。 clearInterval(proxc)。 clearInterval(proyc)。 var o = (id)。 if( == block) { proyc = setInterval(function(){closey(o)},10)。 } } function closey(o){/*打開 y*/ var cy = parseInt()。 if(cy 0) { = (cy (cy/5)) +px。 } else { clearInterval(proyc)。 proxc = setInterval(function(){closex(o)},10)。 } } function closex(o){/*打開 x*/ var cx = parseInt()。 if(cx 0) { = (cx (cx/5)) +px。 } else { 附錄 32 clearInterval(proxc)。 = none。 } } //function readyMove(e){ = function(e){ odrag = this。 var e = e ? e : event。 if( == ( ? 1 : 0)) { mx = 。 my = 。 = + px。 = + px。 if(isIE) { ()。 = 50。 } else { ()。 = 。 } //alert(mx)。 //alert(my)。 } } 附錄 33 = function(e){ var e = e ? e : event。 //alert(mrx)。 //alert()。 if(mouseD==true amp。amp。 odrag) { var mrx = mx。 var mry = my。 = parseInt() +mrx + px。 = parseInt() + mry + px。 mx = 。 my = 。 } } /script script language=JavaScript ! function ask(msg) { if( msg==39。39。 ) { msg=39。警告：刪除后將不可恢復(fù)，可能造成意想不到后果？ 39。 } if (confirm(msg)) { return true。 } else { return false。 } } // /script 附錄 34 % Call header() % table cellpadding=39。339。 cellspacing=39。139。 border=39。039。 class=39。tableBorder39。 align=center tr th width=100% height=25 class=39。tableHeaderText39。留言列表 /th trtd height=400 valign=top class=39。forumRow39。br table width=90% border=0 align=center cellpadding=0 cellspacing=2 tr td width=4% height=30 bgcolor=A5C6FCdiv align=center style=fontweight: bold編號 /div/td td width=34% height=30 bgcolor=A5C6FCdiv align=center style=fontweight: bold留言人 /div/td td width=24% bgcolor=A5C6FCdiv align=center style=fontweight: bold留言內(nèi)容 /div/td td width=8% bgcolor=A5C6FCdiv align=center style=fontweight: bold顯示 /隱藏 /div/td td width=17% bgcolor=A5C6FCdiv align=center style=fontweight: bold留言時間 /div/td td width=13% bgcolor=A5C6FCdiv align=center style=fontweight: bold留言操作 /div/td /tr % 39。文章列表模塊 strFileName= pageno=20 set rs = () (s_sql),1,1 附錄 35 rscount= if not and not then call showsql(pageno) (rsno) for p_i=1 to loopno % % if p_i mod 2 =0 then class_style=forumRow else class_style=forumRowHighLight end if% tr td height=30 class=39。%=class_style%39。div align=center%=rs(id)%/div/td td class=39。%=class_style%39。 a href=%=left(rs(name),20)%/a%if rs(recontent) then% [已回復(fù) ]%else% [span style=color: FF0000未回復(fù)/span]% end if%/td td class=39。%=class_style%39。 %=left(rs(content),15)%.../td td class=39。%=class_style%39。 div align=centera href=?id=%=rs(id)%amp。page=%=page%amp。act=%=act%amp。keywords=%=keywords%%if rs(view_yes)=1 then%已顯示%else%span style=color: FF0000已隱藏 /span% end if%/a/div/td td class=39。%=class_style%39。 div align=center%=rs(time)%/div/td td class=39。%=class_style%39。 div align=centera href= onclick = show(39。fd_%=rs(id)%39。)。return false。查看 /a | a href=?id=%=rs(id)%amp。page=%=page%amp。act=%=act%附錄 36 amp。keywords=%=keywords%回復(fù) /a | a href=javascript:if(ask(39。警告：刪除后將不可恢復(fù)，可能造成意想不到后果？ 39。)) =39。?id=%=rs(id)%amp。page=%=page%amp。act=%=act%amp。keywords=%=keywords%39。刪除 /a/div div class=fd id=fd_%=rs(id)% style=display:none。filter:alpha(opacity=100)。opacity:1。 div class=content_div1div class=div_closea href= onclick = closeed(39。fd_%=rs(id)%39。)。return false。 [關(guān)閉 ] /a/divtable width=680 border=0 align=center cellpadding=0 cellspacing=2 tr td class=39。forumRow39。 /td td class=39。forumRow39。/td /tr tr td class=39。forumRowhighlight39。 height=25 span style=fontweight: bold留言人 /span/td td class=39。forumRowhighlight39。 %=rs(name)% (留言時間： %=rs(time)%)/td /tr tr td class=39。forumRow39。 /td td class=39。forumRow39。/td /tr tr td class=39。forumRowhighlight39。 height=25 span style=fontweight: bold電子郵件 /span/td td class=39。forumRowhighlight39。 %=rs()%/td /tr 附錄 37 tr td class=39。forumRowhighlight39。 height=25span style=fontweight: bold/span/td td class=39。forumRowhighlight39。 %=rs(qq)%/td /tr tr td class=39。forumRow39。 /td td class=39。forumRow39。/td /tr tr td valign=topspan style=fontweight: bold留言內(nèi)容/span/td td valign=toplabel textarea class=ttarea style=BACKGROUND: f1f3f5。 name=textarea cols=88 rows=7%=rs(content)%/textarea /label/td /tr tr td class=39。forumRow39。 /td td class=39。forumRow39。/td /tr tr td valign=top class=39。forumRowhighlight39。 height=25span style=fontweight: bold回復(fù)內(nèi)容 /span/td td valign=top class=39。forumRowhighlight39。%if rs(recontent) then%label textarea class=ttarea style=BACKGROUND: e4edf9。 name=textarea cols=88 rows=7%=rs(recontent)%/textarea /label %else% span style=39。color: FF000039。暫無回復(fù)！ /span a 附錄 38 href=?id=%=rs(id)%amp。page=%=page%amp。act=%=act%amp。keywords=%=keywords%立即回復(fù) /a %end if%/td /tr tr td /td td /td /tr /table/div /div /td /tr % next else div align=39。center39。span style=39。color: FF000039。暫無留言！/span/div end if set rs=nothing % tr td height=35 cols