个人中心
gpt4 book ai didi

vbs源码之的IIS日志分析工具

转载 作者：qq735679552 更新时间：2022-09-28 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbs源码之的IIS日志分析工具由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

vbs源码之的IIS日志分析工具

为什么要开发vbs写的IIS日志分析工具?

在网上找了很多IIS日志分析工具，功能实在太有限，有的仅能分析百度、谷歌等搜索引擎爬虫的来访次数，远远达不到我们的用户的需求。作为一个小站长，有的时候也要分析一下自己站点的广告点击情况，静态页面的还好说，下载类的业务就不好统计了。耗时一晚上写出来本工具分享给大家.

IIS日志分析工具的使用方法 。

本工具对于初次接收vbs脚本的用户来说，可能有点麻烦。下面我们就一步一步来说说该工具的使用方法。 1、如果 vbscript 默认引擎非cscript，需要修改称cscript。修改方法很简单，直接在运行中输入

cscript //Nologo //H:Cscript 。

即可切换 。

2、下载IIS日志分析工具 压缩包vbs-iis-log.rar，解压，打开log.vbs，修改dbpath为您当前解压的路径.

vbs源码之的IIS日志分析工具

3、下载您的log日志文件，删掉前三行和第四行的#Fields: ，保存文件名为test.txt，保存到解压目录.

vbs源码之的IIS日志分析工具

4、在开始运行中用cmd命令打开命令提示符，直接把 log.vbs拖拽到命令提示符中，回车即可开始分析.

以后会出软件版本吗?

会的，不过最近不会，其实现在的代码，直接拿到vb中，套个界面就比市面上的iis日志工具强大，但是现在实际还没有成熟，等正式发布时，功能绝对的强大.

IIS日志分析工具是免费的吗?

是的，本工具供站长免费使用，但是传播请保留我们的版权信息。也许您的建议将会出现在我们未来的软件版中.

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日志分析系统 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 中相关节点
 
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" )
 
'统计 链接访问次数
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 "  统计：" & rsid & "条记录 查询用时：" & formatnumber((timer() - statime) * 1000,3) & "毫秒"
wscript.echo string(60, "-" ) & vbCrlf
 
 
'统计 访问详情
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 "  统计：" & rsid & "条记录 查询用时：" & formatnumber((timer() - statime) * 1000,3) & "毫秒"
  wscript.echo string(60, "-" ) & vbCrlf
next

到此这篇关于vbs写的IIS日志分析工具的文章就介绍到这了,更多相关vbs IIS日志分析内容请搜索我以前的文章或继续浏览下面的相关文章希望大家以后多多支持我！ 。

原文链接：http://www.miaoqiyuan.cn/p/iis-log-tools 。

最后此篇关于vbs源码之的IIS日志分析工具的文章就讲到这里了,如果你想了解更多关于vbs源码之的IIS日志分析工具的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： vbs查询局域网内电脑的软件和硬件列表清单
文章推荐： 便捷提取python导入包的属性方法
文章推荐： Django安装配置mysql的方法步骤
文章推荐： 深入理解Django自定义信号（signals)
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com