'********************************
'
'功能:复选框默认选项
'auth:
'********************************
Function CheckedName(cName,SName)
'on error resume next
'---------------------------------------------
'方法一:有漏洞,适用于没重复项,一个词语只能出现一次,要不有可能出错,但简单明了,速度快
'if instr(SName,cName)>0 then
'response.write("Checked")
'exit Function
'end if
'----------------------------------------------
'方法二
if SName<>"" then
SNamearr=split(SName,",")
for SNamearri=LBound(SNamearr) to UBound(SNamearr)
if trim(SNamearr(SNamearri))=trim(cName) then
response.write("Checked")
exit Function
end if
next
else
exit Function
end if
End Function