【導(dǎo)讀】和微軟Access數(shù)據(jù)庫軟件技術(shù)實現(xiàn)論壇的各種功能。在于與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Ｗｅｂ技術(shù)和數(shù)據(jù)庫相互融合領(lǐng)域的研究已成為熱。有利于成員之間利用互聯(lián)技術(shù)，開展學(xué)習(xí)、交流、網(wǎng)上交友等活動。教學(xué)系統(tǒng)的有機組成部分。ASP應(yīng)用程序易于使用、修改，并且是通過服務(wù)器端解釋執(zhí)行，在這個信息極其發(fā)達的時代，我們目前可以用來發(fā)。情況下都需要花費大量的人力物力。電子郵件則不是一種及時聯(lián)系的手段，需要一定時間。才能到達，只能作為一種輔助交流的手段。年活動、交流的新型平臺?；兀瑠蕵仿?lián)歡的場所，努力為用戶服務(wù)。低、移植性較差及開發(fā)效率低的缺點。而目前十分流行的訪問網(wǎng)站。將在服務(wù)器端執(zhí)行，包括所有嵌在普通HTML中的腳本程序。就減輕了客戶端瀏覽器的負(fù)擔(dān)，大大提高了交互的速度。面向?qū)ο蟮牟⑼ㄟ^ActiveXServer對象可擴展。數(shù)據(jù)庫有很多種，如：Fox數(shù)據(jù)庫、Access數(shù)據(jù)庫、Access作為后臺數(shù)據(jù)庫。

　　

【正文】 tr td width=33% align=right height=30用戶名 ： /td td width=67%input name=username maxlength=20 class=smallInput size=20 /td /tr tr td width=33% align=right height=30密 碼 ： /td td width=67%input type=password name=password maxlength=16 class=smallInput size=20 /td /tr tr td colspan=2 height=15/td /tr /table /td /tr 畢業(yè)設(shè)計 共 66 頁 第 33 頁 tr align=center td height=40 input type=submit name=Submit value=確定 class=buttonface input type=reset name=Submit2 value=重寫 class=buttonface /td /tr /table /form p align=center /td /tr /table /center/div /body /html html/html 版面管理 —— 管理功能頁面 %@ LANGUAGE=VBSCRIPT % % option explicit% !include file= ! include file=inc/ ! include file=inc/ % if (adminok)= then end if % html head meta NAME=GENERATOR Content=Microsoft FrontPage CHARSET=GB2312 title青年論壇 /title 畢業(yè)設(shè)計 共 66 頁 第 34 頁 link rel=stylesheet type=text/css href= meta equiv=ContentType content=text/html。 charset=gb2312style type=text/css ! body { backgroundcolor: 00CCFF。 } /style/head body % dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster 39。on error resume next selStr=() if session(masterlogin)=true then boardID=session(manageboard) selStr= if not isempty(request(page)) then currentPage=cint(request(page)) else currentPage=1 end if set rsBoard=() boardsql=select * from board where boardID=+cstr(boardID)+ boardsql,conn,1,1 if not then boardname=rsboard(boardname) session(boardtype)=rsboard(boardtype) boardmaster=rsboard(boardmaster) if trim(rsboard(master)) then mailStr1=a href=39。mailto:+trim(rsboard(master))+39。 mailStr2=/a else mailStr1= mailStr2= end if if boardID0 then set rs=() 畢業(yè)設(shè)計 共 66 頁 第 35 頁 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)) 畢業(yè)設(shè)計 共 66 頁 第 36 頁 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 本論壇無內(nèi)容 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 畢業(yè)設(shè)計 共 66 頁 第 37 頁 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= 無內(nèi)容 else t= end if if pwsonchsys then outtext=outtext