你要源码吗?就给你生成checkbox的源码吧:
<%
dim Conn
dim Rs
set Conn=server.CreateObject ("Adodb.connection")
set Rs=server.CreateObject ("Adodb.recordset")
constr="Driver={Sql Server};Server=dbms-pc;UID=Select;PWD=Select;DATABASE=SelectCourse"
Conn.Open constr
rs.open "select * from Score_Map",conn