请问如何用ASP编写虚拟目录

[jack_x]

请问如何用ASP编写虚拟目录

[karma]

you can use ADSI, try something like these:

Dim VirtualDirectory
Dim WebDir
Dim ServerName
Dim FileName
Dim Index
Dim VirtualDirectoryName
ServerName = "IIS_Server_Name"
DirName = "Directory_Name_To_Enter"
Index = Site_Index
Set VirtualDirectory = GetObject("IIS://" & ServerName & "/W3SVC/" & Index &
"/ROOT")
Set WebDir = VirtualDirectory.Create("IIsWebDirectory", DirName)
WebDir.SetInfo

'To enable Anonymous Access Using ASP

Dim Resource
Dim ServerName
Dim SiteIndex
Dim EnableAnonymousAccess
Dim AnonUserName
Dim AnonUserPassword
Dim AnonPasswordSync
ServerName = "IIS_Server_Name"
SiteIndex = Site_Index_Value
EnableAnonymousAccess = True
AnonUserName = "Username_for_Anonymous_Access"
AnonUserPassword = "Password_for_Anonymous_Access_Account"
AnonPasswordSync = True
Set Resource = GetObject("IIS://" & ServerName & "/W3SVC/" & SiteIndex &
"/ROOT")
Resource.AuthAnonymous = EnableAnonymousAccess
Resource.AnonymousUsername = AnonUserName
Resource.AnonymousUserPass = AnonUserPassword
Resource.AnonymousPasswordSync = AnonPasswordSync
Resource.SetInfo

'Setting Directory Access Permissions and Logging Using a VBScript Active Server Page

Dim VirtualDirectory
Dim ServerName
Dim Index
Dim RetVal
ServerName = "IIS_Server_Name"
Index = Site_Index_Value
Set VirtualDirectory = GetObject("IIS://" & ServerName & "/MSFTPSVC/" &
Index & "/ROOT")
VirtualDirectory.AccessRead = True
VirtualDirectory.AccessWrite = True
VirtualDirectory.DontLog = False
VirtualDirectory.SetInfo