📄 manager_06.asp
字号:
<!--#include file="adovbs.inc" -->
<!--#include file="admin_conn.asp"-->
<HTML>
<BODY>
<P align="center"><STRONG><FONT face="华文彩云" color=darkred size=6>题目查询</FONT></STRONG></P>
<%
const N=3
set rs1=server.CreateObject("adodb.recordset")
rs1.PageSize=N
rs1.Open "select * from test_questions_store",conn,adOpenStatic
pageth=Request.QueryString("pageth")
'判断页数是否为空
if pageth="" then pageth="1"
'判断页数是否为数字
if not IsNumeric(pageth) then pageth="1"
'判断数字是否大于总页数
pageth=cint(pageth)
if pageth>rs1.PageCount then pageth=rs1.PageCount
rs1.AbsolutePage=pageth
%>
<table align=center border=1 cellpadding=0 cellspacing=0 >
<tr><td colspan="9">共有<%=rs1.RecordCount%>条记录,每页<%=N%>条，共<%=rs1.PageCount%>页，当前是第<%=rs1.AbsolutePage%>页</td></tr>
<tr align=center>
<td>试题编号</td>
<td>试题内容</td>
<td>试题答案A</td>
<td>试题答案B</td>
<td>试题答案C</td>
<td>试题答案D</td>
<td>正确答案</td>
<td>课程详解</td>
<td>所属科目编号</td>
</tr>
<%
for i=1 to N
%>
<tr align=center>
<td><%=Server.HTMLEncode(rs1(0))%></td>
<td><%=Server.HTMLEncode(rs1(1))%></td>
<td><%=Server.HTMLEncode(rs1(2))%></td>
<td><%=Server.HTMLEncode(rs1(3))%></td>
<td><%=Server.HTMLEncode(rs1(4))%></td>
<td><%=server.HTMLEncode(rs1(5))%></td>
<td><%=Server.HTMLEncode(rs1(6))%></td>
<td><%=Server.HTMLEncode(rs1(7))%></td>
<td><%=Server.HTMLEncode(rs1(8))%></td>
</tr>
<%
rs1.MoveNext
if rs1.EOF then exit for '避免存在半页时循环出现问题；
next
pagepre=pageth-1
pagenext=pageth+1
if pagepre<1 then pagepre=1
if pagenext>rs1.PageCount then pagenext=rs1.PageCount
%>
<tr>
<td colspan=9>
<form action="manager_06.asp" method="get" id=form1 name=form1>
<%
'如果当前页不是第一页，则显示;
if pageth<>1 then
%>
<a href="manager_06.asp?pageth=1">第一页</a> |
<a href="manager_06.asp?pageth=<%=pagepre%>">上一页</a> |
<%
end if
'如果当前页不是最后一页，则显示;
if pageth<>rs1.PageCount then
%>
<a href="manager_06.asp?pageth=<%=pagenext%>">下一页</a>
<a href="manager_06.asp?pageth=<%=rs1.PageCount%>">最后一页</a> |
<%
end if
%>
转向第<input name="pageth" size=2>页
<input type="submit" value=" GO " id=submit1 name=submit1>
</form>
<%
rs1.Close
conn.Close
%>
</td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -