28,391
社区成员
发帖
与我相关
我的任务
分享
If Not rscl.eof Then
Response.write "<select name=""teacheridlist"" id=""teacherlist"" style=""width:150px;"">"&vbcrlf
Response.write "<option value="""">Select Teacher</option>"&vbcrlf
Do While Not rscl.eof
Response.write "<option value="""&rscl(0)&""">"&ShowTeacherName(rscl(0))&"</option>"
rscl.movenext
If rscl.eof Then Exit Do
Loop
Response.write "</select>"
Else
Response.write "Nothing!"
End If