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

最新推荐文章于 2019-07-29 22:44:00 发布

keenx

最新推荐文章于 2019-07-29 22:44:00 发布

阅读量2.4k

点赞数

文章标签： iis asp function web服务 vbscript input

本文链接：https://blog.csdn.net/keenx/article/details/22792

版权

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

keenx

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
管理IIS(创建站点和虚拟目录)的ASP版本

ASP版本的IIS管理代码,写到有点烦了,自己看看吧.(只有创建站点和虚拟目录的功能) %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/html4/loose.dtd">老刀的IIS管理器 Vname=request.Form("vname")Vport=cint(request.Form("vport"))if Vname
复制链接

扫一扫