vbscript 代码：【复制】 
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