我按添加键，不能跳到后台处理，为什么？是不是数据库联接有问题。这是表单程序：
<html>
<body>
<h2>添加消费记录</h2>
<p align="center"> </p>
<form method=post name=management action=Add1.asp onsubmit=Check()>
<table width=80%>
<tr>
<td align=right>日期：
<td><input name=riqi>
<td align=right>交通费：
<td><input name=jiaotong>
<tr>
<td align=right>
<td>
<td align=right>
<td>
<tr>
<td align=right>餐饮费：
<td><input name=canying>
<td align=right>水电费：
<td><input name=shuidian>
<tr>
<td align=right>
<td>
<td align=right>
<td>
<tr>
<td align=right>物业费：
<td><input name=wuye>
<td align=right>杂项：
<td><input name=zaxiang>
<tr>
<td align=right>
<td colspan=3>
<tr>
<td align=right>备注：<td colspan=3>
<textarea name=beizhu style=""></textarea>
</table>
<p align="center"><input type=reset value=添加> </p>
</form>
<script language=vbscript>
Sub Check()
Set frm=document.management
If riqi<>"" And Not IsDate(riqi) Then
alert("请您输入正确的日期格式!")
window.event.returnValue=false
End If
End Sub
</script>
</body>
</html>
这是后台程序
<html>
<body>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
dsnstr="dsn=CHENFANG;uid=sa;pwd=chenfang"
sqlstr = "SELECT * FROM dbo.pursemingxi"
rs.Open sqlstr, dsnstr, 3,2
rs.AddNew
rs("riqi")=request.Form("riqi")
rs("jiaotong")=request.form("jiaotong")
rs("shuidian")=request.form ("shuidian")
rs("wuye")=request.Form("wuye")
rs("yingshi")=request.Form("canying")
rs("zaxiang")=request.Form("zaxiang")
rs("beizhu")=request.Form("beizhu")
rs.Update
rs.Close
Set rs=Nothing
%>
<h2>添加记录成功</h2>
<p><a href=default1.asp>返回</a>
</center>
</body>
</html>
不胜感激~~~~~~~~~~~~~~
论坛设施
