用ASP编程控制在IIS建立Web站点

'' 创建一个WebServer

'' 必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行&n

bsp;

'' 当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动失败时返回2

''**********************************************************************************

''

''******************注意：WPort为List类型，意为服务器端口，***************

'' 本函数在IIS5.0上通过，＊＊必须以管理员身份登录＊＊

'' 端口举例：

'' Dim WPort,bindlists,createflag,oComputer

'' oComputer="LocalHost"

'' binglists=Array(0)

'' binglists(0)=":80:"''端口号为80

'' WPort=binglists

'' createflag=CreateWebServer("D:\myweb","我的家园",WPort,False)''调用建站函数

'' If creatflag=0 Then

'' Response.Write "创建站点失败！请确定是否有权限"

'' ElseIf createflag=1 Then

'' Response.Write "创建站点成功！"

'' ElseIf createflag=2 Then

'' Response.Write "创建站点成功，但启动站点失败，可能端口冲突！"

'' End If