📄 conntest.asp

📁 实验室资源管理系统实验室人事资料管理、实验室设备管理、实验课程管理及实验室软件资料管理及相关分析统计功能

💻 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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<!--#include file="conn.asp"-->
<body>
<table width="200" border="1" align="center">
  <tr>
    <td>用户名</td>
    <td>密码</td>
	<td>权限</td>	
  </tr>
  <%dim rs,strsql
  strsql="select * from admin"
  set rs=server.createobject("adodb.recordset")
  rs.open strsql,conn,1,1
 rs.pagesize=20
 dim totalnum
 totalnum=rs.pagecount
 
if request("page")<>"" then
  epage=cint(request("page"))
   if epage<1 then epage=1
   if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage   

 for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
  
  %>
  <tr>
    <td>&nbsp;<%=rs("username")%></td>
    <td>&nbsp;<%=rs("password")%></td>
	<td>&nbsp;<%=rs("szbm")%></td>
	
  </tr>
  <%
rs.movenext()
next
%>
<%
rs.close
conn.close
%> 
  
</table>

<p align="center">
<a href="conntest.asp?page=0">首页</a>&nbsp;
<a href="conntest.asp?page=<%=epage-1%>">前一页</a>&nbsp;
<a href="conntest.asp?page=<%=epage+1%>">后一页</a>&nbsp;
<a href="conntest.asp?page=<%=totalnum%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=totalnum%>页</p>


</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -