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

我只需要在完成的网页上有个编辑框，下边有个提交，输入内容后提交就能显示在编辑框上方区域，就行了。能设计成只显示最近20条就更好了。... 我只需要在完成的网页上有个编辑框，下边有个提交，输入内容后提交就能显示在编辑框上方区域，就行了。能设计成只显示最近20条就更好了。展开

 我来答

2个回答

#合辑# 面试问优缺点怎么回答最加分？

陈君小狼
推荐于2017-09-29 · 超过51用户采纳过TA的回答

知道小有建树答主

回答量：128

采纳率：0%

帮助的人：160万

我也去答题访问个人页

关注

展开全部

直接贴代码给你参考吧。
<%@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("<script language=javascript>alert('禁止外部提交数据！');</script>")
response.end
end if
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
Response.Write "alert('验证码错误！');"
Response.Write "history.go(-1);"
Response.Write "</SCRIPT>"
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<%if request("cmd")="" then%><TITLE>首页-给我们留言</TITLE><%elseif request("cmd")="hui" then%><TITLE>回复留言</TITLE><%end if%>
<LINK href="images/maincss.css" rel=stylesheet>
</HEAD>
<BODY>
<div id="main">
<%if request("cmd")="" then%>
<div id="text">
<form action="" method="post" name="faqform" id="faqform">
<div style="width:96%; padding-top:12px;margin:0px auto;color:#fff; line-height:30px">
<span>您可以在下方给我们咨询、建议留言，我们会尽快答复您</span><br>
请输入姓名或网名： <input name="name" type="text" id="name" value="" size="18" maxlength="12" style="border-left:0px;border-right:0px; border-top:0px;border-style:dotted;border-color:#999999"/> 请输入右侧验证码：<input name="verifycode" type="text" id="verifycode" value="" size="4" style="border-left:0px;border-right:0px; border-top:0px;border-style:dotted;border-color:#999999"/> <%=session("verifycode")%><input type="hidden" name="verifycode2" value="<%=session("verifycode")%>" /><input id="work" type="hidden" value="add" name="work" /> <input name="submit" type="submit" id="submit" value="提交保存我的留言" onClick="check();" /><br /><textarea name="all" cols="28" wrap="physical" id="all" style="width:100%; height:100px;border-style:dashed;border-color:#999999" onKeyDown="textCounter(this.form.all,this.form.remLen,200);" onKeyUp="textCounter(this.form.all,this.form.remLen,200);"></textarea><br /> 还可以输入<input name="remLen" type="text" id="remLen" style="border:0px; width:23px;background:#6D7174;color:#fff" value="200" size="2" maxlength="3" readonly="readonly" />字
</div>
</form>
<script language="javascript">
function textCounter(all,faqform, maxlimit) {
if (all.value.length > maxlimit)
all.value = all.value.substring(0, maxlimit);
else
faqform.value = maxlimit - all.value.length;
}
</script>
<div style="width:96%; padding-top:12px;margin:0px auto;color:#fff; line-height:30px">
<%'防止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
%>
<div style="width:100%; margin-top:15px">
<div style="width:100%; line-height:25px; background:#565c61;">
<span style="color:#b7b7b8"><strong><a href="http://www.sogou.com/web?query=<%=rs("IP")%>" target="_blank"><%=rs("name")%></a></strong> 于 <%=FormatDateTime(rs("time"),2)%> 提交的留言：</span><%if Request("faq")="admin" then%> 管理操作： <a href="?work=delete&id=<%=rs("ID")%>" onClick="return confirm('\n请确认要删除【<%=rs("name")%>】的留言吗?\n\n点击“取消”按钮可以终止本次操作。\n\n警告：本操作执行后数据不可恢复！\n\n')">删除</a> / <a href="?cmd=hui&id=<%=rs("ID")%>">回复</a>
<%end if%></div>
<%if rs("huifu")<>"" or rs("huifu")<>null then%>
<div style="width:100%; line-height:25px; background:#626669; color:#ebeced">
<%=rs("all")%><br><blockquote><span>回复：</span><%=rs("huifu")%></blockquote></div>
<%else%><div style="width:100%; line-height:25px; color:#1c2124"> <%=rs("all")%></div>
<%end if%>
</div>
<%
rs.MoveNext
next
%>
<div style="width:100%; line-height:25px;">
<br>共<%=proCount%>人发表感言 <a href="?cmd=faq&ToPage=">第一页</a>| <a href="?cmd=faq&ToPage=<%=intCurPage-1%>">上一页</a>| <a href="?cmd=faq&ToPage=<%=intCurPage+1%>">下一页</a>|<a href="?cmd=faq&ToPage=<%=rs.PageCount%>"> 最后页</a></div>
<%
else
%>
目前还没有人留言。
<%
end if
rs.close
set rs=nothing
%></div>
</div>

<%elseif request("cmd")="hui" then
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
if id="" or id=null then
Il "<script language=""javascript"">"
Il "window.close();"
Il "</script>"
Response.End()
end if
sql="select * from feedback where id="&id
set rs = conn.execute(sql)
%>
<FORM name="form" action="?work=sh" method="post">
<div id="text">
<div style="width:96%; padding-top:12px;margin:0px auto;color:#fff; line-height:30px">
<span>回复留言</span><br>
<div style="width:100%; line-height:25px; background:#565c61">
<span style="color:#b7b7b8"><strong><a href="http://www.sogou.com/web?query=<%=rs("IP")%>" target="_blank"><%=rs("name")%> (IP:<%=rs("IP")%>)</a></strong> 于 <%=FormatDateTime(rs("time"),2)%> 提交的留言：</span></div>
<div style="width:100%; line-height:25px; color:#1c2124"> <%=rs("all")%></div>
<div style="width:100%; height:80px"><textarea name="huifu" cols="70" id="huifu" style="float:left;height:50px;" ><%=rs("huifu")%></textarea><input name="id" type="hidden" id="id" value="<%=rs("id")%>" /><input type="submit" style="float:right;height:50px;margin-top:3px" name="Submit" value="保存更新" /></div>
</div>
</div>
</FORM>
<%end if%>

</div>
</BODY></HTML>

追问

怎么连数据库……

追答

你建立一个名为 #isare.mdb 的数据库放在index.asp同一个目录下。打开这个数据库，建立一个名为feedback的表。然后在这个表上建立以下字段：
字段名称  数据类型（对应中文字部分）
------------------
ID   自动编号
name  文本
lianxi  文本
all  备注
time  日期/时间
IP  文本
huifu  备注

本回答被提问者采纳

已赞过 已踩过<

评论收起

7g18jxso7
2011-04-07 · TA获得超过1328个赞

知道小有建树答主

回答量：1442

采纳率：100%

帮助的人：0

我也去答题访问个人页

关注

展开全部

静态网页理论上也可以实现论坛和留言板功能，但比起数据库操作，实现起来更加困难且不易维护！

论坛和留言板涉及到数据库的操作和脚本语言的编写，还是百度一下吧。

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

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

其他类似问题

为你推荐：