大家看看这段程序为什么没有执行数据的删除?

[wxfxxy]

大家看看这段程序为什么没有执行数据的删除?
<%
strurl=request.servervariables("script_name")
set objconn=server.createobject("adodb.connection")
db="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("userinfo.mdb")
objconn.open db
if request.servervariables("querystring")="" then
set rs=objconn.execute("select user_name,real_name from users")
do while not rs.eof
response.write "<br>" & rs("user_name") & " " & rs("real_name")
response.write "<a href='"&strurl&"?xm="& rs("user_name")&"'>删除</a>"
rs.movenext
loop
rs.close
set rs=nothing
else
sqlstr="delete from users where user_name='"& request("user_name")&"'"
objconn.execute(sqlstr)
response.write "删除完成<br>"
response.write"<a href='"&strurl&"'>继续删除其他记录</a>"
end if
objconn.close
set objrs=nothing
%>

[gingerkang]

xm="& rs("user_name")&"
user_name='"& request("user_name")&"'"

检查参数

[wxfxxy]

user_name是我数据库数据表字段

[wxfxxy]

各位高手,帮忙看看,想不明白了

[wxfxxy]

和下面这个应该错误一样(通过表单输入修改数据):点击修改没有反应
<%
strurl=request.servervariables("script_name")
set objconn=server.createobject("adodb.connection")
db="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("userinfo.mdb")
objconn.open db
if request.servervariables("content_length")=0 then
if request.servervariables("querystring")="" then
set rs=objconn.execute("select user_name,real_name from users")
response.write " 请选择要修改的记录<br>"
do while not rs.eof
response.write "<br>" & rs("user_name") & " " & rs("real_name")
response.write "<a href='"&strurl&"?xm="& rs("user_name")&"'>修改</a>"
rs.movenext
loop
rs.close
set rs=nothing
else
set rs=objconn.execute("select * from users where user_name='"&request("user_name")&"'")
%>
请输入新的内容
<form method="post" action="<%=strurl%>">
昵称：<input type="text" name="user_name" value=<%=rs("user_name")%>><br>
密码：<input type="password" name="psw" value=<%=rs("pws")%>><br>
真实姓名：<input type="text" name="real_name" value=<%=rs("real_name")%>><br>
电话：<input type="text" name="tel" value=<%=rs("tel")%>><br>
Email：<input type="text" name="Email" value=<%=rs("Email")%>><br>
提交日期：<input type="text" name="submit_date" value=<%=rs("submit_date")%>><br>
<input type="submit" value="提交" name="submit">
</form>
<%
rs.close
set rs=nothing
end if
else
sqlstr="update users set user_name='" & request("user_name") & "',psw='" & request("psw")& "',real_name='" & request("real_name")& "',tel='" & request("tel") & "',Email='" & request("Email") & "',submit_date== #" & request("submit_date") & "#"
objconn.execute(sqlstr)
response.write "修改完成<br>"
response.write"<a href='"&strurl&"'>继续修改其他记录</a>"
end if
objconn.close
set objconn=nothing
%>

[renzaijiang]

rs.movenext
loop
rs.close
set rs=nothing
不要关闭试验下看

[gingerkang]

传递的是xm,获取的是user_name,还不明白?

[wxfxxy]

不行,点击超连接URL后添加了参数,其他没有变化

[wxfxxy]

把xm改成user_name了,试过了,没有用

[gingerkang]

post和get的数据分别用request.form,request.querystring
request.servervariables("querystring")这个不知道获取的是什么东西改成request("user_name")
然后xm改成user_name

[银狐被占用]

sqlstr="delete from users where user_name='"& request("xm")&"'"

[掌握未来2019]

[Quote=引用楼主 wxfxxy 的帖子:]
大家看看这段程序为什么没有执行数据的删除?
<%
strurl=request.servervariables("script_name")
set objconn=server.createobject("adodb.connection")
db="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("userinfo.mdb")
objconn.open db
if request.servervariables("querystring")="" then
set rs=objconn.execute("select user_name,real_name from users")
do while not rs.eof
respo…
[/Quote]

User_Name 改成[User_Name]
User_Name为sql中的关键字
建议写sql的时候表名和字段名都加[]

[wxfxxy]

按照各位的意见都试了,不行啊.下面是这个实例所访问的表字段:
id user_name psw real_name tel Email submit_date

[gingerkang]

你google,baidu 一下request.servervariables

[wxfxxy]

谢谢各位!

[lzp4881]

<%
strurl=request.servervariables("script_name")
set objconn=server.createobject("adodb.connection")
db="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("userinfo.mdb")
objconn.open db
if request.querystring="" then
set rs=objconn.execute("select user_name,real_name from users")
do while not rs.eof
response.write " <br>" & rs("user_name") & " " & rs("real_name")
response.write " <a href='"&strurl&"?xm="& rs("user_name")&"'>删除 </a>"
rs.movenext
loop
rs.close
set rs=nothing
else
sqlstr="delete from users where user_name='"& request("xm")&"'"
objconn.execute(sqlstr)
response.write "删除完成 <br>"
response.write" <a href='"&strurl&"'>继续删除其他记录 </a>"
end if
objconn.close
set objconn=nothing
%>