小型企业网站论文

小型企业网站论文内容摘要：

12月第3版[3] 李雁翎，陈光．《Access 2000基础与应用》[M]．北京：清华大学出版社，2003.[4] [美] Khristine Annwn Page著 王军 译，《Dreamweaver MX 2004 网页设计标准教材（中文版）》电子工业出版社 200409 [5] 解密SEO——搜索引擎优化与网站成功战略》作者：(美)欧朝晖 电子工业出版社[6] 尚俊杰，《网络程序设计——ASP案例教程》清华大学出版社 2004111.[7] 任胜兵,[M].，2004．[8] 王兴东，《ASP amp。 应用编程 150 例》电子工业出版社 200405致 谢在完成论文的过程中，陈立斌指导老师给予我悉心的关心与指导，在此表示衷心的感谢。 陈老师认真负责的工作态度、严谨的治学风格、勤奋的工作作风深深地打动了我，在以后的学习工作道路上我要学习他这种精神。 在开发网站的同时，和同学们之间的相互探讨也使我受益匪浅。 几个月的时间内，我除学会开发数据库外更重要的是学到了兢兢业业，奋发学习的精神，这种精神是我今后人生前进道路上的一种力量。 另外，我要感谢湖南理工学院的所有老师，是他们指引了我的前进方向、是他们的谆谆教诲和辛勤劳动让我对计算机的知识有了全面的学习和了解，还要感谢所有关心、帮助过我的同学，让我在大学生活中有了丰富的一面。 最后，我还要感谢我的父母，是他们这些年的辛苦工作和苦心教导，使我有了进大学学习的机会，才有了今天的学识。 附录(部分)源代码%dim conn,dbdim connstrdb=Databases/%@$@FDS@$%%.asp 39。 数据库文件位置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。 函数名：gotTopic39。 作 用：截字符串，汉字一个算两个字符，英文算一个字符39。 参 数：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。 函数名：JoinChar39。 作 用：向地址中加入 ? 或 amp。 39。 参 数：strUrl 网址39。 返回值：加了 ? 或 amp。 的网址39。 pos=InStr(1,abcdefg,cd) 39。 则pos会返回3表示查找到并且位置为第三个字符开始。 39。 这就是“查找”的实现，而“查找下一个”功能的39。 实现就是把当前位置作为起始位置继续查找。 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。 参 数：sfilename 链接地址39。 totalnumber 总数量39。 maxperpage 每页数量39。 ShowTotal 是否显示总数量39。 ShowAllPages 是否用下拉列表显示所有页面以供跳转。 有某些页面不能使用，否则会出现JS错误。 39。 strUnit 计数单位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。 参 数：sfilename 链接地址39。 totalnumber 总数量39。 maxperpage 每页数量39。 ShowTotal 是否显示总数量39。 ShowAllPages 是否用下拉列表显示所有页面以供跳转。 有某些页面不能使用，否则会出现JS错误。 39。 strUnit 计数单位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。