帮忙看看标签替换的问题

[he520373]

'------------------------------------
'获取标签属性
Function GetListFromTemplate(ByVal Pencat)
Dim strList
strList = Pencat
regEx.Pattern = "\{\$GetArticleList\((.*?)\)\}"
Set Matches = regEx.Execute(strList)
For Each Match In Matches
pencat = Replace(strList, Match.Value, GetListFromLabel(Match.SubMatches(0)))
Next
GetListFromTemplate = pencat
End Function

Function GetListFromLabel(ByVal strSource)
Dim arrTemp
Dim top,Channel_ID , Columnsid , ClassID , hot , IncludePic , UpdateTime , str
If strSource = "" Then
GetListFromLabel = ""
Exit Function
End If
End Function



帮忙看看标签替换的问题


错误提示是
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'regEx'

/temp/Templet.asp，行 337

[he520373]

行 337 是
regEx.Pattern = "\{\$GetArticleList\((.*?)\)\}"

[neo_yoho]

Set regEx = New RegExp '先加上这句试试
regEx.Pattern = "\{\$GetArticleList\((.*?)\)\}"

[Anlige]

[Quote=引用 2 楼 neo_yoho 的回复:]
Set regEx = New RegExp '先加上这句试试
regEx.Pattern = "\{\$GetArticleList\((.*?)\)\}"
[/Quote]

[bhtfg538]

Set regEx=New RegExp
regex.IgnoreCase=True
regex.Global=True