📄 browseinfo.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<%
If Session("UserName") = "" Then
  Response.Redirect "login.htm"
End If
%>
<HTML>
<HEAD>
<TITLE>查询学生资料</TITLE>
<STYLE>
P, TABLE, SELECT, INPUT{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<P><A HREF = "index.asp" >返回首页</A>|
<% If Session("Level") > 1 Then %>
<A HREF = "addInfo.asp" >添加资料</A>|
<A HREF = "editInfo1.asp" >修改资料</A>|
<A HREF = "deleteInfo1.asp" >删除资料</A>
<% End If %></P>
<!-- #include virtual = "/adovbs.inc" -->
<DIV ALIGN = "center">
<FORM NAME = "Form1" METHOD = "post" ACTION = "browseInfo.asp">
<P>学生查询：
<SELECT SIZE = "1" NAME = "lstFld">
<OPTION SELECTED VALUE = "all">全部显示</OPTION>
<OPTION VALUE = "department">所在院系</OPTION>
<OPTION VALUE = "speciality">所在专业</OPTION>
<OPTION VALUE = "grade">年级</OPTION>
<OPTION VALUE = "class">班级</OPTION>
<OPTION VALUE = "student_num">学号</OPTION>
<OPTION VALUE = "student_sex">性别</OPTION>
<OPTION VALUE = "student_name">姓名</OPTION>
</SELECT>
值：<INPUT NAME = "txtValue" TYPE = "text" SIZE = "10">
&nbsp;&nbsp;<INPUT NAME = "btnSubmit" TYPE = "submit" VALUE = "查询"></P> 
</FORM>
<%
Dim cnn, rst, sSQL, currentPage, rowCount, i
If Request.Form("btnSubmit") = "" Then
  Response.End
End If 
currentPage = Request.QueryString("currentPage")
If currentPage = "" Then
  currentPage = 1
End If
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open
rst.CursorType = adOpenStatic
rst.PageSize = 5
Field = Request.Form("lstFld")
Value = Trim(Request.Form("txtValue"))
If Field = "all" Then
  sSQL = "SELECT * FROM students  ORDER BY student_num"
End If
If Field <> "all" And Value <> "" Then
  sSQL = "SELECT * FROM students WHERE " & Field & "='" & Value & _
    "' ORDER BY student_num"
End If
rst.Open sSQL, cnn
If rst.EOF Then
  Response.Write "<P><FONT COLOR = red>没有找到符合条件的记录！</FONT></P>"
Else
' 设置当前页号
rst.AbsolutePage = CInt(currentPage)
rowCount = 0 
%>
<TABLE BORDER = "1" WIDTH = "78%">
<CAPTION><B>查询结果：</B>共<% = rst.RecordCount %>个学生
<TR>
<TH>学号</TH><TH>姓名</TH><TH>性别</TH><TH>出生日期</TH>
</TR>
<% While Not rst.EOF And rowCount < rst.PageSize %>
<TR>
<TD><A HREF=detailinfo.asp?StuNum=<% = rst("student_num") %>>
<% = rst("student_num") %></A></TD>
<TD><% = rst("student_name") %></TD>
<TD><% = rst("student_sex") %></TD>
<TD><% = rst("birthdate") %></TD>
</TR>
<%
rowCount = rowCount + 1
rst.MoveNext
Wend
%>
</TABLE>
<P>每页<% = rst.PageSize %>个学生&nbsp;
当前页次：<% = currentPage %>/<% = rst.PageCount %>页&nbsp;
<% For i = 1 To rst.PageCount
If i = CInt(currentPage) Then %>
[<FONT COLOR = "red"><% = i %></FONT>]&nbsp;&nbsp;
<% Else %>
[<A HREF = "browseinfo.asp?currentPage=<% = i %>"><% = i %></A>]&nbsp;&nbsp;
<%
End If
Next
End If
%>
</P></DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -