数据库问题在线等

<%
Function DeleteData(sqlKey)
Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy
sSql = "SELECT * FROM [收入]"
sSql = sSql & " WHERE " & sqlKey
sGroupBy = ""
sHaving = ""
sOrderBy = ""
If sGroupBy <> "" Then
sSql = sSql & " GROUP BY " & sGroupBy
End If
If sHaving <> "" Then
sSql = sSql & " HAVING " & sHaving
End If
If sOrderBy <> "" Then
sSql = sSql & " ORDER BY " & sOrderBy
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
Do While Not rs.Eof
rs.Delete
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
DeleteData = True
End Function
%>
这个里面出现的错这句:rs.Delete
我想不起来怎么样改了大侠们帮帮忙呀!!谢谢
改成1,3不可以呀```

我觉得这个没有问题!你的数据库是不是显示这个错误:Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
如果是这样拉话那就用以正反方法试试很大的可能是你的Access所在的盘为ntfs格式

而这个格式中要求相应的帐户具有修改的权限 这样access才能够进行更新

方法：把格式改为FAT32（呵呵 不是很现实 开玩笑啦/。。。）
方法二：

如果配置站点的时候，分区是NTFS格式的情况下，往往会遇到80004005的数据库或对象为只读错误，如：

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。

造成这个原因的问题就是站点目录的访问权限问题，因为在使用Access数据库的时候，要在同目录生成一个.ldb文件，如果此目录没有写权限或者Access数据库本身没有写的权限，那么就会报这个错误。由于通过浏览器访问网站大都使用Internet匿名访问，我们只需要在数据库的目录权限里添加上“IUSR_计算机名”用户就可以了，分给它“写入”权限。我发现一些文章说让加入EveryOne用户，并给“写入”权限，这个太危险了。原则上是此目录加的可以写入用户就是在IIS中配置的时候加的Internet匿名访问用户，一般默认为“IUSR_计算机名”，不过如果是虚拟主机就要自己看看了。

具体的操作方式就是：

鼠标右键点击数据库所在目录（或者它上级目录，但是注意要能够继承权限）-〉选择“共享和安全”-〉选择“安全”选项卡-〉点击“添加”按钮-〉点击“高级...”按钮-〉点击“立即查找(N)”按钮-〉找到前缀为“IUSR_”的用户名（格式为IUSR_计算机名）-〉选中此用户，点击确定-〉这样这个用户就被加进来了-〉在“Internet来宾帐户”的权限框中，除了默认的还要选中“写入权限”-〉“应用”或者“确定”即可。