ajax_server.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

<%option explicit%>
 <!--#include file="../Conn.asp"-->
 <!--#include file="../include/ReplaceHtml.asp"-->
<!--#include file="../include/PublicFunction.asp"-->
<!--inc  lude file="../include/Session.asp"-->
<%
Dim id,response_str,ShowTeacherSql,ShowTeacherRs
id=trim(HtmlEncode(request.QueryString("id")))
ShowTeacherSql="select [teacher_id],[teacher_name] from [teacher] where [department_id]='"&id&"' order by [teacher_name] asc"
Set ShowTeacherRs=Initialize_Conn.execute(ShowTeacherSql)

'根据请求的院系的id，显示出这个id下面所对应的所有辅导员的下拉列表

response_str="<select name=""teacher_id"">"

IF ShowTeacherRs.eof and ShowTeacherRs.bof then
   response_str=response_str&"<option value="""">当前院系中没有添加辅导员</option>"
 else  
    Do while not ShowTeacherRs.eof
    response_str=response_str&"<option value="""&ShowTeacherRs(0)&""">"&ShowTeacherRs(1)&"</option>"
    ShowTeacherRs.movenext
    Loop
End If

response_str=response_str&"</select>"
'下面将请求的数据编码，然后返回给客户端
Response.Write(escape(response_str))
'Response.Write(response_str)


ShowTeacherRs.close
Set ShowTeacherRs=nothing
Initialize_Conn.close
Set Initialize_Conn=nothing
%>