|
首先,下载netbox。
安装netbox,和普通软件安装一样。
新建一个文件夹,用来放置网站程序。比如D:\web
然后在在目录中创建一个新文件,并命名为:main.box(可用记事本打开),修改其内容如下:
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 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
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
在web文件夹创建一个名为wwwroot的文件夹
main.box文件里:
Set host = httpd.AddHost("", "\wwwroot") 这里是设置网站根目录。
下面是设置网站的默认气始页,
host.AddDefault "default.asp"
host.AddDefault "default.htm"
host.AddDefault "index.asp"
host.AddDefault "index.htm"
然后,我们双击运行 main.box,这时候,系统托盘处应该出现一个红色的 .b 样的小图标。这样web服务器就开始运行了,
测试一下是否成功:
在wwwroot下建立一个index.asp的文件,输入:<%=now()%> 保存/
打开浏览器输入:127.0.0.1或localhost,如果能看到当前系统时间表示成功了!
OK,这样你就可以在自己的机器上编写,测试asp动态网站了。 |
|