<%
dim id
id=request.querystring("index")
dim conn,db,sql,rs
set db=server.CreateObject("adodb.connection")
conn="data source="+server.MapPath("db1.mdb")+";provider=microsoft.jet.oledb.4.0"
db.open conn
set rs=server.CreateObject("adodb.recordset")
sql="delete from reg1 where ID=';"+id+"';"
rs.open sql,db,1,3
%>
body>
<script language="vbscript">
window.location="huifu.asp"
</script>
</body>

rs.open sql,db,1,3  这句话有错吗？
请高手帮帮我！

这样写
<%
id=request.querystring("index")
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("db1.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="delete from reg1 where ID="&id
rs.open sql,conn,1,1
%>

呵呵~~是这个错了
sql="delete from reg1 where ID=';"+id+"';"

大哥大姐你们是高手````教教小弟啊``
那个网站上有相关资料啊````````

大哥们，还是不行呀？
  怎么办呀？

id=request.querystring("index")
你究竟传了INDEX过来没有???

我把两个程序给各位高手看看，请大家帮帮我！！
<huifu.asp>
<p align="center"><font size=4><b>客户的反馈信息</b></font></p>
<%
dim conn,db,sql,rs
set db=server.CreateObject("adodb.connection")
conn="data source="+server.MapPath("db1.mdb")+";provider=microsoft.jet.oledb.4.0"
db.open conn
set rs=server.CreateObject("adodb.recordset")
sql="select * from reg1 order by leavewordtime desc"
rs.open sql,db,1,3
for i=1 to rs.recordcount
%>
<table>
<tr><td><font size=2 color=red><%=rs("name")%></font></td></tr>
<tr><td>您的Email地址：<font size=2 color=blue>
<a href=mailto:<%=email%>><%=rs("email")%></a></font></td></tr>
<tr><td>您的标题是：<font size=2 color=blue><%=rs("title")%></font></td></tr>
<tr><td>您的反馈是：<font size=2 color=blue><%=rs("memo")%></font></td></tr>
<tr><td>反馈时间：<font size=2 color=blue><%=rs("leavewordtime")%></font></td></tr>
<tr><td align=right></td>
<td align=right>
<input type=button value="回复" onclick="revert(<%=rs("ID")%>)">
<input type=button value="删除" onclick="delete(<%=rs("ID")%>)">
</td>
</tr>
</table>
<hr>
<%
rs.MoveNext
next
db.close
set db=nothing
%>
<script language=vbscript>
sub revert(ID)
window.open("revert.asp?index="&ID)
end sub
sub delete(ID)
window.location="delete.asp?index="&ID
end sub
</script>
<center>[<a href="list.asp">返回</a>]</center>

<delete.asp>
<%
dim id
id=request.querystring("index")
dim conn,db,sql,rs
set db=server.CreateObject("adodb.connection")
conn="data source="+server.MapPath("db1.mdb")+";provider=microsoft.jet.oledb.4.0"
db.open conn
set rs=server.CreateObject("adodb.recordset")
sql="delete from reg1 where ID="&id
rs.open sql,conn,1,1
%>
body>
<script language="vbscript">
window.location="huifu.asp"
</script>
</body>

为什么要用INPUT做传递啊,就算是用INPUT做传递,你也不要这样传嘛,用隐藏域传才对吗.
<input type=button value="回复" onclick="revert(<%=rs("ID")%>)">
<input type=button value="删除" onclick="delete(<%=rs("ID")%>)">
改成下面的吧
<a href="revert.asp?index=<%=rs("id")%>">回复</a>
<a href="delete.asp?index=<%=rs("id")%>">删除</a>

删除还是不行呀。。
我做的回复可以，就是删除不行。。
  我不知道怎么搞好？

<delete.asp>
文件改成下面的
<%
id=request.querystring("index")
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("db1.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="delete from reg1 where ID="&id
rs.open sql,conn,1,1
set rs=nothing
set conn=nothing
response.redirect "XXX.asp" ';XXX是记录被删除后要转到什么页面.
%>