01
<%
02
Function oCheckEd(temp, NewIs)
03
Dim document, iii
04
oCheckEd = ""
05
document = Split(temp, "|")
06
For iii = 0 To UBound(document)
07
If Trim(NewIs) = Trim(document(iii)) Then
08
oCheckEd = " checked"
09
End If
10
Next
11
End Function
12
13
Dim sId
14
sId = "asp|PHP|ASPx"
15
%>
16
<input name="checkbox" type="checkbox" value="ASP"<%=oCheckEd(sId,"ASP")%>>
17
<input name="checkbox" type="checkbox" value="Java"<%=oCheckEd(sId,"Java")%>>
18
<input name="checkbox" type="checkbox" value="PHP"<%=oCheckEd(sId,"PHP")%>>
