帮我做一个最简单的ASP留言板，急。。。。快。。。！

本人正在考试，谁能帮我啊。。。题目是这样的：编写留言板客户端程序，再编写服务器端程序来返回留言内容，姓名到客户端。程序界面是这样的：第一行是“姓名”，第二行是“您的留言”... 本人正在考试，谁能帮我啊。。。题目是这样的：编写留言板客户端程序，再编写服务器端程序来返回留言内容，姓名到客户端。程序界面是这样的：第一行是“姓名”，第二行是“您的留言”，第三行两个按扭，一个是“传送留言”，另一个是“清除流言”。。哪为大侠能帮我啊。。。给我做一个发到我的电子邮箱里面或者制作方法也可以，详细点哦。 Email：majnun2006@126.com ...做好了追加展开

 我来答

4个回答

#热议# 普通体检能查出癌症吗？

xxq8210
2009-06-26 · TA获得超过1.8万个赞

知道小有建树答主

回答量：476

采纳率：0%

帮助的人：286万

我也去答题访问个人页

关注

展开全部

按照你的要求，当场写了一个，调试了，没问题，我已经上传的到一个免费空间，可以到此看效果：
http://g.kkgg.net/contact.asp
数据库是Access，
下载地址：
http://g.kkgg.net/contact.mdb

---------------contact.asp---------------------
<%
dim cn ,rs, contactHTML,msg,name,face,i

set cn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source=" & server.MapPath("contact.mdb")
'-----------------留言------------------------
msg = request("msg")
name = request("name")
face = request("face")

if msg <> "" and name <> "" and face <> "" then
sql = "insert into contact(name,msg,face,postTime)values('"& name & "','" & msg & "','" & face & "',now())"
cn.Execute(sql)
end if
'----------------显示留言--------------------

set rs = cn.Execute("select * from contact")

contactHTML = ""
i = 1
while not rs.eof

dTitle= "<span class=name>第" & i & "楼</span>" &_
"<span class=name>昵称：" & rs("name") & "</span>" &_
"<span class=time>" & rs("postTime")& "</span>" &_
"<span class=face> " & rs("face") & "</span>"

contactHTML = contactHTML & "<dl><dt>"& dTitle &"</dt><dd>"& rs("msg") &"</dd></dl>"

rs.MoveNext
i=i+1
wend

rs.Close
cn.Close
set cn = nothing
set rs = nothing

%>
<html>
<head>
<style>
body{font-size:13px}
.contact{width:100%;height:200px;}
.contact dl{margin:20px 0px;width:100%;border:3px outset;}
.contact dt{background-color:#3472c5;color:#ffffff;height:20px;}
.contact dt span{margin:0,10px;}
.contact dd{background-color:#fefefe;height:100px;}
.contact dt .face{float:left;}
.contact dt .name{float:left;}
.contact dt .time{float:right;}

.send{}
.send input{width:200px;margin:0px 20px}
.send textarea{width:500px;height:200px;}
</style>
<script>
function $(obj){return document.getElementById(obj);}
function check()
{
$("msg").value =$("msg").value.replace(/\n/g,"<br>");

$("lvname").value==""?alert("昵称不能为空"):"";
$("msg").value==""?alert("留言不能为空"):"";
return $('msg').value!='' && $("lvname").value!="";
}
</script>
</head>
<body>
<h1><center>--欢迎各方来客在此留言--</center></h1>
<hr>
<h2><center></center> 留言板</h2>
<div class="contact">
<%=contactHTML%>
</div>
<hr>
<form method =post action="contact.asp">
<div class="send">
<h3>欢迎您的留言</h3>
昵称：<input name=name id=lvname >*(小于20字符)
<br>
表情： <select name=face>*
<option value="~(^o^)~" >~(^o^)~</option>
<option value="(*^〔^*)" >(*^〔^*)</option>
<option value="(☆＿☆)" >(☆＿☆)</option>
<option value="(≥◇≤)" >(≥◇≤)</option>
<option value="( 「「 )" >( 「「 )</option>
<option value="( *^_^* )" >( *^_^* )</option>
<option value="(b_d)" >(b_d)</option>
<option value="&( ^___^ )&" >&( ^___^ )&</option>
<option value="( $ _ $ )" >( $ _ $ )</option>
<option value=" (*^＠^*)" > (*^＠^*)</option>
<option value="\( > < )/" >\( > < )/</option>
<option value="┣▇▇▇═—" >┣▇▇▇═—</option>
<option value="∝╬══→" >∝╬══→</option>
<option value="▄【┳一" >▄【┳一</option>
<option value="┈━═☆" >┈━═☆</option>
<option value="【┳═一oO" >【┳═一oO</option>
</select>
<br>
<textarea name=msg id=msg ></textarea>
<br>
<input type=submit onclick="return check()" value="发送留言"><input type=reset value="清除留言">
</div>
</form>
</body>
</html>

本回答由提问者推荐

已赞过 已踩过<

评论收起

798766
2009-06-26 · TA获得超过1817个赞

知道大有可为答主

回答量：3750

采纳率：0%

帮助的人：2923万

我也去答题访问个人页

关注

展开全部

提供有偿定做，如需可百度HI我。

已赞过 已踩过<

评论收起

百度网友6b6d2fd867
2009-06-26 · 超过12用户采纳过TA的回答

知道答主

回答量：261

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

是的，我好像不会也

已赞过 已踩过<

评论收起

semaly
2009-06-26 · TA获得超过469个赞

知道小有建树答主

回答量：1158

采纳率：100%

帮助的人：378万

我也去答题访问个人页

关注

展开全部

这个简单,我做了个现成的,发给你好了.呵呵.

已赞过 已踩过<

评论收起

更多回答（2）

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

帮我做一个最简单的ASP留言板，急。。。。快。。。！

其他类似问题

为你推荐：