為什么要開發(fā)vbs寫的IIS日志分析工具？
在網上找了很多IIS日志分析工具，功能實在太有限，有的僅能分析百度、谷歌等搜索引擎爬蟲的來訪次數，遠遠達不到我們的用戶的需求。作為一個小站長，有的時候也要分析一下自己站點的廣告點擊情況，靜態(tài)頁面的還好說，下載類的業(yè)務就不好統(tǒng)計了。耗時一晚上寫出來本工具分享給大家。
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日志工具強大，但是現在實際還沒有成熟，等正式發(fā)布時，功能絕對的強大。
IIS日志分析工具是免費的嗎？
是的，本工具供站長免費使用，但是傳播請保留我們的版權信息。也許您的建議將會出現在我們未來的軟件版中。
vbs寫的IIS日志分析工具代碼如下：
'=============================================================
'= Copyright (c) 2010 貓七(QQ:77068320) =
'= All rights reserverd. =
'=============================================================
'= IIS日志分析系統(tǒng) v_1.10.0828 =
'= 使用說明：http://www.miaoqiyuan.cn/p/iis-log-tools =
'= 作者博客：http://www.miaoqiyuan.cn =
'= 版權聲明：本代碼供站長免費使用，傳播請保留版權信息 =
'=============================================================
'= 程序簡介：在網上找了很多IIS日志分析工具，功能簡單，只能 =
'= 分析爬蟲來訪次數。有時候我們小站長也想分析下廣告點擊情況 =
'= ，這時候市面上的IIS統(tǒng)計工具就無能為力了。耗時一晚上寫出來 =
'= 分享給大家，同時申請落伍，請大家?guī)晚敗? =
'= 申請地址：http://www.im286.com/thread-5021543-1-1.html =
'=============================================================
'= 文件：log.vbs =
'= 功能：IIS日志分析，懂程序的朋友可擴展，功能不可限量 =
'=============================================================
dbpath = "D:\log" '日志文件所在目錄
tblna = "test.txt" '日志文件名，如果修改請同時修改 Schema.ini 中相關節(jié)點
function getuag(str)
if instr(str,"+MSIE+7.0;")>0 then
getuag = "Internet Explore 7.0"
elseif instr(str,"+MSIE+8.0;")>0 then
getuag = "Internet Explore 8.0"
elseif instr(str,"+MSIE+6.0;")>0 then
getuag = "Internet Explore 6.0"
elseif instr(str,"MSIE")>0 then
getuag = "Internet Explore(Other)"
elseif instr(str,"curl")>0 then
getuag = "CUrl"
else
getuag = str
end if
end function
wscript.echo string(60,"=")
wscript.echo " IIS日志分析工具 By 苗啟源(MiaoQiyuan.cn)"
wscript.echo string(60,"=")
set conn = createobject("ADODB.Connection")
conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbpath ";Extended Properties=""text;HDR=YES;FMT=Delimited;"""
set rs = createobject("ADODB.Recordset")
'統(tǒng)計 鏈接訪問次數
statime = timer()
rs.open "select [cs-uri-stem],count([c-ip]) from [" tblna "] group by [cs-uri-stem]",conn,1,1
ga = rs.getrows()
rs.close
wscript.echo " = 訪問次數 = | = 獨立訪客 = | = 訪問路徑 = "
wscript.echo string(60,"-")
for i = 0 to ubound(ga,2)
rsid = rsid + 1
tme = ga(1,i)
uri = ga(0,i)
'不支持 COUNT DISTINCT 郁悶，使用笨拙的方法
rs.open "select DISTINCT [c-ip] from [" tblna "] where [cs-uri-stem]='" uri "'",conn,1,1
aip = rs.recordcount
rs.close
wscript.echo string(10 - len(tme)," ") tme " | " string(8 - len(aip)," ") aip " | " uri
next
wscript.echo string(60,"-")
wscript.echo " 統(tǒng)計：" rsid "條記錄 查詢用時：" formatnumber((timer() - statime) * 1000,3) "毫秒"
wscript.echo string(60,"-") vbCrlf
'統(tǒng)計 訪問詳情
for i = 0 to ubound(ga,2)
rsid = 0
uri = ga(0,i)
wscript.echo string(60,"=")
wscript.echo " 訪問詳情：" uri
wscript.echo string(60,"=")
statime = timer()
wscript.echo " = 編號 = | = IP地址 = | = 瀏覽器類型 = "
rs.open "select DISTINCT [c-ip],[cs(User-Agent)] from [" tblna "] where [cs-uri-stem]='" uri "'",conn,1,1
do while not rs.eof
rsid = rsid + 1
'IP 自動變成了數字，還沒有找到解決方法
cip = rs(0)
uag = getuag(rs(1))
wscript.echo string(8 - len(rsid)," ") rsid " | " string(8 - len(cip)," ") cip " | " uag
rs.movenext
loop
rs.close
wscript.echo string(60,"-")
wscript.echo " 統(tǒng)計：" rsid "條記錄 查詢用時：" formatnumber((timer() - statime) * 1000,3) "毫秒"
wscript.echo string(60,"-") vbCrlf
next
到此這篇關于vbs寫的IIS日志分析工具的文章就介紹到這了,更多相關vbs IIS日志分析內容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關文章希望大家以后多多支持腳本之家！
