文件名称：网站系统网站管理系统 2.3
文件大小：8.77MB
文件格式：ZIP
更新时间：2016-04-17 12:42:27
网站管理系统
网站管理系统 5.52Dim 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("", "\edu") host.EnableScript = true host.AddDefault "index.asp" host.AddDefault "index.asp" 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