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

转载 2004年07月22日 10:07:00

用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
''******************************************************************************

Function CreateWebServer(WRoot,WComment,WPort,ServerRun)
On Error Resume Next
Dim ServiceObj,ServerObj,VDirObj
Set ServiceObj = GetObject("IIS://"&oComputer&"/W3SVC")'' 首先创建一个服务实例

WNumber=1
Do While IsObject(ServiceObj.GetObject("IIsWebServer",WNumber))
If Err.number<>0 Then
Err.Clear()
Exit Do
End If
WNumber=WNumber+1
Loop

Set ServerObj = ServiceObj.Create("IIsWebServer", WNumber)'' 然后创建一个WEB服务器

If (Err.Number <> 0) Then'' 是否出错
''Response.Write "错误: 创建Web服务器的ADSI操作失败!"
CreateWebServer=0
Exit Function
End If

'' 接着配置服务器
ServerObj.ServerSize = 1 '' 中型大小
ServerObj.ServerComment = WComment ''说明
ServerObj.ServerBindings = WPort ''端口
ServerObj.EnableDefaultDoc=True

'' 提交信息
ServerObj.SetInfo

'' 最后,建立虚拟目录
Set VDirObj = ServerObj.Create("IIsWebVirtualDir", "ROOT")

If (Err.Number <> 0) Then'' 是否出错
''Response.Write "错误: 创建虚拟目录的ADSI操作失败!"
CreateWebServer=0
Exit Function
End If

'' 配置虚拟目录
VDirObj.Path = WRoot
VDirObj.AccessRead = True
VDirObj.AccessWrite = True
VDirObj.EnableDirBrowsing = False
VDirObj.EnableDefaultDoc=True
VDirObj.AccessScript=True
VDirObj.AppCreate2 2
VDirObj.AppFriendlyName="默认应用程序"
VDirObj.SetInfo

If ServerRun = True Then
ServerObj.Start
If (Err.Number <> 0) Then '' Error!
''Response.Write "错误: 起动服务器时出错!请手动启动WebServer "&WComment&"!
"
CreateWebServer=2
Exit Function
End If
End If
Set VDirObj=Nothing
Set ServerObj=Nothing
Set ServiceObj=Nothing
CreateWebServer=1
End Functiondown_info.asp?id=234

 

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

''*******************************************************  '' 创建一个WebServer  '' 必须参数:WRoot,为创建站点的物...
  • tbmqzmavp
  • tbmqzmavp
  • 2014年05月09日 12:41
  • 434

Web应用程序与Web网站及部署在IIS中

在Visual Studio可以创建 Web 应用程序项目或网站项目。通过选择 新建项目 或 打开项目 创建或打开一个 Web 应用程序项目在Visual Studio 文件 菜单。 通过选择 新建...
  • bigpudding24
  • bigpudding24
  • 2015年09月07日 22:19
  • 3628

Web服务器站点设置和IIS安装设置图解

IIS是Internet Information Server的缩写,是微软提供的Internet服务器软件,包括WEB、FTP、Mail等等服务器。因为IIS的FTP和Mail服务器不是很好用,一般...
  • suxinpingtao51
  • suxinpingtao51
  • 2014年11月26日 11:12
  • 42051

Win7/Win2008下IIS配置Asp站点的注意事项!

Win7/Win2008下IIS配置Asp站点的注意事项! 按下面的图示设置,完成后,最好重启网站和应用地址池!...
  • dxnn520
  • dxnn520
  • 2014年06月26日 23:08
  • 4983

C#操作IIS程序池及站点的创建配置实现代码

最近在做一个WEB程序的安装包;对一些操作IIS进行一个简单的总结;主要包括对IIS进行站点的新建以及新建站点的NET版本的选择,还有针对IIS7程序池的托管模式以及版本的操作...
  • li_xiao_ming
  • li_xiao_ming
  • 2014年07月28日 19:48
  • 1999

window7下用IIS建站点及配置

首先我很想吐槽的是,自从用了win7,好多东西找起来真费劲!唉,还是linux好用,好直接! 一.安装IIS 1.打开控制面板--->程序--->程序和功能 进入此页面   2...
  • liuchunhui93
  • liuchunhui93
  • 2014年05月19日 21:00
  • 1743

Asp.net如何在IIS上发布网站

网站发布,IIS服务配置
  • u010968153
  • u010968153
  • 2014年11月11日 16:42
  • 1073

IIS系列:二、修改默认站点配置

简介:本文主要介绍如何修改默认站点的默认文档以及如何添加新的虚拟目录和应用程序。 修改默认站点配置: 1、默认网站的配置文件存放在C:\inetpub\wwwroot目录,这里我们新建一个文本文件,写...
  • Lyu_JinBo
  • Lyu_JinBo
  • 2016年01月22日 18:06
  • 2776

在Win2003、Win7、XP中配置IIS搭建ASP.NET Web网站或应用程序

在各系统中配置IIS 1、Xp系统中iis5.1的配置 Xp系统中自带的是IIS5.1,而IIS5.1中只能建立一个网站——即默认网站,如果要在上面部署多个web应用程序,我们可以使用新建虚拟目录...
  • zouyujie1127
  • zouyujie1127
  • 2013年11月25日 17:23
  • 24017

Windows Server 2003安装IIS服务并配置WEB站点

一、安装IIS服务 简介 IIS(Internet Information Server,互联网信息服务)是一种Web(网页)服务组件,其中包括Web服务器、FTP服务器、NNTP...
  • u011781521
  • u011781521
  • 2016年12月28日 23:08
  • 7460
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP编程控制在IIS建立Web站点
举报原因:
原因补充:

(最多只允许输入30个字)