vbs源碼之的IIS日志分析工具
為什么要開發(fā)vbs寫的IIS日志分析工具？
在網(wǎng)上找了很多IIS日志分析工具，功能實在太有限，有的僅能分析百度、谷歌等搜索引擎爬蟲的來訪次數(shù)，遠(yuǎn)遠(yuǎn)達(dá)不到我們的用戶的需求。作為一個小站長，有的時候也要分析一下自己站點的廣告點擊情況，靜態(tài)頁面的還好說，下載類的業(yè)務(wù)就不好統(tǒng)計了。耗時一晚上寫出來本工具分享給大家。
IIS日志分析工具的使用方法
本工具對于初次接收vbs腳本的用戶來說，可能有點麻煩。下面我們就一步一步來說說該工具的使用方法。
1、如果 vbscript 默認(rèn)引擎非cscript，需要修改稱cscript。修改方法很簡單，直接在運行中輸入:
cscript //Nologo //H:Cscript
即可切換
2、下載IIS日志分析工具 壓縮包/vbs/vbs-iis-log-jb51.rar，解壓，打開log.vbs，修改dbpath為您當(dāng)前解壓的路徑。
3、下載您的log日志文件，刪掉前三行和第四行的#Fields: ，保存文件名為test.txt，保存到解壓目錄。
4、在開始運行中用cmd命令打開命令提示符，直接把 log.vbs拖拽到命令提示符中，回車即可開始分析。
以后會出軟件版本嗎？
會的，不過最近不會，其實現(xiàn)在的代碼，直接拿到vb中，套個界面就比市面上的iis日志工具強大，但是現(xiàn)在實際還沒有成熟，等正式發(fā)布時，功能絕對的強大。
IIS日志分析工具是免費的嗎？
是的，本工具供站長免費使用，但是傳播請保留我們的版權(quán)信息。也許您的建議將會出現(xiàn)在我們未來的軟件版中。
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 =
'=版權(quán)聲明：本代碼供站長免費使用，傳播請保留版權(quán)信息 =
'=============================================================
'= 程序簡介：在網(wǎng)上找了很多IIS日志分析工具，功能簡單，只能 =
'= 分析爬蟲來訪次數(shù)。有時候我們小站長也想分析下廣告點擊情況 =
'= ，這時候市面上的IIS統(tǒng)計工具就無能為力了。耗時一晚上寫出來 =
'= 分享給大家，同時申請落伍，請大家?guī)晚敗?=
'= 申請地址：http://www.im286.com/thread-5021543-1-1.html =
'=============================================================
'= 文件：log.vbs =
'= 功能：IIS日志分析，懂程序的朋友可擴展，功能不可限量=
'=============================================================
dbpath = "D:\log"'日志文件所在目錄
tblna = "test.txt"'日志文件名，如果修改請同時修改 Schema.ini 中相關(guān)節(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)計 鏈接訪問次數(shù)
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 " = 訪問次數(shù) = | = 獨立訪客 = | = 訪問路徑 = "
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 自動變成了數(shù)字，還沒有找到解決方法
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
到此這篇關(guān)于vbs寫的IIS日志分析工具的文章就介紹到這了,更多相關(guān)vbs IIS日志分析內(nèi)容請搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站！
版權(quán)聲明：本站文章來源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學(xué)習(xí)參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
關(guān)注官方微信