gbookutl.asp

项目开发对初学者来说非常重要

<%
Sub ShowOnePage( rs, Page )
  rs.AbsolutePage = Page
  For iPage = 1 To rs.PageSize
     RsToGbook rs
     rs.MoveNext
     If rs.EOF Then Exit For
  Next
End Sub
Function OpenOrGet_Database(SessionName )
   Dim conn
   If Not IsObject(Session(SessionName)) Then
      Set Conn=Server.CreateObject("ADODB.Connection")
      Conn.Open("FILEDSN=D:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn")
      Set Session(SessionName) = conn
   End If
   Set OpenOrGet_Database = Session(SessionName)
End Function
Function Open_Database(SessionName )
   Dim conn
   Set Conn=Server.CreateObject("ADODB.Connection")
   Conn.Open("FILEDSN=D:\Program Files\Common Files\ODBC\Data Sources\MyDb.dsn")
   Set Session(SessionName) = conn
   Set Open_Database = Session(SessionName)
End Function
Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize )
   Dim rs 
   If Not IsObject(Session(SessionName)) Then
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.Open sql, conn, adOpenStatic
      Set Session(SessionName) = rs
      rs.PageSize = PageSize
   End If
   Set OpenOrGet_RsAndPageSize = 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
%>