【導讀】和微軟Access數(shù)據(jù)庫軟件技術實現(xiàn)論壇的各種功能。在于與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Ｗｅｂ技術和數(shù)據(jù)庫相互融合領域的研究已成為熱點方向。本論壇是為了用戶進行網(wǎng)上交流和開展網(wǎng)上對話，也有利于成。建立將發(fā)揮橋梁與扭帶的作用大大的方便了用戶之間信息的溝通。ASP應用程序易于使用、修改，并且是通過服務器端解釋執(zhí)行，無需編譯，能夠對源代碼進行保密，因而很多網(wǎng)站都運用ASP來架構。在這個信息極其發(fā)達的時代，我們目前可以用來發(fā)布。將會為臺電成為國際一流火力發(fā)電廠作出自己的貢獻。年活動、交流的新型平臺。地，娛樂聯(lián)歡的場所，努力為用戶服務。低、移植性較差及開發(fā)效率低的缺點。而目前十分流行的訪問網(wǎng)站數(shù)。有了ASP你就不必擔。服務器端執(zhí)行，包括所有嵌在普通HTML中的腳本程序。面向對象的并通過ActiveXServer對象可擴展。數(shù)據(jù)庫有很多種，如：Fox數(shù)據(jù)庫、Access數(shù)據(jù)庫、于對Web站點、Web頁和Web應用程序進行設計、編碼和開發(fā)。

　　

【正文】 set rs=() sql=select AnnounceID,boardID from bbs1 where boardID=+cstr(boardID)+ and parentID=0 ORDER BY announceID desc sql,conn,1,1 if not then totalAnnounce= dim i i=0 if currentPage=1 then do while not if selstr= then selStr=selStr+cstr(rs(announceid)) else selStr=selStr+,+cstr(rs(announceid)) end if i=i+1 if i=maxannounce then exit do loop else if (currentPage1)*maxannouncetotalAnnounce then (currentPage1)*maxannounce dim bookmark bookmark= do while not if selstr= then selStr=selStr+cstr(rs(announceid)) else selStr=selStr+,+cstr(rs(announceid)) end if i=i+1 if i=maxannounce then exit do loop else currentPage=1 do while not if selstr= then selStr=selStr+cstr(rs(announceid)) else selStr=selStr+,+cstr(rs(announceid)) end if i=i+1 if i=maxannounce then exit do loop end if end if dim n selstr=(+selstr+) if selStr() then sql=select * from bbs1 where (rootID in amp。selStramp。 ) ORDER BY rootID desc,orders else sql=select * from bbs1 ORDER BY rootID desc,orders end if end if sql,conn,1,1 showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 showlist() showpage session(boardtype),boardmaster,totalannounce,boardid,mailstr1,mailstr2 else p 版面 ： +session(boardtype)+br版主 ：+mailstr1+boardmaster+mailstr2+br 本論壇無內容 pa href=39。?boardID=+cstr(boardID)+39。 target=+chr(34)+BoardAnnounce+chr(34)+我要發(fā)言 /a a href=39。?boardID=+cstr(boardID)+39。刷新瀏覽 /a end if sub showlist() on error resume next dim outtext dim bytestr ul dim layer layer=1 do while not ( or 0) do while layer rs(layer) if rs(layer) layer then outtext=outtext amp。 ul layer=layer+1 else outtext=outtext amp。 /ul amp。 chr(13) amp。 chr(10) layer=layer1 end if loop outtext=outtext amp。 li outtext=outtext amp。 img src=images/amp。rs(Expression)amp。 outtext=outtext amp。 a href=39。?boardID=+cstr(boardID)+amp。RootID=amp。cstr(rs(RootID))amp。amp。ID=amp。Cstr(rs(announceID))amp。39。 target=39。BoardAnnounce39。 dim t if rs(Length)=0 then t= 無內容 else t= end if if pwsonchsys then outtext=outtext amp。 htmlencode(rs(Topic)+t) else outtext=outtext amp。 (rs(Topic)+t) end if outtext=outtext amp。 /a strong bytestr=(+cstr(rs(length)) if not WINNT_CHINESE then if rs(Length)1=1 then bytestr=bytestr+ Byte) else bytestr=bytestr+ Bytes) end if else bytestr=bytestr+字 ) end if if pwsonchsys then outtext=outtext amp。 htmlencode(rs(UserName)) else outtext=outtext amp。 (rs(UserName) ) end if outtext=outtext amp。 /strongfont color=redemamp。rs(DateAndTime)amp。/em/font [ID:+cstr(rs(announceID))+ 點擊 :amp。rs(Hits)amp。] +bytestr+ font color=39。red39。( + Cstr(rs(child))+)/font+chr(13)+chr(10) if trim(rs(DateAndTime)) and isdate(rs(DateAndTime)) then if cbool(cdate(rs(DateAndTime))(date()1))=true then outtext=outtext amp。 img src=39。images/39。 end if end if outtext=outtext amp。 a href=39。?announceID=amp。Cstr(rs(announceID))amp。39。刪除/a+chr(13)+chr(10) outtext outtext= loop if layer0 then dim i for i=1 to layer outtext=outtext amp。 /ul next end if outtext=outtext amp。 /ul outtext end sub function showpage(boardtype,boardmaster,totalannounce,boardid,mailstr1,mailstr2) table border=39。139。 width=39。98%39。 cellspacing=39。039。 bordercolorlight=39。00000039。 bordercolordark=39。FFFFFF39。 cellpadding=39。039。tr trtd nowrap bgcolor=39。FEEC8539。p align=left版面 ： amp。boardtypeamp。/td td nowrap bgcolor=39。FEEC8539。p align=39。left39。 版主 ： +mailstr1+boardmaster+mailstr2+/td td nowrap bgcolor=39。FEEC8539。p align=39。center39。a href=?boardID=amp。boardidamp。 target=BoardAnnounce我要發(fā)言 /a/td td nowrap bgcolor=39。FEEC8539。p align=39。center39。a href=?boardID=amp。boardidamp。amp。page=1刷新瀏覽 /a/td dim n if totalAnnounce mod maxannounce=0 then n= totalAnnounce \ maxannounce else n= totalAnnounce \ maxannounce+1 end if form method=Post action=?boardID=amp。boardidamp。 td nowrap align=39。center39。 bgcolor=39。FEEC8539。 if CurrentPage2 then font color=39。navy39。首頁 前頁 /font else a href=?boardID=amp。boardidamp。amp。page=1