📄 shelthy.asp
字号:
<!--#include file="conn1.asp"-->
<%
fw=request("fw") '学生与教师确定
sname=request("sname") '查询者的姓名
grade=request("grade") '查询者的年级
classes=request("classes") '查询者的班级
bm=request("bm") '查询者的班级
if fw<>"" then '判断用户是否输入了查询条件
if fw="学生" then
lb=1
if sname<>"" then
if grade<>""then
if classes<>""then
sql="select * from student where sname='"& sname &"'and grade='"& grade &"'and classes='"& classes &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from student where sname='"& sname &"'and grade='"& grade &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
else
sql="select * from student where sname='"& sname &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
else
if grade<>"" then
if classes<>"" then
sql="select * from student where grade='"& grade &"' and classes='"& classes &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from student where grade='"& grade &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
else
if classes<>"" then
sql="select * from student where classes='"& classes &"' and tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from student where tp='学生'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
end if
end if
end if
if fw="教师" then
lb=2
if sname<>"" then
if bm<>""then
sql="select * from student where sname='"& sname &"' and bm='"& bm &"' and tp='教师'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from student where sname='"& sname &"'and tp='教师'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
else
if bm<>"" then
sql="select * from student where bm='"& bm &"' and tp='教师'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from student where tp='教师'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
end if
end if
else
lb=1
sql="select * from student where tp='学生' "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<title>健康查询</title>
<style type="text/css">
<!--
body {
background-color: #d6dff7;
}
.style1 {color: #CC0000}
-->
</style>
</head>
<body>
<table width="806" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="806" height="24"> </td>
</tr>
<tr>
<td height="24"> ----》健康查询</td>
</tr>
<tr>
<td height="24"><hr size=1></td>
</tr>
<tr>
<td align="center"><form name="form1" method="post" action="shelthy.asp">
查找范围
<select name="fw" id="select">
<option value="学生" selected>学生</option>
<option value="教师">教师</option>
</select>
姓名
<input name="sname" type="text" id="name" size="12">
年级
<select name="grade" id="select5">
<option value="" selected>请选择</option>
<option value="">------</option>
<option value="学前班">学前班</option>
<option value="一年级">一年级</option>
<option value="二年级">二年级</option>
<option value="三年级">三年级</option>
<option value="四年级">四年级</option>
<option value="五年级">五年级</option>
<option value="六年级">六年级</option>
<option value="初一">初一</option>
<option value="初二">初二</option>
<option value="初三">初三</option>
<option value="高一">高一</option>
<option value="高二">高二</option>
<option value="高三">高三</option>
</select>
班级
<select name="classes" id="select6">
<option value="" selected>请选择</option>
<option value="">-------</option>
<option value="一班">一班</option>
<option value="二班">二班</option>
<option value="三班">三班</option>
<option value="四班">四班</option>
</select>
部门
<select name="bm" >
<option value="" selected>请选择</option>
<option value="">-------</option>
<option value="幼儿园">幼儿园</option>
<option value="小学部">小学部</option>
<option value="初中部">初中部</option>
<option value="高中部">高中部</option>
<option value="餐厅">餐厅</option>
<option value="行政部">行政部</option>
<option value="其它">其它</option>
</select>
<input type="submit" name="Submit3" value="查找">
</form></td>
</tr>
<%
if not rs.eof then
rs.PageSize=10
rs.AbsolutePage=1
AbsolutePage=1
if request("page")<>"" then
rs.AbsolutePage=request("page")
AbsolutePage=request("page")
'response.write(page)
'response.end
end if%>
<%sub showpages()
if rs.PageCount>=1 then%>
共找到<%=rs.recordcount%>条记录；每页<%=rs.pagesize%>条；
/<a href="<%=request("script_name")%>?page=<%=1%>&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>">首页</a>
<%if cint(AbsolutePage)>1 then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage-1%>&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>">上一页</a>
<%else%>
上一页
<%end if%>
第<%=AbsolutePage%>页
<%if cint(rs.pagecount)>cint(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage+1%>&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>">下一页</a>
<%else%>
下一页
<%end if%>
<a href="<%=request("script_name")%>?page=<%=rs.pagecount%>&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>">末页</a>/
<%for i=1 to rs.PageCount
if trim(i)<>trim(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=i%>&&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>">[<%=i%>]</a>
<%else%>
[<font color="#FF0000"><%=i%></font>]
<%end if
next%>
<%end if
end sub%>
<tr>
<td><%showpages%></td>
</tr>
<tr>
<td><%if lb=1 then '＠如果lb为1 显示学生的信息记录＠%>
<table width=772 border=0 align=center cellpadding=6 cellspacing=1 bgcolor=#6595D6>
<tr align="center" bgcolor=#799ae1>
<td height=20>序号 </td>
<td width="43" height=20>姓 名</td>
<td width="38">年级</td>
<td width="34">班级</td>
<td width="32">年龄</td>
<td width="38">身高</td>
<td width="36">体重</td>
<td width="91">视 力</td>
<td width="72">血压</td>
<td width="34">血型 </td>
<td width="100">传染病病史</td>
<td width="68">备 注</td>
</tr><%i=0%>
<%if not rs.eof then
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if%>
<a href="helthy.asp?id=<%=rs("id")%>">
<tr bgcolor=#D6DFF7 height=20 >
<td width=29 height=20><%=i%> <a href="delh.asp?id=<%=rs("id")%>&fw=<%=fw%>&sname=<%=sname%>&grade=<%=grade%>&classes=<%=classes%>&bm=<%=bm%>"><img src="../images/del.gif" width="9" height="9" border="0" onclick="javascript:window.alert("确定要删除此学生？")"></td><a href="helthy.asp?id=<%=rs("id")%>"></a>
<td><%=rs("sname")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("grade")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("classes")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("age")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td> <%=rs("high")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("weight")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td>左：<%=rs("light1")%> 右：<%=rs("light2")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("pblood1")%>─<%=rs("pblood2")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%if rs("lblood")<>-1 then%><%=rs("lblood")%><%end if %></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("illh")%></td></a>
<a href="helthy.asp?id=<%=rs("id")%>"><td><%=rs("document")%></td></a>
</tr></a>
<%rs.movenext
next
else%>
<tr align="center" valign="middle" bgcolor=#D6DFF7>
<td height=20 colspan="12"><span class="style1"> ^ - ^ 对不起，目前没有可显示的记录！ ^ - ^</span></td>
</tr>
<%end if %>
</table>
<%end if %>
</td>
</tr>
<tr>
<td><%if lb=2 then '＠如果lb=2则显示教师的信息记录＠%>
<table width=766 border=0 align=center cellpadding=6 cellspacing=1 bgcolor=#6595D6>
<tr align="center" bgcolor=#799ae1>
<td height=20>序号 </td>
<td width="44" height=20><div align="center">姓 名</div></td>
<td width="47">部 门</td>
<td width="35">年龄</td>
<td width="71">身高(cm)</td>
<td width="55">体重(kg)</td>
<td width="91">视 力</td>
<td width="50">血压</td>
<td width="31">血型 </td>
<td width="85">传染病病史</td>
<td width="85">备 注</td>
</tr>
<%i=0%>
<%if not rs.eof then
do while not rs.eof
i=i+1%>
<a href="thelthy.asp?id=<%=rs("id")%>">
<tr bgcolor=#D6DFF7 height=20 >
<td width=29 height=20><%=i%> <a href="delh.asp?id=<%=rs("id")%>"><img src="../images/del.gif" width="9" height="9" border="0"></td><a href="thelthy.asp?id=<%=rs("id")%>"></a>
<td><%=rs("sname")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("bm")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("age")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td> <%=rs("high")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("weight")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td>左：<%=rs("light1")%> 右：<%=rs("light2")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("pblood1")%>─<%=rs("pblood2")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("lblood")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("illh")%></td></a>
<a href="thelthy.asp?id=<%=rs("id")%>"> <td><%=rs("document")%></td></a>
</tr> </a>
<%rs.movenext
loop
else%>
<tr align="center" valign="middle" bgcolor=#D6DFF7>
<td height=20 colspan="12" class="style1"> ^ - ^ 对不起，目前没有可显示的记录！ ^ - ^</td>
</tr>
<%end if %>
</table>
<%
end if
end if %></td>
</tr>
<tr>
<td height="38"> </td>
</tr>
<tr>
<td align="center"><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -