急，在线等！！错在哪儿了？
<% option explicit%>
<!--#Include file="odbc_connection.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 >
<h1 align="center">我的留言板<h1>
<center>
<table border='1' width='80%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0' height="114">
<tr bgcolor=#203F80>
<td>
<table border="0" width=100%>
<form method="post" action="add.asp" name="form1" >
<tr><td><font color=white>主题：</font></td><td><input type="text" name="title" size="60"><font color="white">**</font></td></tr>
<tr><td><font color=white>内容：</font></td><td><textarea name="body" rows=4 cols=60 wrap=soft></textarea></td></tr>
<tr><td><font color=white>姓名：</font></td><td><input type="text" name="name" size="10"><font color="white">**</font></td></tr>
<tr><td><font color=white>email：</font></td><td><input type="text" name="email" size="60"> </td></tr>
<tr><td></td><td><input type="button" value=" 提交 " onClick="return check_Null()"Size="20"></td></tr>
</form>
</table>
</td>
</tr>
</table>
<p>
</center>
<%
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)
If Not rs.Bof And Not rs.Eof Then
%>
<center>
<table border="0" bordercolor="#8800FF" 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
db.Close
%>
</table>
</center>
<%End If %>
</body>
</html>
问题点数：50、回复次数：5Top
1 楼sdts（隐姓埋名的混蛋）回复于 2004-12-01 19:53:35 得分 15
你也不贴出错误来
你的check有错误 你那个总是返回True的 改为
<script language="JavaScript">
Function check_Null(){
return true;
If (document.form1.title.value==""){
alert("主题不能为空!");
return false;
}
If (document.form1.name.value==""){
alert("姓名不能为空!");
return false;
}
}
</Script>
Top
2 楼tpf9000（流光鸟）回复于 2004-12-01 19:57:38 得分 10
<%
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)
If Not rs.Bof And Not rs.Eof Then
%>
试试Top
3 楼pretty_yang（错乱和尚）回复于 2004-12-01 20:11:04 得分 0
还是不行啊大哥Top
4 楼pringlesgirl（病榻看雪）回复于 2004-12-01 20:32:41 得分 15
没有看懂搂主得问题，一长串代码，也不自觉贴出错误信息！
不过 sdts(上帝天使) ，说的那段，我觉得还是没有改对，javascript用的是单引号：
<script language="JavaScript">
Function check_Null(){
//return true; //一开始就return,下面就是不会再跑啦
If (document.form1.title.value==''){
alert('主题不能为空!');
return false;
}
If (document.form1.name.value==''){
alert('姓名不能为空!');
return false;
}
return true;
}
</Script>
还有这个在你的代码中没有起来什么，这个放的位置似乎不对吧！
Top
5 楼adreamboy（天）回复于 2004-12-01 20:43:51 得分 10
<%
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)
If Not rs.Bof And Not rs.Eof Then
%>
试试
Top
