用ASP制作留言板一定要链接数据库吗
不一定。可以将留言信息保存到一个文本文件中，这时就不用连接数据库。也可以将留言信息保存到一个数据库文件中，这时就一定要连接数据库啦。
ASP留言版怎么实现
我刚好有，分给我，加QQ我发给你 本留言板是一个简单的ASP留言板,主要由三文件组成,分别为 主页index.asp 、 写留言记录的write.asp 、记录所有留言的数据库messages.mdb。 本留言板使用的Access数据库保存数据，适用于小型的个人网站。另外，本留言板的源码也可以给 ＡＳＰ的初学者作参考之用。
谁给我对ASP留言板的心得？
ASP留言板就相当于博客一样啊。。就是用户给你留言了然后你可以回复(相当于论坛格局得，看你要不要回复了)，而这个功能主要得问题是布局上得问题。。其他得数据都是从数据库取得。。主要是布局格式没问题了。。一个留言板就出现了
dreamweaver，asp怎么制作留言板
需要动态网页开发技术，不知道你目前学的怎么样。先要架设安装IIS服务器，用来解析ASP程序，下载安装一个数据库，你可以使用SQL server数据库。
创建一个asp文件，里面创建留言标题，留言人信息，手机号，留言内容等，使用代码连接数据库，代码如下。
%
Dim Database
Database="datamessage"
Dim Conn,ConnStr
Set conn = Server.CreateObject("ADODB.Connection")
ConnStr="Provider=sqloledb;Server=localhost;database="Database";uid=sa;pwd="
Conn.open ConnStr
%
再次新建一个名为：default.asp的文件，这个文件是显示和添加留言的页面
编码也需要改为GB2312
在这里输入的代码如下：
!--#include file="conn.asp"--
%
if request("action")="addmessagesave" then
if trim(request("memo"))="" then
Response.Write("script lanuage=javascriptalert('留言内容不能为空！');location='message.asp'/script")
response.End()
End if
set rsa=Server.CreateObject("ADODB.RecordSet")
strsqla="select * from [message]"
rsa.open strsqla,conn,3,2
rsa.addnew
rsa("memo")=request("memo")
rsa("time1")=now
rsa.update
Response.Write("script lanuage=javascriptalert('留言成功！');location='message.asp'/script")
response.End()
End if
%
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title在线留言/title
style
*{margin:0px;padding:0px;font-size:14px;color:#000000;}
a{font-size:14px;color:#999999;}
body{margin:0 auto;line-height:30px;}
/style
/head
body
table width="930" height="553" border="0" align="center" cellpadding="0" cellspacing="0"
tr
td width="230" valign="top" align="center"
br/br/br/
a href="manage.asp"留言管理/a
br/br/
/td
td width="700" height="553" valign="top" align=left
留言 div class=height9 /div
br/br/
br/
%
message
addmessage
%
/td
/tr
/table
/body
/html
%
sub addmessage()
%
form id="form1" name="form1" method="post" action="?action=addmessagesave"
table width="519" height="200" border="0"
tr
td width="94" height="55"nbsp;/td
td width="415"
input type="hidden" name="dd" value="0" checked="checked"/ /td
/tr
tr
td height="104" align=center内容：/td
tdlabel
textarea name="memo" cols="50" rows="6" /textarea
/label/td
/tr
tr
td height="33"nbsp;/td
td
input type="submit" name="Submit" value="提交" / /td
/tr
/table
/form
%
end sub
SUB message()
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from message order by id desc"
rs.open sql,conn,1,1
if rs.eof then
if request("key")"" then
response.write("div style=""text-align:center""没有查到您要查找的留言！/div")
else
response.write("div style=width:500px;height:50px;text-align:center暂时没有留言留言！/div")
End if
else
response.write("div ")
PERPAGE=10
if request("pageno")="" or isNumeric(request("pageno"))=0 or request("pageno")"1" then
curpage = 1
else
curpage = cint(request("pageno"))
end if
rs.pagesize = PERPAGE
if curpagers.pagecount then curpage=rs.pagecount
rs.absolutepage = curpage
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%
table width="553" height="100" border="0" cellpadding="0" cellspacing="0" bgcolor=#ffffff style="border:1px solid #cccccc;margin-left:10px;margin-top:5px;"
tr
td style="padding-left:20px;"[内容]/td
td class="6702-a0e3-423b-db97 xb-a04"%=rs("memo")%/td
tdnbsp;/td
/tr
tr
td height="31" style="padding-left:20px;"/td
td class="a0e3-423b-db97-631f xb-a04"%
%/td
td[时间:%=rs("time1")%]/td
/tr
%if rs("hui")"" then%
tr
td style="padding-left:20px;"[回复]/td
td colspan="2" class="423b-db97-631f-1cdb xb-a04" align="left"nbsp;nbsp;%=rs("hui")%/td
/tr
%End if%
/table
%
rs.movenext
next
if curpage = 1 then
response.write "/divBRdiv style=width:440px;height:30px;text-align:center 首页 | 上一页 | "
else
response.write "/divBRdiv style=width:440px;height:30px;text-align:center; a href='?pageno=1'首页/a | a href='?pageno="curpage-1"leixing="leixing"'上一页/a | "
end if
if curpage = rs.pagecount then
response.write "下一页 | 尾页/div"
else
response.write "a href='?pageno="curpage+1"leixing="leixing"'下一页/a | a href='?pageno="rs.pagecount"leixing="leixing"'尾页/a/div"
end if
rs.close
end if
End sub
%
新建一个管理留言的页面，名为manage.asp
同样先改编码为GB2312去掉原来的代码重新输入新的代码如下：
!--#include file="conn.asp"--
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" ""
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title无标题文档/title
style type="text/css"
!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff0000;}
A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
A.r3:link {font-size:12px;text-decoration:none;color:#000000;}
A.r3:visited {font-size:12px;text-decoration:none;color:#000000;}
A.r3:hover {font-size:12px;text-decoration:underline;color:#ff0000;}
.bd{ background:#03F}
--
/style
/head
body
%
dim filename
dim biaoname
filename="message.asp"
biaoname="message"
%
center
table width="784" height="45" border="0" align="center"
tr
td width="386" height="41" align=right留言-管理/td
td width="382"nbsp;/td
/tr
tr
td width="386" height="41" align=rightnbsp;/td
td width="382"nbsp;/td
/tr
/table
%
if request("action")="" then '显示信息
%
TABLE width="393" border="0" cellpadding="4" cellspacing="1" bgcolor="#ffffff" align="center"
tr height=20 bgcolor="BEBFD9"
TD width="46" height="20" align="center" class=bdfont color="#FFFFFF"b编号/b/font/TD
TD width="63" align="center" class=bdfont color="#FFFFFF"b留言时间/b/font/TD
TD width="98" align="center" class=bdfont color="#FFFFFF"b内容/b/font/TD
TD width="59" align="center" class=bdfont color="#FFFFFF"b回复/b/font/TD
TD width="59" align="center" class=bdfont color="#FFFFFF"
input type='submit' value='删除'
/font/TD
/TR
%
dim strsql
set rs=server.createobject("adodb.recordset")
strsql="select * from "biaoname" order by Id desc"
rs.open strsql,Conn,3,2
if rs.eof then
response.write("div style=width:500px;height:500px;text-align:center没有信息/div")
else
'response.write("div style=width:500px;height:500px;")
PERPAGE=15
if request("pageno")="" or isNumeric(request("pageno"))=0 or request("pageno")"1" then
curpage = 1
else
curpage = cint(request("pageno"))
end if
rs.pagesize = PERPAGE
if curpagers.pagecount then curpage=rs.pagecount
rs.absolutepage = curpage
%
%
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%
tr height=20 %if i mod 2 = 0 then
response.write("bgcolor=#cccccc")
else
response.write("bgcolor=#EEEeee")
End if
%
TD height="27" align="center" font color="#000000"b%=rs("id")%/b/font/TD
TD align="center" font color="#000000"b%=rs("time1")%/b/font/TD
TD align="center" font color="#000000"b%=rs("memo")%/b/font/TD
TD align="center" a href=?action=huiid=%=rs("id")%点击回复/a/TD
TD align="center" a href=?action=delid=%=rs("id")%删除/a/TD
/TR
%if rs("hui")"" then%
tr height=20 bgcolor="#eeeeee"
TD width="46" height="27" align="center" 回复:/TD
TD colspan="4" align="left" nbsp;
%=rs("hui")%
/TD
/TR
%End if%
%
rs.movenext
next
%
/TABLE
% if curpage = 1 then
response.write "br/div style=width:500px;height:30px;text-align:center 首页 | 上一页 | "
else
response.write "br/div style=width:500px;height:30px;text-align:centera href='?pageno=1'首页/a | a href='?pageno="curpage-1"typeid="request("typeid")"'上一页/a | "
end if
if curpage = rs.pagecount then
response.write "下一页 | 尾页/div"
else
response.write "a href='?pageno="curpage+1"leixing="leixing"'下一页/a | a href='?pageno="rs.pagecount"typeid="request("typeid")"'尾页/a/div"
end if
rs.close
end if
end if
'--------------------------------------------------------------修改完成----------------
if request("action")="del" then '删除
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="SELECT * from "biaoname" where id="cstr(id)
rs.open sql,conn,1,3
rs.delete
'rs.update
response.Write "scriptalert('删除成功!');this.location.href='"filename"';/SCRIPT"
end if
if request("action")="hui" then '回复
%
form action="?action=huisave" method="post"
table width="454" border="0" cellspacing="0" cellpadding="0"
tr
td width="52" height="168"回复：/td
td width="402"label
textarea name="hui" id="textarea" cols="45" rows="5"/textarea
/label
input type="hidden" name="id" value="%=request("id")%"
/td
/tr
tr
td height="59"nbsp;/td
tdlabel
input type="submit" name="button" id="button" value="提交"
/label/td
/tr
/table
/form
%End if
if request("action")="huisave" then '删除
if request("hui")="" then
response.write ("scriptwindow.alert('回复内容不能为空!');this.location.href='message.asp'/script")
response.end
End if
set rs1=server.CreateObject("ADODB.RecordSet")
sql="SELECT * from "biaoname" where id="request("id")
rs1.open sql,conn,3,2
rs1("hui")=request("hui")
rs1.update
rs1.close
response.write ("scriptwindow.alert('回复成功!');this.location.href='message.asp'/script")
End if
%
/center
/body
/html
运行调式程序
打开一个IE浏览器
输入：
地址
就可以进入到留言板界面，进行留言了
点击左边的留言管理，就可以进入留言管理界面，在留言管理界面可以回复和删除留言信息。
ASP留言板问题
留言板一般都是用textarea/textarea这个控件弄的,只要在其中设置一下就可以了,例如: textarea wrap=hard name=comment2 rows=5 cols=25 /textarea
其中wrap的属性分别表示为: hard ----“硬换行”，好象 MS－WORD 里的“硬回车”。 相当于自动换行
soft ---- “软换行”，好象 MS－WORD 里的“软回车”。
off ---- 不换行，是缺省设置。
楼主想要的效果是"硬换行"
楼主只要在输入留言的这个表单中textarea/textarea,多加个wrap=hard设置就行了,ok?
ASP编写的留言板是干什么用的?
一、留言板是放在网页上，让浏览者发表言论的
二、留言板都是由用户写，然后可以单独给站长看（留言时，用户选中“悄悄话”就可以），也可以给任何一个人看（默认情况下就是这样的）
三、使用asp完全可以实现你的要求！！！
到网络上搜索“asp留言板 源代码 下载”，上传到自己的网络空间即可使用
asp留言板的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp留言板 提示部分参数未填写、asp留言板的信息别忘了在本站进行查找喔。
标签：asp留言板
