仓酷云
标题:
ASP教程之用ASP编程把持在IIS创建Web站点
[打印本页]
作者:
冷月葬花魂
时间:
2015-1-16 23:37
标题:
ASP教程之用ASP编程把持在IIS创建Web站点
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.iis|web|编程|把持|站点*******************************************************
创立一个WebServer
必需参数:WRoot,为创立站点的物理目次;WComment为站点申明;WPort为站点端口;ServerRun为是不是主动运转
当创立乐成时前往1,失利时提醒加入并前往0,当创立站点乐成但启动失利时前往2
*******************************************************
****************注重:WPort为List范例,意为服务器端口*************
本函数在IIS5.0上经由过程,**必需以办理员身份登录**
端口举例:
DimWPort,bindlists,createflag,oComputer
oComputer="LocalHost"
binglists=Array(0)
binglists(0)=":80:"端标语为80
WPort=binglists
createflag=CreateWebServer("D:myweb","我的故里",WPort,False)挪用建站函数
Ifcreatflag=0Then
Response.Write"创立站点失利!请断定是不是有权限"
ElseIfcreateflag=1Then
Response.Write"创立站点乐成!"
ElseIfcreateflag=2Then
Response.Write"创立站点乐成,但启动站点失利,大概端口抵触!"
EndIf
********************************************************************************
关于Ftp站点的创立我已宣布在asp版,请有乐趣的伴侣本人往检察
FunctionCreateWebServer(WRoot,WComment,WPort,ServerRun)
OnErrorResumeNext
DimServiceObj,ServerObj,VDirObj
SetServiceObj=GetObject("IIS://"&oComputer&"/W3SVC")起首创立一个服务虚例
WNumber=1
DoWhileIsObject(ServiceObj.GetObject("IIsWebServer",WNumber))
IfErr.number0Then
Err.Clear()
ExitDo
EndIf
WNumber=WNumber+1
Loop
SetServerObj=ServiceObj.Create("IIsWebServer",WNumber)然后创立一个WEB服务器
If(Err.Number0)Then是不是堕落
Response.Write"毛病:创立Web服务器的ADSI操纵失利!"
CreateWebServer=0
ExitFunction
EndIf
接着设置服务器
ServerObj.ServerSize=1中型巨细
ServerObj.ServerComment=WComment申明
ServerObj.ServerBindings=WPort端口
ServerObj.EnableDefaultDoc=True
提交信息
ServerObj.SetInfo
最初,创建假造目次
SetVDirObj=ServerObj.Create("IIsWebVirtualDir","ROOT")
If(Err.Number0)Then是不是堕落
Response.Write"毛病:创立假造目次的ADSI操纵失利!"
CreateWebServer=0
ExitFunction
EndIf
设置假造目次
VDirObj.Path=WRoot
VDirObj.AccessRead=True
VDirObj.AccessWrite=True
VDirObj.EnableDirBrowsing=False
VDirObj.EnableDefaultDoc=True
VDirObj.Accessscript=True
VDirObj.AppCreate22
VDirObj.AppFriendlyName="默许使用程序"
VDirObj.SetInfo
IfServerRun=TrueThen
ServerObj.Start
If(Err.Number0)ThenError!
Response.Write"毛病:起动服务器时堕落!请手动启动WebServer"&WComment&"!<br>"
CreateWebServer=2
ExitFunction
EndIf
EndIf
SetVDirObj=Nothing
SetServerObj=Nothing
SetServiceObj=Nothing
CreateWebServer=1
EndFunction
</p>对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了,
作者:
飘飘悠悠
时间:
2015-1-20 10:45
不能只是将它停留在纸上谈兵的程度上。
作者:
蒙在股里
时间:
2015-1-29 06:47
不能只是将它停留在纸上谈兵的程度上。
作者:
若相依
时间:
2015-2-1 16:52
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
作者:
活着的死人
时间:
2015-2-7 09:50
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
作者:
爱飞
时间:
2015-2-21 13:18
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
作者:
精灵巫婆
时间:
2015-3-6 20:17
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
作者:
灵魂腐蚀
时间:
2015-3-13 08:07
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
作者:
不帅
时间:
2015-3-20 16:52
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
欢迎光临 仓酷云 (http://ckuyun.com/)
Powered by Discuz! X3.2