PHP下拉复选框问题，求助！
代码如下:
<SELECT style="WIDTH: 180px;" name=DepartID>
<OPTION value=ALL>全部门店</OPTION>
<%
TempSQL = "Select * From Sys_Depart Order By DepartID"
Set TempRS = Server.CreateObject("ADODB.Recordset")
TempRS.Open TempSQL,conn,1,1
Do While Not TempRS.eof
vID = TempRS("DepartID")
vName = TempRS("DepartName")
%>

<%if vID = vDepartID then %>
<OPTION value=<%=vID%> selected ><%=vName%></OPTION>
<%else %>
<OPTION value=<%=vID%>><%=vName%></OPTION>
<%end if %>

<%
TempRS.MoveNext
Loop
%>
</SELECT>
请问该如何修改成选项前面可以打上小勾的复选框?

[解决办法]

VBScript code

<input type="checkbox" name="DepartID" value="ALL">全部门店  <%  TempSQL = "Select * From Sys_Depart Order By DepartID"  Set TempRS = Server.CreateObject("ADODB.Recordset")    TempRS.Open TempSQL,conn,1,1     Do While Not TempRS.eof  vID = TempRS("DepartID")  vName = TempRS("DepartName")  if vID = vDepartID then %>      vChecked = " checked=""checked"""  else      vChecked = ""   end if%>  <input type="checkbox" name="DepartID" value="<%=vID%>"<%=vChecked%>><%=vName%>  <%  TempRS.MoveNext  Loop     %>