ASP建立虚吕目录

 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)
  ArgDirNames(DirIndex) = ArgVirtualDirs(ArgNum)
  If (ArgNum + 1) > UBound(ArgVirtualDirs) Then
   WScript.Echo "Error understanding virtual directories"
   Call DisplayUsage
  End If 
  ArgNum = ArgNum + 1
  ArgDirPaths(DirIndex) = ArgVirtualDirs(ArgNum)
  ArgNum = ArgNum + 1
  DirIndex = DirIndex + 1
 Wend
end if

If (ArgWebSites = "") Or (IsArray(ArgDirNames) = False or IsArray(ArgDirPaths) = False) Then
 Call DisplayUsage
Else
 Dim compIndex
 for compIndex = 0 to UBound(ArgComputers)
  Call ASTCreateVirtualWebDir(ArgComputers(compIndex),ArgWebSites,ArgDirNames,ArgDirPaths)
 next
End If

'-------------------------------------------------------------
Sub Display(Msg)
 WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
End Sub

Sub Trace(Msg)
 WScript.Echo Now & " : " & Msg 
End Sub

Sub DisplayUsage()
 WScript.Echo "Usage: mkwebdir [--computer-c COMPUTER1,COMPUTER2]"
 WScript.Echo "                <--website-w WEBSITE1>"
 WScript.Echo "                <--virtualdir-v NAME1,PATH1,NAME2,PATH2,...>"
 WScript.Echo "                [--help-?]" 

 WScript.Echo ""

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

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

上一篇:ASP程序的调试

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