bjmccx.asp

晴和教务管理系统

<!--#include file="inc/top.asp"-->
<!--#include file="inc/function.asp"-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">
<!--#include file="loginout.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_02.gif" valign="bottom">
<p align="right">快 速 查 询 通 道&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="70">
<tr> 
<td height="20"> 

</td>
</tr>
<tr> 
<td height="1"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="580" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR><td class="table-shangxia" bgcolor="#ffffff" height="35"><img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=/jw/index.asp>教学系统</a> >>  >> 学生查询</td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">


<tr> 
<td width="100%" bgcolor="#ffffff" align="center" colspan="6" height="30" class="table-xia">
<font color="#0000FF">输入查询条件</font></td>
</tr>
<form name="searchstudent" method="post" action="bjmccx.asp?action=xs">
<tr> 
<td bgcolor="#ffffff" align="center" class="table-you" height="30"><p class="table-xia">按学生查询：</td>
<td bgcolor="#ffffff" align="left" colspan="4" class="table-you" height="30"><p class="table-xia">
学号：<input class="wenbenkuang" name="num" type="text" id="Topic" size="10">　　 
姓名：<input class="wenbenkuang" name="name" type="text" id="Topic0" size="10">　　 
</td>
<td bgcolor="#ffffff" align="center" height="30"><p class="table-xia">
<input class="go-wenbenkuang" name="submit" value=查询 type=submit>
</td>
</tr>
</form>
<form name="searchstudent" method="post" action="bjmccx.asp?action=bj">
<tr> 
<td bgcolor="#ffffff" align="center" class="table-you" height="30"><p class="table-xia">按班级查询：</td>
<td bgcolor="#ffffff" align="left" colspan="4" class="table-you" height="30">
<p class="table-xia">年级：
<select name="nj"  onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value=""></option>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classes",conn,1,3
cf=""
do while not rs.eof
bjdm=rs("bjdm")
b=left(rs("bjdm"),1)
if b="1" then bu="初"
if b="2" then bu="高"
if b="3" then bu="初补习"
if b="4" then bu="高补习"
if b="5" then bu="其它"
njdm=left(bjdm,3)
njmc=right(left(bjdm,3),2)
njmc=bu&njmc&"级"
if cint(InStr(cf,njdm))>0 then exit do

cf=cf&njdm
%>
<option value="bjmccx.asp?njdm=<% =njdm%>" <%if left(rs("bjdm"),3)=trim(request.QueryString("njdm")) then response.write "selected"%>><% =njmc%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>　　 
班级：
<select name="bdm">
<%
njdm=request("njdm")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classes",conn,1,3
do while not rs.eof
bjdm=rs("bjdm")
if left(bjdm,3)=njdm then
bdm=right(left(bjdm,5),2)
%>
<option value="<% =njdm&bdm%>"><% =bdm&"班"%></option>
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>　　
</td>
<td bgcolor="#ffffff" align="center" height="30"><p class="table-xia">
<input class="go-wenbenkuang" name="submit" value=查询 type=submit>
</td>
</tr>
</form>
<tr> 
<td width="100%" bgcolor="#ffffff" align="center" colspan="6" height="30">
<font color="#0000FF">查询结果</font></td>
</tr>
<tr> 
<td width="15%" bgcolor="#ffffff" align="center">序号</td>
    <td width="20%" bgcolor="#ffffff" align="center">
	姓名</td>
    <td width="15%" bgcolor="#ffffff" align="center">
	学号</td>
    <td width="15%" bgcolor="#ffffff" align="center">
	修改</td>
    <td width="20%" bgcolor="#ffffff" align="center">
	锁定</td>
    <td width="15%" bgcolor="#ffffff" align="center">
	删除</td>
</tr>
<%
action=request.querystring("action")
if action="xs" then sql="select * from Jw_student where Num like '%"&request("num")&"%' and Name like '%"&request("name")&"%' and xb like '%"&request("xb")&"%' and mz like '%"&request("mz")&"%' order by num"
if action="bj" then sql="select * from Jw_student where Num like '"&request("bdm")&"%' order by num"
if action="sql" then
 sql=request("sql")
 if len(sql)<6 then 
 response.write "<script LANGUAGE='javascript'>alert('请输入正确的SQL语句！');history.go(-1);</script>"
 response.end
 end if
 if left(sql,6)<>"select" then 
 response.write "<script LANGUAGE='javascript'>alert('只允许执行select语句！');history.go(-1);</script>"
 response.end
 end if
end if
if action="" then sql="select * from Jw_student order by num"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if rs.recordcount=0 then 
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="6">
<font color="#FF0000">无符合条件的学生资料</font></td>
</tr>
<%
response.end
end if
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>
<tr> 
<td width="15%" bgcolor="#ffffff" align="center"><% =rs("ID")%></td>
    <td width="20%" bgcolor="#ffffff" align="center"><% =rs("Name")%></td>
    <td width="15%" bgcolor="#ffffff" align="center"><% =rs("Num")%></td>
    <td width="15%" bgcolor="#ffffff" align="center"><a href="addstudent.asp?action=edit&ID=<% =rs("ID")%>">修改</a></td>
<% If rs("lock") = 0 Then%>
    <td width="20%" bgcolor="#ffffff" align="center"><a href="addstudent.asp?action=lock&ID=<% =rs("ID")%>">锁定</a></td>
<% Else%>
    <td width="20%" bgcolor="#ffffff" align="center"><a href="addstudent.asp?action=unlock&ID=<% =rs("ID")%>">解除锁定</a></td>
<% End If%>
    <td width="15%" bgcolor="#ffffff" align="center"><a href="addstudent.asp?action=del&ID=<% =rs("ID")%>">删除</a></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="6"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>

















</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="inc/end.asp"-->