BlogJava-刚沏上香浓的Java-文章分类-Web Server

抛弃IIS --- 小巧的ASP web server ---- netbox

傅晓风 — Fri, 28 Dec 2007 14:22:00 GMT

netbox = 网络盒子是一个很好用而且又小巧的web软件，本篇文章要说的是如何让 netbox 支持多个站点。进入正题：

右击"main.box"用记事本打开，可以看到的是类似如下代码:
而以下默认代码只支持一个站点使用,如何多个站点同用"netbox"呢？
请关注本篇文章
---------------------------------------------------------------
单个站点使用的代码：
--------------------------------
Dim httpd
Shell.Service.icon = "\status\on.gif"
Shell.Service.RunService "ASPWebserver", "AspWeb服务器", "AspWeb服务器 off"

'---------------------- 服务事件开始 ---------------------

Sub OnServiceStart()
Shell.Service.SetTimer 100
Set httpd = CreateObject("netbox.HttpServer")

If httpd.Create("",80) = 0 Then
Set host = httpd.AddHost("", "\web\")
host.EnableWrite=false
host.Enables cript = true
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "default.html"
host.AddDefault "index.htm"
host.AddDefault "index.asp"
host.AddDefault "index.html"

httpd.Start
else
Shell.MsgBox "服务器启动失败，80端口可能被占用!请停止当前WEB服务器或用记事本打开main.box文件修改端口.","错误对话框"
Shell.Quit 0
end if
End Sub

Sub OnServiceStop()
httpd.Close
End Sub

Sub OnServicePause()
Shell.Service.Icon = "\status\off.gif"
Shell.MsgBox "服务器暂停运行!必要时记得打开噢!","暂停运行"
End Sub

Sub OnServiceResume()
OnServiceTimer
httpd.Start
End Sub

Sub OnServiceTimer
If Shell.Service.icon = "\status\on.gif" Then
Shell.Service.icon = "\status\on1.gif"
Else
Shell.Service.icon = "\status\on.gif"
End If
End Sub
--------------------------------------------------------------------------------
两个站点使用的代码：
--------------------------------
Dim httpd1,httpd2
Dim httpd
Shell.Service.RunService "ASPWebserver", "AspWeb服务器", "AspWeb服务器 off"
'---------------------- 服务事件开始 ---------------------
Sub OnServiceStart()
Set httpd1 = NetBox.CreateObject("NetBox.HttpServer")
Set httpd2 = NetBox.CreateObject("NetBox.HttpServer")
If httpd1.Create("", 80) = 0 Then
Set host1 = httpd1.AddHost("127.0.0.1", "\web\")
host1.Enables cript = true
host1.AddDefault "default.asp"
host1.AddDefault "default.htm"
host1.AddDefault "index.asp"
host1.AddDefault "index.htm"
'httpd.Start
else
Shell.Quit 0
end if
'Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd2.Create("", 81) = 0 Then
Set host2 = httpd2.AddHost("127.0.0.2", "\web\")
host2.Enables cript = true
host2.AddDefault "default.asp"
host2.AddDefault "default.htm"
host2.AddDefault "index.asp"
host2.AddDefault "index.htm"
httpd1.Start
httpd2.start
else
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd1.Close
httpd2.Close
End Sub
Sub OnServicePause()
httpd1.Stop
httpd2.Stop
End Sub
Sub OnServiceResume()
httpd1.Start
httpd2.Start
End Sub

---------------------------------------------------------------------------------
三个站点同时使用：
--------------------------------
Dim httpd1,httpd2,httpd3
Dim httpd
Shell.Service.RunService "ASPWebserver", "AspWeb服务器", "AspWeb服务器 off"
'---------------------- 服务事件开始 ---------------------
Sub OnServiceStart()
Set httpd1 = NetBox.CreateObject("NetBox.HttpServer")
Set httpd2 = NetBox.CreateObject("NetBox.HttpServer")
Set httpd3 = NetBox.CreateObject("NetBox.HttpServer")
If httpd1.Create("", 80) = 0 Then
Set host1 = httpd1.AddHost("127.0.0.1", "\web\")
host1.Enables cript = true
host1.AddDefault "default.asp"
host1.AddDefault "default.htm"
host1.AddDefault "default.html"
host1.AddDefault "index.htm"
host1.AddDefault "index.asp"
host1.AddDefault "index.html"
'httpd.Start
else
Shell.Quit 0
end if
'Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd2.Create("", 81) = 0 Then
Set host2 = httpd2.AddHost("127.0.0.2", "\web\")
host2.Enables cript = true
host2.AddDefault "default.asp"
host2.AddDefault "default.htm"
host2.AddDefault "default.html"
host2.AddDefault "index.htm"
host2.AddDefault "index.asp"
host2.AddDefault "index.html"
'httpd.Start
else
Shell.Quit 0
end if
'Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd3.Create("", 82) = 0 Then
Set host3 = httpd3.AddHost("127.0.0.3", "\web\")
host3.Enables cript = true
host3.AddDefault "default.asp"
host3.AddDefault "default.htm"
host3.AddDefault "default.html"
host3.AddDefault "index.htm"
host3.AddDefault "index.asp"
host3.AddDefault "index.html"
httpd1.Start
httpd2.start
httpd3.start
else
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd1.Close
httpd2.Close
httpd3.Close
End Sub
Sub OnServicePause()
httpd1.Stop
httpd2.Stop
httpd3.Stop
End Sub
Sub OnServiceResume()
httpd1.Start
httpd2.Start
httpd3.Start
End Sub

----------------------------------------------------------------
以此内推，相信大家对照一下就能看明白！
当中IP请自行更改，多个站点，若用的是花生壳，请改为花生壳域名。
每处IP填写不同域名！！

最后在IE的访问地址如下：

(例)

域名端口

站点一：127.0.0.1 80 最后IE中要输入的地址：127.0.0.1

站点二：127.0.0.2 81 最后IE中要输入的地址：127.0.0.2:81

站点三：127.0.0.3 82 最后IE中要输入的地址：127.0.0.3:82

除了设了80端口的站点，用域名访问时不需要加所设端口外，其它的都要加端口。

大家复制以下代码,自已修改,或者下载本文章带的完整附件,然后进得更改.

-------------------------------------------------------------------------------------------

Dim httpd,host(10),i '有没看到我这边写着10,因为我下边网站列表里最后是10

'也就是说我在下边再添一个网站,那下边就多条11的,上边也要改成11
Shell.Service.RunService "allyes", "同端口同时运行多站点的", "同端口同时运行多站点"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")

If httpd.Create("", 80) = 0 Then                                                    '这是端口,这里默认为80
Set host(0) = httpd.AddHost("192.168.0.1", "\001\")                     '这些是网站,现在总共列有11条,就是说,
Set host(1) = httpd.AddHost("192.168.0.2", "\002\")                     '我当前运行了11个站点,输入域名就访问
Set host(2) = httpd.AddHost("192.168.0.3", "\003\")                     '该处设置的目录里.
Set host(3) = httpd.AddHost("192.168.0.4", "\004\")                     '为了方便,我写的是ip,大家自已改为域名
Set host(4) = httpd.AddHost("192.168.0.5", "\005\")                     '每个域名都不一样,一个就代表一个站
Set host(5) = httpd.AddHost("192.168.0.6", "\006\")                     '001..002..003 这些是网站所在目录
Set host(6) = httpd.AddHost("192.168.0.7", "\007\")                     'set host(0)....set host(10) 这里大家认真
Set host(7) = httpd.AddHost("192.168.0.8", "\008\")                     '看下就会明白,有几个站点就写到几了
Set host(8) = httpd.AddHost("192.168.0.9", "\009\")                     '注:从0开始算一个
Set host(9) = httpd.AddHost("192.168.0.10", "\010\")
Set host(10) = httpd.AddHost("192.168.0.11", "\011\")
For i=0 to Ubound(host)
host(i).EnableScript = true                                                          '以下是网页访问顺序,请自行设置修改
host(i).AddDefault "default.asp"
host(i).AddDefault "default.htm"
host(i).AddDefault "default.html"
host(i).AddDefault "index.asp"
host(i).AddDefault "index.htm"
host(i).AddDefault "index.html"
Next
httpd.Start
Else
Shell.Quit 0
End If
End Sub
Sub OnServiceStop()
            httpd.Close
End Sub
Sub OnServicePause()
            httpd.Stop
End Sub
Sub OnServiceResume()
            httpd.Start
End Sub

傅晓风 2007-12-28 22:22 发表评论

tomcat访问日志详细配置教程

傅晓风 — Fri, 28 Dec 2007 14:16:00 GMT

老大说这次要分析tomcat的访问日志，用来做用户访问记录什么的，好，开干。
可是……

网上没有多少资料
找到Apache去，终于找到一点英文资料，贡献于下，翻译的不好，见谅啊

最近需要配置tomcat访问日志，通过造访他人的博客，再根据apache官方的一些文章，才逐渐清晰了许多
配置方法很简单：在server.xml里的标签下加上
directory="logs" prefix="localhost_access_log." suffix=".txt"
pattern="common" resolveHosts="false"/>
就可以了，下面咱们逐一分析各个参数。

className	官方文档上说了This MUST be set to org.apache.catalina.valves.AccessLogValve to use the default access log valve. &<60; 想配置访问日志？这就必须得写成这样。
directory	这个东西是日志文件放置的目录，在tomcat下面有个logs文件夹，那里面是专门放置日志文件的，当然你也可以修改，我就给改成了D:\
prefix	这个是日志文件的名称前缀，我的日志名称为localhost_access_log.2007-09-22.txt，前面的前缀就是这个localhost_access_log
suffix	这就是后缀名啦，可以改成别的
pattern	这个是最主要的参数了，具体的咱们下面讲，这个参数的内容比较丰富。
resolveHosts	如果这个值是true的话，tomcat会将这个服务器IP地址通过DNS转换为主机名，如果是false，就直接写服务器IP地址啦

还有一些参数：

`rotatable`	默认为true，默认的设置使得你的tomcat生成的文件命为prefix（前缀）+.+时间（一般是按天算）+.+suffix（后缀），参照我的日志名就知道了：localhost_access_log.2007-09-22.txt 使用这个需要谨慎，因为你将其设置为false的话，tomcat会忽略时间，不会新生成文件，最后导致你的文件超级大，这样生成的文件名就是：localhost_access_log.txt
`condition`	这个参数不太实用，可以设置任何值，比如咱们设置成condition="tkq"，那么只有当`ServletRequest.getAttribute`("tkq")为空的时候，才会被记录下来
`fileDateFormat`	最后的一个参数，很明白，这就是时间格式嘛，但是这个时间格式是针对日志文件起作用的，还记得咱们生成的日志文件全名么：localhost_access_log.2007-09-22.txt，这里面的2007-09-22就是这么来的，如果你想让tomcat每小时生成一个日志文件，也很简单，将这个值设置为：`fileDateFormat="yyyy-MM-dd.HH"，当然也可以按分钟生成什么的，自己改改吧`

上面是所有的9个参数，刚才咱们说了，

pattern这个参数的值比较多，咱们拿下来单独说：

pattern可以设置成两种方式，第一种是pattern="common"，第二种是pattern="combined"

这就可以控制日志里面的格式，各位说了，pattern就这两种？common和combined又是什么意思，具体是什么格式呢？

别着急，咱们一点一点看，其实pattern是可以设置的，common和combined只是集成了一些显示方式，就是将显示方式给组合了，pattern的实际值有如下几种，都是

后面一个字母，前面一个%百分号

咱们先贴出来我的日志里面的一条记录，对应着看



127.0.0.1 192.168.254.108 - -1 127.0.0.1 HTTP/1.1 - GET 80&<60; GET /rightmainima/leftbott4.swf HTTP/1.1 304 5563A67708646B6AA299C33D59BE132A [22/Sep/2007:10:08:52 +0800] - /rightmainima/leftbott4.swf localhost 0 0.000

`%a`	`这是记录访问者的IP，在日志里是127.0.0.1`
`%A`	`这是记录本地服务器的IP，在日志里是192.168.254.108`
%b	这是发送信息的字节数，不涵括http头，如果字节数为0的话，显示为-
%B	看tomcat的解释，没看出来与b%的区别，但我这里显示为-1，没想明白，望知道者告知，我把官方解释贴出来吧 Bytes sent, excluding HTTP headers
%h	这个就是服务器名称了，如果resolveHosts为false的话，这里就是IP地址了，我的日志里是`127.0.0.1`
%H	访问者使用的协议，这里是`HTTP/1.1`
%l	这个也不太清楚，官方也说这个always return '-' 官方解释：Remote logical username from identd (可能这样翻译：记录浏览者进行身份验证时提供的名字)(always returns '-')
%m	访问的方式，是GET还是POST，我这是GET
%p	本地接收访问的端口，呵呵，我这里是80啦
%q	比如你访问的是aaa.jsp?bbb=ccc，那么这里就显示?bbb=ccc，明白了吧，这个q是querystring的意思
%r	官方解释：First line of the request (method and request URI)，不是很明白
%s	这个是http的状态，我这里返回的是304，咱们经常看见访问某个网页报错误500什么的，那也会返回500
%S	用户的session ID,这个session ID大家可以另外查一下详细的解释，反正每次都会生成不同的session ID
%t	这就是时间啦，好像有一个Common Log Format可以改，不过我没找到
%u	得到了验证的访问者，否则就是"-"
%U	访问的URL地址，我这里是`/rightmainima/leftbott4.swf`
%v	服务器名称，可能就是你url里面写的那个吧，我这里是localhost
%D	官方解释：Time taken to process the request, in millis，应该是访问发生的时间，以毫秒记
%T	官方解释：Time taken to process the request, in seconds，应该是访问发生的时间，以秒记

common的值：%h %l %u %t %r %s %b
combined的值：%h %l %u %t %r %s %b %{Referer}i %{User-Agent}i

至于combined的值的最后两个为什么会这样，我也不太清楚…

这就是所有的参数了，欢迎交流探讨！
这是官方的解释地址：http://tomcat.apache.org/tomcat-5.5-doc/config/valve.html
这个也可以看一看做参考：http://tomcat.apache.org/tomcat-5.0-doc/config/logger.html
还有这个：http://tomcat.apache.org/tomcat-5.0-doc/config/host.html

Apache官方对Tomcat访问日志的配置介绍的并不详细，大家可以参考Apache（web server）的访问日志，两者有相当多相似的地方

傅晓风 2007-12-28 22:16 发表评论