28,409
社区成员




function searchqi(st,sd)
dim sheng_url,sheng_time,sheng_title
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = sd
set mm=objRegExp1.Execute(st)
For i= 0 to mm.count -1
sheng_url=objRegExp1.Replace(mm.item(i),"$1")
'保存数据
'输出数据
response.write sheng_url&"<br>"
'输出结果
'http://www.aaa.com
'http://www.ccc.com
Next
set objRegExp1=nothing
end function
dim str
str="aaa =""/Open.html?u=http://www.bbb.com|http://www.aaa.com/gfdgf/|http://www.ccc.com/|/about/|aaa|#"""
call searchqi(str,".+?[^\=](http:.+?com)+")
'还有就是www.aaa.com为自己的地址,也想过滤掉 吗?就
call searchqi(str,"(.+?|http:.+?com)+")
'去掉重复的话,就先保存全部数据到数据,取出删除.
function searchqi(st,sd)
dim sheng_url,sheng_time,sheng_title
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern = sd
set mm=objRegExp1.Execute(st)
For i= 0 to mm.count -1
sheng_url=objRegExp1.Replace(mm.item(i),"$1")
'保存数据
'输出数据
response.write sheng_url&"<br>"
'输出结果
'http://www.aaa.com
'http://www.bbb.com
Next
set objRegExp1=nothing
end function
dim str
str="aaa =""http://www.aaa.com/gfdgf/|http://www.bbb.com/|/about/|aaa|#"""
call searchqi(str,"(http:.+?com)+")