■ 站内搜索
■ 推荐
■ 热点
■ 相关
从URL中获取关键词
作者：不详 来源：网络 时间：2009-11-17 点击：621
Public Function GetSearchKeyword(RefererUrl)
'on error resume next
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
Dim a, b, j
'模糊查找关键词，此方法速度较快，范围也较大
re.Pattern = "(word=([^&]*)|q=([^&]*)|p=([^&]*)|query=([^&]*)|name=([^&]*)|_searchkey=([^&]*)|wd=([^&]*)|baidu.*?w=([^&]*))"
Set a = re.Execute(RefererUrl)
If a.Count>0 Then
Set b = a(a.Count -1).SubMatches
For j = 1 To b.Count
If Len(b(j))>0 Then GetSearchKeyword = URLDecode(b(j))
Exit Function
Next
End If
If Err Then
Err.Clear
GetSearchKeyword = URLDecode(RefererUrl)
Else
GetSearchKeyword = ""
End If
End Function
'on error resume next
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
Dim a, b, j
'模糊查找关键词，此方法速度较快，范围也较大
re.Pattern = "(word=([^&]*)|q=([^&]*)|p=([^&]*)|query=([^&]*)|name=([^&]*)|_searchkey=([^&]*)|wd=([^&]*)|baidu.*?w=([^&]*))"
Set a = re.Execute(RefererUrl)
If a.Count>0 Then
Set b = a(a.Count -1).SubMatches
For j = 1 To b.Count
If Len(b(j))>0 Then GetSearchKeyword = URLDecode(b(j))
Exit Function
Next
End If
If Err Then
Err.Clear
GetSearchKeyword = URLDecode(RefererUrl)
Else
GetSearchKeyword = ""
End If
End Function
■ 发表评论
■ 最新评论【显示所有评论】
