📄 browsescore.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>查询成绩</TITLE>
<STYLE>
P, SELECT, INPUT, TABLE{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<%
If Session("UserName") = "" Or Session("Level") < 2 Then
Response.Write "你没有访问本页面的权限！"
Response.End
End If
%>
<!-- #include virtual = "/adovbs.inc" -->
<P><A HREF = "index.asp">返回首页</A>
<% If Session("Level") > 1 then %>
|<A HREF = "addscore.asp">录入成绩</A>|
<A HREF = "editscore.asp">修改成绩</A>|
<A HREF = "deletescore1.asp">删除成绩</A>
<%End If %></P>
<DIV ALIGN = "center">
<FORM NAME = "Form1" METHOD = "post" ACTION = "browseScore.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">
<INPUT NAME = "btnSubmit" TYPE = "submit" VALUE = "查询"></P>
</FORM>
<%
Dim cnn, rst, sSQL, currentPage, rowCount, i, Field, Value
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
sSQL = sSQL & "' 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 = "400">
<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="detailscore.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 %>个学生
当前页次：<% = currentPage %>/<% = rst.PageCount %>页
<%
' 显示页号
For i = 1 To rst.PageCount
If i = CInt(currentPage) Then
%>
[<FONT COLOR = "red"><% = i %></FONT>]
<% Else %>
[<A HREF = "browsescore.asp?currentPage=<% = i %>"><% = i %></A>]
<%
End If
Next
End If
%>
</P>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -