📄 sill.asp
字号:
<!--#include file="conn1.asp"-->
<%
td=request("td")
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
fw="学生"
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"> ----》病历查询
<%if td<>"" then%>
<span class="style1"><%=td%></span>
<% end if%></td>
</tr>
<tr>
<td height="24"><hr size=1></td>
</tr>
<tr>
<td align="center"><form name="form1" method="post" action="sill.asp">
查找范围
<select name="fw" id="select">
<option value="学生" <%if fw="学生" then%>selected<%end if%>>学生</option>
<option value="教师"<%if fw="教师" then%>selected<%end if%>>教师</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 align="center"><%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="175">已付药物</td>
<td width="173">未付药物</td>
<td width="61">已付金额</td>
<td width="63">未付金额</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="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>">
<tr bgcolor=#D6DFF7 height=20 >
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td width=42 height=20><a href="sedit.asp?id=<%=rs("id")%>&fw=<%=fw%>"><%=i%></a> <a href="fk.asp?id=<%=rs("id")%>"><img src="../images/dot.gif"alt="** 付 款 **" width="9" height="9" border="0"></td><a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"></a>
<td><%=rs("sname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"><td><%=rs("grade")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td><%=rs("classes")%></td></a>
<% sql="select * from helthy where sid='"& rs("id") &"'"
set rs2=conn.execute (sql)
if not rs2.eof then%>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td><%=rs2("yfname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td><%=rs2("wfname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td><%=rs2("yf")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td width="25"><%=rs2("wf")%></td></a>
<%else%>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td colspan="4" align="center" class="style1">没 有 就 医 记 录！</td></a>
<%end if%>
</tr></a>
<%rs.movenext
next
else%>
<tr align="center" valign="middle" bgcolor=#D6DFF7>
<td height=20 colspan="8"><span class="style1"> ^ - ^ 对不起，目前没有此学生的档案，请录入！ ^ - ^</span></td>
</tr>
<%end if %>
</table>
<%end if %>
</td>
</tr>
<tr>
<td><%if lb=2 then '＠如果lb=2则显示教师的信息记录＠%>
<table width=772 border=0 align=center cellpadding=6 cellspacing=1 bgcolor=#6595D6>
<tr align="center" bgcolor=#799ae1>
<td height=20>序号 </td>
<td width="45" height=20>姓 名</td>
<td>部门</td>
<td width="203">已付药物</td>
<td width="182">未付药物</td>
<td width="64">已付金额</td>
<td width="72">未付金额</td>
</tr>
<%if not rs.eof then
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if%>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>">
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <tr bgcolor=#D6DFF7 height=20 >
<td width=44 height=20> <%=i%> <a href="fk.asp?id=<%=rs("id")%>"><img src="../images/dot.gif" alt="** 付 款 **" width="9" height="9" border="0"></td><a href="tjyw.asp?id=<%=rs("id")%>&&fw=<%=fw%>"></a>
<td><%=rs("sname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td><%=rs("bm")%></td></a>
<% sql="select * from helthy where sid='"& rs("id") &"'"
set rs2=conn.execute (sql)
if not rs2.eof then%>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"><td><%=rs2("yfname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"><td><%=rs2("wfname")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"><td><%=rs2("yf")%></td></a>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"> <td width="25"><%=rs2("wf")%></td></a>
<%else%>
<a href="tjyw.asp?id=<%=rs("id")%>&fw=<%=fw%>"><td colspan="4" align="center" class="style1">没 有 就 医 记 录！</td></a>
<%end if%>
</tr></a>
<%rs.movenext
next
else%>
<tr align="center" valign="middle" bgcolor=#D6DFF7>
<td height=20 colspan="7"><span class="style1"> ^ - ^ 对不起，目前没有此教师的档案请录入！ ^ - ^</span></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 + -