ASP检查checkbox复选框是否被选中

<%
Function oCheckEd(temp, NewIs)
    Dim document, iii
    oCheckEd = ""
    document = Split(temp, "|")
    For iii = 0 To UBound(document)
        If Trim(NewIs) = Trim(document(iii)) Then
            oCheckEd = " checked"
        End If
    Next
End Function

Dim sId
sId = "asp|php|aspx"
%>
<input name="checkbox" type="checkbox" value="asp" <%=oCheckEd(sId,"asp")%>>
<input name="checkbox" type="checkbox" value="java" <%=oCheckEd(sId,"java")%>>
<input name="checkbox" type="checkbox" value="php" <%=oCheckEd(sId,"php")%>>