我要做一个删除数据功能，用的是Access数据库，可是现在怎么搞就是不行！！
数据库的代码如下：
<% Dim cn,rs Dim Sql set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lybf.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") Sql = "Delete lyb WHERE id='" & Request("id") & "'" rs.Open Sql,cn rs.open "select * from lyb",cn %>
[attach]1333[/attach]
那位高手，如果可以的话，可以下载这个压缩文件帮我看一下，谢谢，急！
2004-12-24 16:43
2004-12-24 17:02
2004-12-24 17:03
以下是改好的code:
<html> <head> <title>删除记录实例</title> </head> <body> <% Dim cn,rs Dim Sql set cn=server.createobject("adodb.connection") cn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lybf.mdb") Set rs = Server.CreateObject("ADODB.RecordSet")
if Request("id")<>"" then Sql = "Delete * from lyb WHERE id=" & Request("id") rs.Open Sql,cn end if
rs.open "select * from lyb",cn %> <p align="center">已注册ID列表</p> <table border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" width="90%" align=center> <tr> <td width="97">注册ID</td> <td width="97">注册密码</td> <td width="77">Email地址</td> <td width="60">操作1</td> <td width="56">操作2</td> </tr> <% Do While Not rs.Eof %> <tr> <td width="97"><%=rs(0)%> </td> <td width="97"><%=rs(1)%> </td> <td width="77"><%=rs(2)%> </td> <td width="60"><a href="gl.asp?id=<% =rs("id") %>">修改</a></td> <td width="56"><a href="delf.asp?id=<% =rs("id") %>">删除</a></td> </tr> <% rs.MoveNext Loop %> </table> <p>成功删除记录！ <% rs.Close cn.Close Set rs = Nothing Set cn = Nothing %> </body> </html>
2004-12-24 17:05
2004-12-24 17:08
为什么你们现在才来，害我浪费了10点积分