ASP建站十大常用程序代码完整篇

1、这个教程我要分10篇给大家来做分析,这十大常用程序都包括什么呢?下面我给大家列出大纲工参考: 第一节:注册系统 注册几乎是每个网站都要使用的，去论坛要注册，聊天要注册，几乎无处不注册，所以注册是所有ASP应用程序中最常见的。 第二节:留言薄 互联网最大的特点是互动性，让网友在留言薄上留下自己的意见能使网站的人气值上升不少。 第三节:调查系统 利用网络进行一些调查是非常常见的，轻轻一点投下自己一票，因此有一个调查系统能为网站增色不少。 第四节:购物车 购物车这个名字取自超级市场的购物推车，不过这个小小的推车却是每个购物网站必备的。 第五节:计数器 在浏览网页的时侯，常常可以看见一些“当前网站上的

2、人数是xxxx人”的在线人数统计。 第六节:论坛系统 论坛可以说是网站中最受网友欢迎的地方，网友可以在这里自由的发表自己的意见，网站人气的高低很大程度上由论坛决定，因此为我们的网站增加一个论坛是必须的。 第七节:聊天室 当你独自在Internet上浏览时，你并不是一个孤单的“旅人”，因为每时每刻总有成千上万的人同时在网上浏览，你可以同他们聊聊天，交谈几句，让自己体验一下 “网”内存知己、天涯若比邻的感觉 第八节:EMail 当你独自在Internet上浏览时，你并不是一个孤单的“旅人”，因为每时每刻总有成千上万的人同时在网上浏览，你可以同他们聊聊天，交谈几句，让自己体验一下 “网”内存知己、天

3、涯若比邻的感觉。 第九节:搜索系统 一个大型网站内容众多，来访者往往很难找到自己所需要的东西，这时候就需要一个站内搜索来帮助来访者更快的找到索要的资料，所以搜索系统是一个大型网站必备系统。 第十节:分页程序 从程序上说分页只是一种小技巧，但确实却是一个非常重要的小技巧，好，少说废话，我们开始吧。好了以上是我要给大家分别讲解的教程.欢迎大家及时收藏和支持 这里先给大家讲解 第一节:注册系统（一），设定注册页面的外观：在这个例子中涉及了五个页面，其中有三幅是一般的htm文件，另外的两幅是asp文件，在这里制作利用的工具是frontpage98，但是大部分的asp代码还是要自己输入的：1，设定原来已

4、经注册的用户进入的外观：在这里设置了两个文本框，一个超级链接和两个按钮。两个文本框分别用来输入帐号（txtNum）和密码（txtPasswd），超级链接（New）链接到新用户进行注册的页面，两个按钮是用来提交和清除的，用来清除的按钮（cmdReset）直接选择为Reset类型，不过用来提交的按钮（cmdTijiao）并不要选择为Submit类型，而选择的是Normal类型，这是为了在这个按钮的onClick事件中添加代码，并且判断用户的输入是否合法！2，设定新用户登陆的页面外观：一般都是要新用户输入帐号，密码，姓名，及相关的一些信息，在这里我们有五个文本框，一个下拉式列表框和两个按钮，五个文本

5、框就分别是让用户输入姓名，email，帐号，密码，确定密码。但是其中只有用来输入帐号，密码和确定密码的文本框有名字，分别为txtNum，txtPasswd和txtConfirm。提交按钮的名字为cmdTijiao3，这一步当然是设定注册成功后用户所进的页面了，这就由大家决定吧：）（二），添加程序代码：1，首先添加原来已经注册用户页面的代码，它主要是处理cmdTijiao_onClick事件，并且判断用户的输入是否合法，在这个例子中要求帐号必须是数字，密码不能为空，代码如下，其中frmRes是这个页面中窗口的名字，窗口的Action指向http:/your/ResJudge.aspsub cmd

6、Tijiao_onClick()if frmRes.txtNum.value= or frmRes.txtPasswd.value= or (Not IsNumeric(frmRes.txtNum.value) thenAlert请在帐号和密码中输入相应的内容，帐号必须为数字！else frmRes.submitend ifend sub 2，添加新用户登陆的页面代码，这些代码是用来处理cmdTijiao_onClick事件的，要求用户输入的帐号必须是数字，密码和确定密码必须相同，这个页面的窗口的Action指向http:/your/NewRes.asp，代码如下sub cmdTijiao_o

7、nClick()if Not Numeric(frmNew.txtNum.value) or frmNew.txtPasswd.valuefrmNew.txtConfirm.value thenAlert输入不正确，请重新输入！else frmNew.submitend ifend sub3，创建ResJudge.asp文件，这个asp文件的主要功能就是打开存储注册信息的数据库，查找是否有与前面页面提交的帐号和密码相匹配的纪录，如果有，就是注册成功，同时也可以在数据库中查找出这个用户的相关信息来，应允许这个用户进入他所希望进去的页面，如果没有则注册失败，整个代码如下htmlheadmeta h

8、ttp-equiv=Content-Type content=text/html;charset=gb2312meta name=GENERATOR content=Microsoft Fronpage 3.0titile注册判断/title/headbody%Num=Request.form(txtNum) 把前面窗口传送来的内容赋给Num和Passwd两个字符串。Passwd=Request.form(txtPasswd)dbname=Driver=Microsoft Access Driver(*.mdb);DBQ=&Server.MapPath()&ResDbRes.mdb; dbna

9、me是打开数据库要用的set Cres=Server.CreateObject(ADODB.Connection) 以下是利用Connection对像和Recordset对象联结数据库并查找的代码。set res=Server.CreateObject(ADODB.Recordset)Cres.open dbnameres.ActiveConnection=Cresres.source=Select*from res where 帐号=&Num& and 密码=&Passwd&;res.openif res.BOF then 如果查找结果为空，那么就说明注册不正确，所以在页面中显示下面的文本/

10、%p注册不正确， 请返回注册页面重新注册！/p%else “否则就说明注册成功，可以进入浏览页面！%!-#Include virtual=/success.htm- 这里采用了Server Side Include的方法，把允许浏览的页面包含在这个文件里面！% res.Close “ 关闭刚才打开的数据库。end if %/body/html4，创建 NewRes.asp文件，这个文件的主要功能是把新用户的登陆信息存入数据库，代码如下htmlheadmeta http-equiv=Content-Type content=text/html;charset=gb2312meta name=GE

11、NERATOR content=Microsoft frontpage 3.0title输入数据库/title/headbody!-#Include virtual=/adovbs.inc “这个被包含进来的文件adovbs.inc是定义数据库对象ADO常量的文件。%Num=Request.form(txtNum) “把前面主页传送过来的内容赋给Num和Passwd两个变量。Passwd=Request.form(txtPasswd)Set res=Server.CreateObject(ADODB.Recordset) “打开数据库。dbname=Driver=Microsoft Acces

12、s Driver(*.mdb);DBQ=&ServerMapPath()&ResDbRes.mdb;sql=select*from resres.open sql,dbName,adOpenKeyset,adLockOptimisticres.AddNew “添加新纪录res(1)=Num “res(1)代表数据库中的第二个字段，存储的是用户的帐号。res(2)=Passwd “res(2)代表数据库中的第三个字段，存储的是用户的密码。res.Update “更新数据库/res.Close %pbfont face=楷体_gb2312 size=5您的帐号和密码已经注册成功，您现在可以a hr

13、ef=http:/your/index.htm进入/a了！/font/p /body/html好了简单的代码就先讲解到这里,那里不对忘指教,下一节继续讲解用ASP设计一个留言薄,请各位及时收藏 本帖最后由 case 于 2006-7-1 17:14 编辑 -作者: 天涯风云 时间: 2006-7-1 09:58第二节:留言薄 今天呢我们继续学习ASP建站十大常用程序 第二节,这一节代码比较多请大家耐心的学习.本节我们要讲两个方面的知识: 前者是一个输入界面，后者是一个显示界面，用于显示留言信息.用ASP设计一个留言薄(上) 首先，我们在做留言薄之前，先做出一个输入屏的界面效果，也就是生成留言部

14、输入屏幕的htmL页，然后在这些htmL源代码中加入ASP脚本，我这里得到的htmL代码如下。*文件名：book.htmhtml headtitle留言薄/title/headbody bgcolor=#BED9FC background=images/bg.gifp align=centerimg src=images/gbook.gif alt=GBook.gif (12142 bytes) WIDTH=374HEIGHT=83 /pp align=centera href=disp.asp我要看留言板/a a href=./index.asp返回首页/a/pform method=POS

15、T action=book.aspinput type=hidden name=task value=insertdiv align=lefttabletrtd align=right姓名/tdtdimg src=images/bottom-b.gif alt=BUTTOM-B.GIF (179 bytes) WIDTH=16 HEIGHT=16/tdtdinput name=name size=46/td/trtrtd align=right性别/tdtdimg src=images/bottom-g.gif alt=BUTTOM-G.GIF (179 bytes) WIDTH=16 HEI

16、GHT=16/tdtdinput name=sex size=46/td/trtrtd align=right来自/tdtdimg src=images/bottom-b.gif alt=BUTTOM-B.GIF (179 bytes) WIDTH=16 HEIGHT=16/tdtdinput name=from size=46/td/trtrtd align=right主页URL/tdtdimg src=images/homepage.gif alt=HomePage.gif (1232 bytes) WIDTH=30 HEIGHT=30/tdtdinput name=url size=46

17、/td/trtrtd align=right E-mail/tdtdimg src=images/email.gif alt=Email.gif (1197 bytes) WIDTH=30 HEIGHT=30/tdtdinput name=email size=46/td/trtrtd align=right留言/tdtd colspan=2textarea wrap=off name=comments cols=49 rows=9/textarea/td/trtrtd /tdtd colspan=2dldd align=center input type=submit value=我写好了

18、input type=reset value=重新再写/dd/dl/td/tr/table/div/formp align=center/p/body/html您可以按这里看一下这个界面的效果（需要强调一点，这些htmL代码还是完全没有功能的）你可以把它保存为book.htm，然后用FRONTPAGE98来打开它，打开后，可以查看网页中的那个输入FORM的属性，在这个留言薄中。我们使用两个文件来处理，一个是book.asp，另一个是disp.asp，前者是一个输入界面，后者是一个显示界面，用于显示留言信息。用ASP设计一个留言薄(下)现在说说book.htm，让大家了解一下其中的那个输入FOR

19、M的作用，它的action对象是本身，book.asp（等一会儿需要把book.htm改名为book.asp）这个文件，也就是说。表单提交后，由本身来作处理。在这个FORM中，有几个文本输入框，它们分别是name，sex，from，url，email，以及多行文本输入框comments。 现在把book.htm改名为book.asp，往文件中添加ASP代码。如下：（单引号表示ASP的注析，编译器是不处理的。 *book.asp % language=vbscript %判断请求方式，当客户端请求文件时，比如直接输入网址：/index.htm

20、这样，就会产生一个GET的请求信息。而提交表单时（表单的方式设为POST），就会产生POST的请求方式，现在判断book.asp这个文件是用户用浏览器打开页面，还是用户提交数据这个动作，以便进行程序处理。 if Request.ServerVariables(REQUEST_METHOD)=POST then这里判断出是由用户提交表单而调入入的页面，因此进行登记留言处理。 创建一个文件组件的服务器实例set fsFilesys=CreateObject(Scripting.FileSystemObject)打开文本文件server.mappath(/)是返回服务器发行目录的真实路径，也就是比如

21、说：c:Inetpubwwwroot这个路径，然后/realchat/book/book.txt就是相对于这个路径基础上的路径。set myText=fsFilesys.OpenTextFile(Server.MapPath(/)&/realchat/book/book.txt)把文本文件的所有内容读出，保存在Temp这个变量中。Temp=myText.ReadallmyText.Close是否需要添加内容if Request(task)=insert Then取得表单的各项的值Tname=request.form(name)Tsex=request.form(sex)Temail=reque

22、st.form(email)turl=request.form(url)Tfrom=request.form(from)Tcomments=request.form(comments)Ttime=#&timeif Len(Tcomments)2 Then%font size=4 color=redp align=center对不起！你还未留言。a href=book.asp返回/a/font %elseif Lcase(Left(Turl,7)http:/ ThenTurl=http:/&TurlEnd ifTurl=Lcase(Turl)重新创建数据文件，把原来的覆盖掉。set myText

23、=fsFilesys.CreateTextFile(Server.MapPath(/)&/realchat/book/book.txt)myText.WriteLine(Tname)myText.WriteLine(Tsex)myText.WriteLine(Temail)myText.WriteLine(Turl)myText.WriteLine(Tfrom)myText.WriteLine(Tcomments)myText.writeLine(Ttime)myText.WriteLine(date)myText.writeLine(Temp)myText.Close%script Lang

24、uage=JavaScriptdocument.write(h1恭喜！您的留言已顺利提交，请按a href=disp.asp这里/a查看)/script%end if至此，留言已保存入文件book.txt中End ifelse第一次进入输入屏幕，因此显示htmL文件内容。%htmlheadtitle留言薄/title% colorbg=#BED9FC %/headbody bgcolor=% =colorbg % background=images/bg.gifp align=centerimg src=images/gbook.gif alt=GBook.gif (12142 bytes)

25、WIDTH=374HEIGHT=83 /pp align=centera href=disp.asp我要看留言板/a a href=./index.asp返回首页/a/pform method=POST action=book.aspinput type=hidden name=task value=insertdiv align=lefttabletrtd align=right姓名/tdtdimg src=images/bottom-b.gif alt=BUTTOM-B.GIF (179 bytes) WIDTH=16 HEIGHT=16/tdtdinput name=name size=

26、46/td/trtrtd align=right性别/tdtdimg src=images/bottom-g.gif alt=BUTTOM-G.GIF (179 bytes) WIDTH=16 HEIGHT=16/tdtdinput name=sex size=46/td/trtrtd align=right来自/tdtdimg src=images/bottom-b.gif alt=BUTTOM-B.GIF (179 bytes) WIDTH=16 HEIGHT=16/tdtdinput name=from size=46/td/trtrtd align=right主页URL/tdtdimg

27、 src=images/homepage.gif alt=HomePage.gif (1232 bytes) WIDTH=30 HEIGHT=30/tdtdinput name=url size=46/td/trtrtd align=right E-mail/tdtdimg src=images/email.gif alt=Email.gif (1197 bytes) WIDTH=30 HEIGHT=30/tdtdinput name=email size=46/td/trtrtd align=right留言/tdtd colspan=2textarea wrap=off name=comme

28、nts cols=49 rows=9/textarea/td/trtrtd /tdtd colspan=2dldd align=center input type=submit value=我写好了 input type=reset value=重新再写/dd/dl/td/tr/table/div/formp align=center/p/body/html%end if%现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然后重新生成htmL代码以显示出留言内容。 代码如下： % language=vbscript %htmlheadtitle留言薄/title

29、/headbody background=images/back.gifp align=centerimg src=images/gbook.gif alt=gbook.gif (12142 bytes) WIDTH=374 HEIGHT=83%打开数据文件set fsFilesys=CreateObject(Scripting.FileSystemObject)set myText=fsFilesys.OpenTextFile(Server.MapPath(/)&/realchat/book/book.txt)Tname=myText.ReadLine% /pp align=centerfo

30、nt color=#00FFFF size=4a href=book.asp我要写留言/a/fontfont color=#00FFFFa href=./index.asp返回首页/a/font/ptable width=600%do while TnameLine1逐行读出内容（Line1）是文件结束标志Tsex=myText.ReadLineTemail=myText.ReadLineTurl=myText.ReadLineTfrom=myText.ReadLine%trtdhr/td/trtr%=表达式%是向客户端输出结果th colspan=2 align=left姓 名：% =Tna

31、me %br性 别：% =Tsex %brEmail：a href=mailto:% =Temail % =Temail %/abr主页URL：a href=% =Turl % target=_blank% =turl %/abr来 自：% =Tfrom %/th/trtrth align=left bgcolor=% =colorbg %font color=red留 言：/font/thth align=left bgcolor=% =colorbg %Tcomments=myText.ReadLinedo while InStr(Tcomments,#&)=0% =Tcomments %

32、br%Tcomments=myText.ReadLineloopTtime=Mid(Tcomments,4)Tdate=myText.ReadLine% /th/trtrth colspan=2 align=left时 间：% =Ttime % br日 期：% =Tdate %/th/trtrtdbr%tname=myText.ReadLineloopmyText.Close% /td/tr/tablepbrbr/p/body/html 好了，仔细地把源文件DOWN下去，自己不断修改，不断测试一下，这样对学习很有好处，看看book.txt的内容。 *book.txt的内容，里面有一条留言 -作

33、者: 天涯风云 时间: 2006-7-1 17:06 标题: 第三节:调查系统调查系统用ASP制作张扬个性的调查系统(1) 随着网络的普及，网上调查往往能达到较好的效果。在自己的个人站点上放一个趣味问题调查板，着实能为网站添色不少；况且通过调查结果你能更多更准确了解网友对自己站点的看法。作为Webmaster，如果你的网站也需要就某个主题进行调查，而你又讨厌使用别人免费提供的调查板（免费往往是要付出代价的，比如打广告！），那么我建议你花十几分钟时间看完这篇介绍用ASP制作调查板的文章。你只要把文中的代码Copy到你的机子上，稍做修改，你立即就拥有一个属于你自己的个性化调查板。好了，打起精神往下

34、看吧。本调查板共有三个文件：显示调查问题(research.html)、处理用户选择(select.asp)、浏览调查结果(viewresult.asp)。设计思路为：ASP取得由表单发来的信息，并据此修改记录调查得票数的数据库，然后ASP读取数据库，获得各个调查问题的得票数目，通过得票数多少来调节对应条形图显示的宽来直观比例地给出调查结果。在程序的关键处，我都给出了较为详细的注释，这里就不再讲述ASP的基本知识。读者可以到陶吧ASP专栏查阅。当然，我希望你在自己的服务器上调试程序时，有不懂的地方，还是查查身边的ASP技术手册，看看对象、方法或函数的详细语法试着修改，看看结果如何变化这可是学习

35、编程的一个好方法呢。 一、显示调查问题(research.html)调查问题的设计要依据实际情况，或讲究实用性或讲究趣味性，在网页上显示的风格也或朴素或活泼，本例中是笔者主页上的一个关于“21世纪最重要的是什么？”的趣味调查，为说明问题，下面的代码中省略了美观修饰的代码，你自己动手设计时完全可以使用表格等技巧美化调查问题的显示。为了使提交或浏览调查时不影响当前页面，程序中给出了弹出新窗口的方案。researchindex.html: html title 调查板测试 /title head !- start：定义新开的窗口- script language=javascript !- var

36、newWindow = nullfunction OpenWindow(htmurl) if (! newWindow | newWindow.closed)newWindow = window.open(htmurl,newwin,toolbar=no,resiza =no,scrollbars=no,width=400,height=280);elsenewWindow.focus();/- /script !- end：定义新开的窗口- /head body !- start：调查题目、选项- p 您认为21世纪最重要的是什么？ /p form method=POST action=vo

37、te/select.asp name=research LANGUAGE=javascript onSubmit=OpenWindow() target=newwin p align=left br input type=radio value=1 name=Options 知识（知识就是力量） br input type=radio value=2 name=Options 学历（学历社会没有终结） br input type=radio value=3 name=Options 金钱（经济就是基础） br input type=radio value=4 name=Options 爱情（永

38、不进入坟墓的爱情） br input type=radio value=5 name=Options 理想（天啦，理想是什么） br input type=radio value=6 name=Options 民主意识（关心政治） br input type=radio value=7 name=Options 科学思想（科教兴国） br input type=submit value=提交 name=voting input type=button value=查看 name=viewing onClick=OpenWindow(vote/viewresult.asp) /form !- s

39、tart：调查题目、选项- /body /html 用ASP制作张扬个性的调查系统(2) 二、处理用户选择(select.asp)依据上面的调查选项，我们得出记录调查得票的数据库researchdb.mdb的设计（以Access为例)，表名为：research。如果你的数据库和表没有存为以上的名字，那么在后面的程序和操作中你不要忘记也相应修改过来。 存放调查投票数的表research： 字段名 数据类型 默认值 id 自动编号 1 select1 数字 0 select2 数字 0 select3 数字 0 select4 数字 0 select5 数字 0 select6 数字 0 sele

40、ct7 数字 0 建好数据库后，我们来在服务器上建立数据源。首先，运行“控制面板”中的“ODBC”，选择“系统DSN”，按“添加”按钮，选取“Microsoft Access Driver”，选定后按“完成”按钮,然后在ODBC设定中“数据源名”输入框输入数据库名称，本例中为researchdb，然后按下“选取”按钮选择数据库文件（你不会说你忘记了刚刚设计的数据库存在那里了吧），选定后按“确定”，你即可看到新建的数据源researchdb。这样，我们就可以在ASP中调用了。select.asp: %下面的if语句是通过验证selected是否为空来判断用户是否作了选择if request.fo

41、rm(options) Empty then% %下面的if语句是通过比较Request的两个collection(ServerVariables和Cookies)的值来防止用户连续按提交而影响调查的结果if not Request.ServerVariables(REMOTE_ADDR)=request.cookies(IPAddress) then把访问客户的IP信息写入Cookiesresponse.cookies(IPAddress)=Request.ServerVariables(REMOTE_ADDR)% %建立连接（Connection）对象，打开记录调查结果的数据库set co

42、nn=server.createobject(ADODB.CONNECTION)conn.open researchdb% %定义变量dim rsdim sqldim selectedselected=request.form(options)建立记录集合（Recordset）对象，用方法Open打开对象，同时修改对应的数据set rs=server.createobject(adodb.recordset)修改数据表ressearch中的数据，即对应的投票数增加1sql=update research set select&selected&=select&selected&+1 where

43、 id=1rs.open sql,conn,3,3从内存中清除记录集合对象set rs=nothing关闭连接 conn.close从内存中清除连接对象set conn=nothing连接到浏览调查结果的页面response.redirect viewresult.aspelseResponse.write 投票失败提示：您刚才已投了票，谢谢您的支持！end if elseResponse.write 投票失败提示：您忘记选择了！end if% 三、浏览调查结果(viewresult.asp) 本例中使用条形图来直观显示调查结果，方法是用选项的投票数占总投票数的百分比值乘上5，得出的值作为条形

44、图bar.gif显示的宽（可用常见的图象工具制作一个渐变色的小条形图，或是到网上down一个)。为了给出带两为小数的得票的百分比，程序中使用了VBScript中的四舍五入函数Round。为了美观，把调查结果放到表格中显示，如图所示。下面给出的代码中略去了表格的设计。viewresult.asp %set conn=server.createobject(ADODB.CONNECTION)conn.open researchdb% %dim rsdim sqldim select1dim select2dim select3dim select4dim select5dim select6dim

45、 select7dim totalset rs=server.createobject(adodb.recordset)sql=select * from research where id=1rs.open sql,conn,1,1total=rs(select1)+rs(select2)+rs(select3)+_ rs(select4)+rs(select5)+rs(select6)+rs(select7)判断总票数是否为0，确保下面的除法有效if total 0 thenselect1=(rs(select1)/total)*100select2=(rs(select2)/total)

46、*100select3=(rs(select3)/total)*100select4=(rs(select4)/total)*100select5=(rs(select5)/total)*100select6=(rs(select6)/total)*100select7=(rs(select7)/total)*100% p 谢谢您的参与，下面是当前的调查结果 p 知识: img src=bar.gif width= %=int(select1*5)% height=4 %=rs(select1)% 人 占： %=round(select1,2)% % br 学历: img src=bar.gi

47、f width= %=int(select2*5)% height=4 %=rs(select2)% 人 占： %=round(select2,2)% % br 金钱: img src=bar.gif width= %=int(select3)*5% height=4 %=rs(select3)% 人 占： %=round(select3,2)% % br 爱情: img src=bar.gif width= %=int(select4)*5% height=4 %=rs(select4)% 人 占： %=round(select4,2)% % br 理想: img src=bar.gif width= %=int(select5)*5% height=4 %=rs(select5)% 人 占： %=round(select5,2)% % br 民主意识: img