会员: 密码:  免费注册 | 忘记密码 | 会员登录 网页功能: 加入收藏 设为首页 网站搜索  
技术文档 > Web开发 > ASP
创建虚拟目录
发表日期:2003-03-04 00:00:00作者:� 出处:  

'''''''''''''''''''''''''''''''''

Option Explicit

On Error Resume Next

'''''''''''''''''''''''

' First, open the path to the Web server you are

' trying to add a virtual directory to.

function CreateVirtualDir()

Dim ServObj

Dim VdirObj

Dim Testpath

Set ServObj = GetObject("IIS://LocalHost/w3svc/1/Root")

if (Err <>0) then

  debug.print "GetObject (""IIS://LocalHost/w3svc/1/Root"") Failed! <br>"

  debug.print "Error! " & Err.Number & "(" & Hex(Err.Number) & "): " & Err.Description & "<br>"

  exit function

end if

'''''''''''''''''''''''

' Second, Create the virtual directory (Vdir) path

Set VdirObj = ServObj.Create("IIsWebVirtualDir", "MyVdir")

VdirObj.SetInfo

if (Err<>0) then

  debug.print "CreateObject(""IIS://LocalHost/w3svc/1/Root/MyVdir"") Failed!"

  debug.print "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

  exit function

end if

''''''''''''''''''''''''

' Finally, create a Path variable containing the virtual root path and

' set the permissions to read, script, and directory browsing

VdirObj.AccessRead = True

VdirObj.AccessScript = True

VdirObj.EnableDirBrowsing = True

Testpath = "C:\Temp"

VdirObj.Put "Path", (Testpath)

VdirObj.SetInfo

if (Err<> 0) then

  debug.print "Put (""Path"") Failed!"

  debug.print "Error! " & Err.Number & "(" & Hex (Err.Number) & "): " & Err.Description &

else

  debug.print "VDIR successfully created"

end if

''''''''''''''''''''''''

' The minimum amount necessary to create a virtual directory has now

' been completed. If you need to add more, do it here.

end function

返回顶部】 【打印本页】 【关闭窗口

关于我们 / 给我留言 / 版权举报 / 意见建议 / 网站编程QQ群   
Copyright ©2003- 2025 Lihuasoft.net webmaster(at)lihuasoft.net 加载时间 0.00379