求一个简单的asp留言本代码

发布网友发布时间：2022-04-22 08:36

我来回答

共4个回答

热心网友时间：2022-04-22 10:06

给六邮箱啊

热心网友时间：2022-04-22 11:24

这种ASP的留言本网上源代码有好多，给你推荐一个：http://down.chinaz.com/soft/27064.htm追问这个我也试过了，不能添加留言啊，还是我哪里搞错了！？

热心网友时间：2022-04-22 12:58

http://blog.ywask.com/post/55.html 最简单的ASP留言版_简洁的ASP留言本_代码共享

热心网友时间：2022-04-22 14:50

add.asp
<%@LANGUAGE="VBSCRIPT"%>

<%
lytitle=request.Form("title")
lyauthor=request.Form("author")
lycontent=request.Form("content")
if lytitle="" then
%>
<script language="javascript">
alert('留言标题不能为空白！！！');
window.navigate('message.asp');
</script>
<%
end if

if lycontent="" then
%>
<script language="javascript">
alert('留言内容不能为空白！！！');
window.navigate('message.asp');
</script>
<%
else
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from liuyan"
rs.open sql,conn,2,3
rs.addnew
rs("title")=lytitle
rs("author")=lyauthor
rs("content")=lycontent
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert('留言添加完成！！！');
window.navigate('message.asp');
</script>
<%
end if
%>

message.asp
<form id="form1" name="form1" method="post" action="add.asp">
<table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr class="STYLE3">
<td colspan="2"><span class="STYLE7">我也要添加留言！</span></td>
</tr>
<tr class="STYLE3">
<td width="14%" class="STYLE5">留言标题：</td>
<td width="86%"> <label class="STYLE3">
<input name="title" type="text" id="title" size="20" maxlength="20" />
</label> </td>
</tr>
<tr class="STYLE3">
<td class="STYLE5">留言内容：</td>
<td> <label>
<textarea name="content" cols="35" rows="5" id="content"></textarea>
</label> </td>
</tr>
<tr class="STYLE3">
<td class="STYLE5">留言用户：</td>
<td> <label>
<input name="author" type="text" id="author" size="20" maxlength="20" />
</label> </td>
</tr>
<tr>
<td colspan="2"><span class="STYLE2">
<label>

<div align="center">
<input type="submit" name="submit" id="submit" value="提交" />
　　　　
<input type="reset" name="submit1" id="submit1" value="重填" />
</label>
</div> </td>
</tr>
</table>
</form>追问数据库表单能写一下吗？

参考资料：sername