个人电脑服务器
来源:百度知道 编辑:UC知道 时间:2024/06/14 13:59:48
这个东西呢,使用NETBOX自己写的一个非常简易的WEB服务器,但是它支持ASP。不过兼容性不好,我测试过,很多ASP程序根本无法正常运行。所以,我还是建议你装IIS,IIS和ASP是原配。当然APACHE也可以支持ASP,不过兼容性也另当别论了。
不过,还是附上NETBOX的WEB服务器源代码【其实你自己装好NETBOX(下载地址自己找),Samples里是有的,我这里仅复制粘贴】:
Dim httpd
Shell.Service.TrayIcon = False
Shell.Service.RunService "NMPServAsp", "NMPServ Asp Server", "NMPServ Asp Server"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("", 88) = 0 Then
Set host = httpd.AddHost("", "\wwwroot")
host.EnableScript = true
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "index.asp"
host.AddDefault "index.htm"
httpd.Start
else