简单asp类模仿

新客网 XKER.COM 2004-12-10 来源：收藏本文

现在才发现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("参数不能为空！ ")
Response.End()
Exit Function
ElseIf (IsNumeric(perPageSize)=false Or IsNumeric(CurrentPage)=false) then
p_Error=2
Response.Write("参数不能为空！ ")
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
%>

上一篇：ASP函数大全下一篇：用asp写一个简单的加密和解密的类。。。。

【收藏】【评论】【推荐】【投稿】【打印】【关闭】