在網(wǎng)上找了很多IIS日志分析工具，功能實(shí)在太有限，有的僅能分析百度、谷歌等搜索引擎爬蟲的來訪次數(shù)，遠(yuǎn)遠(yuǎn)達(dá)不到我們的用戶的需求。作為一個小站長，有的時候也要分析一下自己站點(diǎn)的廣告點(diǎn)擊情況，靜態(tài)頁面的還好說，下載類的業(yè)務(wù)就不好統(tǒng)計(jì)了。耗時一晚上寫出來本工具分享給大家。
IIS日志分析工具的使用方法
本工具對于初次接收vbs腳本的用戶來說，可能有點(diǎn)麻煩。下面我們就一步一步來說說該工具的使用方法。
1、如果 vbscript 默認(rèn)引擎非cscript，需要修改稱cscript。修改方法很簡單，直接在運(yùn)行中輸入:
cscript //Nologo //H:Cscript
即可切換
2、下載IIS日志分析工具 壓縮包vbs-iis-log.rar，解壓，打開log.vbs，修改dbpath為您當(dāng)前解壓的路徑。
3、下載您的log日志文件，刪掉前三行和第四行的#Fields: ，保存文件名為test.txt，保存到解壓目錄。
4、在開始運(yùn)行中用cmd命令打開命令提示符，直接把 log.vbs拖拽到命令提示符中，回車即可開始分析。
以后會出軟件版本嗎？
會的，不過最近不會，其實(shí)現(xiàn)在的代碼，直接拿到vb中，套個界面就比市面上的iis日志工具強(qiáng)大，但是現(xiàn)在實(shí)際還沒有成熟，等正式發(fā)布時，功能絕對的強(qiáng)大。
IIS日志分析工具是免費(fèi)的嗎？
是的，本工具供站長免費(fèi)使用，但是傳播請保留我們的版權(quán)信息。也許您的建議將會出現(xiàn)在我們未來的軟件版中。
vbs寫的IIS日志分析工具代碼如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
'============================================================='= 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)聲明：本代碼供站長免費(fèi)使用，傳播請保留版權(quán)信息 ='============================================================='= 程序簡介：在網(wǎng)上找了很多IIS日志分析工具，功能簡單，只能 ='= 分析爬蟲來訪次數(shù)。有時候我們小站長也想分析下廣告點(diǎn)擊情況 ='= ，這時候市面上的IIS統(tǒng)計(jì)工具就無能為力了。耗時一晚上寫出來 ='= 分享給大家，同時申請落伍，請大家?guī)晚敗?nbsp; ='= 申請地址：http://www.im286.com/thread-5021543-1-1.html ='============================================================='= 文件：log.vbs ='= 功能：IIS日志分析，懂程序的朋友可擴(kuò)展，功能不可限量 ='============================================================= dbpath = "D:\log" '日志文件所在目錄tblna = "test.txt" '日志文件名，如果修改請同時修改 Schema.ini 中相關(guān)節(jié)點(diǎn) 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 ifend 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)計(jì) 鏈接訪問次數(shù)statime = timer()rs.open "select [cs-uri-stem],count([c-ip]) from [" & tblna & "] group by [cs-uri-stem]",conn,1,1ga = rs.getrows()rs.closewscript.echo " = 訪問次數(shù) = | = 獨(dú)立訪客 = | = 訪問路徑 = "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 & " | " & urinextwscript.echo string(60,"-")wscript.echo " 統(tǒng)計(jì)：" & rsid & "條記錄 查詢用時：" & formatnumber((timer() - statime) * 1000,3) & "毫秒"wscript.echo string(60,"-") & vbCrlf '統(tǒng)計(jì) 訪問詳情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)計(jì)：" & rsid & "條記錄 查詢用時：" & formatnumber((timer() - statime) * 1000,3) & "毫秒" wscript.echo string(60,"-") & vbCrlfnext |
到此這篇關(guān)于vbs寫的IIS日志分析工具的文章就介紹到這了,更多相關(guān)vbs IIS日志分析內(nèi)容請搜索服務(wù)器之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持服務(wù)器之家！
原文鏈接：http://www.miaoqiyuan.cn/p/iis-log-tools
