📄 index_student.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style></head>
<%
Dim strSearchSql ,strKey ,strBy
strKey = trim(Request.Form("Key"))
strBy = Request.Form("By")
If strKey <> "" And strBy <> "" Then
If strBy = "Zhuanye" Then
strSearchSql = "WHERE ZhuanyeID IN (SELECT ID FROM Zhuanye WHERE Name = '"& strKey &"')"
ElseIf strBy = "School" Then
strSearchSql = "WHERE SchoolID IN (SELECT ID FROM School WHERE Name = '"& strKey &"')"
ElseIf strBy = "Class" Then
strSearchSql = "WHERE ClassID IN (SELECT ID FROM Class WHERE Name = '"& strKey &"')"
Else
strSearchSql = "WHERE "& strBy &" = '"& strKey &"'"
End If
Else
strSearchSql = ""
End If
Dim rs ,strSql ,Num ,pageNum ,page ,loopNum
strSql = "SELECT * FROM Student " & strSearchSql
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,1,1
%>
<body topmargin="5" leftmargin="5">
<%
If rs.recordcount > 0 Then
rs.pagesize = 14
Num = rs.recordcount
pageNum = rs.pagecount
page = Request.QueryString("page")
If page <> "" Then
page = Cint(page)
ElseIf page < 1 Then
page = 1
Else
page =1
End If
If page < 1 then
page =1
End If
If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
page = 1
End If
rs.absolutepage = page
If page <> pageNum Then
LoopNum = rs.pagesize
Else
LoopNum = Num - (page-1)*rs.pagesize
End If
%>
<table width="610">
<tr bgcolor="#66FF99">
<td colspan="8" background="images/liebiao2.gif" bgcolor="#00CC00"><table width="533"><form id="form1" name="form1" method="post" action="Index_Student.asp">
<tr>
<td width="78"> <%If Session("UserType") = "管理员" Then%><a href="Add_student.asp">添加学生</a><%End If%></td>
<td width="443">
学生搜索 关键字：
<input name="Key" type="text" size="10" />
按
<select name="By">
<option value="Sno" selected="selected">学号</option>
<option value="Name">姓名</option>
<option value="Class">班级</option>
<option value="Sex">性别</option>
<option value="Tel">电话</option>
<option value="Email">电子邮箱</option>
<option value="QQ">QQ</option>
<option value="MSN">MSN</option>
<option value="Zhengzhimianmao">政治面貌</option>
<option value="Nationality">民族</option>
<option value="Native">籍贯</option>
<option value="CardID">身份证号</option>
<option value="Zhuanye">专业</option>
<option value="School">学院</option>
<option value="Nianyue">出生年月</option>
</select>
<input type="submit" name="Submit" value="搜索" /> </td>
</tr> </form>
</table></td>
</tr>
<tr bgcolor="#66FF99">
<td colspan="8" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_student.asp?page=1">首页</a> <a href="index_student.asp?page=<%=page-1%>">上一页</a> <a href="index_student.asp?page=<%=page+1%>">下一页</a> <a href="index_student.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
<tr bgcolor="#009933">
<td width="57" bgcolor="#009933"> </td>
<td width="57">学号</td>
<td width="85">姓名</td>
<td width="79">性别</td>
<td width="84">班级</td>
<td width="132">Email</td>
<td width="44">编辑</td>
<td width="37">删除</td>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#FFFFCC'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td align="center"><img src="images/dot2.gif" width="10" height="8" /></td>
<td><%=rs("Sno").value%></td>
<td><a href="DetailStudent.asp?ID=<%=rs("ID").value%>"><%=rs("name").value%></a></td>
<td><%=rs("sex").value%></td>
<%
Dim rs1
strSql = "SELECT * FROM Class WHERE ID = "& rs("ClassID").value
Set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.open strSql,conn,1,1
%>
<td><%IF rs("ClassID").value <> "" AND (Not rs1.EOF) Then %><%=rs1("name").value%><%End IF%></td>
<td><a href="mailto:<%=rs("Email").value%>"><%=rs("Email").value%></a></td>
<td><a href="Mod_Student.asp?ID=<%=rs("ID").value%>" target="_self">编辑</a></td>
<td><a href="DelStudent.asp?ID=<%=rs("ID").value%>" onclick='return confirm("您确定要删除此信息吗？")'><img src="images/del.gif" alt="删除" width="20" height="20" border="0" /></a></td>
</tr>
<% rs.movenext
Next %>
<tr>
<td colspan="8" background="images/Down_bg.gif" bgcolor="#00CC00"><div align="center">总共找到<%=Num%>条记录 <a href="index_student.asp?page=1">首页</a> <a href="index_student.asp?page=<%=page-1%>">上一页</a> <a href="index_student.asp?page=<%=page+1%>">下一页</a> <a href="index_student.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
</table>
<%
Else
%>
<table width="610">
<tr bgcolor="#009933">
<td colspan="6" background="images/liebiao2.gif" bgcolor="#009933"><table width="533"><form id="form2" name="form2" method="post" action="Index_Student.asp">
<tr>
<td width="78"> <%If Session("UserType") = "管理员" Then%><a href="Add_student.asp">添加学生</a><%End If%></td>
<td width="443">
学生搜索 关键字：
<input name="Key" type="text" size="10" />
按
<select name="By">
<option value="Sno" selected="selected">学号</option>
<option value="Name">姓名</option>
<option value="Class">班级</option>
<option value="Sex">性别</option>
<option value="Tel">电话</option>
<option value="Email">电子邮箱</option>
<option value="QQ">QQ</option>
<option value="MSN">MSN</option>
<option value="Zhengzhimianmao">政治面貌</option>
<option value="Nationality">民族</option>
<option value="Native">籍贯</option>
<option value="CardID">身份证号</option>
<option value="Zhuanye">专业</option>
<option value="School">学院</option>
<option value="Nianyue">出生年月</option>
</select>
<input type="submit" name="Submit" value="搜索" /> </td>
</tr> </form>
</table></td>
</tr>
<tr bgcolor="#009933">
<td width="73">学号</td>
<td width="110">姓名</td>
<td width="102">性别</td>
<td width="95">班级</td>
<td width="95">Email</td>
<td width="31"> </td>
</tr>
<tr>
<td colspan="6" bgcolor="#FFFFFF">没有相关记录！</td>
</tr>
<tr>
<td colspan="6"></td>
</tr>
</table>
<%
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -