|
精灵
Nothing - 帖子
- 669
- 青韶币
- 33366
- 魅力
- 0
- 威望
- 0
- 注册时间
- 2003-11-1
|
楼主
大 中
小 发表于 2004-5-15 00:33 只看该作者
[分享]NETBOX 不需要IIS调试asp代码
BOX代码(我只是在原代码上改了一个图标而已)
Dim httpd
Shell.Service.icon = "\ico.ico"
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "\")
host.EnableScript = true
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "index.asp"
host.AddDefault "index.htm"
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 |
下载地址[492K]
http://www.yz18.com/feng4ever/upload/Feng4ever_200451505050.exe
新手帮助 :
使用方法 直接丢到根目录里面
比如你的 根目录是 wwwroot
就把这个文件防到 wwwroot/ 下面
http://localhost访问~
|
