📄 student_info.asp
字号:
<!--#INCLUDE FILE="../database/conn.asp"-->
<!--#INCLUDE FILE="select.asp"--> <% '在本文的98 行全选 作用%>
<html> <head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
.normal { font-family: "宋体"; font-style: normal; font-weight: normal; font-variant: normal; text-decoration: none; font-size: 11pt}
a:link { color: #000000; text-decoration: none}
a:visited { color: #000000; text-decoration: none}
a:hover { color: #FF0000; text-decoration: underline}
.smallfont { font-family: "宋体"; font-style: normal; font-weight: normal; font-variant: normal; text-decoration: none; font-size: 10pt}
.style1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#bcdeff"><div align="center"><a href="../login/useradd.asp" target="mainFrame">学生添加</a></div></td>
<td bgcolor="#bcdeff"><div align="center"><a href="../login/registerselect.asp">学生查询</a> </div></td>
</tr>
<tr> <td colspan="2" height="32px" bgcolor="#CCCCCC"></tr>
</table>
<%
student_no="'%"& trim(Request.Form("student_no"))&"%'"
st_name="'%"& trim(Request.Form("st_name"))&"%'"
xibie = "'%"&trim(Request.Form("xibie"))&"'"
zhuanye="'%"&trim(Request.Form("zhuanyep"))&"'"
tel="'%"& trim(Request.Form("tel"))&"'"
jianshu="'%"& trim(Request.Form("jianshu"))&"'"
SQL="select * from student "
if stduent_no<> "'%'" OR st_name<> "'%'" then
SQL=SQL +" where "
if student_no<>"'%'" then SQL=SQL&" student_no like "&student_no&" and "
if st_name<>"'%'" then SQL=SQL&" st_name like "&st_name&" and "
SQL=left(SQL,len(SQL)-4) '函数去掉最后的 and
Set Rs = Server.CreateObject("ADODB.RECORDSET")
Rs.Open Sql,Conn,1,3 '获取的记录集
'公共翻页模块开始%>
<!--#include file=../Pub/TurnPage.asp-->
<%
Dim RowCount,lRowCount
RowCount = 3 '每页显示的记录条数
lRowCount=0
Call TurnPage(Rs,RowCount) '输入参数 rs 与RowCount 即记录集与每页记录数
'公共翻页模块结束%>
<form name=del method=post action="../login/registerxiugai.asp" >
<table width=600 bgcolor="#99CCFF"border=0 cellpadding=1 cellspacing=1 >
<tr>
<td align=center width=25>选中</td>
<td align=center width=80>学号</td>
<td align=center width=70>姓名</td>
<td align=center width=100>专业</td>
<td align=center width=90>tel</td>
<td align=center width=110>审查状态</td>
</tr>
<tr>
<td colspan="6"width=* > </td></tr>
<%
if not Rs.eof then
Do while Not Rs.EOF and RowCount>0
lRowCount=lRowCount+1
lRowCount=lRowCount+1
yushu=lRowCount mod 2
if yushu then
response.write "<tr bgcolor='#99CC99'>"
else
response.write "<tr bgcolor='#CCFFCC'>"
end if %>
<td align=center width=25 bgcolor=#FFFFFF>
<INPUT type="checkbox" name="mid" value='<%=trim(Rs.fields("id"))%>'></td>
<td align=right width=80 bgcolor=#FFFFFF><%=Rs.fields("student_no")%></td>
<td align=right width=70 bgcolor=#cccccc>
<a href="../login/registerxiugai.asp?id=<%=trim(Rs.fields("id"))%>"><%=Rs.fields("st_name")%></a></td>
<td align=right width=100 bgcolor=#FFFFFF><%=Rs.fields("zhuanye")%></td>
<td align=right width=90 bgcolor=#FFFFFF> <%=Rs.fields("tel")%> </td>
<td align=center width=110 bgcolor="#FFFF66">
<%
if Rs.fields("Ifadmission")="True" then response.Write("批准")
if Rs.fields("Ifadmission")<>"True" then response.Write("未批准")
%> </td> </tr>
<tr> <td colspan="5" width= * bgcolor=#FFFFFF height="100%"> <%=Rs.fields("jianshu")%></td>
<td height="100%" valign="top">进行操作»»»<br><a href="pizhun.asp?id=<%=Rs.fields("id")&""%>")""> 批准</a>/<br>
<a href="quxiao.asp?id=<%=Rs.fields("id")&""%>")""> 撤消批准</a></td></tr>
<tr> <td colspan="6" height="3px"> </td></tr>
<%
RowCount = RowCount -1
Rs.MoveNext
Loop%>
<tr>
<td align="center" colspan=8>共有 <FONT COLOR="#0000FF"><%=Rs.recordcount%></FONT> 条纪录</td>
</tr>
</table>
<TABLE WIDTH=600 BORDER=0 CELLSPACING=2 CELLPADDING=0>
<TR><input type=hidden name=student_no>
<TD width=40 height=20 bgcolor=dcdcdc align=center>编辑</TD>
<TD width=570>
<input type="checkbox" name=all value=1 onclick=selectall(<%=lRowCount%>)>选中|<A HREF="javascript:Delete('../login/userupdate.asp')" >删除</A>|</TD>
</TR>
<%else%>
<tr>
<td></td>
<td></td>
<td></td>
<td></td>
<td colspan=4 align=right>查找结果为 0</td></tr>
<% end if
%>
<% end if
%>
<%
On Error Resume Next
Conn.Close
Set Conn = Nothing
%>
</table>
</form></center>
<body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -