 
 
<%
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" value="asp" <%=check("asp")%>>
<input name="checkbox" type="checkbox" value="java" <%=check("java")%>>
<input name="checkbox" type="checkbox" value="php" <%=check("php")%>>