分享

计算机如何建立小型服务器,如何将个人PC搭建成小型服务器

 好汉勃士 2022-04-05

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

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

工具/原料

netbox软件 性能较好的个人电脑一台

方法/步骤

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

32ed6ad91b47d3f3dfebdda5820ce535.png

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

00419f4c698ef5f335c9b072a411ff45.png

用记事本创建一个文件,文件内容如下:

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两个文件,分别代表开关的托盘图标

837d0f60cecdc9b900b857ebece2c28a.png

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

0e086b639fd0df56d0c30e649e2f40f4.png

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

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多