📄 showpage.asp
字号:
<%@ language="vbscript"%>
<html>
<!--include file="adovbs.inc"-->
<!--#include file="onepage.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<link REL="stylesheet" TYPE="text/css" HREF="../../_Themes/construc/THEME.CSS" VI6.0THEME="Construction Zone">
<link REL="stylesheet" TYPE="text/css" HREF="../../_Themes/construc/GRAPH0.CSS" VI6.0THEME="Construction Zone">
<link REL="stylesheet" TYPE="text/css" HREF="../../_Themes/construc/COLOR0.CSS" VI6.0THEME="Construction Zone">
<link REL="stylesheet" TYPE="text/css" HREF="../../_Themes/construc/CUSTOM.CSS" VI6.0THEME="Construction Zone"></head>
<body>
<%
if session("s1")="000" then
session("s1")=request.form("T1")
end if
s1=session("s1")
on error resume next
set wbcon1=server.CreateObject("adodb.connection")
wbcon1.ConnectionTimeout=20
wbcon1.Open "HR","sa","begin_sa"
if err then%>
<script language="vbscript">
msgbox"连接失败,请重新连接",48,"人事管理系统"
wbcon1=noting
top.location.href="mainch.asp"
</script>
<%
err.clear
end if
%>
<%on error resume next
set rs=server.createobject("adodb.recordset")
rs.open s1,wbcon1,3
if err then%>
<script language="vbscript">
msgbox"请确认操作是否正确",48,"人事管理系统"
wbcon1=noting
top.location.href="mainch.asp"
</script>
<%
err.clear
end if
%>
<%if rs.recordcount=0 then %>
<%session("s1")="000"%>
<script language="vbscript">
msgbox"对不起，没有相关资料！",48,"人事管理系统"
top.location.href="mainch.asp"
</script>
<%else
rs.pagesize=10
page= CLng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
showonepage rs,page
end if
%>
<form method="post" action="showpage.asp" webbot-action="--WEBBOT-SELF--">
<%
if page<>1 then
response.write"<a href=showpage.asp?page=1>第一页 </a>"
response.write"<a href=showpage.asp?page="&(page-1)&">上一页 </a>"
end if
if page <> rs.pagecount then
response.write"<a href=showpage.asp?page=" & (page+1) & ">下一页 </a>"
response.write"<a href=showpage.asp?page="&rs.pagecount&">最后一页 </a>"
end if
%>
共<font COLOR="red"><%=rs.recordcount%></font>条记录
请输入页数<input name="page" size="4">
页数<font COLOR="green"> <%=page%></font>/<font COLOR="red"><%=rs.pagecount%> </font>
</form>
<p><font color="darkturquoise" face="楷体_GB2312" size="6"><strong><font color="deepskyblue" face="楷体_GB2312" size="6"><strong><a href="../../frame/zhcx.asp" target="_top"><img alt="返回上页" src="../../xt/返回上页.gif" WIDTH="99" HEIGHT="31"></a><a href="../../index.htm"></a> <a href="../../index.htm" target="_top"><img alt="返回主页" height="31" src="../../xt/返回主页.gif" style="HEIGHT: 31px; WIDTH: 99px" width="99"></a></strong></font></strong></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -