第八章 SQL Server 系统应用实例(5)

<% end if %>

3．学生查询系统：xscx.asp和xscxcheck.asp

单击“学生查询系统”，可以进入该系统，在系统中，可以对该班级的学生情况进行查询，查询条件可以是student表中的所有字段，例如要查所有计算机系的学生情况，如图8-33所示。

单击【确定】后，有关数据传送给

xscxcheck.asp，得到的结果如图8-34所示。

程序清单： //xscx. asp

<%@ LANGUAGE=\

无标题文档

请输入您的查询条件(下列条件之一）

xscxcheck.asp //xscxcheck.asp

<%@ LANGUAGE=\<%

set cn=server.createobject(\cn.provider=\

yyy=\cn.open yyy

set rs=server.CreateObject(\ t1=request.form(\ t2=request.form(\ t3=request.form(\ t4=request.form(\ t5=request.form(\

sql=\s_birthday='\ or s_department='\

set rs=cn.execute(sql) %>

无标题文档

您要找的学生情况如下：

response.write\

or for i=0 to rs.fields.count-1

response.write \ next

response.write\ while not rs.eof

response.write\

for i=0 to rs.fields.count-1

response.write \ next

response.write\ rs.movenext wend

response.write\ rs.close %>

4．选课查询系统：

进入到选课查询系统中，输入某个学生的学号，可以查询该学生所选修的课程；输入课程号码，可以查看有哪些同学选修该门课程。程序运行结果如图8-35和图8-36所示。

xkcx.asp //xkcx.asp

<%@ LANGUAGE=\

无标题文档

请输入您的查询条件(下列条件之一）

xkcxcheck.asp //xkcxcheck.asp

<%@ LANGUAGE=\<%

set cn=server.createobject(\cn.provider=\

yyy=\cn.open yyy

set rs=server.CreateObject(\ t1=request.form(\ t2=request.form(\

sql=\ or c_no='\ set rs=cn.execute(sql) %>

无标题文档

response.write\ for i=0 to rs.fields.count-1

response.write \ next

response.write\ while not rs.eof

response.write\

for i=0 to rs.fields.count-1

response.write \ next

response.write\ rs.movenext wend

response.write\ rs.close %>

5．教师查询系统：

进入到教师查询系统中，输入某个教师的有关资料，就可以查出该教师的基本情况。查询条件可以teacher表中所有字段。

程序运行和结果如图8-37 和图8-38 所示。

//jscx.asp

<%@ LANGUAGE=\

无标题文档

请输入您的查询条件(下列条件之一）

//jscxcheck.asp

<%@ LANGUAGE=\<%

set cn=serve \

yyy=\cn.open yyy

set rs=server.CreateObject(\