iis日志搜索引擎相关访问次数统计vbs版

本文介绍了一种使用VBScript分析IIS日志,统计搜索引擎访问次数的方法。通过对日志文件进行处理,利用正则表达式匹配相关记录,实现对搜索引擎访问的详细统计。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

引用本页地址:http://www.yongfa365.com/blog/item/iis-log-Analyzer-vbs.htm

' 名称:iis日志搜索引擎相关访问次数统计vbs版
'
作者:柳永法
'
网址:http://www.yongfa365.com/blog/item/iis-log-Analyzer-vbs.htm
'
日期:2007-6-18
'
使用方法:把这个文件存为:iislogAnalyzer.vbs,然后运行便可
Str  =   InputBox ( " 输入日志文件路径,当前文件可直接输入文件名 " )
If  Str <> ""   Then
    Str 
=  readfile(Str)

    
Function  readfile(filename)
        
Set  FSO  =   CreateObject ( " Scripting.FileSystemObject " )
        
Set  cnt  =  FSO.OpenTextFile(filename,  1 True )
        readfile 
=  cnt.ReadAll
    
End Function
    
    
Function  RegExpTest(patrn, strng)
        
Dim  regEx, Match, Matches
        RetStr 
=   0
        
Set  regEx  =   New  RegExp
        regEx.Pattern 
=  patrn
        regEx.IgnoreCase 
=   True
        regEx.Global 
=   True
        
Set  Matches  =  regEx.Execute(strng)
        
For   Each  Match in Matches
            RetStr 
=  RetStr  +   1
        
Next
        RegExpTest 
=  RetStr
    
End Function
    
    bots 
=   " Baiduspider|Googlebot|yahoo|sogou|YodaoBot|msnbot|iaskspider "
    bots 
=   Split (bots,  " | " )
    
For  i  =   LBound (bots)  To   UBound (bots)
        x 
=  x  &  bots(i)  &   " : "   &  RegExpTest(bots(i), Str)  &  vbCrLf  &  vbCrLf
    
Next
    
    
MsgBox (x)
End   If
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值