zoukankan      html  css  js  c++  java
  • 简单asp类模仿

    现在才发现asp里面也可以自己写一些类,而且基本上和其他语言差不多,所以就自己写了一个试试,嘿嘿!纪年一下!
    <%
     Class clsDSJ
      Private p_Error,p_Author,p_WebURL
      
      Public Property Get Version
           Version="DSJ 1.0.0 Beta"
      End Property
      
      Public Property Get Error
           Error=p_Error
      End Property
      
      Public Property Get Author
           Author=p_Author
      End Property  
      
    Public Property Let Author(strAuthor)
           strAuthor=Trim(strAuthor)
           If strAuthor="" Then
                p_Author="孤剑"
           Else
                p_Author=CStr(strAuthor)
           End If
      End Property
      
      Public Property Get WebURL
           WebURL=p_WebURL
      End Property
      
    Public Property Let WebURL(URL)
       URL=Trim(URL)
       If URL="" Then
            p_WebURL="http://www.blog.csdn.net/alonesword/"
       ELse
            If LCase(CStr(Left(URL,7)))<>"http://" then
                 p_WebURL="http://" &  URL
            Else
                 p_WebURL=URL
            End If
       End If
      End Property
      
      Private Sub Class_Initialize
       p_Author="孤剑"
       WebURL="http://www.blog.csdn.net/alonesword/"
       p_Error=-1
       
       
      End Sub
      
      Private Sub Class_Terminate
       
      End Sub
      
      Public Function gotTopic(str,strlen)
      Rem 限制字符串显示长度在一定的范围内
       Dim i,StringLen,CharSize,EchoCharType
       StringLen=len(str)
       CharSize=0
       For i=1 to StringLen
        EchoCharType=Abs(Asc(Mid(str,i,1)))
        If EchoCharType>255 Then
         CharSize=CharSize+2
        Else
         CharSize=CharSize+1
        End If
        If CharSize>strlen Then
         gotTopic=Left(str,i) & "..."
         Exit For
        Else
         gotTopic=str & ""
        End If
       Next
      End Function
      
      '******************************
     '名称: ChkInvaildWords
     '参数:Words
     '返回值:True/Falsh
     '作用:检查参数是否有非法字符
     '******************************
     Function ChkWords(Words)
      Rem 定义需要过滤得非法字符
      Const InvaildWords="select|update|delete|insert|@|--|,|'|#|%"  
      ChkWords=True
      InvaildWord=Split(InvaildWords,"|")
      inWords=LCase(Trim(Words))
      
      For i=LBound(InvaildWord) To UBound(InvaildWord)
       If Instr(inWords,InvaildWord(i))>0 Then
        p_Error=0
        ChkWords=False
        Exit Function
       End If
      Next
      ChkWords=True
     End Function
     
     Function DividedPage(objRs,perPageSize,CurrentPage)
      objRs.Pagesize=perPageSize
      TotalPage=objRs.PageCount
      
      If IsEmpty(perPageSize) Or IsEmpty(CurrentPage) Then
       p_Error=1
       Response.Write("<Font style='font-size:12px;'>参数不能为空!<br></Font>")
       Response.End()
       Exit Function
      ElseIf (IsNumeric(perPageSize)=false Or IsNumeric(CurrentPage)=false) then
       p_Error=2
       Response.Write("<Font style='font-size:12px;'>参数不能为空!<br></Font>")
       Response.End()
       Exit Function
      End If
      
      If CLng(CurrentPage)<1 Then CurrentPage=1 End If
      If CLng(CurrentPage)>TotalPage Then CurrentPage=TotalPage End If
      
      If TotalPage>0 Then
       objRs.AbsolutePage=CurrentPage
      End If
      
      Items=1
      Do While Not objRs.Eof
       Response.Write(Items)
       objRs.MoveNext
      Loop
     End Function '终止于2004年11月27日
     
    End Class

    Dim DSJ
    Set DSJ=New clsDSJ
     %>

  • 相关阅读:
    54.Spiral Matrix
    53.Maximum Subarray
    基础数据类型包装类
    sqlacodegen逆向数据库
    第四章、常用模块
    第三章、函数编程
    第一章
    第一章 Python基础
    Centos7.0升级python 2.x到3.x
    time
  • 原文地址:https://www.cnblogs.com/AloneSword/p/2237700.html
Copyright © 2011-2022 走看看