我前些天找了个留言板来,但是运行不了,我不知道是那里不对,请高手些指点一下
本人菜鸟一个,请高手些指导一下
<%option explicit%>
<!--#include file="odbc_conn.asp"--> <!--把数据库连接文件包含到此文件中-->
<html>
<head>
<title>留言板</title>
<script language="javascript">
<!--
function check_null(){
if(document.form1.title.value=="")}
alert("主题不能为空!");
return false;
}
if(document.form1.name.value==""){
alert("留言人不能为空!");
return false;
}
return true;
}
//-->
</script>
</head>
<body bgcolor=pink>
<h2 align=center><FONT size=5 face=华文彩云 color=blue> 留 言 板</h2></FONT>
<FORM method="post" action="add.asp" name="form1" onsubmit="javascript:return check_null();">
<TABLE bgcolor=dodgerBlue align=center border=1 width=500>
<TR><TD height=35 align=center>留言人</TD>
<TD><input type="text" name="name" maxlength=30></TD></TR>
<TR><TD height=35 align=center>E-mail</TD>
<TD colspan=3><INPUT type="text" name="Email"></TD></TR>
<TR><TD height=35 align=center>主 题</TD>
<TD colspan=3><INPUT type="text" name="title" size=60></TD></TR>
<TR><TD height=35 align=center>内 容</TD>
<TD colspan=3><TEXTAREA name="body" rows=4 cols=60 wrap=soft></TEXTAREA>
</TR>
<TR align=middle><TD heignt=40 colspan=4 align=center>
<INPUT type="submit" value=提交>
<INPUT type="reset" value=重写></TD></TR>
</TABLE>
</FORM>
<a href=browse.asp>查看留言</a>
<p>
显示留言界面程序(browse.asp)代码如下:
<%option explicit%>
<!--#include file="odbc_conn.asp"-->
<%
'现在开始显示已有留言
Dim sql,rs '定义变量
sql="select guest_id,title,body,name,email,submit_date from guest"
sql=sql+"order by submit_date desc,guest_id desc" '这里用了两个字段排序
set rs=db.execute(sql) '返回一个recordset对象
if not rs.bof and not rs.eof then '如果有记录,就接着执行
%>
<center>
<table border="0"bordercolor="#8800ffe"width="80%">
<%
DO WHILE NOT RS.EOF '利用循环依次显示所以记录
%>
<tr>
<td colspan=2><hr></td>
</tr>
<tr>
<td width=20%>主题</td>
<td><%=rs("title")%></td>
</tr>
<tr>
<td>内容</td>
<td><%=rs("body")%></td>
</tr>
<tr>
<td>留言人</td>
<td><a href="mailto:<%=rs("email")%>"><%=rs("name")%></a></td>
</tr>
<tr>
<td>时间</td>
<td><%=rs("submit_date")%></td>
</tr>
<tr>
<td></td>
<td><a href="delete.asp?guest_id=<%=rs("guest_id")%>">删除</a></td>
</tr>
<%
rs.movenext '将记录指针移动到下一条记录
loop
rs.close '执行完毕,关闭recordset对象
db.close '执行完毕,关闭connection 对象
%>
</table>
</center>
<%end if%>
</body>
</html>