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就不用说了， 不能只是将它停留在纸上谈兵的程度上。 不能只是将它停留在纸上谈兵的程度上。 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
页:
[1]