wow 地狱火堡垒掉落:我现在有一个ASP学生查询系统帮我解决哈!!!

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 12:26:01
我现在有一个ASP学生查询系统,可是在查询的时候不能将查询的结果显示出来,只能是我预先设定好的一个表中才能实现显示,请各位大虾帮我解决下,源代码如下:
<!--#include file="conn.asp"-->
<%
dim sheet
sheet=""
year2=request("year1")
team=request("team")
grade=request("grade")
name=request("name")
sheet= year2+grade+team

select case grade
case "a"
gradename="高职 "
case "b"
gradename="中专 "
case "c"
gradename="成教 "
end select

select case team
case "a"
teamname="康复"
case "b"
teamname="护理"
case "c"
teamname="临床"
case "d"
teamname="针推"
case "e"
teamname="中西医"
case "f"
teamname="助产"
case "g"
teamname="药检"
end select

sql="select distinct * from " & sheet & " where xm like '%" &name& "%'"

sql=sql & " order by ksh "

set rs=conn.execute(sql)

if rs.eof then
response.write "<br><center>"
response.write "查无此人!<a href=index.asp>返回主页</a>"
response.write "</center>"
response.write "<br>"
response.end
end if

response.write "<br><center>查找<font color=brul> "&name&" </font>结果如下:<a href=index.asp>返回再查</a></center>"

response.write "<br><center>"

response.write year2 & "级 " & gradename
response.write teamname & "考试"
response.write "</center>"
response.write "<br>"
response.write "<table border=1 align=center>"
response.write "<tr>"
response.write "<td>考试号</td>"
response.write "<td>学号</td>"
response.write "<td>姓名</td>"
response.write "<td>语文</td>"
response.write "<td>数学</td>"
response.write "<td>外语</td>"
response.write "<td>物理</td>"
response.write "<td>化学</td>"
response.write "<td>生物</td>"
response.write "<td>政治</td>"
response.write "<td>历史</td>"
response.write "<td>地理</td>"
response.write "<td>总分</td>"
response.write "<td>班名次</td>"
response.write "<td>年级名次</td>"
response.write "</tr>"
do while not rs.eof
response.write "<tr>"
response.write "<td>"&rs("ksh")&"</td>"
response.write "<td>"&rs("bj")&"</td>"
response.write "<td>"&rs("xh")&"</td>"
response.write "<td>"&rs("xm")&"</td>"
response.write "<td>"&rs("yw")&"</td>"
response.write "<td>"&rs("sx")&"</td>"
response.write "<td>"&rs("yy")&"</td>"
response.write "<td>"&rs("wl")&"</td>"
response.write "<td>"&rs("hx")&"</td>"
response.write "<td>"&rs("sw")&"</td>"
response.write "<td>"&rs("zz")&"</td>"
response.write "<td>"&rs("ls")&"</td>"
response.write "<td>"&rs("dl")&"</td>"
response.write "<td>"&rs("zf")&"</td>"
response.write "<td>"&rs("mc")&"</td>"
response.write "<td>"&rs("njmc")&"</td>"
%>
<%
response.write "</tr>"
rs.movenext
loop
response.write "</table>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<style type="text/css">
<!--
body {
font-size: 12px;
}
a {
font-size: 12px;
}
td {
font-size: 12px;
}
-->
</style>

</head>

<body background="image/bg_2.gif">

你创建数据库了吗?没有的话就到ACESS中去创建然后连接或许就行