将个人PC搭建成小型服务器,简易网站

将个人PC搭建成小型服务器,简易网站

对于大学宿舍或者公寓这类访问量较小，访问人数固定的场所，搭建一个属于自己的小型服务器是许多人的梦想。由于租用空间，花销巨大，访问人数较少，性价比极低，那么，如何实现小型服务器的搭建，就是我们接下来研究的问题。

或许许多人会想到，搭建一个小型服务器应该使用windows 2003，windows 2008这类的专业服务器操作系统，可是对于我们想要搭建一个访问人数较少，访问量不大的小型服务器来说 ，可以说 是多余的。只需要win7 winxp即可，而且使用微软IIS同样也是不必要的。

那么，我们就使用一款，名为netbox的软件，这个软件是一个在windows平台下运行的控制台程序，具有非常强大的功能。对win7兼容性较好。

用记事本创建一个文件，文件内容如下：

Dim httpd

Shell.Service.icon = "\status\on.gif"

Shell.Service.RunService "netbox", "netbox 开", "小型服务器 关"

Sub OnServiceStart()

Shell.Service.SetTimer 100

Set httpd = CreateObject("netbox.HttpServer")

If httpd.Create("", 80) = 0 Then

Set host = httpd.AddHost("", "\wwwroot")

host.EnableWrite=false

host.EnableScript = true

host.AddDefault "default.asp"

host.AddDefault "default.htm"

host.AddDefault "default.html"

host.AddDefault "index.asp"

host.AddDefault "index.htm"

host.AddDefault "index.html"

httpd.Start

else

Shell.MsgBox "服务器启动失败，80端口可能被占用!请更改脚本文件的服务器端口","端口占用错误"

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

在脚本文件的目录下有两个文件夹：

wwwroot 这里是你要搭建的网站存放目录

status 要在这里放上 on.gif 和 off.gif两个文件，分别代表开关的托盘图标

然后上述脚本用 netbox.exe打开，即可搭建asp服务器

网上有专人已经做好了netbox的现成脚本文件构成的小软件，名字叫小旋风AspWeb服务器，这个软件非常人性化，免去了自己动手的诸多不便。可以百度搜索下载。