大家好,我是中国独立第六团的天狼星拒绝爱,今天给大家带来的是无IIS建ASP站的动画,希望能对大家有帮助,建ASP站主要是为了,在调试ASP的时候,能发现一些ASP源码长见的漏洞!!!
好了,动画就开始吧!
首先下载个NetBox!我已经下好了,不知道下载地址的可以去六团论坛找找,好了开始安装,安装很简单,一直NEXT就行了,安装路径自己选,默认就可以了!好了安装玩毕简单吧!现在去下个ASP源码,随便一个,垃圾站,好了,开始吧!在任意盘建一个文件,命名为wwwsvr,再在文件夹里建一个名为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”
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
好了,再建一个文件夹命名为wwwroot,接着把我们下载的ASP源码放在wwwroot里面,出现这个,改改代码!好了,在试试!晕了,重来!
哈哈,好了吧,刚刚源码上出了点问题现在好了!
希望这个教程能对大家有帮助!
也希望大家能长来我们中国独立第六团:http://www.army6.cn
我是六团的天狼星拒绝爱!
怎么样所以功能都能用!!!
好了,动画就开始吧!
首先下载个NetBox!我已经下好了,不知道下载地址的可以去六团论坛找找,好了开始安装,安装很简单,一直NEXT就行了,安装路径自己选,默认就可以了!好了安装玩毕简单吧!现在去下个ASP源码,随便一个,垃圾站,好了,开始吧!在任意盘建一个文件,命名为wwwsvr,再在文件夹里建一个名为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”
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
好了,再建一个文件夹命名为wwwroot,接着把我们下载的ASP源码放在wwwroot里面,出现这个,改改代码!好了,在试试!晕了,重来!
哈哈,好了吧,刚刚源码上出了点问题现在好了!
希望这个教程能对大家有帮助!
也希望大家能长来我们中国独立第六团:http://www.army6.cn
我是六团的天狼星拒绝爱!
怎么样所以功能都能用!!!
-
