asp 后台操作无法删除数据

jadedm 2011-06-03 04:03:21

<html>
<head>
<title>您已经删除成功！谢谢使用！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv=refresh content=1;url=AdminBM.asp>
<link href="afonge.css" rel="stylesheet" type="text/css">
</head>

<body text="#CCCCCC">

<%
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
sql = "select * from student where id="&request.querystring("id")
rs.Open sql,conn,1,3
rs.delete
rs.close
%>
<center>
 
 
 
谢谢您的使用！您已经删除成功！本页将自动转向，请等待…………
</center>
</body>
</html>

点击删除后显示

此错误(HTTP 500 内部服务器错误)意味着您正在访问的网站出现了服务器问题，此问题阻止了该网页的显示。

有关 HTTP 错误的详细信息，请参阅帮助。

...全文

212 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

香椿炒鸡蛋 2011-06-03

打赏
举报

好久没写asp了，15楼得方法能删除掉数据库里面的数据？怎么感觉只是把rs里面的数据清空了啊

rs.delete 和数据库联动的吗？

jadedm 2011-06-03

打赏
举报

呵呵谢谢刚弄错地方了应该在删除页重命名删除用的是这个方法



<%

dim rs

dim sql 

set rs= server.createobject("adodb.recordset") 

sql = "select * from student where id="&request.querystring("id")

rs.Open sql,conn,1,3 

rs.delete

rs.close

%>

香椿炒鸡蛋 2011-06-03

打赏
举报

就说让你重命名了嘛 (⊙o⊙)

[Quote=引用 12 楼 jadedm 的回复:]
VBScript code
<%
dim rs
dim sql
set rsDel = server.createobject("adodb.recordset")

取到数据记录了我用GG显示是 Microsoft VBScript 编译器错误 '800a0411'名称重定义把这个dim rs 删除后可以啦
[/Quote]

香椿炒鸡蛋 2011-06-03

打赏
举报

对了你删除记录为什么不是下面这样呢？



<%

dim rs  

dim sql  

set rs = server.createobject("adodb.recordset")  

sql = "delete from student where id="&request.querystring("id")

conn.execute(sql)

%>

jadedm 2011-06-03

打赏
举报

<%

dim rs  

dim sql  

set rsDel = server.createobject("adodb.recordset")

取到数据记录了我用GG显示是 Microsoft VBScript 编译器错误 '800a0411'名称重定义把这个dim rs 删除后可以啦

jadedm 2011-06-03

打赏
举报

我用的IE7 进入“Internet选项”，没这一项取消了禁用脚本调试用GG 显出错误了，dim rs 重定义了

香椿炒鸡蛋 2011-06-03

打赏
举报



<%

dim rs  

dim sql  

set rsDel = server.createobject("adodb.recordset")  

sql = "select * from student where id="&request.querystring("id")

rsDel.Open sql,conn,1,3  

Response.write rsDel.RecordCount

%>

把记录数打出来看看有没有取到记录

香椿炒鸡蛋 2011-06-03

打赏
举报

rs 改成 rsDel 也还是报错？会不会是iis的问题哦



<%

if request.QueryString("id")<>"" then

sql="select * from a where id="&request.QueryString("id")

set rsDel=server.createobject("adodb.recordset")

rsDel.open sql,conn,1,3



%>

灬上海爽爷 2011-06-03

打赏
举报

进入“Internet选项”，单击“高级”选项卡，取消勾选“显示友好HTTP错误信息”

这样能显示具体错误。

jadedm 2011-06-03

打赏
举报

有的我以前在一个地方用这个可以用的今天发现出错了找不到原因
<%
if request.QueryString("id") then
sql="select * from a where id="&request.QueryString("id")
set rs=server.createobject("adodb.recordset")
On error resume next
rs.open sql,conn,1

%>

香椿炒鸡蛋 2011-06-03