ASP建立虚吕目录

function getBinding(bindstr)

 Dim one, two, ia, ip, hn
 
 one=Instr(bindstr,":")
 two=Instr((one+1),bindstr,":")
 
 ia=Mid(bindstr,1,(one-1))
 ip=Mid(bindstr,(one+1),((two-one)-1))
 hn=Mid(bindstr,(two+1))
 
 getBinding=Array(ia,ip,hn)
end function

Function findWeb(computer, webname)
 On Error Resume Next

 Dim websvc, site
 dim webinfo
 Dim aBinding, binding

 set websvc = GetObject("IIS://"&computer&"/W3svc")
 if (Err <> 0) then
  exit function
 end if
 ' First try to open the webname.
 set site = websvc.GetObject("IIsWebServer", webname)
 if (Err = 0) and (not isNull(site)) then
  if (site.class = "IIsWebServer") then
   ' Here we found a site that is a web server.
   set findWeb = site
   exit function
  end if
 end if
 err.clear
 for each site in websvc
  if site.class = "IIsWebServer" then
   '
   ' First, check to see if the ServerComment
   ' matches
   '
   If site.ServerComment = webname Then
    set findWeb = site
    exit function
   End If
   aBinding=site.ServerBindings
   if (IsArray(aBinding)) then
    if aBinding(0) = "" then
     binding = Null
    else
     binding = getBinding(aBinding(0))
    end if
   else
    if aBinding = "" then
     binding = Null
    else
     binding = getBinding(aBinding)
    end if
   end if
   if IsArray(binding) then
    if (binding(2) = webname) or (binding(0) = webname) then
     set findWeb = site
     exit function
    End If

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

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

上一篇:ASP程序的调试

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