网站怎么插入动态留言板？高分悬赏！

楼主可以去我的论坛看，里面有图片，看起来更方便些，下面这个留言本绝对可行的

/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>

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

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

好了，再次保存，浏览看看！

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

在刚才的代码后面添加一行

<%dowhilenotrs.eof%>

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

<%

rs.movenext

loop

%>

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

看明白了吗，这样就可以让数据库中的数据全部显示在页面中了。

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

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

用DW制作以下这样的页面：

设置表单的属性如下：

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

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

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

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

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

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

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

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

<!--includefile="conn.asp"-->是用include包含文件，这里包含的是数据库连接文件

<%

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

sql="selectuser,qq,email,content,datafrommain"SQL语句，上节有详解

rs.opensql,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更新一下数据库中的数据。

rs.close关闭记录集

setrs=nothing销毁记录集

conn.close关闭数据库连接

setrs=nothing销毁数据库连接

%>

代码拷贝框

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

<!--includefile="conn.asp"-->是用include包含文件，这里包含的是数据库连接文件

<%

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

sql="selectuser,qq,email,content,datafrommain"SQL语句，上节有详解

rs.opensql,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更新一下数据库中的数据。

rs.close关闭记录集

setrs=nothing销毁记录集

conn.close关闭数据库连接

setrs=nothing销毁数据库连接

%>

[Ctrl+A全部选择然后拷贝]

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

<metan("admin")=admin新建session，值等于表单传来的用户名

response.redirect"mymanage.asp"转向到mymanage.asp，进入管理页

endif结束if语句

%>ASP结束

代码拷贝框

<!--includefile="conn.asp"-->把conn.asp包含进来连接数据库

<%ASP起始

admin=request.form("admin")定义admin的值是表单传过来的用户名域名称admin

password=request.form("password")定义admin的值是表单传过来的用户名域名称admin

ifadmin=""orpassword=""then这句的意思是假如用户名和密码没有输入的话那么执行下一句

response.Write("<scriptlanguage=javascript>alert(请填写完整!)history.go(-1)</script>")用javascript脚本提示用户

endif结束if语句

sql="select*fromadminwhereadmin="&admin&"andpassword="&password&""这句很重要，我们放到后面讲

setrs=conn.execute(sql)设定记录集rs，用conn执行SQL语句

ifrs.eoforrs.bofthen当没有符合筛选结果时，则执行下面的句子

response.write"<scriptlanguage=javascript>"

response.write"alert(用户或密码不对!)"

response.write"javascript:history.go(-1)"

response.write"</script>"用javascript脚本提示用户

else如果符合条件的时候

session("admin")=admin新建session，值等于表单传来的用户名

response.redirect"mymanage.asp"转向到mymanage.asp，进入管理页

endif结束if语句

%>ASP结束

[Ctrl+A全部选择然后拷贝]

将以上代码保存为checkpass.asp

这样，用户在admin.asp页面中输入用户名和密码后，就把用户名和密码值传给checkpass.asp处理，当用户名和密码的值和数据库中的字段相匹配时，就进入mymanage.asp这个管理页面，同时建一个session，这个session的会话变量将在后面起作用，

七、制作管理页面

上节中讲的是制作登陆页面和检测用户，当用户名和密码正确时就转到管理页面，好了，开始实现它。

其实这个留言本的管理页面和用户直接看到的首页没有多大的区别，只是用了Session会话变量用作保护和增加了一个删除链接，当点击这个链接的时候，就会自动删除这条留言，好了，其本的目的知道了，那就GO！

刚才讲了，这个页面和首页的index.asp相似，那么就先复制就行了，然后再改一下

首先找到下面这句：

sql="selectuser,qq,email,content,datafrommainorderbyiddesc"

把它改为

sql="selectid,user,qq,email,content,datafrommainorderbyiddesc"

这样，就选取到了id这个自动编号的值，以便删除留言时锁定这个id。

然后在“邮件”这个链接后面增加一个链接“删除”，链接：del.asp?id=<%=rs("id")，修改代码后为<ahref="del.asp?id=<%=rs("id")%>"onclick="returnconfirm(是否确定删除本留言？)">删除</a>这样，待会我们做del这个页的时候，就会知道为什么了！

改过后存为mymanage.asp

现在打开浏览器看看！

怎么不用输入用户名和密码都可进入呀？别急，上节中，我们不是建了一个session的会话变量，这时就派上用场了，直接用记事本打开。在<%@LANGUAGE="VBScript"codepage="936"%>这句的后面加上<%ifsession("admin")<>""then%>这句，在末尾写上：

<%

else

response.Redirect("admin.asp")

endif%>

下面来讲解一下。

<%ifsession("admin")<>""then%>就是说如果session这个("admin")的值不是空的话就执行。

<%

else

response.Redirect("admin.asp")

endif%>为空的话就转向登陆页，重新登陆，这样的话，直接输入网址的话就会跳到admin.asp，简单吧！

八、删除留言

上节我们增加了一个删除留言的链接，以下是这个del.asp的代码

<!--includefile="conn.asp"-->

<%

setrs=server.createobject("adodb.recordset")

id=Request.QueryString("id")

sql="select*frommainwhereid="&id

rs.opensql,conn,2,3

rs.delete

rs.update

%>

很明了吧，才几句，第1、2、3句都不用我解释了，大家都在上几节中明白了。

第4句：

id=Request.QueryString("id")用id取值字符串中传的id，回头看一下删除的链接：del.asp?id=<%=rs("id")%>就是这个链接才把id的值传来的，<%=rs("id")%>是读取数据库中的自动编号字段中的id。

第5句：

用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为main的字段，它的条件是当数据库中的id字段是字串所传来的id。如果这个没有的话这个一时间不明白也不要紧，慢慢接触就知道了。

第6句是打开符合条件的记录，确切的讲不应该叫记录集了，因为经过我们这样筛选的话，记录绝对是一条，2，3指定可以对数据库中的数据进入修改。

第7、8句

rs.delete看了就明白了，原来这才是整个程序的精髓，就是执行删除了。

rs.update这是更新数据库中的表，删除后就更新。

最后大家自己用rs.close和conn.close释放。

经过些学习，大家应该对ASP有所了解和认识了，这个做ASP留言本的教程就到此结束了。

祝好运!

制作访客留言 signin 可以使用网页编辑器来快速制作，也可以手动用 HTML 语法来撰写。 以下是 signin 的内容： ＜＞ ＜head＞ ＜!-- 加上以下这一行，以免有乱码产生 --＞ ＜meta -equiv="Content-Type" content="text/charset=big5"＞ ＜title＞留言板＜/title＞ ＜/head＞ ＜body bgcolor="white"＞ ＜hr size=1＞ ＜center＞ ＜!--以下是您的站台名称--＞ ＜font size=5 color=red＞我的访客留言板＜/font＞ ＜br＞ ＜!--以下是您的版权宣告--＞ ＜font color="green" size="2"＞ v1.0 精简版 (C) 1997 written by OLS3＜/font＞ ＜hr size=1＞ ＜table align=center border=0＞＜tr＞＜td＞ ＜!--以下是表单内容

共有二个栏位: 姓名及留言内容

您可以自行再增添表单采 POST 呼叫法

cgi 程式名称是 GBK.cgi --＞ ＜form name=ols3 method="post" action="主机/cgi-bin/GBK.cgi"＞ ＜!--姓名栏位的名称是 name--＞ 姓名: ＜input type=text name=name size="30"＞ ＜br＞ ＜!--留言内容栏位的名称是 ment--＞ 留言内容:＜br＞ ＜textarea name=ment rows="5" cols="45"＞＜/textarea＞ ＜p＞ ＜input type=submit value="确定"＞ ＜input type=reset value="清除"＞ ＜input type=button value="回上一页" onClick="history.back()"＞ ＜/form＞ ＜/td＞＜/tr＞＜/table＞＜/center＞ ＜/body＞ ＜/＞ *请将全形　＜＞　“”　改回半形 字数限制，详情请浏览：linux.tnc.edu/techdoc/perl_intro/x1157 用FrontPage制作留言板教学： sxtu.edu/change/xyxs/jyjs/zhiyuan/jiaocheng/wy-08

免费申请留言板 .sytes/cgi-bin/gb/add_user.cgi 按申请留言板....写完资料就申请完成

留言板是动态程序。你在免费申请以后会拥有一个地址以访问留言板。在你的网页里加入这个地址的链接就好。。除非是像cbox那样的。那么的确是在申请完成后你加入它所给你的代码就可以使用了

---