- =============================================================
- ' 感谢您使用ASPKU工作室开发的实用函数程序
- ' HTTP://WWW.ASPKU.NET
- '=============================================================
- 'ASPKU工作室为您提供订制程序开发、企业互联网拓展服务
- 'QQ:
- 'E-Mail:
- '更多程序下载请到HTTP://WWW.ASPKU.NET
- '=============================================================
- '函数介绍:创建WebSite
- '本函数使用ADSI,需要Administrators组用户权限
- '函数名称:CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
- '程序开发:ASPKU工作室 ChuQi
- '用法:CreateWebSite 计算机名(一搬为LocalHost或127.0.0.1),站点IP地址,端口号,主机名,站点根目录,,LOG文件的目录站点说明,网站访问时所使用的帐号,网站访问时所用帐号的口令,是否启动站点
- '例:CreateWebSite "LocalHost","127.0.0.123","80","www.test.net","E:\UserData\UserNum001","E:\UserData\UserNum001\LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True
- '=============================================================
- Function CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
- Dim w3svc, WebServer, NewWebServer, NewDir
- Dim Bindings, BindingString, NewBindings, SiteNum, SiteObj, bDone
- On Error Resume Next
- Err.Clear
- '检测是否能够加载W3SVC服务(即WEB服务)
- Set w3svc = GetObject("IIS://" & Computer & "/w3svc")
- If Err.Number <> 0 Then '显示错误提示
- response.write "无法打开: "&"IIS://" & Computer & "/w3svc"
- response.end
- End If
- '检测是否有设定相同IP地址、端口及主机名的站点存在
- BindingString = IPAddr & ":" & PortNum & ":" & HostName
- For Each WebServer in w3svc
- If WebServer.Class = "IIsWebServer" Then
- Bindings = WebServer.ServerBindings
- If BindingString = Bindings(0) Then
- response.write "IP地址冲突:" & IPAddr & ",请检测IP地址!."
- Exit Function
- End If
- End If
- Next
- '确定一个不存在的站点编号做为新建站点编号,系统默认WebSite站点编号为1,因此从2开始
- SiteNum=2
- bDone = False
- While (Not bDone)
- Err.Clear
- Set SiteObj = GetObject("IIS://"&Computer&"/w3svc/"&SiteNum) '加载指定站点
- If (Err.Number = 0) Then
- 'response.write " Step_1站点"&SiteNum&"存在 "
- SiteNum = SiteNum + 1
- Else
- 'response.write " Step_1站点"&SiteNum&"不存在 "
- Err.Clear
- Set NewWebServer = w3svc.Create("IIsWebServer",SiteNum) '创建指定站点
- If (Err.Number <> 0) Then
- 'response.write " Step_2站点"&SiteNum&"创建失败 "
- SiteNum = SiteNum + 1
- Else
- 'response.write " Step_2站点"&SiteNum&"创建成功 "
- bDone = True
- End If
- End If
- If (SiteNum > 50) Then '服务器最大创建站点数
- response.write "超出服务器最大创建站点数,正在创建的站点的序号为: "&SiteNum&"."
- response.end
- End If
- Wend
- '进行站点基本配置
- NewBindings = Array(0)
- NewBindings(0) = BindingString
- NewWebServer.ServerBindings = NewBindings
- NewWebServer.ServerComment= WebSiteInfo
- NewWebServer.AnonymousUserName= GuestUserName
- NewWebServer.AnonymousUserPass= GuestUserPass
- NewWebServer.KeyType = "IIsWebServer"
- NewWebServer.FrontPageWeb = True
- NewWebServer.EnableDefaultDoc = True
- NewWebServer.DefaultDoc = "Default.htm, Default.asp, Index.htm, Index.asp"
- NewWebServer.LogFileDirectory= LogDirectory
- NewWebServer.SetInfo
- Set NewDir = NewWebServer.Create("IIsWebVirtualDir", "ROOT")
- NewDir.Path = WebSiteDirectory
- NewDir.AccessRead = true
- NewDir.AppFriendlyName = "应用程序" & WebSiteInfo
- NewDir.AppCreate True
- NewDir.AccessScript = True
- Err.Clear
- NewDir.SetInfo
- If (Err.Number = 0) Then
- Else
- response.write "主目录创建时出错."
- response.end
- End If
- If StartOrStop = True Then
- Err.Clear
- Set NewWebServer = GetObject("IIS://" & Computer & "/w3svc/" & SiteNum)
- NewWebServer.Start
- If Err.Number <> 0 Then
- response.write "启动站点时出错!"
- response.end
- Err.Clear
- Else
- End If
- End If
- response.write "站点创建成功,站点编号为:"& SiteNum &" ,域名为:"& HostName
- End Function
使用ASP在IIS创建WEB站点的函数
2019-10-26 12:14asp技术网 ASP教程
使用ASP在IIS创建WEB站点的函数
延伸 · 阅读
- 2022-03-02windows server 2019开启iis服务器+tp5.1的完美配置运行
- 2022-02-21C#部署数据库及IIS站点
- 2022-02-20Windows Server 2012 安装配置IIS图文教程
- 2022-02-17单台服务器中利用Apache的VirtualHost如何搭建多个
- 2022-02-13Windows Sever IIS定时重启工具 v1.0绿色版
- 2022-01-04IIS下调用证书出现异常的解决方法 (C#)
精彩推荐
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...