dreamweaver，asp怎么制作留言板

2024-10-31 15:43:06

推荐回答（3个）

回答1：

需要动态网页开发技术，不知道你目前学的怎么样。先要架设安装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

在这里输入的代码如下：


<%
if request("action")="addmessagesave" then
if trim(request("memo"))="" then
Response.Write("alert('留言内容不能为空！');location='message.asp'")
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("alert('留言成功！');location='message.asp'")
response.End()

End if

%>




在线留言





  
    




留言管理




 
  
  留言

    <%
    message

addmessage

    %>




<%
sub addmessage()
%>







    内容：











<%
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("没有查到您要查找的留言！

")
else
response.write("暂时没有留言留言！

")
End if
else
response.write("")
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 curpage>rs.pagecount then curpage=rs.pagecount
rs.absolutepage = curpage

for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>

[内容]

<%=rs("memo")%>

<%

%>
   [时间:<%=rs("time1")%>]

<%if rs("hui")<>"" then%>

[回复]

  <%=rs("hui")%>

  <%End if%>

<%
rs.movenext
next

if curpage = 1 then
response.write "

首页 | 上一页 | "
else
response.write "

首页 | 上一页 | "
end if

if curpage = rs.pagecount then
response.write "下一页 | 尾页

"
else
response.write "下一页 | 尾页

同样先改编码为GB2312去掉原来的代码重新输入新的代码如下：

无标题文档

<%
dim filename
dim biaoname
filename="message.asp"
biaoname="message"
%>


    留言-管理







<%
if request("action")=""  then '显示信息

%>




      编号
      留言时间
      内容
      回复





<%

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("没有信息")
else
'response.write("")
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 curpage>rs.pagecount then curpage=rs.pagecount
rs.absolutepage = curpage

%>

<%
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>

response.write("bgcolor=#cccccc")
else
response.write("bgcolor=#EEEeee")
End if
%>>
<%=rs("id")%>
<%=rs("time1")%>
<%=rs("memo")%>
>点击回复
>删除

    <%if rs("hui")<>"" then%>

回复:



                 <%=rs("hui")%>



<%End if%>

<%
rs.movenext
next
%>

<% if curpage = 1 then
response.write "

首页 | 上一页 | "
else
response.write "

首页 | 上一页 | "
end if

if curpage = rs.pagecount then
response.write "下一页 | 尾页"
else
response.write "下一页 | 尾页"
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 ""
end if

if request("action")="hui" then '回复
%>


    回复：



      ">









<%End if

if request("action")="huisave" then '删除

if request("hui")="" then

response.write ("")
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 ("")

End if

%>

点击左边的留言管理，就可以进入留言管理界面，在留言管理界面可以回复和删除留言信息。

回答2：

1、首先要在window系统架设IIS， IIS是微软推出的一套架设WEB、FTP、SMTP服务器的整合系统组件，在win XP 、win2003、win7、win8安装11S步骤、版本略有不同，可百度一下。

2、初学动态网页开发，可安装AC（ACCESS）数据库，ACCESS同word一样是Microsoft Office 的系统程序之一

3、安装上述两项，就可学习留言板的制作了，详见附图。

留言