Namespace RyNetPage Public Class NetPage Inherits System.Web.UI.Page Private Conn As OleDbConnection Private DS As DataSet Private DT As DataTable Private SQLstr, ScriptName As String Private GetPage, PageCount, ListCount As Integer Private OrderStr, TableStr, IndexStr, ColumnStr, JscriptStr As String Private PageSizeNum As Integer Private PageIndex As String Public Sub New() ScriptName = "RyNetPage" PageSizeNum = 10 End Sub Public WriteOnly Property ConnStr() Set(ByVal Value) Try Conn = New OleDbConnection(Value) Conn.Open() Catch ex As Exception Echo(".New" & ex.Message.ToString) End Try End Set End Property Public WriteOnly Property Jscript() As String Set(ByVal Value As String) JscriptStr = Value End Set End Property Public WriteOnly Property PageSize() As String Set(ByVal Value As String) PageSizeNum = Convert.ToInt32(Value) End Set End Property Public WriteOnly Property Order() As String Set(ByVal Value As String) If AppCache("Order") <> Value Then OrderStr = "Order " & Value AppCache("Order") = OrderStr WriteIndex() End If End Set End Property Public WriteOnly Property Table() As String Set(ByVal Value As String) TableStr = "[" & Value & "]" End Set End Property Public WriteOnly Property Index() As String Set(ByVal Value As String) IndexStr = Value End Set End Property Public WriteOnly Property Column() As String Set(ByVal Value As String) ColumnStr = Value End Set End Property Public ReadOnly Property RecordsCount() As Integer Get Try WriteIndex() DT = AppCache("Index") Return DT.Rows.Count Catch ex As Exception Echo(".RecordsCount " & ex.Message.ToString) End Try End Get End Property Public Function ShowRecords() As DataTable Try SQLstr = "Select " & ColumnStr & " From " & TableStr & PageWhere() WriteIndex() Dim Adapt As OleDbDataAdapter Adapt = New OleDbDataAdapter(SQLstr, Conn) DS = New DataSet DS.Clear() Adapt.Fill(DS) Return DS.Tables(0) Catch ex As Exception Echo(".ShowRecords " & ex.Message.ToString) End Try End Function Public Function ShowPage(Optional ByVal GetStr As String = "") As String Dim Temp As String Temp = "<Script Language=""Jscript"" Src=""" & JscriptStr & """></Script>" & Chr(13) Temp += "<Script Language=""Jscript"">Pages(" & GetPage + 1 & "," & PageCount & "," & ListCount & ",''''" & GetStr & "Page'''')</Script>" Return Temp End Function Public Sub Clear() AppCache("Index") = Nothing End Sub Private Function PageWhere() As String Try Dim EPage As Integer &nb