·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 如何在ASP中使用类

如何在ASP中使用类

类别: ASP教程  评论数:0 总得分:0
VBScript5中增加了许多新功能,最振奋人心的当属类和正则表达式的出现。以下是本人写的一个解析html代码的类。我是学php的,语法有不习惯的地方,请大家多包含。

<%
Class HTMLParse

\' 设置 Initialize 事件。
Private Sub Class_Initialize
myGlobal = True
myIgnoreCase = True
End Sub

Property Let Global(g)
Dim regEx \' 建立变量。
Set regEx = New RegExp \' 建立正则表达式。
regEx.Pattern = "True|False|1|0" \' 设置模式。
regEx.IgnoreCase = True \' 设置是否区分大小写。
If regEx.Test(CStr(g)) Then
myGlobal = g
Else
Call Halt("无效Global参数配置")
End If
End Property

Property Get Global()
Global = myGlobal
End Property

Property Let IgnoreCase(c)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "True|False|1|0"
regEx.IgnoreCase = True
If regEx.Test(CStr(c)) Then
myIgnoreCase = c
Else
Call Halt("无效IgnoreCase参数配置")
End If
End Property

Property Get IgnoreCase()
IgnoreCase = myIgnoreCase
End Property

\'解析所有HTML标记的函数
Public Function Parse(input)
Parse = "<table border=1 width=50% align=center>" & vbCrLf
Dim regEx , regVal , match , i

Set regEx = New RegExp
regEx.Pattern = "<([a-z]w*)(?:.*?)>(.*)</1>"
regEx.Global = myGlobal
regEx.IgnoreCase = myIgnoreCase

Set regVal = regEx.Execute(Trim(input))
If regVal.Count > 0 Then \'如果发现匹配元素
Parse = Parse & "<caption>发现" & regVal.Count & "个HTML标记</caption>" & vbCrLf
Parse = Parse & "<tr align=center><th>编号</th><th>匹配标记<th>匹配显示</th></tr>" & vbCrLf
For i=0 To regVal.Count-1
Set match = regVal(i)
Parse = Parse & "<tr align=center>" & vbCrLf
Parse = Parse & "<td>" & i+1 & "</td><td>" & match.SubMatches(0) & "</td><td>" & match & "</td>" & vbCrLf
Parse = Parse & "</tr>" & vbCrLf
Next
Else Parse = Parse & "<caption>没有发现HTML标记</caption>" & vbCrLf
End If
Parse = Parse & "</table>" & vbCrLf
End Function

\'解析指定HTML标记的函数
Public Function ParseTag(input,tag)
ParseTag = "<table border=1 width=50% align=center>" & vbCrLf
Dim regEx , regVal , match , i

Set regEx = New RegExp
regEx.Pattern = "<(" & tag & ")(?:.*?)>(.*?)</1>"
regEx.Global = myGlobal
regEx.IgnoreCase = myIgnoreCase

Set regVal = regEx.Execute(Trim(input))
If regVal.Count > 0 Then \'如果发现匹配元素
ParseTag = ParseTag & "<caption>发现" & regVal.Count & "个" & UCase(tag) & "标记</caption>" & vbCrLf
ParseTag = ParseTag & "<tr align=center><th>编号</th><th>发现位置<th>包含内容</th></tr>" & vbCrLf
For i=0 To regVal.Count-1
Set match = regVal(i)
ParseTag = ParseTag & "<tr align=center>" & vbCrLf
ParseTag = ParseTag & "<td>" & i+1 & "</td><td>" & match.FirstIndex & "</td><td>" & match.SubMatches(1) & "</td>" & vbCrLf
ParseTag = ParseTag & "</tr>" & vbCrLf
Next
Else ParseTag = ParseTag & "<caption>没有发现" & UCase(tag) & "标记</caption>" & vbCrLf
End If
ParseTag = ParseTag & "</table>" & vbCrLf
End Function

\'打印错误
Private Sub Halt(errstr)
Response.Write("<font color=red size=3>" & errstr & "</font>" & vbCrLf)
Call Class_Terminate
End Sub

Private Sub Class_Terminate \' 设置 Terminate 事件。
End Sub

\'定义两个内部变量
Private myGlobal
Private myIgnoreCase

End Class
%>


<html>
<body>
<div align=center><h2>范例1</h2></div>
<%
\'范例1
Dim input , result
input = "<i>这是</i>一个<font color=green>VBScript</font>的<b>正则<i>表达式</i>范例</b>。"

Set hp = New HTMLParse
hp.Global = 1
hp.IgnoreCase = False
result = hp.Parse(input)
Response.Write(result)
%>

<br>
<div align=center><h2>范例2</h2></div>
<%
\'范例2
\'hp.Global = 1
\'hp.IgnoreCase = False
result2 = hp.ParseTag(input,"i")
Response.Write(result2)
Set hp = Nothing
%>

</body>
</html>

大家应该注意到了,VBScript的正则表达式和Jscript的解析是一样的,只是语法不同。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1