ASP教程之用ASP编程把持在IIS创建Web站点的程序代...

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。*****************************************************
创立一个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版，请有乐趣的伴侣本人往检察
若有成绩，接待跟我接洽:nonepassby@163.com
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
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

仓酷云

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件