📄 onepage.asp

📁 一个管理系统全部

💻 ASP

字号:

<%

Sub ShowOnePage( rs, Page )

  Response.Write "<CENTER><TABLE BORDER=1>"
  Response.Write "<TR BGCOLOR=pink>"
  Response.WRITE "<TD>序号</TD>"
  For i=1 to rs.Fields.Count-1
     Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
  Next
  Response.Write "</TR>"

  rs.AbsolutePage = Page
  For iPage = 1 To rs.PageSize
     Response.Write "<TR>"
     RecNo = (Page - 1) * rs.PageSize + iPage
     Response.Write "<TD>" & RecNo & "</TD>"
     For i=1 to rs.Fields.Count-1
        Response.WRITE "<TD>" & rs.Fields(i).Value & "</TD>"
     Next
     Response.Write "</TR>"
     rs.MoveNext
     If rs.EOF Then Exit For
  Next
  Response.Write "</TABLE></CENTER>"  
End Sub

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title></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>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -