Question

关于asp将复选框中的信息写入数据库

现在我这里有几个复选框,代码如下:
<p align="left">您的网络爱好:<p>
上网购物<input type="checkbox" name="netshop" value="ON">
网络游戏<input type="checkbox" name="netgame" value="ON">
网上聊天<input type="checkbox" name="netQQ" value="ON">

现在我要将这些信息写入数据库，应该怎样修改下面这段代码？

username=htmlEncode2(request.form("username"))
password=htmlEncode2(request.form("password"))
email=htmlEncode2(request.form("email"))
Tel=htmlEncode2(request.form("Tel"))

Set fso = Server.CreateObject("Scripting.FileSystemObject")
userpath=fullpath&username
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("email")=email
rs("Tel")=Tel
rs.update
rs.close

我已经在数据库里建好"netshop" "netgame" "netQQ"这几个字段了，
数据类型都是”是／否”

Answer 1

加你QQ了

两种方法:

方法一数据库是文本:
username=htmlEncode2(request.form("username"))
password=htmlEncode2(request.form("password"))
email=htmlEncode2(request.form("email"))
Tel=htmlEncode2(request.form("Tel"))
netshop=request.form("netshop")
if netshop=1 then
netshop=1
else
netshop=0
end if
netgame=request.form("netgame")
if netgame=1 then
netgame=1
else
netgame=0
end if
netQQ=request.form("netQQ")
if netQQ=1 then
netQQ=1
else
netQQ=0
end if

Set fso = Server.CreateObject("Scripting.FileSystemObject")
userpath=fullpath&username
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("email")=email
rs("Tel")=Tel
rs("netshop")=netshop
rs("netgame")=netgame
rs("netQQ")=netQQ

rs.update
rs.close

方法二数据库是:是和否
username=htmlEncode2(request.form("username"))
password=htmlEncode2(request.form("password"))
email=htmlEncode2(request.form("email"))
Tel=htmlEncode2(request.form("Tel"))
netshop=request.form("netshop")
if netshop="yes" then
netshop=True
else
netshop=False
end if
netgame=request.form("netgame")
if netgame="yes" then
netgame==True
else
netgame=False
end if
netQQ=request.form("netQQ")
if netQQ="yes" then
netQQ=True
else
netQQ=False
end if

Set fso = Server.CreateObject("Scripting.FileSystemObject")
userpath=fullpath&username
sql="select * from [user]"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("email")=email
rs("Tel")=Tel
rs("netshop")=netshop
rs("netgame")=netgame
rs("netQQ")=netQQ

rs.update
rs.close

Answer 2

下面是我改的，有问题再留言给我吧
swgw=request.form("netshop")
wlyx=request.form("netgame")
wslt=request.form("netQQ")

if swgw="ON" then
swgw=true
else
swgw=false
end if

if wlyx="ON" then
wlyx=true
else
wlyx=false
end if

if wslt="ON" then
wslt=true
else
wslt=false
end if

set conn=server.CreateObject ("ADODB.Connection")
ks=server.mappath("data/#data.mdb") '括号里写数据库的地址
conn.Open "driver={microsoft Access driver (*.mdb)}; dbq=" & ks
set rs=server.CreateObject ("ADODB.Recordset")
sql="select * from user"
rs.open sql,conn,1,3
rs.addnew
rs("netshop")=swgw
rs("netgame")=wlyx
rs("netQQ")=wslt
rs.update
rs.close
set rs=nothing

Answer 3

swgw=request.form("netshop")
wlyx=request.form("netgame")
wslt=request.form("netQQ")

if swgw="ON" then
swgw=true
else
swgw=false
end if

if wlyx="ON" then
wlyx=true
else
wlyx=false
end if

if wslt="ON" then
wslt=true
else
wslt=false
end if

set conn=server.CreateObject ("ADODB.Connection")
ks=server.mappath("data/#data.mdb") '括号里写数据库的地址
conn.Open "driver={microsoft Access driver (*.mdb)}; dbq=" & ks
set rs=server.CreateObject ("ADODB.Recordset")
sql="select * from user"
rs.open sql,conn,1,3
rs.addnew
rs("netshop")=swgw
rs("netgame")=wlyx
rs("netQQ")=wslt
rs.update
rs.close
set rs=nothing
v