vbs源码之的IIS日志分析工具
为什么要开发vbs写的IIS日志分析工具？
在网上找了很多IIS日志分析工具，功能实在太有限，有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数，远远达不到我们的用户的需求。作为一个小站长，有的时候也要分析一下自己站点的广告点击情况，静态页面的还好说，下载类的业务就不好统计了。耗时一晚上写出来本工具分享给大家。
IIS日志分析工具的使用方法
本工具对于初次接收vbs脚本的用户来说，可能有点麻烦。下面我们就一步一步来说说该工具的使用方法。
1、如果vbscript默认引擎非cscript，需要修改称cscript。修改方法很简单，直接在运行中输入:
cscript//Nologo//H:Cscript
即可切换
2、下载IIS日志分析工具压缩包/vbs/vbs-iis-log-jb51.rar，解压，打开log.vbs，修改dbpath为您当前解压的路径。
3、下载您的log日志文件，删掉前三行和第四行的#Fields:，保存文件名为test.txt，保存到解压目录。
4、在开始运行中用cmd命令打开命令提示符，直接把log.vbs拖拽到命令提示符中，回车即可开始分析。
以后会出软件版本吗？
会的，不过最近不会，其实现在的代码，直接拿到vb中，套个界面就比市面上的iis日志工具强大，但是现在实际还没有成熟，等正式发布时，功能绝对的强大。
IIS日志分析工具是免费的吗？
是的，本工具供站长免费使用，但是传播请保留我们的版权信息。也许您的建议将会出现在我们未来的软件版中。
vbs写的IIS日志分析工具代码如下：
'=============================================================
'=Copyright(c)2010猫七(QQ:77068320)=
'=Allrightsreserverd.=
'=============================================================
'=IIS日志分析系统v_1.10.0828=
'=使用说明：http://www.miaoqiyuan.cn/p/iis-log-tools=
'=作者博客：http://www.miaoqiyuan.cn=
'=版权声明：本代码供站长免费使用，传播请保留版权信息=
'=============================================================
'=程序简介：在网上找了很多IIS日志分析工具，功能简单，只能=
'=分析爬虫来访次数。有时候我们小站长也想分析下广告点击情况=
'=，这时候市面上的IIS统计工具就无能为力了。耗时一晚上写出来=
'=分享给大家，同时申请落伍，请大家帮顶。=
'=申请地址：http://www.im286.com/thread-5021543-1-1.html=
'=============================================================
'=文件：log.vbs=
'=功能：IIS日志分析，懂程序的朋友可扩展，功能不可限量=
'=============================================================
dbpath="D:\log"'日志文件所在目录
tblna="test.txt"'日志文件名，如果修改请同时修改Schema.ini中相关节点
functiongetuag(str)
ifinstr(str,"+MSIE+7.0;")>0then
getuag="InternetExplore7.0"
elseifinstr(str,"+MSIE+8.0;")>0then
getuag="InternetExplore8.0"
elseifinstr(str,"+MSIE+6.0;")>0then
getuag="InternetExplore6.0"
elseifinstr(str,"MSIE")>0then
getuag="InternetExplore(Other)"
elseifinstr(str,"curl")>0then
getuag="CUrl"
else
getuag=str
endif
endfunction
wscript.echostring(60,"=")
wscript.echo"IIS日志分析工具By苗启源(MiaoQiyuan.cn)"
wscript.echostring(60,"=")
setconn=createobject("ADODB.Connection")
conn.open"provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbpath&";ExtendedProperties=""text;HDR=YES;FMT=Delimited;"""
setrs=createobject("ADODB.Recordset")
'统计链接访问次数
statime=timer()
rs.open"select[cs-uri-stem],count([c-ip])from["&tblna&"]groupby[cs-uri-stem]",conn,1,1
ga=rs.getrows()
rs.close
wscript.echo"=访问次数=|=独立访客=|=访问路径="
wscript.echostring(60,"-")
fori=0toubound(ga,2)
rsid=rsid+1
tme=ga(1,i)
uri=ga(0,i)
'不支持COUNTDISTINCT郁闷，使用笨拙的方法
rs.open"selectDISTINCT[c-ip]from["&tblna&"]where[cs-uri-stem]='"&uri&"'",conn,1,1
aip=rs.recordcount
rs.close
wscript.echostring(10-len(tme),"")&tme&"|"&string(8-len(aip),"")&aip&"|"&uri
next
wscript.echostring(60,"-")
wscript.echo"统计："&rsid&"条记录查询用时："&formatnumber((timer()-statime)*1000,3)&"毫秒"
wscript.echostring(60,"-")&vbCrlf
'统计访问详情
fori=0toubound(ga,2)
rsid=0
uri=ga(0,i)
wscript.echostring(60,"=")
wscript.echo"访问详情："&uri
wscript.echostring(60,"=")
statime=timer()
wscript.echo"=编号=|=IP地址=|=浏览器类型="
rs.open"selectDISTINCT[c-ip],[cs(User-Agent)]from["&tblna&"]where[cs-uri-stem]='"&uri&"'",conn,1,1
dowhilenotrs.eof
rsid=rsid+1
'IP自动变成了数字，还没有找到解决方法
cip=rs(0)
uag=getuag(rs(1))
wscript.echostring(8-len(rsid),"")&rsid&"|"&string(8-len(cip),"")&cip&"|"&uag
rs.movenext
loop
rs.close
wscript.echostring(60,"-")
wscript.echo"统计："&rsid&"条记录查询用时："&formatnumber((timer()-statime)*1000,3)&"毫秒"
wscript.echostring(60,"-")&vbCrlf
next
到此这篇关于vbs写的IIS日志分析工具的文章就介绍到这了,更多相关vbsIIS日志分析内容请搜索毛票票以前的文章或继续浏览下面的相关文章希望大家以后多多支持毛票票！
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。