网络考场（16）（转）tselectsub.asp

选择所要修改/加入题目的课程

style=" ">
<%
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=testsys"
conn.Open
'从存储课程的表subinfo中选择teachid等于当前教师编号的记录
strsql="select * from subinfo where teachid='" & session("teachid") & "'"
set mrs=conn.Execute(strsql)
while not mrs.eof
'将所有的课程加入到select中
    Response.Write "" & mrs("sub")
    mrs.movenext
wend
'关闭并清空数据库连接对象
conn.Close
set conn=nothing
%>