如何将个人PC搭建成小型服务器

学习啦在线学习网 　　想要将个人PC搭建成小型服务器，该怎么办呢，那么如何将个人PC搭建成小型服务器的呢?下面是学习啦小编收集整理的如何将个人PC搭建成小型服务器，希望对大家有帮助~~

　　将个人PC搭建成小型服务器的方法

　　工具/原料

学习啦在线学习网 　　netbox软件 性能较好的个人电脑一台

　　方法/步骤

　　或许许多人会想到，搭建一个小型服务器应该使用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服务器，这个软件非常人性化，免去了自己动手的诸多不便。可以百度搜索下载。