ASP建站-注册留言薄调查系统购物车计数器论坛聊天室搜索EMail分页程序-十大常用程序代码详解

1、注册留言薄调查系统购物车计数器论坛聊天室搜索EMail 分页程序第一节 :注册系统注册几乎是每个网站都要使用的，去论坛要注册，聊天要注册，几乎无处不注册，所以注册是所有 ASP 应用程序中最常见的。第二节 :留言薄互联网最大的特点是互动性，让网友在留言薄上留下自己的意见能使网站的人气值上升不少。第三节 :调查系统利用网络进行一些调查是非常常见的，轻轻一点投下自己一票，因此有一个调查系统能为网站增色不少。第四节 :购物车购物车这个名字取自超级市场的购物推车，不过这个小小的推车却是每个购物网站必备的。第五节 :计数器在浏览网页的时侯，常常可以看见一些“当前网站上的人数是xxxx 人”的在线人数统计

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

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

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

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

6、cmdTijiao_onClick()iffrmRes.txtNum.value=""orfrmRes.txtPasswd.value=""or(NotIsNumeric(frmRes.txtNum.value) thenAlert"请在帐号和密码中输入相应的内容，帐号必须为数字！"else frmRes.submitend ifend sub2，添加新用户登陆的页面代码，这些代码是用来处理cmdTijiao_onClick输入的帐号必须是数字，密码和确定密码必须相同，这个页面的窗口的事件的，要求用户Action指向http:/you

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

8、这个用户进入他所希望进去的页面，如果没有则注册失败，整个代码如下 html head meta http-equiv="Content-Type" content="text/html;charset=gb2312" meta name="GENERATOR" content="Microsoft Fronpage 3.0" titile 注册判断 /title /head body %Num=Request.form("txtNum") "把前面窗口传送来的内容赋给Num和 Pass

9、wd 两个字符串。Passwd=Request.form("txtPasswd")dbname="Driver=MicrosoftAccessDriver(*.mdb);DBQ="&Server.MapPath("")"&"ResDbRes.mdb;""dbname是打开数据库要用的set Cres=Server.CreateObject("ADODB.Connection")" 以下是利用Connection 对像和 Recordset对象联结数据

10、库并查找的代码。set res=Server.CreateObject("ADODB.Recordset")Cres.open dbnameres.ActiveConnection=Cresres.source="Select*from res where帐号 ="&Num&" and密码 ="&Passwd&""res.openif res.BOF then " 如果查找结果为空，那么就说明注册不正确，所以在页面中显示下面的文本% p注册不正确，请返回注册页面重新注册！/

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

12、;charset=gb2312" meta name="GENERA TOR" content="Microsoft frontpage 3.0" title 输入数据库/title /head body !-#Include virtual="/adovbs.inc" “这个被包含进来的文件adovbs.inc 是定义数据库对象ADO 常量的文件。 %Num=Request.form("txtNum")“ 把前面主页传送过来的内容赋给Num 和 Passwd 两个变量。Passwd=Request.fo

13、rm("txtPasswd")Set res=Server.CreateObject("ADODB.Recordset")“打开数据库。dbname="Driver=MicrosoftAccessDriver(*.mdb);DBQ="&ServerMapPath("")&"ResDbRes.mdb;"sql="select*from res"res.open sql,dbName,adOpenKeyset,adLockOptimisticres.AddNew“

14、添加新纪录res(1)=Num“ res(1)代表数据库中的第二个字段，存储的是用户的帐号。res(2)=Passwd “res(2)代表数据库中的第三个字段，存储的是用户的密码。res.Update “更新数据库res.Close %/ p b font face= 楷体 _gb2312 size=5 您的帐号和密码已经注册成功，a href="http:/your/index.htm"进入 /a了！ /font /p您现在可以 /body /html 好了简单的代码就先讲解到这里,那里不对忘指教,下一节继续讲解用ASP 设计一个留言薄,请各位及时收藏 本帖最后由case

15、 于 2006-7-1 17:14 编辑-作者 : 天涯风云时间 : 2006-7-1 09:58第二节 :留言薄今天呢我们继续学习ASP 建站十大常用程序第二节 ,这一节代码比较多请大家耐心的学习本节我们要讲两个方面的知识: 前者是一个输入界面，后者是一个显示界面，用于显示留言信息 .用 ASP 设计一个留言薄(上 ).首先，我们在做留言薄之前，先做出一个输入屏的界面效果，也就是生成留言部输入屏幕的 htmL 页，然后在这些htmL 源代码中加入ASP 脚本，我这里得到的htmL 代码如下。* 文件名： book.htm html head title 留言薄 /title /head bo

16、dy bgcolor="#BED9FC" background="images/bg.gif" p align="center" img src="images/gbook.gif" alt="GBook.gif (12142 bytes)" WIDTH="374"HEIGHT="83" /p p align="center" a href="disp.asp" 我要看留言板/a 回首页 /a /p a href=&

17、quot;./index.asp"返 form method="POST" action="book.asp" input type="hidden" name="task" value="insert" div align="left" table tr td align="right" 姓名 /td td img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 b

18、ytes)" WIDTH="16" HEIGHT="16" /td td input name="name" size="46" /td /tr tr td align="right" 性别 /td td img src="images/bottom-g.gif" alt="BUTTOM-G.GIF (179 bytes)" WIDTH="16" HEIGHT="16" /td td input name=

19、"sex" size="46" /td /tr tr td align="right" 来自 /td td img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16" /td td input name="from" size="46" /td /tr tr td align="right"

20、 主页 URL /td td img src="images/homepage.gif" alt="HomePage.gif (1232 bytes)" WIDTH="30" HEIGHT="30" /td td input name="url" size="46" /td /tr tr td align="right" E-mail /td td img src="images/email.gif" alt="Email.g

21、if (1197 bytes)" WIDTH="30" HEIGHT="30" /td td input name="email" size="46" /td /tr tr td align="right" 留言 /td td colspan="2" textarea wrap="off" name="comments" cols="49" rows="9" /textarea /td

22、/tr tr td /td td colspan="2" dl dd align="center" input type="submit" value=" 我写好了 " input type="reset" value=" 重新再写 " /dd /dl /td /tr /table /div /form p align="center" /p /body /html 您可以按这里看一下这个界面的效果（需要强调一点，这些htmL 代码还是完全没有功能的）你可

23、以把它保存为book.htm ，然后用 FRONTPAGE98 来打开它， 打开后， 可以查看网页中的那个输入FORM 的属性，在这个留言薄中。我们使用两个文件来处理，一个是book.asp，另一个是 disp.asp，前者是一个输入界面，后者是一个显示界面，用于显示留言信息。用 ASP 设计一个留言薄(下 )现在说说book.htm ，让大家了解一下其中的那个输入FORM 的作用，它的 action 对象是本身，book.asp（等一会儿需要把由本身来作处理。在这个book.htm 改名为book.asp）这个文件，也就是说。表单提交后，FORM 中，有几个文本输入框，它们分别是name，s

24、ex，from ，url，email ，以及多行文本输入框现在把 book.htm 改名为comments。book.asp，往文件中添加ASP 代码。如下：（单引号表示ASP 的注析，编译器是不处理的。*book.asp % language="vbscript" % %'判断请求方式，当客户端请求文件时，比如直接输入网址： 这样，就会产生一个 GET 的请求信息。 而提交表单时 （表单的方式设为 POST），就会产生 POST 的请求方式，现在判断 book.asp 这个文件是用户用浏览器打开页面，还是用户提交数据这个动作，以便进行程序处理。if Request

25、.ServerVariables("REQUEST_METHOD")="POST" then这里判断出是由用户提交表单而调入入的页面，因此进行登记留言处理。创建一个文件组件的服务器实例set fsFilesys=CreateObject("Scripting.FileSystemObject")打开文本文件server.mappath("/") 是返回服务器发行目录的真实路径，也就是比如说：c:Inetpubwwwroot 这个路径，然后 "/realchat/book/book.txt" 就是

26、相对于这个路径基础上的路径。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(&

27、quot;sex")Temail=request.form("email")turl=request.form("url")Tfrom=request.form("from")Tcomments=request.form("comments")Ttime="#&"&timeif Len(Tcomments) 2 Then% font size="4" color="red" p align="center" 对

28、不起！你还未留言。 a href="book.asp" 返回 /a /font % elseif Lcase(Left(Turl,7) "http:/" ThenTurl="http:/"&TurlEnd ifTurl=Lcase(Turl)重新创建数据文件，把原来的覆盖掉。set myText=fsFilesys.CreateTextFile(Server.MapPath("/")&"/realchat/book/book.txt")myText.WriteLine(Tname

29、)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 Language="JavaScript" document.write(" h1恭喜！您的留言已顺利提交，请按a href='disp.asp&#

30、39;这里 /a查看") /script %end if至此，留言已保存入文件book.txt 中End ifelse第一次进入输入屏幕，因此显示htmL 文件内容。% html head title 留言薄 /title % colorbg="#BED9FC" % /head body bgcolor=" % =colorbg % " background="images/bg.gif" p align="center" img src="images/gbook.gif" alt=

31、"GBook.gif (12142 bytes)" WIDTH="374"HEIGHT="83" /p p align="center" a href="disp.asp" 我要看留言板/a 回首页 /a /p a href="./index.asp"返 form method="POST" action="book.asp" input type="hidden" name="task" val

32、ue="insert" div align="left" table tr td align="right" 姓名 /td td img src="images/bottom-b.gif" alt="BUTTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16" /td td input name="name" size="46" /td /tr tr td align="

33、right" 性别 /td td img src="images/bottom-g.gif" alt="BUTTOM-G.GIF (179 bytes)" WIDTH="16" HEIGHT="16" /td td input name="sex" size="46" /td /tr tr td align="right" 来自 /td td img src="images/bottom-b.gif" alt="BU

34、TTOM-B.GIF (179 bytes)" WIDTH="16" HEIGHT="16" /td td input name="from" size="46" /td /tr tr td align="right" 主页 URL /td td img src="images/homepage.gif" alt="HomePage.gif (1232 bytes)" WIDTH="30" HEIGHT="30&qu

35、ot; /td td input name="url" size="46" /td /tr tr td align="right" E-mail /td td img src="images/email.gif" alt="Email.gif (1197 bytes)" WIDTH="30" HEIGHT="30" /td td input name="email" size="46" /td /tr tr td a

36、lign="right" 留言 /td td colspan="2" textarea wrap="off" name="comments" cols="49" rows="9" /textarea /td /tr tr td /td td colspan="2" dl dd align="center" input type="submit" value=" 我写好了 " input type=

37、"reset" value=" 重新再写 " /dd /dl /td /tr /table /div /form p align="center" /p /body /html %end if%现在到 disp.asp 这个文件，这个文件主要完成从book.txt中提取文件内容， 然后重新生成htmL代码以显示出留言内容。代码如下： % language="vbscript" % html head title 留言薄 /title /head body background="images/back.g

38、if" p align="center" img src="images/gbook.gif" alt="gbook.gif (12142 bytes)" WIDTH="374"HEIGHT="83" %打开数据文件set fsFilesys=CreateObject("Scripting.FileSystemObject")set myText=fsFilesys.OpenTextFile(Server.MapPath("/")&&qu

39、ot;/realchat/book/book.txt")Tname=myText.ReadLine% /p p align="center" font color="#00FFFF" size="4" a href="book.asp" 我要写留言 /a /font font color="#00FFFF" a href="./index.asp" 返回首页 /a /font /p table width="600" %do while Tnam

40、e "Line1"逐行读出内容（Line1 ）是文件结束标志Tsex=myText.ReadLineTemail=myText.ReadLineTurl=myText.ReadLineTfrom=myText.ReadLine% tr td hr /td /tr tr %= 表达式 %是向客户端输出结果 th colspan="2" align="left" 姓 名： % =Tname % br性 别： % =Tsex % brEmail ： a href="mailto: % =Temail % " % =Tem

41、ail % /a br主页 URL ： a href=" % =Turl % " target="_blank" % =turl % /a br来 自： % =Tfrom % /th /tr tr th align="left" bgcolor=" % =colorbg % " font color="red" 留言： /font /th th align="left" bgcolor=" % =colorbg % " %Tcomments=myText.

42、ReadLinedo while InStr(Tcomments,"#&")=0% % =Tcomments % br %Tcomments=myText.ReadLineloopTtime=Mid(Tcomments,4)Tdate=myText.ReadLine% /th /tr tr th colspan="2" align="left"时间：% =Ttime % br日期： % =Tdate % /th /tr tr td br %tname=myText.ReadLineloopmyText.Close% /td /

43、tr /table p br br /p /body /html 好了，仔细地把源文件 DOWN 下去，自己不断修改，不断测试一下，这样对学习很有好处，看看 book.txt 的内容。*book.txt 的内容，里面有一条留言-作者 : 天涯风云时间 : 2006-7-1 17:06标题 :第三节 :调查系统调查系统用 ASP 制作张扬个性的调查系统(1)随着网络的普及，网上调查往往能达到较好的效果。在自己的个人站点上放一个趣味问题调查板，着实能为网站添色不少；况且通过调查结果你能更多更准确了解网友对自己站点的看法。作为 Webmaster，如果你的网站也需要就某个主题进行调查，而你又讨厌使用

44、别人免费提供的调查板（免费往往是要付出代价的，比如打广告！），那么我建议你花十几分钟时间看完这篇介绍用ASP 制作调查板的文章。你只要把文中的代码Copy 到你的机子上，稍做修改，你立即就拥有一个属于你自己的个性化调查板。好了，打起精神往下看吧。本调查板共有三个文件：显示调查问题(research.html) 、处理用户选择(select.asp)、浏览调查结果 (viewresult.asp) 。设计思路为： ASP 取得由表单发来的信息，并据此修改记录调查得票数的数据库， 然后 ASP 读取数据库，获得各个调查问题的得票数目，通过得票数多少来调节对应条形图显示的宽来直观比例地给出调查结果。

45、在程序的关键处，我都给出了较为详细的注释，这里就不再讲述ASP 的基本知识。读者可以到陶吧ASP 专栏查阅。当然，我希望你在自己的服务器上调试程序时，有不懂的地方， 还是查查身边的ASP 技术手册， 看看对象、方法或函数的详细语法试着修改，看看结果如何变化这可是学习编程的一个好方法呢。一、显示调查问题(research.html)调查问题的设计要依据实际情况，或讲究实用性或讲究趣味性，在网页上显示的风格也或朴素或活泼，本例中是笔者主页上的一个关于“21 世纪最重要的是什么？”的趣味调查，为说明问题，下面的代码中省略了美观修饰的代码，你自己动手设计时完全可以使用表格等技巧美化调查问题的显示。为了

46、使提交或浏览调查时不影响当前页面，程序中给出了弹出新窗口的方案。researchindex.html: html title 调查板测试 /title head !- start：定义新开的窗口 - script language=javascript !-var newWindow = nullfunction OpenWindow(htmurl)if (! newWindow | newWindow.closed)newWindow =window.open(htmurl,"newwin","toolbar=no,resiza =no,scrollbars=n

47、o,width=400,height=280"); elsenewWindow.focus();/- /script !- end ：定义新开的窗口 - /head body !- start：调查题目、选项- p 您认为21 世纪最重要的是什么？/p form method="POST" action="vote/select.asp" name="research" LANGUAGE="javascript"onSubmit="OpenWindow()" target="

48、newwin" p align="left" br input type="radio" value="1" name="Options" input type="radio" value="2" name="Options"知识（知识就是力量）学历（学历社会没有终结）brbr input type="radio" value="3" name="Options"金钱（经济就是基础）br

49、 input type="radio" value="4" name="Options"爱情（永不进入坟墓的爱情）br input type="radio" value="5" name="Options"理想（天啦，理想是什么）br input type="radio" value="6" name="Options"民主意识（关心政治）br input type="radio" value=&

50、quot;7" name="Options"科学思想（科教兴国）br input type="submit" value=" 提交 " name="voting" inputtype="button"value="查看"name="viewing"onClick="OpenWindow(vote/viewresult.asp)" /form !- start：调查题目、选项- /body /html 用 ASP 制作张扬个性的

51、调查系统 (2)二、处理用户选择 (select.asp)依据上面的调查选项， 我们得出记录调查得票的数据库researchdb.mdb 的设计（以 Access为例 )，表名为： research。如果你的数据库和表没有存为以上的名字，那么在后面的程序和操作中你不要忘记也相应修改过来。存放调查投票数的表research：字段名数据类型默认值id自动编号1select1数字0select2数字0select3数字0select4数字0select5数字0select6数字0select7数字0建好数据库后， 我们来在服务器上建立数据源。 首先， 运行 “控制面板” 中的 “ ODBC ”，选择

52、“系统 DSN”，按“添加”按钮，选取“ Microsoft Access Driver ”，选定后按“完成”按钮 ,然后在 ODBC 设定中“数据源名”输入框输入数据库名称，本例中为 researchdb，然后按下“选取” 按钮选择数据库文件 （你不会说你忘记了刚刚设计的数据库存在那里了吧） ，选定后按“确定” ，你即可看到新建的数据源 researchdb。这样，我们就可以在 ASP 中调用了。select.asp: %下面的 if 语句是通过验证 selected 是否为空来判断用户是否作了选择 if request.form("options") Empty the

53、n% %下面的 if 语句是通过比较Request 的两个 collection(ServerVariables 和 Cookies)的值来防止用户连续按提交而影响调查的结果if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then把访问客户的IP 信息写入Cookiesresponse.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")% %建立连

54、接（ Connection）对象，打开记录调查结果的数据库set conn=server.createobject("ADODB.CONNECTION")conn.open "researchdb"% %定义变量dim rsdim sqldim selectedselected=request.form("options")建立记录集合（Recordset）对象，用方法Open 打开对象，同时修改对应的数据set rs=server.createobject("adodb.recordset")修改数据表resse

55、arch中的数据，即对应的投票数增加1sql="update research set select"&selected&"=select"&selected&"+1 where id=1"rs.open sql,conn,3,3从内存中清除记录集合对象set rs=nothing关闭连接conn.close从内存中清除连接对象set conn=nothing连接到浏览调查结果的页面response.redirect "viewresult.asp"elseResponse.write " 投票失败提示：您刚才已投了票，谢谢您的支持！"end ifelseResponse.write " 投票失败提示：您忘记选择了！"end if% 三、浏览调查结果(viewresult.asp)本例中使用条形图来直观显示调查结果，方法是用选项的投票数占总投票数的百分比值乘上 5，得出的值作为条形图bar.gif 显示的宽（可用常见的图象工具制作一个渐变色的小条形图，或是到网上