CSDN博客

img keenx

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

发表于2004/6/22 21:15:00  2128人阅读

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
%>

0 0

相关博文

我的热门文章

img
取 消
img