asp从数据库里读出复选框是否被选中

<%
   document=Split(rs("document"),", ")
   Function check(temp)
    check=""
    For I=0 To UBound(document)
    if temp=document(I) Then
    check="checked"
    End if
    Next
   End Function 
  %>
      <input name="checkbox" type="checkbox" id="checkbox1" value="asp" <%=check("asp")%>>
        <input name="checkbox" type="checkbox" id="checkbox2" value="java" <%=check("java")%>>
        <input name="checkbox" type="checkbox" id="checkbox3" value="php" <%=check("php")%>>
        <input name="checkbox" type="checkbox" id="checkbox4" value="c" <%=check("c")%>>
        <input name="checkbox" type="checkbox" id="checkbox5" value=".net" <%=check(".net")%>>