问个已解决的问题，就是很纳闷~

[FIREGUNS]

flag=rs("flag")
<% if instr(","&flag&",",","&n&",")>0 then response.write "checked" %>
这样就正常。
<% if instr(","&rs("flag")&",",","&n&",")>0 then response.write "checked" %>
这样就是就是=0
为什么捏？

rs("flag")="1,2,3,4,5,6,7……"

[FIREGUNS]

n=0
response.write "<form action=""?action=save"" method=""post"">"
for i=0 to ubound(menu)
Response.Write "<b>"&menu(i)&"</b>"
if isempty(menu(i)) then exit for
n = n+1
%>
<input type= "checkbox" name="flag" value="<%=n%>" <% if instr(","&flag&",",","&n&",")>0 then response.write "checked" %>>  
<br>
<%Next
%>
这是完整的。。
为什么rs("flag")就不行呢？因为用的是conn.execute吗？

[KimSoft]

我也没看出有什么问题。

[孟子E章]

执行之前先打印出来
rs("flag")是否有值，并且
最好这样



instr("," & Trim(rs("flag")) & "," , "," & CStr(n) & ",")

[KimSoft]

或许孟老大说的有道理

VBS中
Null & "" 返回 ""
Empty & "" 返回 ""

[FIREGUNS]

response.write过，有值，前后无空格。
直接用rs("flag")就不行
flag=rs("flag")以后就可以了。

很郁闷！

[yutian130]

楼主说说吧，我在这等着呢，怕晚上睡不着

[FIREGUNS]

<% If request("action")="" Then
id=Trim(request("id"))
If id="" Or IsNumeric(id)=False Then
response.write "ID有误!"
response.End
End If
set rs=conn.Execute("select id,flag from [password] where id="&id)
'response.write rs("flag")
flag=rs("flag")
id=rs("id")
Dim menu(16)
menu(0)="1:添加影片"
menu(1)="2:删除修改影片"
menu(2)="3:添加mp3"
menu(3)="4:删除修改mp3"
menu(4)="5:发布公告"
menu(5)="6:新闻动态"
menu(6)="7:新闻删除修改"
menu(7)="8:添加商品"
menu(8)="9：删除修改商品"
menu(9)="10:短信幽默"
menu(10)="11：编辑短信"
menu(11)="12：修改调查"
menu(12)="13:会员管理"
menu(13)="14:积分卡添加"
menu(14)="15:积分卡管理"
menu(15)="16:网站信息管理"
menu(16)="17:管理员管理"
n=0
response.write "<form action=""?action=save"" method=""post"">"
for i=0 to ubound(menu)
Response.Write "<b>"&menu(i)&"</b>"
if isempty(menu(i)) then exit for
n = n+1
%>
<input type= "checkbox" name="flag" value="<%=n%>" <% if instr(","&flag&",",","&n&",")>0 then response.write "checked" %>>  
<br>
<%Next
%>
<input type="hidden" value="<%=id%>" name=id><input type=submit value=提交></from> <input name=chkall type=checkbox value=on onclick=CheckAll(this.form)>选择所有权限
<%
rs.close
Set rs=nothing
conn.close
Set conn=Nothing%>

嘛也表说了，看CODE吧。
如果不用flag=rs("flag"),直接<% if instr(","rs("flag")",",","&n&",")>0 then response.write "checked" %>，值是0，就是不会出现checkd.

[yutian130]

<input type= "checkbox" name="flag" value="<%=n%>" <% if instr(","&flag&",",","&CStr(n)&",")>0
这样试试，不过我想这应该都一样啊，奇怪。。。。。。。

[yutian130]

实在想不明白了，楼主贴出答案来吧。。不然俺晚上又睡不着了。。
谢谢！！！

[youzi520]

如孟子说...