Question

这段ASP代码删除不了数据库中的内容，大侠帮我看看错在哪。谢谢

<%
dim sqltext, rs, HrName,CurrentPage
CurrentPage = request("Page")
HrName=trim(request("HrName"))

set rs=server.createobject("adodb.recordset")
sqltext="delete from HrDemand where HrName='"&HrName&"'"
rs.open sqltext,conn,1,3
set rs=nothing

conn.close
response.redirect "Admin_HrDemand.asp?page="&CurrentPage
%>

Answer 1

你写的以上代码并没有错误的，语法完全正确
可能没有删除掉数据的原因如下：
1.你的这段代码前是否导入了数据库连接代码（看你没说报错的情况下，是导入了的）
2.HrName是否读取到数值，不防输出来看一看是否有值
3.把sqltext输出来看下，是否是SQL语句有误
如若以上都看了没误，那就能删除掉数据库。

Answer 2

//连接数据库 这地方数据名为db.mdb
<%
dim conn,connstr,db
db="db.mdb"
set conn=server.CreateObject("ADODB.Connection")
connstr="provider=Microsoft.jet.OLEDB.4.0; DATA source=" &server.MapPath(db)
conn.open (connstr)
%>

<%
dim sqltext, HrName,CurrentPage,s_delete
CurrentPage = request("Page")
HrName=request("HrName")

set s_delete=request("s_delete")
sql="delete from [HrDemand ] where HrName ='"& HrName&"' "

if (s_delete="s_delete") then
conn.execute(sql)
response.write("<script>alert('成功删除文档！'); location.href="Admin_HrDemand.asp?page="&CurrentPage;</script>")
conn.close
set conn = nothing
end if
%>
<form name="form1" method="post" action="">
<input type="text" name="HrName ">
<input type="submit" value="删除" />
<input type="hidden" name="s_delete" value="s_delete">
</form>
我另外做了一个使用可以用的，可以会有个别名字不对称，自己改一下吧。

Answer 3

你测试一下，找到数据库里面有的值xxx
改 HrName="xxx"
看看在说。

Answer 4

试试：

<%
dim sqltext, rs, HrName,CurrentPage
CurrentPage = request("Page")
HrName=trim(request("HrName"))

sql="delete from HrDemand where HrName='"&HrName&"'"
conn.Execute sql

set rs=nothing
conn.close
response.redirect "Admin_HrDemand.asp?page="&CurrentPage
%>