＋设为首页 ＋添加到收藏夹
怎么删除不了数据呀?急,在线等
<%
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= e:/website/end/data.mdb"
conn.Open connstr
set rs=server.createobject("adodb.recordset")
id=clng(request("ID"))
sql="select * from main where ID="&id
rs.open sql,conn,2,3
rs.delete
response.redirect("manage.asp")
%>
谢谢了!
直接删除就好了。
id=clng(request("ID"))
sql="Delete from main where ID="&id
如果这句不行用sql="Delete main where ID="&id
Conn.execute(sql)
response.redirect("manage.asp")
%>
select * from main where ID="&id
这是查询不是删除.
改为
delete * from main where ID="&id
这样写：
set rs=server.createobject("adodb.recordset")
id=clng(request("ID"))
Conn.execute(delete * from main where ID="&id&")
response.redirect("manage.asp")
