【正文】 Cols 分幾列顯示39。過程名：ShowFriendLinks39。 amp。 rsAnnounce(Content) amp。, 39。 rsAnnounce(id) amp。a href=39。amp。==================================================sub ShowAnnounce(AnnounceNum) dim sqlAnnounce,rsAnnounce,i if AnnounceNum0 and AnnounceNum=10 then sqlAnnounce=select top amp。==================================================39。 amp。62000039。ff000039。39。FFFFFF39。39。39。 39。 39。_self39。 amp。39。 amp。pamp。iamp。 amp。cc000039。f5208739。39。cccccc39。images/39。39。 39。 39。_self39。 amp。39。span class=menu_txt amp。pamp。iamp。 ID amp。,[1,2,2,3,2,3,0])。,39。 vbcrlf else stm_bpx(39。 pNum2 amp。 pNum amp。])。,39。,2,67,2,3,39。,[0,4,0,4,2,3,6,7,100,39。1,4,0,4,2,3,6,7,100前4個數(shù)字控制菜單位置和大小 if pNum=1 then stm_bp(39。 vbcrlf // amp。,0,0])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,1,1,0,39。,39。p0i039。 amp。39。FFFFFF39。fffff739。39。f1f2ee39。39。39。 amp。 amp。 39。39。 39。p0i039。p0iamp。,0,0])。,39。,39。,3,3,0,0,39。,1,39。,0,0,0,0,1,39。,0,0,0,39。,39。,39。,1,1,0,39。,39。p0i039。 amp。39。FFFFFF39。fffff739。39。f1f2ee39。39。39。39。 39。39。p0i039。 amp。39。FFFFFF39。fffff739。39。f1f2ee39。39。39。39。 39。39。p0i039。 amp。39。00000039。fffff739。39。f1f2ee39。39。39。39。39。39。p0i039。00000039。transparent39。39。p039。39。images/39。uueoehr39。 amp。=================================================sub ShowRootClass_Menu(Language) script type=39。=================================================39。39。參 數(shù)：無39。 vbcrlf strSuccessend subfunction getFileExtName(fileName) dim pos pos=instrrev(filename,.) if pos0 then getFileExtName=mid(fileName,pos+1) else getFileExtName= end ifend function 39。 vbcrlf strSuccess=strSuccess amp。title39。 vbcrlf strSuccess=strSuccess amp。top39。10039。title39。center39。border39。text/css39。39。 charset=gb231239。 htmlheadtitle成功信息/titlemeta equiv=39。過程名：WriteSuccessMsg39。 vbcrlf strErr=strErr amp。javascript:(1)39。center39。 errmsg amp。tdbg39。 vbcrlf strErr=strErr amp。2039。 vbcrlf strErr=strErr amp。 vbcrlf strErr=strErr amp。stylesheet39。 vbcrlf strErr=strErr amp。 content=39。參 數(shù)：無39。****************************************************function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom) on error resume next Dim JMail Set JMail=() if err then SendMail= brli沒有安裝JMail組件/li exit function end if =True =gb2312 = text/html =MailServerAddress =AddRecipient =Subject =MailBody =Sender = MailFrom =1 Set JMail=nothing if err then SendMail= else SendMail=OK end ifend function39。 AddRecipient 收信人地址39。****************************************************39。39。**************************************************39。參 數(shù)：strClassString 組件名39。********************************************function IsValidEmail() dim names, name, i, c IsValidEmail = true names = Split(, ) if UBound(names) 1 then IsValidEmail = false exit function end if for each name in names if Len(name) = 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr(abcdefghijklmnopqrstuvwxyz_., c) = 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = . or Right(name, 1) = . then IsValidEmail = false exit function end if next if InStr(names(1), .) = 0 then IsValidEmail = false exit function end if i = Len(names(1)) InStrRev(names(1), .) if i 2 and i 3 then IsValidEmail = false exit function end if if InStr(, ..) 0 then IsValidEmail = false end ifend function39。作 用：檢查Email地址合法性39。 /select end if strTemp=strTemp amp。 selected strTemp=strTemp amp。 amp。 onchange=39。Turn to:select name=39。 strUnit amp。nbsp。 /font/ amp。 amp。 page= amp。 strTemp=strTemp amp。 (CurrentPage+1) amp。 a href=39。Previous/aamp。 strUrl amp。nbsp。 amp。 First Previousamp。nbsp。 totalnumber amp。 sfilename amp。 method=39。***********************************************sub enshowpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= table align=39。 ShowAllPages 是否用下拉列表顯示所有頁面以供跳轉(zhuǎn)。參 數(shù)：sfilename 鏈接地址39。 /td/tr/form/table strTemp end sub39。 第 amp。 i amp。javascript:submit()39。page39。 /頁 if ShowAllPages=True then strTemp=strTemp amp。b amp。 n amp。nbsp。 n amp。 a href=39。 39。 amp。nbsp。 page= amp。 strTemp=strTemp amp。 strUrl amp。nbsp。amp。 /b amp。 39。Post39。center39。有某些頁面不能使用，否則會出現(xiàn)JS錯誤。 totalnumber 總數(shù)量39。***********************************************39。)len(strUrl) then JoinChar=strUrl amp。這就是“查找”的實現(xiàn)，而“查找下一個”功能的39。 的網(wǎng)址39。作 用：向地址中加入 ? 或 amp。lt。quot。,) l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c255 then t=t+2 else t=t+1 end if if t=strlen then gotTopic=left(str,i) amp。,chr(34)),amp。*************************************************function gotTopic(str,strlen) if str= then gotTopic= exit function end if dim l,t,c, i str=replace(replace(replace(replace(str,amp。作 用：截字符串，漢字一個算兩個字符，英文算一個字符39。DRIVER={Microsoft Access Driver (*.mdb)}。數(shù)據(jù)庫文件位置on error resume nextconnstr=DBQ=+(amp。幾個月的時間內(nèi)，我除學(xué)會開發(fā)數(shù)據(jù)庫外更重要的是學(xué)到了兢兢業(yè)業(yè)，奮發(fā)學(xué)習(xí)的精神，這種精神是我今后人生前進道路上的一種力量。參考文獻[1] 《ASP網(wǎng)絡(luò)編程技術(shù)與實例》四圍科技 胡標(biāo)編著 人民郵電出版社 2004年5月第1版[2] 《數(shù)據(jù)庫系統(tǒng)概論（第四版）》 薩師煊 王刪編著 高等教育出版社 2006年12月第3版[3] 李雁翎，陳光．《Access 2000基礎(chǔ)與應(yīng)用》[M]．北京：清華大學(xué)出版社，2003.[4] [美] Khristine Annwn Page著 王軍 譯，《Dreamweaver MX 2004 網(wǎng)頁設(shè)計標(biāo)準(zhǔn)教材（中文版）》電子工業(yè)出版社 200409 [5] 解密SEO——搜索引擎優(yōu)化與網(wǎng)站成功戰(zhàn)略》作者：(美)歐朝暉 電子工業(yè)出版社[6] 尚俊杰，《網(wǎng)絡(luò)程序設(shè)計——ASP案例教程》清華大學(xué)出版社 2004111.[7] 任勝兵,[M].，2004．[8] 王興東，《ASP amp。做畢業(yè)設(shè)計的過程中，熟悉了數(shù)據(jù)庫的應(yīng)用和開發(fā)，對許多軟件的安裝原理有了較深刻的認(rèn)識；對軟件的開發(fā)過程、軟件工程理論都有了進一步的了解，大大豐富了軟件開發(fā)經(jīng)驗；并且對以前學(xué)習(xí)過程中所學(xué)到的相關(guān)知識有了更加深的了解，并進一步把它應(yīng)用到畢業(yè)設(shè)計中。在這段時間的設(shè)計中，我感覺自己學(xué)了很多的以前沒有深入了解的知識和從未接觸過的知識。其功能基本符合企業(yè)需求，能夠完成基本的新聞發(fā)布、產(chǎn)品發(fā)布等。(7)本網(wǎng)站是示范性的畢業(yè)設(shè)計作品，不能應(yīng)用在大型的企業(yè)。(3)此網(wǎng)站的操作人員要有一定的計算機基礎(chǔ)。(2)修改某段代碼后可一在瀏覽器中預(yù)覽結(jié)果，如果仍有問題重復(fù)(1)。設(shè)計邏輯結(jié)構(gòu)時一般要分3步進行：(1)將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次