谁会用Dreamweaver做网页？教我怎么做最简单的留言板吧。只要能输入内容提交后显示就行了。

直接贴代码给你参考吧。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<% Response.Charset="utf-8" %>
<%'迷你留言本系统，作者：JacoChan 网站 http://www.israo.net
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("#isare.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear%>数据库链接失败，请向管理员反应。
<%else conn.open connstr
if err then
err.clear%>程序出错，请向管理员反应。
<%end if
end if%>
<%dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<%
IF Request("work")="delete" Then
sql="delete from feedback where id="&Request("id")&""
Conn.execute(sql)
url=Request.ServerVariables("Http_REFERER")
Response.Redirect url
End IF

IF Request("work")="sh" Then
set rs=server.createobject("adodb.recordset")
sql="select * from feedback where id="&Request("id")&""
rs.open sql,conn,1,2
rs("huifu") =Request("huifu")
rs.update '更新数据表记录
rs.close
set rs=nothing
url="?cmd=faq&faq=admin"
Response.Redirect url
End IF

if Request("work")="add" then
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
Response.Write("")
response.end
end if
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
Response.Write ""
else
session("verifycode")=""
set rs=server.createobject("adodb.recordset")
sql="select * from feedback"
rs.open sql,conn,3,3
rs.addnew
rs("name")=Request("name")
rs("all")=Request("all")
rs("IP")=Request.serverVariables("REMOTE_ADDR")
rs.update '更新数据表记录
dim f
f=trim(Request.Form("f"))
if f="" or f=null then
url=Request.ServerVariables("Http_REFERER")
Response.Redirect url
else
Response.Redirect "/"
end if
End IF
End if
%>

<%if request("cmd")="" then%>首页-给我们留言<%elseif request("cmd")="hui" then%>回复留言<%end if%>

<%if request("cmd")="" then%>

<%'防止SQL注入
Function ReqNum ( StrName )
ReqNum = Request ( StrName )
if Not isNumeric ( ReqNum ) then
Response.Write "参数必须为数字型!"
Response.End
End if
End Function

Function ReqStr ( StrName )
ReqStr = Replace ( Request(StrName), "'", "''" )
End Function

sql="select * from feedback order by id DESC "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
IF Not rs.eof Then
proCount=rs.recordcount
rs.PageSize=20 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>

" target="_blank"><%=rs("name")%> 于 <%=FormatDateTime(rs("time"),2)%> 提交的留言：<%if Request("faq")="admin" then%> 管理操作： " onClick="return confirm('\n请确认要删除【<%=rs("name")%>】的留言吗?\n\n点击“取消”按钮可以终止本次操作。\n\n警告：本操作执行后数据不可恢复！\n\n')">删除 / ">回复
<%end if%>

<%if rs("huifu")<>"" or rs("huifu")<>null then%>

<%=rs("all")%>

回复：<%=rs("huifu")%>

<%else%>

<%=rs("all")%>

<%end if%>

<%
rs.MoveNext
next
%>

共<%=proCount%>人发表感言第一页| 上一页| 下一页| 最后页

<%
else
%>
目前还没有人留言。
<%
end if
rs.close
set rs=nothing
%>

<%elseif request("cmd")="hui" then
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
if id="" or id=null then
Il ""
Response.End()
end if
sql="select * from feedback where id="&id
set rs = conn.execute(sql)
%>

<%end if%>