关于checkbox的问题

[hwstu]

数据库结构为
表 Member
字段为 MemberHobby(文本类型）

里面的记录为 1，3，5

现在要进行修改，在网页上显示为checkbox 总共有6个值分别为1 2 3 4 5 6

我通过split(MemberHobby,",")把该东西转化为数组了

可是无法在修改项中判断原来选中的题目。
请大家给个提示

[wangfei2428]

str="1, 2, 3"
用instr()函数

[hwstu]

instr()函数
是可以，我也试出来了，但是当记录为2,3,11
的时候呢？
如果checkbox 中有一个值为1 同样会选中的

[cmsoft]

这个不能用instr()函数吧，你可以用SQL来实现啊

[coffee_cn]

你直接修改呀，不要管原来是什么呀？也没有必要分成数组啊！

[「已注销」]

what

[tripofdream]

if there's an identity field in table Member named ID,you can do like this:
<% for i=0 %>
<input type="checkbox" name=MemberHobby value="<%=rs("ID")%>">
<%=rs("MemberHobby")%>
......
<% rs.movenext
next%>

[tripofdream]

if there's an identity field in table Member named ID,you can do like this:
<% for i=0 %>
<input type="checkbox" name=MemberHobby value="<%=rs("ID")%>">
<%=rs("MemberHobby")%>
......
<% rs.movenext
next%>

[hwstu]

不是我要的意思，我想MemberHobby 是Member表中的一个字段
其中有游泳，旅游等等，存到里面的是一个数组
现在如果用户要修改自己的爱好，必须先读出原来的记录，但是现在显示的情况出错。

[sexboys_]

set Arr = request("chkbox")

for i=0 to Arr.Count
response.write Arr.Item
next

[luckyren]

没看明白你些的什么，再好好叙述一遍

[hwstu]

ArrayMemberHobby=split(MemberHobby,",")
旅游<input type="checkbox" name=MemberHobby value="1"
<%
for i=0 to ubound(MemberHobby)
if ArrayMemberHobby(i)=1 then
response.write "checked"
end if
next
%>
>

如果数据库里面原来的是空字串就是MemberHobby为空字串如何处理？

[tripofdream]

My~God!Does your Member table have only one field?Is there any field else such as an identity field in it?

[hwstu]

No
there have many field ,but i just want slove this problem!

[hwstu]

未看到满意答案

[evonne_feng]

旅游<input type="checkbox" name=MemberHobby value="1"
<%
If isSelectHobby(MemberHobby,"1") Then
response.write "checked"
End If
%>
>

<%
Function isSelectHobby(sHobbyString,sHobby)

isSelectHobby = False

If Len(sHobbyString) = 0 Then
Exit Function
End If

Dim arrHobby
arrHobby = split(sHobbyString,",")

For i = 0 To Ubound(arrHobby)
If sHobby = arrHobby(i) Then
isSelectHobby = True
Exit For
End If
End If

End Function
%>

[hwstu]

evonne_feng(evonne)

good !!!!
我背后就是用len来解决问题的，呵呵