ASP问题，删除和提交留言的时候跳转页面出错~~~不知道是为什么~··数据删除后可以提交数据库·但是就是会查出错~

[lststwhy]

<!--#include file="conn.asp"-->
<%
if Session("admin")<>"admin" then
Response.Redirect("admin.asp")
Response.End
End if
%>

%>
<tr>
<td width="58%" height="21" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" bgcolor="#DAE6ED"><%=rs("title")%></td>
<td width="21%" height="21" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p align="center"><a href="?post=up&id=<%=rs("id")%>">修改</a></td>
<td width="21%" height="21" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<a href="?post=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
if rs.Eof then exit for
next
End if
%>
<tr>
<td width="100%" height="12" colspan="3"></td>
</tr>
</table>
</center>
</div>
</td>
<td width="73%" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="249" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" height="211">
<%
if post="up" and id <> "" then
set rsid=server.createobject("adodb.recordset")
rsid.open"Select * from company where id = "&id&" ",conn,1,3
if rsid.Eof or rsid.Bof then
Response.Write("<script>alert('请不要非法操作！');window.location=('admin.asp')</script>")
Response.End
End if
End if
%>
<form name="form1" method="POST" action="<%if post="up" and id <>"" then%>?post=update&id=<%=id%><%else%>?post=add<%end if%>">
<tr>
<td width="82%" height="10" align="center" colspan="2"></td>
</tr>
<tr>
<td width="82%" height="30" align="center" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" bgcolor="#FFFFFF" colspan="2">
支持HTML语言  换行<br>  换段<p>字体</p> 粗体<b>字体</b></td>
</tr>
<tr>
<td width="13%" height="49" align="center" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" bgcolor="#DAE6ED">栏目名称：</td>
<td width="69%" height="49" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<input type="text" name="title" size="27" style="border: 1px groove #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF" value="<%if post="up" and id <> "" then%><%=rsid("title")%><%else%><%end if%>">
当前状态： <font color="#FF0000"><%if post="up" and id <>"" then%>修改<%else%>添加<%end if%></font></td>
</tr>
<tr>
<td width="13%" height="122" align="center" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" bgcolor="#DAE6ED">
<p align="center">栏目内容：</td>
<td width="69%" height="122" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<textarea rows="8" name="txt" cols="53" style="border: 1px groove #C0C0C0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><%if post="up" and id <> "" then%><%=rsid("txt")%><%else%><%end if%></textarea></td>
</tr>
<tr>
<td width="100%" height="40" colspan="2" style="border: 1px solid #6B96B4; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p align="center">
<input type="submit" value="提交" name="B1" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"></td>
</tr>
</form>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" height="16">　</td>
</tr>
<tr>
<td width="100%" height="40"><img border="0" src="pic/x01_29.gif" width="778" height="40"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>

</html>
<%
if post="add" then
if Session("admin")<>"admin" then
Response.Write("<script>alert('请不要非法操作！');window.location=('admin_company.asp')</script>")
Response.End
End if
rs.addnew
rs("title")=title
rs("txt")=txt
rs.update
Response.Write("<script>alert('栏目"&title&"添加成功!');window.location=('admin_company.asp')</script>")
End if
%>
<%
if post="del" then
if Session("admin")<>"admin" then
Response.Write("<script>alert(' "&Session("username")&" 请不要非法操作！');window.location=('admin_company.asp')</script>")
Response.End
End if
if id="1" then
Response.Write("<script>alert(' ID为1，此项只能修改不能删除，否则系统会报错！');window.location=('admin_company.asp')</script>")
Respones.End
End if
set rsdel=server.createobject("adodb.recordset")
rsdel.open "select * from company where id = "&id&" ",conn,1,3
if rsdel.Eof or rsdel.Bof then
Response.Write("<script>alert('请不要非法操作！');window.location=('admin_company.asp')</script>")
Response.End
Else
rsdel.close:set rsdel=nothing
set rsdel=server.createobject("adodb.recordset")
rsdel.open"DELETE FROM company WHERE id = "&id&" ",conn,1,3
Response.Write("<script>alert('删除成功!');window.location=('admin_company.asp')</script>")
rsdel.close:set rsdel=nothing
End if
End if
%>
<%
if post="update" then
if Session("admin")<>"admin" then
Response.Write("<script>alert(' 请不要非法操作！');window.location=('admin_company.asp')</script>")
Response.End
End if
set rsupdate=server.createobject("adodb.recordset")
rsupdate.open "select * from company where id = "&id&" ",conn,1,3
if rsupdate.Eof or rsupdate.Bof then
Response.Write("<script>alert(' "&Session("username")&" 请不要非法操作！');window.location=('admin_company.asp')</script>")
Response.End
else
rsupdate.update
rsupdate("title")=title
rsupdate("txt")=txt
rsupdate.update
Response.Write("<script>alert('修改成功!');window.location=('admin_company.asp')</script>")
rsupdate.close:set rsupdate=nothing
End if
End if
%>

[sy_binbin]

出啥错呢？？说明白写

[BoyHaXin]

不得了呢。。。都乱来。。。