简单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
 %>

本文地址：http://com.8s8s.com/it/it7771.htm