常用的工具类Utility - ASP教程

发布时间：2016-01-14 10:17:16 所属栏目：Asp教程来源：网络整理

导读：% Class Utility Private Reg Public Function HTMLEncode(Str) If IsNull(Str) Or IsEmpty(Str) Or Str = Then HTMLEncode = Else Dim S : S = Str S = Replac

<%

Class Utility



Private Reg



Public Function HTMLEncode(Str)

If IsNull(Str) Or IsEmpty(Str) Or Str = "" Then

HTMLEncode = ""

Else

Dim S : S = Str

S = Replace(S, "<", "<")

S = Replace(S, ">", ">")

S = Replace(S, " ", " ")

S = Replace(S, vbCrLf, "<br />")

HTMLEncode = S

End If

End Function



Public Function HtmlFilter(ByVal Code)

If IsNull(Code) Or IsEmpty(Code) Then Exit Function

With Reg

.Global = True

.Pattern = "<[^>]+?>"

End With

Code = Reg.Replace(Code, "")

HtmlFilter = Code

End Function



Public Function Limit(ByVal Str, ByVal Num)

Dim StrLen : StrLen = Len(Str)

If StrLen * 2 <= Num Then

Limit = Str

Else

Dim StrRlen

Call Rlen(Str, StrRlen)

If StrRlen <= Num Then

Limit = Str

Else

Dim i

Dim reStr

If StrLen > Num * 2 Then

i = Num 2

reStr = Left(Str, i)

Call Rlen(reStr, StrRlen)

While StrRlen < Num

i = i + 1

reStr = Left(Str, i)

Call Rlen(reStr, StrRlen)

Wend

Else

i = StrLen

reStr = Str

Call Rlen(reStr, StrRlen)

While StrRlen > Num

i = i - 1

reStr = Left(Str, i)

Call Rlen(reStr, StrRlen)

Wend

End If

Call Rlen(Right(reStr, 1), StrRlen)

If StrRlen > 1 Then

Limit = Left(reStr, i-1) & "…"

Else

Limit = Left(reStr, i-2) & "…"

End If

End If

End If

End Function



Public Function Encode(ByVal Str)

Str = Replace(Str, """", """)

Str = Replace(Str, "''", "'")

Encode = Str

End Function



Public Function EncodeAll(ByVal Str)

Dim M, MS

Reg.Pattern = "[x00-xFF]"

Set MS = Reg.Execute(Str)

For Each M In MS

Str = Replace(Str, M.Value, "&#" & Asc(M.Value) & ";")

Next

EncodeAll = Str

End Function



Private Sub Class_initialize()

Set Reg = New RegExp

Reg.Global = True

End Sub

Private Sub Class_Terminate()

Set Reg = Nothing

End Sub



Public Sub Rlen(ByRef Str, ByRef Rl)

With Reg

.Pattern = "[^x00-xFF]"

Rl = Len(.Replace(Str, ".."))

End With

End Sub



End Class

%>

<%

Dim Util : Set Util = New Utility

%>

（编辑：云计算网_泰州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!