ASP最常用代码.docx

ASP最常用代码.docx

《ASP最常用代码.docx》由会员分享，可在线阅读，更多相关《ASP最常用代码.docx（84页珍藏版）》请在冰豆网上搜索。

ASP最常用代码

这个教程我要分10篇给大家来做分析,这十大常用程序都包括什么呢?

下面我给大家列出大纲工参考:

第一节:

注册系统

注册几乎是每个网站都要使用的，去论坛要注册，聊天要注册，几乎无处不注册，所以注册是所有ASP应用程序中最常见的。

第二节:

留言薄

互联网最大的特点是互动性，让网友在留言薄上留下自己的意见能使网站的人气值上升不少。

第三节:

调查系统

利用网络进行一些调查是非常常见的，轻轻一点投下自己一票，因此有一个调查系统能为网站增色不少。

第四节:

购物车

购物车这个名字取自超级市场的购物推车，不过这个小小的推车却是每个购物网站必备的。

第五节:

计数器

在浏览网页的时侯，常常可以看见一些“当前网站上的人数是xxxx人”的在线人数统计。

第六节:

论坛系统

论坛可以说是网站中最受网友欢迎的地方，网友可以在这里自由的发表自己的意见，网站人气的高低很大程度上由论坛决定，因此为我们的网站增加一个论坛是必须的。

第七节:

聊天室

当你独自在Internet上浏览时，你并不是一个孤单的“旅人”，因为每时每刻总有成千上万的人同时在网上浏览，你可以同他们聊聊天，交谈几句，让自己体验一下“网”内存知己、天涯若比邻的感觉

第八节:

EMail

当你独自在Internet上浏览时，你并不是一个孤单的“旅人”，因为每时每刻总有成千上万的人同时在网上浏览，你可以同他们聊聊天，交谈几句，让自己体验一下“网”内存知己、天涯若比邻的感觉。

第九节:

搜索系统

一个大型网站内容众多，来访者往往很难找到自己所需要的东西，这时候就需要一个站内搜索来帮助来访者更快的找到索要的资料，所以搜索系统是一个大型网站必备系统。

第十节:

分页程序

从程序上说分页只是一种小技巧，但确实却是一个非常重要的小技巧，好，少说废话，我们开始吧。

好了以上是我要给大家分别讲解的教程.欢迎大家及时收藏和支持

这里先给大家讲解

第一节:

注册系统

（一），设定注册页面的外观：

在这个例子中涉及了五个页面，其中有三幅是一般的htm文件，另外的两幅是asp文件，在这里制作利用的工具是frontpage98，但是大部分的asp代码还是要自己输入的：

　　1，设定原来已经注册的用户进入的外观：

在这里设置了两个文本框，一个超级链接和两个按钮。

两个文本框分别用来输入帐号（txtNum）和密码（txtPasswd），超级链接（New）链接到新用户进行注册的页面，两个按钮是用来提交和清除的，用来清除的按钮（cmdReset）直接选择为Reset类型，不过用来提交的按钮（cmdTijiao）并不要选择为Submit类型，而选择的是Normal类型，这是为了在这个按钮的onClick事件中添加代码，并且判断用户的输入是否合法！

　　2，设定新用户登陆的页面外观：

一般都是要新用户输入帐号，密码，姓名，及相关的一些信息，在这里我们有五个文本框，一个下拉式列表框和两个按钮，五个文本框就分别是让用户输入姓名，email，帐号，密码，确定密码。

但是其中只有用来输入帐号，密码和确定密码的文本框有名字，分别为txtNum，txtPasswd和txtConfirm。

提交按钮的名字为cmdTijiao

　　3，这一步当然是设定注册成功后用户所进的页面了，这就由大家决定吧：

）

（二），添加程序代码：

　　1，首先添加原来已经注册用户页面的代码，它主要是处理cmdTijiao_onClick事件，并且判断用户的输入是否合法，在这个例子中要求帐号必须是数字，密码不能为空，代码如下，其中frmRes是这个页面中窗口的名字，窗口的Action指向http:

//your/ResJudge.asp

subcmdTijiao_onClick（）

　iffrmRes.txtNum.value=""orfrmRes.txtPasswd.value=""or（NotIsNumeric（frmRes.txtNum.value））then

　　Alert"请在帐号和密码中输入相应的内容，帐号必须为数字！

"

　elsefrmRes.submit

　endif

endsub

2，添加新用户登陆的页面代码，这些代码是用来处理cmdTijiao_onClick事件的，要求用户输入的帐号必须是数字，密码和确定密码必须相同，这个页面的窗口的Action指向http:

//your/NewRes.asp，代码如下

subcmdTijiao_onClick（）

ifNotNumeric（frmNew.txtNum.value）orfrmNew.txtPasswd.value＜＞frmNew.txtConfirm.valuethen

　Alert"输入不正确，请重新输入！

"

elsefrmNew.submit

endif

endsub

3，创建ResJudge.asp文件，这个asp文件的主要功能就是打开存储注册信息的数据库，查找是否有与前面页面提交的帐号和密码相匹配的纪录，如果有，就是注册成功，同时也可以在数据库中查找出这个用户的相关信息来，应允许这个用户进入他所希望进去的页面，如果没有则注册失败，整个代码如下

＜html＞＜head＞

＜metahttp-equiv="Content-Type"content="text/html;charset=gb2312"＞

＜metaname="GENERATOR"content="MicrosoftFronpage3.0"＞

＜titile＞注册判断＜/title＞＜/head＞

＜body＞＜%

Num=Request.form（"txtNum"）"把前面窗口传送来的内容赋给Num和Passwd两个字符串。

Passwd=Request.form（"txtPasswd"）

dbname="Driver={MicrosoftAccessDriver（*.mdb）};DBQ="&Server.MapPath（"\"）"&"\ResDb\Res.mdb;""dbname是打开数据库要用的

setCres=Server.CreateObject（"ADODB.Connection"）"以下是利用Connection对像和Recordset对象联结数据库并查找的代码。

setres=Server.CreateObject（"ADODB.Recordset"）

Cres.opendbname

res.ActiveConnection=Cres

res.source="Select*fromreswhere帐号="&Num&"and密码="&Passwd&";"

res.open

ifres.BOFthen"如果查找结果为空，那么就说明注册不正确，所以在页面中显示下面的文本/

%＞＜p＞注册不正确，请返回注册页面重新注册！

＜/p＞

＜%

else“否则就说明注册成功，可以进入浏览页面！

%＞

＜!

--#Includevirtual="/success.htm"--＞"这里采用了ServerSideInclude的方法，把允许浏览的页面包含在这个文件里面！

＜%res.Close“关闭刚才打开的数据库。

endif%＞

＜/body＞＜/html＞

4，创建NewRes.asp文件，这个文件的主要功能是把新用户的登陆信息存入数据库，代码如下

＜html＞

＜head＞

　＜metahttp-equiv="Content-Type"content="text/html;charset=gb2312"＞

　＜metaname="GENERATOR"content="Microsoftfrontpage3.0"＞

　＜title＞输入数据库＜/title＞

＜/head＞

＜body＞

＜!

--#Includevirtual="/adovbs.inc"＞

　“这个被包含进来的文件adovbs.inc是定义数据库对象ADO常量的文件。

＜%

　Num=Request.form（"txtNum"）“把前面主页传送过来的内容赋给Num和Passwd两个变量。

　Passwd=Request.form（"txtPasswd"）

　Setres=Server.CreateObject（"ADODB.Recordset"）“打开数据库。

　dbname="Driver={MicrosoftAccess　Driver（*.mdb）};DBQ="&ServerMapPath（"\"）&"\ResDb\Res.mdb;"

　sql="select*fromres"

　res.opensql,dbName,adOpenKeyset,adLockOptimistic

　res.AddNew“添加新纪录

　res

（1）=Num“res

（1）代表数据库中的第二个字段，存储的是用户的帐号。

　res

（2）=Passwd“res

（2）代表数据库中的第三个字段，存储的是用户的密码。

　res.Update“更新数据库/

　res.Close%＞

　＜p＞＜b＞＜fontface=楷体_gb2312size=5＞您的帐号和密码已经注册成功，您现在可以＜ahref="http:

//your/index.htm"＞进入＜/a＞了！

＜/font＞＜/p＞

＜/body＞＜/html＞

好了简单的代码就先讲解到这里,那里不对忘指教,下一节继续讲解用ASP设计一个留言薄,请各位及时收藏

[本帖最后由case于2006-7-117:

14编辑]

--------------------------------------------------------------------------------

作者:

天涯风云时间:

2006-7-109:

58

第二节:

留言薄

今天呢我们继续学习ASP建站十大常用程序第二节,这一节代码比较多请大家耐心的学习.

本节我们要讲两个方面的知识:

前者是一个输入界面，后者是一个显示界面，用于显示留言信息.

用ASP设计一个留言薄（上）

首先，我们在做留言薄之前，先做出一个输入屏的界面效果，也就是生成留言部输入屏幕的htmL页，然后在这些htmL源代码中加入ASP脚本，我这里得到的htmL代码如下。

*文件名：

book.htm　

＜html＞

＜head＞

　＜title＞留言薄＜/title＞

＜/head＞

＜bodybgcolor="#BED9FC"background="images/bg.gif"＞

＜palign="center"＞＜imgsrc="images/gbook.gif"alt="GBook.gif（12142bytes）"WIDTH="374"

HEIGHT="83"＞＜/p＞

＜palign="center"＞[＜ahref="disp.asp"＞我要看留言板＜/a＞][＜ahref="../index.asp"＞返回首页＜/a＞]＜/p＞

＜formmethod="POST"action="book.asp"＞

＜inputtype="hidden"name="task"value="insert"＞＜divalign="left"＞＜table＞

＜tr＞

＜tdalign="right"＞姓名＜/td＞

＜td＞＜imgsrc="images/bottom-b.gif"alt="BUTTOM-B.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="name"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞性别＜/td＞

＜td＞＜imgsrc="images/bottom-g.gif"alt="BUTTOM-G.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="sex"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞来自＜/td＞

＜td＞＜imgsrc="images/bottom-b.gif"alt="BUTTOM-B.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="from"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞主页URL＜/td＞

＜td＞＜imgsrc="images/homepage.gif"alt="HomePage.gif（1232bytes）"WIDTH="30"HEIGHT="30"＞＜/td＞

＜td＞＜inputname="url"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞

E-mail＜/td＞

＜td＞＜imgsrc="images/email.gif"alt="Email.gif（1197bytes）"WIDTH="30"HEIGHT="30"＞＜/td＞

＜td＞＜inputname="email"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞留言＜/td＞

＜tdcolspan="2"＞＜textareawrap="off"name="comments"cols="49"rows="9"＞＜/textarea＞＜/td＞

＜/tr＞

＜tr＞

＜td＞＜/td＞

＜tdcolspan="2"＞＜dl＞

＜ddalign="center"＞＜inputtype="submit"value="我写好了"＞

＜inputtype="reset"value="重新再写"＞＜/dd＞

＜/dl＞

＜/td＞

＜/tr＞

＜/table＞

＜/div＞

＜/form＞

＜palign="center"＞　＜/p＞

＜/body＞

＜/html＞

您可以按这里看一下这个界面的效果（需要强调一点，这些htmL代码还是完全没有功能的）你可以把它保存为book.htm，然后用FRONTPAGE98来打开它，打开后，可以查看网页中的那个输入FORM的属性，在这个留言薄中。

我们使用两个文件来处理，一个是book.asp，另一个是disp.asp，前者是一个输入界面，后者是一个显示界面，用于显示留言信息。

用ASP设计一个留言薄（下）

现在说说book.htm，让大家了解一下其中的那个输入FORM的作用，它的action对象是本身，book.asp（等一会儿需要把book.htm改名为book.asp）这个文件，也就是说。

表单提交后，由本身来作处理。

在这个FORM中，有几个文本输入框，它们分别是name，sex，from，url，email，以及多行文本输入框comments。

　　现在把book.htm改名为book.asp，往文件中添加ASP代码。

如下：

（单引号表示ASP的注析，编译器是不处理的。

　　*book.asp

＜%@language="vbscript"%＞

＜%

‘'判断请求方式，当客户端请求文件时，比如直接输入网址：

ifRequest.ServerVariables（"REQUEST_METHOD"）="POST"then

‘这里判断出是由用户提交表单而调入入的页面，因此进行登记留言处理。

‘创建一个文件组件的服务器实例

setfsFilesys=CreateObject（"Scripting.FileSystemObject"）

‘打开文本文件server.mappath（"/"）是返回服务器发行目录的真实路径，也就是比如说：

c:

\Inetpub\wwwroot这个路径，然后"/realchat/book/book.txt"就是相对于这个路径基础上的路径。

setmyText=fsFilesys.OpenTextFile（Server.MapPath（"/"）&"/realchat/book/book.txt"）

‘把文本文件的所有内容读出，保存在Temp这个变量中。

Temp=myText.Readall

myText.Close

‘是否需要添加内容

ifRequest（"task"）="insert"Then

‘取得表单的各项的值

Tname=request.form（"name"）

Tsex=request.form（"sex"）

Temail=request.form（"email"）

turl=request.form（"url"）

Tfrom=request.form（"from"）

Tcomments=request.form（"comments"）

Ttime="#&@"&time

ifLen（Tcomments）＜2Then

%＞

＜fontsize="4"color="red"＞

＜palign="center"＞对不起！

你还未留言。

＜ahref="book.asp"＞返回＜/a＞＜/font＞＜%

else

ifLcase（Left（Turl,7））＜＞"http:

//"Then

Turl="http:

//"&Turl

Endif

Turl=Lcase（Turl）

‘重新创建数据文件，把原来的覆盖掉。

setmyText=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

%＞

＜scriptLanguage="JavaScript"＞

document.write（"＜h1＞恭喜！

您的留言已顺利提交，请按＜ahref='disp.asp'＞这里＜/a＞查看"）

＜/script＞

＜%

endif

‘至此，留言已保存入文件book.txt中

Endif

else

‘第一次进入输入屏幕，因此显示htmL文件内容。

%＞

＜html＞

＜head＞

＜title＞留言薄＜/title＞

＜%colorbg="#BED9FC"%＞

＜/head＞

＜bodybgcolor="＜%=colorbg%＞"background="images/bg.gif"＞

＜palign="center"＞＜imgsrc="images/gbook.gif"alt="GBook.gif（12142bytes）"WIDTH="374"

HEIGHT="83"＞＜/p＞

＜palign="center"＞[＜ahref="disp.asp"＞我要看留言板＜/a＞][＜ahref="../index.asp"＞返回首页＜/a＞]＜/p＞

＜formmethod="POST"action="book.asp"＞

＜inputtype="hidden"name="task"value="insert"＞＜divalign="left"＞＜table＞

＜tr＞

＜tdalign="right"＞姓名＜/td＞

＜td＞＜imgsrc="images/bottom-b.gif"alt="BUTTOM-B.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="name"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞性别＜/td＞

＜td＞＜imgsrc="images/bottom-g.gif"alt="BUTTOM-G.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="sex"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞来自＜/td＞

＜td＞＜imgsrc="images/bottom-b.gif"alt="BUTTOM-B.GIF（179bytes）"WIDTH="16"HEIGHT="16"＞＜/td＞

＜td＞＜inputname="from"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞主页URL＜/td＞

＜td＞＜imgsrc="images/homepage.gif"alt="HomePage.gif（1232bytes）"WIDTH="30"HEIGHT="30"＞＜/td＞

＜td＞＜inputname="url"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞

E-mail＜/td＞

＜td＞＜imgsrc="images/email.gif"alt="Email.gif（1197bytes）"WIDTH="30"HEIGHT="30"＞＜/td＞

＜td＞＜inputname="email"size="46"＞＜/td＞

＜/tr＞

＜tr＞

＜tdalign="right"＞留言＜/td＞

＜tdcolspan="2"＞＜textareawrap="off"name="comments"cols="49"rows="9"＞＜/textarea＞＜/td＞

＜/tr＞

＜tr＞

＜td＞＜/td＞

＜tdcolspan="2"＞＜dl＞

＜ddalign="center"＞＜inputtype="submit"value="我写好了"＞

＜inputtype="reset"value="重新再写"＞＜/dd＞

＜/dl＞

＜/td＞

＜/tr＞

＜/table＞

＜/div＞

＜/form＞

＜palign="center"＞　＜/p＞

＜/body＞

＜/html＞

＜%

endif

%＞

现在到disp.asp这个文件，这个文件主要完成从book.txt中提取文件内容，然