showonepage.asp

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· ASP 代码 · 共 26 行

<%
Sub ShowOnePage(rs,page)
  ' rs.AbsolutePage=page
   for i =1 to rs.PageSize
          ShowOneItem rs
          rs.MoveNext
          if rs.eof  then exit for
          next
 end sub

Function Open_database(Path,SessionName)
     set conn=server.createobject("ADODB.connection")
     conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Path
     set session(SessionName)=conn
     set Open_Database=Session(SessionName)
end function

Function Open_RsAndPageSize(conn,sql,SessionName,pageSize)
     dim rs
    set rs=server.createObject("ADODB.recordset")
     rs.Open sql,conn,adopenStatic
     Set session(SessionName)=rs
    rs.PageSize=PageSize
    Set Open_RsAndPageSize=Session(sessionName)
end function
%>