asp留言板(asp留言板源代码)

七月网2024年01月03日 22:365100

一、谁能帮我用asp做一个留言板

常听朋友感叹ASP程序难学不易懂，不过我起初学习这门技术的时候也有过这样的感悟。从今天开始，我将以我学ASP的经验来做一个简单的ASP留言本，这个留言本用了Access数据库，所以务必请大家要跟我一起做的朋友都安装好Office软件，相信各位自己的电脑上都有了。好了，开始。

asp留言板(asp留言板源代码)

IIS(Internet Information Service)是构建ASP站点所必须的，所以，我们应该先确认自己的电脑已安装了IIS信息服务，如果没有安装好的话，请按以下步骤：

3、单击“添加/删除Windows组件”，打开添加/删除Windows组件对话框：

3、从下拉的列表中选择“Internet信息服务(IIS)”单击“下一步”：

4、出现组件安装进度窗口，如弹出需要安装盘的话，放入Windows2000安装盘，按提示操作即可。直至最后安装完毕。

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

ASP程序本身并不能储存数据，众所周知，留言本有以下信息需要保存：留言者姓名、联系方式、留言内容等等。因为ASP并不能储存数据，所以数据库在这种环境之下就产生了。数据库的种类也很多，针对不同的程序也有适用于它的数据库，比如Access和Ms SQL就比较适用ASP和ASP.net程序，至于其它的数据库和程序，就不属于本文所讨论的问题了，有兴趣的朋友可以查看其它一些资料。

那么既然Access和MS SQL都适用ASP，那么具体又如何来选择呢？我们可以打一个比方：比如钉一枚小钉子，聪明的人一定不会用一个大的棒槌，而是选择小的铁锤，虽然用大的棒槌也一样的可以把钉子钉进去，可是没有人愿意这样做。

数据库也一样：Access比较适用小型的应用，而MS SQL则适用于大中型的数据库应用，所以要做一个留言本，理所当然是选择Access更好一些，但是如果你决心使用MS，没有人会极力阻止你。好了，废话少说，切入正题，下面开始创建数据库。

Access是微软office办公软件中的其中一个，默认的安装Office是有这个Access的，好了，打开程序，开始了,GO!

进入实战了。打开程序后，出现一个对话框，这里我们选择第一个选项”空Access数据库”点击确定，弹出一个新建数据库的文件框，选择你上次你建的站点目录，起个data的文件名，点击创建，OK!双击”使用设计器创建表”打开表创建窗口”如图

qq数字留言者的QQ，因为QQ号是由数字组成

data日期/时间留言时间，设定默认值为Now()

数据库设计好了以后，可以直接在数据库里添加两条记录，以后测试时候用！这一节就到此了

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

在上一节，我们已经为我们的程序创建了一个数据库，在这一节中，我们来用ASP把程序和数据库连接起来，以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。

一起看以下代码，这就是ASP程序中常用的连接数据库的代码：

set conn=server.createobject("adodb.connection")

set conn=server.createobject("adodb.connection")'在服务器上创建了一个连接数据库的对象

c&server.mappath("data.mdb")'告诉ASP数据库的接接方法以及路径

conn.open connstr'创建了对象后就用来打开数据库进行连接

%>'一切OK了!结束ASP程序

将上面的代码另存为conn.asp文件，放在服务器目录下面就可以了。怎么样，简单吧？

这一节是最重要的，一定要弄明白，否则以后操作数据库将变得不现实，如果有不懂的问题，欢迎和我讨论，我的电子邮件地址是。这一节就到此，下节我们就将数据库中的数据显示在页面中（这就实现了留言本的查看功能）

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

前面我们已经连接好了数据库，就要让它在这里发挥一下作用了，这一节将讲述如何将数据库里的数据用ASP读取出来，在页面中显示出来，这样就等于是查看留言本了。

利用DW制作首页面（这里我就不讲如何去做这个页面了，最后我将会给出HTML代码下载）

将制作好的文件存为index.asp，下面就创建数据记录集，用来显示数据库的数据到这个页面中：

用记事本打开index.asp，在页头加入以下代码：

<%@LANGUAGE="VBScript" codepage="936"%>

set rs=server.createobject("adodb.recordset")

sql="select user,qq,email,content,data from main order by id desc"

第二行，是用include包含文件，这里包含的是数据库连接文件。

第四行，利用Server内置对象创建一个记录集

第五行, SQL语句，这里的意思是选择数据库中的user,qq,email,content,data字段，指定该数据表的名称是“main”数据的排列顺序是倒序。

第六行，用刚才创建的名为rs的记录集打开数据库，设置属性为只读（1,1为只读数据,1,3为插入数据，2,3是修改数据。

这样就打开了数据库，接下来就可以显示了。

将“留言人”代替为“<%=rs("user")%>

“时间”代替为“<%=rs("data")%>

“留言内容在此”代替为“<%=rs("content")%>

“QQ”链接到http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<;;%=rs("qq")%>

“邮件”链接到：mailto:<%=rs("email")%>

最后将“填写留言”链接 add.asp“管理留言”链接 admin.asp

怎么了？只显示一条记录？原来我们在数据库里添加了两条记录的哦！还有一条呢？别急，因为我们没有指定ASP循环显示，所以就只有一条啦。。。

并在页面的第一个表格的末尾加上

上面的代码就是说用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。。哈哈，再次浏览这个文件

看明白了吗，这样就可以让数据库中的数据全部显示在页面中了，好了，这节就到这，下节讲一个也很重要的部份（添加留言功能。)

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

五、制作添加留言页面，实现留言功能

我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。

姓名：设置为单行文本域，名称为“user”

QQ号：设置为单行文本域，名称为“qq”

邮件：设置为单行文本域，名称为“email”

内容：设置为多行文本域，名称为“content”

最后将表单的“Action”动作指向addsave.asp就可以了。

保存文档名为add.asp，OK！下一步！

表单是做好了，但是还需要后台程序的支持，一起来使用ASP编写一个添加留言处理程序，添加留言代码：

<%@LANGUAGE="VBScript" codepage="936"%>'表明ASP使用的是VB脚本

'是用include包含文件，这里包含的是数据库连接文件

set rs=server.createobject("adodb.recordset")'利用Server内置对象创建一个记录集

sql="select user,qq,email,content,data from main"'SQL语句，上节有详解

rs.open sql,conn,1,3'用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据

rs.addnew'用记录集新添加一条数据

user=request.form("user")'请求表单的变量，定义变量为user，这里request.form是请求表单的意思

qq=request.form("qq")'请求表单的变量，定义变量为qq，这里request.form是请求表单的意思

email=request.form("email")'请求表单的变量，定义变量为email，这里request.form是请求表单的意思

content=request.form("content")'请求表单的变量，定义变量为content，这里request.form是请求表单的意思

rs("user")=user'将请求到的表单值传向记录集中代表user字段的名称

rs("qq")=qq'将请求到的表单值传向记录集中代表qq字段的名称

rs("email")=email'将请求到的表单值传向记录集中代表email字段的名称

rs("content")=content'将请求到的表单值传向记录集中代表content字段的名称

rs.update'更新一下数据库中的数据。

set rs=nothing'销毁数据库连接

将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：

然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”

好了，这个留言的功能总算实现了，最后再测试下，看看效果！

OK！这个留言功能的实现教程就到这里了

二、求简单的asp留言板代码

步骤一：先设计一个留言表单的网页（如：guestbook1.asp，这不用我在这儿说教了吧？)。见下图：

步骤二：在设计好留言表单后，我们开始进行编写处理留言的ASP程序。

我们要编写处理留言的ASP程序，最重要的问题是如何实现存取留言。而在ASP程序中，要存取文件，我们必须建立FileSystemObject对象（该对象主要用于读取Unicode或ASCII码的文件）。而要建立FileSystemObject对象，我们又可以使用以下的语句：

SET对象实例= CREATEOBJECT（"SCRIPTING.FILESYSTEMOBJECT")

FileSystemObject对象的方法包括：CreateTextFile和OpenTextFile：

CreateTextFile：建立一个文件名称，并返回一个TextStream对象提供你读写文件

OpenTextFile：打开一个已存在的文件并建立一个TextStream对象以供你读写文件在建立并打开一个可供编辑的文件后，我们最后可以调用TextStream对象下的方法WriteLine(把信息写入到已打开的文件中并换行)和方法ReadLine(读取已打开文件的一行信息)来存取文件。

因此，要实现存取留言的ASP程序，我们可以大致构思如下：

先建立FileSystemObject对象；然后通过该对象来调用OpenTextFile打开文件或者调用CreateTextFile来创建新的文件，建立TextStream对象；最后我们再进行调用TextStream对象的WriteLine和ReadLine进行存取文件。解决了这个主要问题后，我们可以将处理留言的ASP程序写成如下所示：

If Name="" Or Email="" Or Subject="" Or Memo="" Then

Response.Write"输入框不能为空白!"

'检查表单的各输入框是否有信息输入，若留有空输入框没填则显示说明信息："输入框不能为空白!"并停止执行下面的程序。?

Email="< A HREF=mailto:"& Email&">"& Email&"</A>"

Line1= Line1&"Email�"& Email&"< BR>"

Line2="主题："& Subject&"< BR>"

Memo= Replace( Memo, vbCrLf,"< BR>")

Line3="< TABLE BORDER=1>< TR>< TD>"

Line3= Line3&"您的留言："& Memo&"</TD></TR></TABLE>"

'定义留言的显示格式，其中留言信息用信息框框起来。

'避免如果执行下面的ReadAll（读取已打开文件的全部信息）时，无法读取信息就造成的程序错误的情况发生，因此加入此句用于忽略所有的错误。

Set fso= Server.CreateObject("Scripting.FileSystemObject") Application.Lock