簡單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.111cn.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.111cn.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