ASP查找替换ACCESS数据库字段值
我建立的数据库里有一个data表,data表里有个dat字段,此字段的值只有1和0,dat是判断权限的,1为注册用户,0为未注册用户,我现在需要后台操作数据库修改dat的...
我建立的数据库里有一个data表,data表里有个dat字段,此字段的值只有1和0,dat是判断权限的,1为注册用户,0为未注册用户,我现在需要后台操作数据库修改dat的值,我用一个文本框来接受用户名,然后查找用户名,修改该条数据的dat值,并修改它。我代码如下,请问有高手知道为什么出错了吗?只有20分,麻烦大家帮忙了
<!--#include file="conn.asp" -->
<%
dim username,reg
username=request.Form("textfield")
reg=request.Form("reg")'获取单选按钮的值
on error resume next
sql = "Select * from data where use="&username'查找表data里use字段的值
set rs=server.CreateObject("adodb.recordset") '实例化一个adodb.recordset对象,也就是记录集对象
rs.open sql,conn,3,2 '打开一个记录集,表里行表示记录,列表示字段,记录集就是多行记录的集合
if reg="1" then
rs("dat")=1
else
rs("dat")=0
end if
rs.update()
rs.close
set rs=nothing
conn.close
set conn=nothing '使用完后要把open的对象关闭,并清空,释放内存
if err.number=0 then
response.Redirect("success.html")
else response.Redirect("Fail.html") end if'添加完成后,跳转到index.asp页面
%> 展开
<!--#include file="conn.asp" -->
<%
dim username,reg
username=request.Form("textfield")
reg=request.Form("reg")'获取单选按钮的值
on error resume next
sql = "Select * from data where use="&username'查找表data里use字段的值
set rs=server.CreateObject("adodb.recordset") '实例化一个adodb.recordset对象,也就是记录集对象
rs.open sql,conn,3,2 '打开一个记录集,表里行表示记录,列表示字段,记录集就是多行记录的集合
if reg="1" then
rs("dat")=1
else
rs("dat")=0
end if
rs.update()
rs.close
set rs=nothing
conn.close
set conn=nothing '使用完后要把open的对象关闭,并清空,释放内存
if err.number=0 then
response.Redirect("success.html")
else response.Redirect("Fail.html") end if'添加完成后,跳转到index.asp页面
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询