首页 » ASP编程 » ASP技巧
分页类，异常类
其它的一些，比如分页类，异常类（用于信息提示），文件操作类（未完成），经常用到的工具类及验证输入的表单验证类（ASP版，配合前台JS版使用更佳）：
分页类Pager
<%
Class Pager Private IUrl
Private IPage
Private IParam
Private IPageSize
Private IPageCount
Private IRecordCount
Private ICurrentPageIndex Public Property Let Url(ByVal PUrl)
IUrl = PUrl
End Property Public Property Get Url()
If IUrl = "" Then
If Request.QueryString <> "" Then
Dim query
For Each key In Request.QueryString
If key <> Param Then
query = query & key & "=" & Server.UrlEnCode(Request.QueryString(key)) & "&"
End If
Next
IUrl = Page & "?" & query & Param & "="
Else
IUrl = Page & "?" & Param & "="
End If
End If
Url =IUrl
End Property Public Property Let Page(ByVal PPage)
IPage = PPage
End Property Public Property Get Page()
Page = IPage
End Property Public Property Let Param(ByVal PParam)
IParam = PParam
End Property Public Property Get Param()
Param = IParam
End Property Public Property Let PageSize(ByVal PPageSize)
IPageSize = PPageSize
End Property Public Property Get PageSize()
PageSize = IPageSize
End Property Public Property Get PageCount()
If (Not IPageCount > 0) Then
IPageCount = IRecordCount \ IPageSize
If (IRecordCount MOD IPageSize) > 0 Or IRecordCount = 0 Then 
IPageCount = IPageCount + 1
End If
End If
PageCount = IPageCount
End Property Public Property Let RecordCount(ByVal PRecordCount)
IRecordCount = PRecordCount
End Property Public Property Get RecordCount()
RecordCount = IRecordCount
End Property Public Property Let CurrentPageIndex(ByVal PCurrentPageIndex)
ICurrentPageIndex = PCurrentPageIndex
End Property Public Property Get CurrentPageIndex()
If ICurrentPageIndex = "" Then
If Request.QueryString(Param) = "" Then
ICurrentPageIndex = 1
Else
If IsNumeric(Request.QueryString(Param)) Then
ICurrentPageIndex = CInt(Request.QueryString(Param))
If ICurrentPageIndex < 1 Then ICurrentPageIndex = 1
If ICurrentPageIndex > PageCount Then ICurrentPageIndex = PageCount
Else ICurrentPageIndex = 1
End If
End If
End If
CurrentPageIndex = ICurrentPageIndex
End Property Private Sub Class_Initialize()
With Me
.Param = "page"
.PageSize = 10
End With
End Sub Private Sub Class_Terminate()
End Sub Private Function Navigation()
Dim Nav
If CurrentPageIndex = 1 Then
Nav = Nav & " 首页 上页 "
Else
Nav = Nav & " 首页 上页 "
End If If CurrentPageIndex = PageCount Or PageCount = 0 Then
Nav = Nav & " 下页 尾页 "
Else
Nav = Nav & " 下页 尾页 "
End If Navigation = Nav
End Function Private Function SelectMenu()
Dim Selector
Dim i : i = 1
While i <= PageCount
If i = ICurrentPageIndex Then
Selector = Selector & "" & i &"" & vbCrLf 
Else 
Selector = Selector & "" & i &"" & vbCrLf
End If
i = i + 1
Wend
SelectMenu = vbCrLf & "" & vbCrLf & Selector & vbCrLf & "" & vbCrLf
End Function Public Sub Display()
If RecordCount > 0 Then
%>
b{font:bold}
>>分页 <%=Navigation()%> 页次：<%=ICurrentPageIndex%>/<%=PageCount%>页 <%=PageSize%>个记录/页 转到<%=SelectMenu()%>页 共 <%=IRecordCount%>条记录
<%
Else
Response.Write("
暂无记录")
End If
End Sub End Class
%> 异常类Exception：
<%
Class Exception
Private IWindow
Private ITarget
Private ITimeOut
Private IMode
Private IMessage
Private IHasError
Private IRedirect Public Property Let Window(ByVal Value)
IWindow = Value
End Property
Public Property Get Window()
Window = IWindow
End Property Public Property Let Target(ByVal Value)
ITarget = Value
End Property
Public Property Get Target()
Target = ITarget
End Property Public Property Let TimeOut(ByVal Value)
If IsNumeric(Value) Then
ITimeOut = CInt(Value)
Else
ITimeOut = 3000
End If
End Property
Public Property Get TimeOut()
TimeOut = ITimeOut
End Property Public Property Let Mode(ByVal Value)
If IsNumeric(Value) Then
IMode = CInt(Mode)
Else
IMode = 1
End If
End Property
Public Property Get Mode()
Mode = IMode
End Property Public Property Let Message(ByVal Value)
If IHasError Then
IMessage = IMessage & "
  • " & Value & "
    • " & vbCrLf
    Else
    IHasError = True
    IMessage = "
  • " & Value & "
    • " & vbCrLf
    End If
    End Property
    Public Property Get Message()
    Message = IMessage
    End Property Public Property Let HasError(ByVal Value)
    IHasError = CBool(Value)
    End Property
    Public Property Get HasError()
    HasError = IHasError
    End Property Public Property Let Redirect(ByVal Value)
    IRedirect = CBool(Value)
    End Property
    Public Property Get Redirect()
    Redirect = IRedirect
    End Property Private Sub Class_initialize()
    With Me
    .Window = "self"
    .Target = PrePage()
    .TimeOut = 3000
    IMode = 1
    IMessage = "出现错误，正在返回，请稍候..."
    .HasError = False
    .Redirect = True
    End With
    End Sub 

    Private Sub Class_Terminate()
    End Sub Public Function PrePage()
    If Request.ServerVariables("HTTP_REFERER") <> "" Then
    PrePage = Request.ServerVariables("HTTP_REFERER")
    Else
    PrePage = "/index.asp"
    End If
    End Function Public Function Alert()
    Dim words : words = Me.Message
    words = Replace(words, "
  • ", "\n")
    words = Replace(words, "
    • ", "")
    words = Replace(words, vbCrLf, "")
    words = "提示信息：\t\t\t" & words
    %>



    <%
    End Function Public Sub Throw()
    If Not HasError Then Exit Sub
    Response.Clear()
    Select Case CInt(Me.Mode)
    Case 1
    %> 
    相关文章
    ASP技巧