Question

asp 代码，谁能把这两个文件合成一个啊

tj.asp：
<form method="POST" action="tj1.asp">
<p>姓名：<input type="text" name="name" size="20"></p>
<p>电话：<input type="text" name="tel" size="20"></p>
<p>备注：<textarea rows="4" name="content" cols="20"></textarea></p>
<p>        
<input type="submit" value="提交" name="B1">  
<input type="reset" value="重置" name="B2"></p>
</form>

下面是tj1.asp的代码：

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
exec="select * from aaa"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,3
name=request.form("name")
tel=request.form("tel")
content=request.form("content")
rs.addnew
rs("name")=name
rs("tel")=tel
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('记录添加成功!');" & "window.location.href = 'index.asp'" & "</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
一楼的不行呀，运行出错
总是 500
我把我能发现的问题都改了，还是不行

Answer 1

<form method="POST" name="form">
<p>姓名：<input type="text" name="name" size="20"></p>
<p>电话：<input type="text" name="tel" size="20"></p>
<p>备注：<textarea rows="4" name="content" cols="20"></textarea></p>
<p>
<input type="submit" value="提交" name="B1">
<input type="hidden" name="hid" value="ok">
<input type="reset" value="重置" name="B2"></p>
</form>

<%
if request("hid")="ok" then
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
exec="select * from aaa"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,3
name=request.form("name")
tel=request.form("tel")
content=request.form("content")
rs.addnew
rs("name")=name
rs("tel")=tel
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('记录添加成功!');" & "window.location.href = 'index.asp'" & "</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

Answer 2

<%
if request.Form("B1")<>"" then
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
exec="select * from aaa"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,3
name=request.form("name")
tel=request.form("tel")
content=request.form("content")
rs.addnew
rs("name")=name
rs("tel")=tel
rs("content")=content
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('记录添加成功!');" & "window.location.href = 'index.asp'" & "</script>"
end if
%>

<form method="POST" action="tj.asp">
<p>姓名：<input type="text" name="name" size="20"></p>
<p>电话：<input type="text" name="tel" size="20"></p>
<p>备注：<textarea rows="4" name="content" cols="20"></textarea></p>
<p>
<input type="submit" value="提交" name="B1">
<input type="reset" value="重置" name="B2"></p>
</form>