管理IIS(创建站点和虚拟目录)的ASP版本

原创 2004年06月22日 21:15:00

ASP版本的IIS管理代码,写到有点烦了,自己看看吧.(只有创建站点和虚拟目录的功能)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>老刀的IIS管理器</title>
</head>

<body>
<%
Vname=request.Form("vname")
Vport=cint(request.Form("vport"))
if Vname<>"" then

Dim WPort,bindlists,createflag,oComputer
 oComputer="LocalHost"
 binglists=Array(0)
 binglists(0)=":"&Vport&":"'端口号为80
 WPort=binglists
 'createflag=CreateWebServer("F:/根目录",Vname,WPort,False)'调用建站函数
 wrong=CreateWebServer("F:/根目录",Vname,WPort,True)'调用建站函数
 response.write wrong
If creatflag=0 Then
 Response.Write "创建站点失败!请确定是否有权限"
 ElseIf createflag=1 Then
 Response.Write "创建站点成功!"
 ElseIf createflag=2 Then
 Response.Write "创建站点成功,但启动站点失败,可能端口冲突!"
 End If
 
 else
 call vform()
 end if
sub vform()
%><form name="form1" method="post" action="">
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="114">虚拟站点名:</td>
    <td width="286">
      <input type="text" name="vname">
    </td>
  </tr>
  <tr>
    <td width="114">端口:</td>
    <td width="286">
      <input type="text" name="vport">
    </td>
  </tr>
  <tr>
    <td colspan="2"><div align="center">
      <input type="submit" name="Submit" value="提交">
    </div></td>
    </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>
<%end sub

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

Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")

'Test to see if the folder exists in the filesystem. If not, create it

On Error Resume Next
Set Folder = objFileSystem.GetFolder(strVirtualDirectoryPath)
If Hex(Err.number) = "4C" Then
objFileSystem.CreateFolder strVirtualDirectoryPath
End If

Set objFileSystem = Nothing


'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.GetObject("IIsWebServer", Vname)' 然后创建一个WEB服务器

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

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

' 提交信息
'ServerObj.SetInfo

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

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

' 配置虚拟目录
VDirObj.Path = strVirtualDirectoryPath
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&"!<br>"
CreateWebServer=CreateWebServer&"错误: 起动服务器时出错!请手动启动WebServer "&WComment&"!<br>!"
'CreateWebServer=2
Exit Function
End If
End If
Set VDirObj=Nothing
Set ServerObj=Nothing
Set ServiceObj=Nothing
'CreateWebServer=1
End Function
%>

asp在IIS上创建一个web站点

 %**********************************************************************************  创建一个WebServer ...
  • china_skag
  • china_skag
  • 2007年03月16日 09:56
  • 929

C#创建IIS站点或者虚拟目录

using System; using System.Collections.Generic; using System.Text; using System.DirectoryServices...
  • lbuskeep
  • lbuskeep
  • 2012年02月24日 07:10
  • 2841

IIS创建虚拟目录(完整的成功代码)

 ///***********************************************************///************** IIS控制管理类 1.0 Beta *...
  • dotnet90
  • dotnet90
  • 2006年12月18日 11:30
  • 2259

在Win7中IIS配置Asp.Net虚拟目录的方法及错误总结!

在Win7中IIS配置Asp.Net虚拟目录的方法总结! 一、右键【网站】,点击【添加虚拟目录】或【虚拟应用程序】,笔者建议最好建立虚拟应用程序,因为这就跟一个网站差不多,不用考虑路径问题。 二、...
  • dxnn520
  • dxnn520
  • 2014年06月28日 09:54
  • 4432

ASP.NET 管理网站(虚拟目录)

部署了网站之后,就可以通过 IIS 的功能来管理网站宿主和执行的方式。   创建新站点        IIS 7 能够在单台服务器上支持多个站点。要创建新站点,展开 IIS 管理器的树控件,右击“网站...
  • yanzhibo
  • yanzhibo
  • 2014年01月13日 21:22
  • 3289

C# 获取IIS站点及虚拟目录信息

using System; using System.DirectoryServices; using System.Collections.Generic; using System.Text...
  • li_xiao_ming
  • li_xiao_ming
  • 2014年07月28日 19:52
  • 4671

IIS虚拟目录作用

虚拟目录对应到URL的名称 如 http://zhidao.baidu.com/question/ 中question就是一个虚拟目录 很多时候,上传的文件多了,架设服务器当初设定的主目录所在盘空间往...
  • jiyidianranyikeyan
  • jiyidianranyikeyan
  • 2010年10月30日 00:28
  • 10724

IIS发布,虚拟目录的使用

又占位了。。。。
  • mengdonghui123456
  • mengdonghui123456
  • 2016年08月28日 22:39
  • 2241

IIS默认网站无法打开,应用程序/虚拟目录指定默认页无法打开的解决方法

IIS出现默认页无法浏览,IIS中
  • u014156887
  • u014156887
  • 2014年06月26日 12:19
  • 1279

IIS添加网站虚拟目录出错

出现的错误是 Server error in \ application Parse error 后来将虚拟目录转化为应用程序,同时将虚拟目录下的WEB.CONFIG不想继承父WEB.CONFIG的...
  • handsometone1982
  • handsometone1982
  • 2014年12月17日 16:47
  • 647
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:管理IIS(创建站点和虚拟目录)的ASP版本
举报原因:
原因补充:

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