【文章內(nèi)容簡介】 12月第3版[3] 李雁翎，陳光．《Access 2000基礎與應用》[M]．北京：清華大學出版社，2003.[4] [美] Khristine Annwn Page著 王軍 譯，《Dreamweaver MX 2004 網(wǎng)頁設計標準教材（中文版）》電子工業(yè)出版社 200409 [5] 解密SEO——搜索引擎優(yōu)化與網(wǎng)站成功戰(zhàn)略》作者：(美)歐朝暉 電子工業(yè)出版社[6] 尚俊杰，《網(wǎng)絡程序設計——ASP案例教程》清華大學出版社 2004111.[7] 任勝兵,[M].，2004．[8] 王興東，《ASP amp。 應用編程 150 例》電子工業(yè)出版社 200405致 謝在完成論文的過程中，陳立斌指導老師給予我悉心的關心與指導，在此表示衷心的感謝。陳老師認真負責的工作態(tài)度、嚴謹?shù)闹螌W風格、勤奮的工作作風深深地打動了我，在以后的學習工作道路上我要學習他這種精神。在開發(fā)網(wǎng)站的同時，和同學們之間的相互探討也使我受益匪淺。幾個月的時間內(nèi)，我除學會開發(fā)數(shù)據(jù)庫外更重要的是學到了兢兢業(yè)業(yè)，奮發(fā)學習的精神，這種精神是我今后人生前進道路上的一種力量。另外，我要感謝湖南理工學院的所有老師，是他們指引了我的前進方向、是他們的諄諄教誨和辛勤勞動讓我對計算機的知識有了全面的學習和了解，還要感謝所有關心、幫助過我的同學，讓我在大學生活中有了豐富的一面。最后，我還要感謝我的父母，是他們這些年的辛苦工作和苦心教導，使我有了進大學學習的機會，才有了今天的學識。附錄(部分)源代碼%dim conn,dbdim connstrdb=Databases/%@$@FDS@$%%.asp 39。數(shù)據(jù)庫文件位置on error resume nextconnstr=DBQ=+(amp。dbamp。)+。DefaultDir=。DRIVER={Microsoft Access Driver (*.mdb)}。set conn=()if err thenelse connstrend ifsub CloseConn() set conn=nothingend sub%%39。*************************************************39。函數(shù)名：gotTopic39。作 用：截字符串，漢字一個算兩個字符，英文算一個字符39。參 數(shù)：str 原字符串39。 strlen 截取長度39。返回值：截取后的字符串39。*************************************************function gotTopic(str,strlen) if str= then gotTopic= exit function end if dim l,t,c, i str=replace(replace(replace(replace(str,amp。nbsp。, ),amp。quot。,chr(34)),amp。gt。,),amp。lt。,) 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。 … exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic, ,amp。nbsp。),chr(34),amp。quot。),amp。gt。),amp。lt。)end function39。***********************************************39。函數(shù)名：JoinChar39。作 用：向地址中加入 ? 或 amp。39。參 數(shù)：strUrl 網(wǎng)址39。返回值：加了 ? 或 amp。 的網(wǎng)址39。pos=InStr(1,abcdefg,cd) 39。則pos會返回3表示查找到并且位置為第三個字符開始。39。這就是“查找”的實現(xiàn)，而“查找下一個”功能的39。實現(xiàn)就是把當前位置作為起始位置繼續(xù)查找。39。***********************************************function JoinChar(strUrl) if strUrl= then JoinChar= exit function end if if InStr(strUrl,?)len(strUrl) then if InStr(strUrl,?)1 then if InStr(strUrl,amp。)len(strUrl) then JoinChar=strUrl amp。 amp。 else JoinChar=strUrl end if else JoinChar=strUrl amp。 ? end if else JoinChar=strUrl end ifend function39。***********************************************39。過程名：showpage39。作 用：顯示“上一頁 下一頁”等信息39。參 數(shù)：sfilename 鏈接地址39。 totalnumber 總數(shù)量39。 maxperpage 每頁數(shù)量39。 ShowTotal 是否顯示總數(shù)量39。 ShowAllPages 是否用下拉列表顯示所有頁面以供跳轉。有某些頁面不能使用，否則會出現(xiàn)JS錯誤。39。 strUnit 計數(shù)單位39。***********************************************sub showpage(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。center39。form name=39。showpages39。 method=39。Post39。 action=39。 amp。 sfilename amp。 39。trtd if ShowTotal=true then strTemp=strTemp amp。 共 b amp。 totalnumber amp。 /b amp。 strUnit amp。 amp。nbsp。amp。nbsp。 end if strUrl=JoinChar(sfilename) if CurrentPage2 then strTemp=strTemp amp。 首頁 上一頁amp。nbsp。 else strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page=139。首頁/aamp。nbsp。 strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 (CurrentPage1) amp。 39。上一頁/aamp。nbsp。 end if if ncurrentpage1 then strTemp=strTemp amp。 下一頁 尾頁 else strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 (CurrentPage+1) amp。 39。下一頁/aamp。nbsp。 strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 n amp。 39。尾頁/a end if strTemp=strTemp amp。 amp。nbsp。頁次：strongfont color=red amp。 CurrentPage amp。 /font/ amp。 n amp。 /strong頁 strTemp=strTemp amp。 amp。nbsp。b amp。 maxperpage amp。 /b amp。 strUnit amp。 /頁 if ShowAllPages=True then strTemp=strTemp amp。 amp。nbsp。轉到：select name=39。page39。 size=39。139。 onchange=39。javascript:submit()39。 for i = 1 to n strTemp=strTemp amp。 option value=39。 amp。 i amp。 39。 if cint(CurrentPage)=cint(i) then strTemp=strTemp amp。 selected strTemp=strTemp amp。 第 amp。 i amp。 頁/option next strTemp=strTemp amp。 /select end if strTemp=strTemp amp。 /td/tr/form/table strTemp end sub39。***********************************************39。過程名：enshowpage39。作 用：顯示“上一頁 下一頁”等信息39。參 數(shù)：sfilename 鏈接地址39。 totalnumber 總數(shù)量39。 maxperpage 每頁數(shù)量39。 ShowTotal 是否顯示總數(shù)量39。 ShowAllPages 是否用下拉列表顯示所有頁面以供跳轉。有某些頁面不能使用，否則會出現(xiàn)JS錯誤。39。 strUnit 計數(shù)單位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。center39。form name=39。showpages39。 method=39。Post39。 action=39。 amp。 sfilename amp。 39。trtd if ShowTotal=true then strTemp=strTemp amp。 Total b amp。 totalnumber amp。 /b amp。 strUnit amp。 amp。nbsp。amp。nbsp。 end if strUrl=JoinChar(sfilename) if CurrentPage2 then strTemp=strTemp amp。 First Previousamp。nbsp。 else strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page=139。First/aamp。nbsp。 strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 (CurrentPage1) amp。 39。Previous/aamp。nbsp。 end if if ncurrentpage1 then strTemp=strTemp amp。 Next Last else strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 (CurrentPage+1) amp。 39。Next/aamp。nbsp。 strTemp=strTemp amp。 a href=39。 amp。 strUrl amp。 page= amp。 n amp。 39。Last/a end if strTemp=strTemp amp。 amp。nbsp。Page No.:strongfont color=red amp。 CurrentPage amp。 /font/ amp。 n amp。 /strongpage strTemp=strTemp amp。 amp。nbsp。b amp。 maxperpage amp。 /b amp。 strUnit amp。 /page if ShowAllPages=True then strTemp=strTemp amp。 amp。