Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://rp.iszf.irk.ru/esceir/localstart.asp
Дата изменения: Sat Jan 19 16:53:48 2013 Дата индексирования: Sat Feb 2 22:37:31 2013 Кодировка: Windows-1251 Поисковые слова: mercury program |
В данное время для пользователей не задан документ, используемый по умолчанию. При попытках пользователей подключиться к узлу выдается страница ">"В процессе разработки". | ||||||||
|
ї Корпорация Майкрософт (Microsoft Corporation), 1997-1999. Все права защищены.
% @Language = "VBScript" %> <% Response.buffer = true %> <% Dim oFS,oFSPath Dim servername,serverinst, path Dim oDefSite,sDefDoc,sSitePath,sDocName Dim aDefDoc Dim success Dim infoobj, administ Dim bind,binditems,port,adminURL adminURL = "" success = false Set infoobj=GetObject("IIS://localhost/w3svc/info") Set administ= GetObject("IIS://localhost/w3svc/" & infoobj.AdminServer) bind = administ.ServerBindings(0)(0) binditems = split(bind,":") port= binditems(1) adminURL = "http://localhost:" & port & "/" Set oFS=CreateObject("Scripting.FileSystemObject") servername=Request.ServerVariables("SERVER_NAME") serverinst=Request.ServerVariables("INSTANCE_ID") path = "IIS://" & servername & "/W3SVC/" & serverinst Set oDefSite = GetObject(path) thisURL = oDefSite.ADsPath & "/Root" & Request.ServerVariables("URL") if instr(thisURL,"localstart.asp") > 0 then thisURL = Mid(thisURL,1,instr(thisURL,"localstart.asp")-2) end if Set oDefSiteRoot = GetObject(thisURL) 'Get the default document for this site... sDefDoc = oDefSite.DefaultDoc sSitePath = oDefSiteRoot.Path 'parse through the default document string aDefDocs = split(sDefDoc,",") 'and make sure at least one of them is valid for each sDocName in aDefDocs if oFS.FileExists(sSitePath & "\" & sDocName) then if InStr(sDocName,"iisstart") = 0 then success = True exit for end if end if next %>