ASP建立虚吕目录

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 ""
 WScript.Echo "Note, WEBSITE is the Web Site on which the directory will be created."
 WScript.Echo "The name can be specified as one of the following, in the priority specified:"
 WScript.Echo " Server Number (i.e. 1, 2, 10, etc.)"
 WScript.Echo " Server Description (i.e ""My Server"")"
 WScript.Echo " Server Host name (i.e. ""www.domain.com"")"
 WScript.Echo " IP Address (i.e., 127.0.0.1)"
 WScript.Echo ""
 WScript.Echo ""
 WScript.Echo "Example : mkwebdir -c MyComputer -w ""Default Web Site"""
 WScript.Echo "           -v ""dir1"",""c:\inetpub\wwwroot\dir1"",""dir2"",""c:\inetpub\wwwroot\dir2"""

 WScript.Quit
End Sub
'----------------------------------------------------------------

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

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

上一篇:ASP程序的调试

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