'/*=========================================================================
' * Intro 从IIS日志文件分析搜索引擎来访次数统计
' * FileName bots.vbee
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365@qq.com
' * FirstWrite http://www.yongfa365.com/item/IIS-Log-iislogAnalyzer-Search-Engines-visiting-Statistics-For-Emeditor-Macros-yongfa365.html
' * LastModify 2007-08-30 10:18:25
' *==========================================================================*/
Function RegExpTest(patrn, strng)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
RegExpTest = Matches.Count
End Function
Function checkSearchNO(File)
bots = "Baiduspider|Googlebot|yahoo|msnbot|sogou|YodaoBot|iaskspider"
bots = Split(bots, "|")
x=""
For i = LBound(bots) To UBound(bots)
x = x & Right(" " & RegExpTest(CStr(bots(i)),File),8) & ":" & bots(i) & vbCrLf
Next
clipboardData.setData "Text", document.Fullname & vbCrLf & x
'editor.ExecuteCommandByID 4123
alert "结果已经复制到贴帖板里" & vbCrLf & x
End Function
If document.selection.Text="" Then document.selection.SelectAll()
checkSearchNO(document.selection.Text)'原创作者:柳永法(yongfa365)'Blog引用本页地址:
http://www.yongfa365.com/item/IIS-Log-iislogAnalyzer-Search-Engines-visiting-Statistics-For-Emeditor-Macros-yongfa365.html