主题：[原创]ASP复选框的问题请高手帮忙一下
milu697
[专家分：0] 发布于 2007-08-16 08:56:00
我的数据库中其中有一字段保存着这样的一段文本"图片新闻,推荐新闻,置顶新闻,"
我现在建了一个修改数据页面表单,其中表单里有三个复选框,同名为NewType,
代码如下:
sNewType = Left(sNewType,len(sNewType)-1)
ArrNewType = Split(sNewType,",") '产生一个数组变量
For iii = 0 to Ubound(ArrNewType)
mm = ArrNewType(iii)
Next
我的想法就是,在修改页面里不管这个字段如何,我将输出三个复选框,同名为NewType; 值不同,一个是PIC,一个是Tj,一个是Zd
且,
如果数据库记录里发现有相同的,比如,利用数组输出(如上代码比较)发现相同时,PIC = PIC时,就将复选框选中,不同时不选中
回复列表 （共5个回复）
沙发
milu697 [专家分：0] 发布于 2007-08-16 09:01:00
高手来帮下忙啊,谢谢!
板凳
wangsdong [专家分：21390] 发布于 2007-08-16 09:22:00
<%
value1="pic" '假设等于pic
sNewType = Left(sNewType,len(sNewType)-1)
ArrNewType = Split(sNewType,",") '产生一个数组变量
For iii = 0 to Ubound(ArrNewType)
mm = ArrNewType(iii)
if arrnewtype(iii)=value1 then
response.write "<input type='checkbox' value="&arrnewtype&" checked>"
else
response.write "<input type='checkbox' value="&arrnewtype&">"
end if
Next
3 楼
milu697 [专家分：0] 发布于 2007-08-16 10:12:00
兄弟,还是不对啊
<%
value1="pic" '假设等于pic
sNewType = "pic,ddd,abc,ddd"
sNewType=Left(sNewType,len(sNewType)-1)
ArrNewType = Split(sNewType,",") '产生一个数组变量
For iii = 0 to Ubound(ArrNewType)
mm = ArrNewType(iii)
if ArrNewType(iii)=value1 then
response.write "cc"
else
response.write "dd"
end if
response.Write " "
Next
%>
4 楼
milu697 [专家分：0] 发布于 2007-08-16 10:15:00
输出结果怎么是:cc dd dd dd
我做的是外面有个大循环,里面有个小循环,下面是我写的代码,输出有重复啊
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bb where cla='1' order by id asc",conn,1,2
if not rs.eof then
while not rs.eof
chk=rs("uic")
%>
<%
testa=split(ccc,", ")
for ii=0 to Ubound(testa)
if chk=testa(ii) then
check="checked"
response.Write("<input type='checkbox' name='goods' value='"&chk&"' "&check&">"&chk&" ")
else
check=""
response.Write("<input type='checkbox' name='goods' value='"&chk&"' "&check&">"&chk&" ")
end if
' response.write check
next
Response.Write("<BR>")
rs.movenext
wend
end if
rs.close
set rs=nothing
end if
%>
5 楼
wangsdong [专家分：21390] 发布于 2007-08-16 11:57:00
<%
value1="pic" '假设等于pic
snewtype="pic,tj,ddd,"
sNewType = Left(sNewType,len(sNewType)-1)
ArrNewType = Split(sNewType,",") '产生一个数组变量
For iii = 0 to Ubound(ArrNewType)
'mm = ArrNewType(iii)
if arrnewtype(iii)=value1 then
response.write "<input type='checkbox' value="&arrnewtype(iii)&" checked>"&arrnewtype(iii)&" "
else
response.write "<input type='checkbox' value="&arrnewtype(iii)&">"&arrnewtype(iii)&" "
end if
Next
%>
已经改过来了，你试试
我来回复
您所在位置：