ASP建立虚吕目录

'---------------------------------------------------------------------
' This function creates a virtual web directory on the specified web site
' and with the specified path
'
'mkwebdir [--computer-c COMPUTER1, COMPUTER2, COMPUTER3]
'         <--website-w WEBSITE>
'         <--virtualdir-v NAME1,PATH1,NAME2,PATH2,...>
'         [--help-?]
'
'COMPUTER                Computer on which users exists
'WEBSITE1,WEBSITE2       Virtual Web Sites on which directories will be created
'NAME1,PATH1,NAME2,PATH2 Virtual Directories names and paths to create
'
'Example 1  mkwebdir -c MyComputer -w "Default Web Site"
'                       -v "Virtual Dir1","c:\inetpub\wwwroot\dir1","Virtual Dir2","c:\inetpub\wwwroot\dir2"
'
'----------------------------------------------------------------

' Force explicit declaration of all variables.
Option Explicit

On Error Resume Next

Dim oArgs, ArgNum

Dim ArgComputer, ArgWebSites, ArgVirtualDirs, ArgDirNames(), ArgDirPaths(), DirIndex
Dim ArgComputers

Set oArgs = WScript.Arguments
ArgComputers = Array("LocalHost")

ArgNum = 0
While ArgNum < oArgs.Count

 If (ArgNum + 1) >= oArgs.Count Then
  Call DisplayUsage
 End If 

 Select Case LCase(oArgs(ArgNum))
  Case "--computer","-c":
   ArgNum = ArgNum + 1
   ArgComputers = Split(oArgs(ArgNum), ",", -1)
  Case "--website","-w":
   ArgNum = ArgNum + 1
   ArgWebSites = oArgs(ArgNum)
  Case "--virtualdir","-v":
   ArgNum = ArgNum + 1
   ArgVirtualDirs = Split(oArgs(ArgNum), ",", -1)
  Case "--help","-?"
   Call DisplayUsage
 End Select 

 ArgNum = ArgNum + 1
Wend

ArgNum = 0
DirIndex = 0

ReDim ArgDirNames((UBound(ArgVirtualDirs)+1) \ 2)
ReDim ArgDirPaths((UBound(ArgVirtualDirs)+1) \ 2)

if isArray(ArgVirtualDirs) then
 While ArgNum <= UBound(ArgVirtualDirs)

[1] [2] [3] [4] [5] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:ASP程序的调试

下一篇:实例：asp生成WORD文档