home *** CD-ROM | disk | FTP | other *** search
/ www.jacquesfortier.com / www.jacquesfortier.com.tar / www.jacquesfortier.com / localstart.asp < prev    next >
Text File  |  2001-08-23  |  11KB  |  278 lines
  1. <%@ Language = "VBScript" %>
  2. <% Response.Buffer = True %>
  3.  
  4. <html>
  5.  
  6. <%
  7.  
  8. ' Prepare variables.
  9.  
  10. Dim oFS, oFSPath
  11. Dim sServername, sServerinst, sPhyspath, sServerVersion 
  12. Dim sServerIP, sRemoteIP
  13. Dim sPath, oDefSite, sDefDoc, sDocName, aDefDoc
  14.  
  15. Dim bSuccess           ' This value is used later to warn the user if a default document does not exist.
  16. Dim iVer               ' This value is used to pass the server version number to a function.
  17.  
  18. bSuccess = False
  19. iVer = 0
  20.  
  21. ' Get some server variables to help with the next task.
  22.  
  23. sServername = LCase(Request.ServerVariables("SERVER_NAME"))
  24. sServerinst = Request.ServerVariables("INSTANCE_ID")
  25. sPhyspath = LCase(Request.ServerVariables("APPL_PHYSICAL_PATH"))
  26. sServerVersion = LCase(Request.ServerVariables("SERVER_SOFTWARE"))
  27. sServerIP = LCase(Request.ServerVariables("LOCAL_ADDR"))      ' Server's IP address
  28. sRemoteIP =  LCase(Request.ServerVariables("REMOTE_ADDR"))    ' Client's IP address
  29.  
  30. ' If the querystring variable uc <> 1, and the user is browsing from the server machine, 
  31. ' go ahead and show them localstart.asp.  We don't want localstart.asp shown to outside users.
  32.  
  33. If Not (sServername = "localhost" Or sServerIP = sRemoteIP) Then
  34.   Response.Redirect "iisstart.asp"
  35. Else 
  36.  
  37. ' Using ADSI, get the list of default documents for this Web site.
  38.  
  39. sPath = "IIS://" & sServername & "/W3SVC/" & sServerinst
  40. Set oDefSite = GetObject(sPath)
  41. sDefDoc = LCase(oDefSite.DefaultDoc)
  42. aDefDocs = split(sDefDoc, ",")
  43.  
  44. ' Make sure at least one of them is valid.
  45.  
  46. Set oFS = CreateObject("Scripting.FileSystemObject")
  47.  
  48. For Each sDocName in aDefDocs
  49.   If oFS.FileExists(sPhyspath & sDocName) Then
  50.     If InStr(sDocName,"iisstart") = 0 Then
  51.       ' IISstart doesn't count because it is an IIS file.
  52.       bSuccess = True  ' This value will be used later to warn the user if a default document does not exist.
  53.       Exit For
  54.     End If
  55.   End If
  56. Next
  57.  
  58. ' Find out what version of IIS is running.
  59.  
  60. Select Case sServerVersion 
  61.    Case "microsoft-iis/5.0"
  62.      iVer = 50         ' This value is used to pass the server version number to a function.
  63.    Case "microsoft-iis/5.1"
  64.      iVer = 51
  65.    Case "microsoft-iis/6.0"
  66.      iVer = 60
  67. End Select
  68.  
  69. %>
  70.  
  71. <head>
  72. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
  73.  
  74. <script language="javascript">
  75.  
  76.   // This code is executed before the rest of the page, even before the ASP code above.
  77.   
  78.   var gWinheight;
  79.   var gDialogsize;
  80.   var ghelpwin;
  81.   
  82.   // Move the current window to the top left corner.
  83.   
  84.   window.moveTo(5,5);
  85.   
  86.   // Change the size of the window.
  87.  
  88.   gWinheight= 480;
  89.   gDialogsize= "width=640,height=480,left=300,top=50,"
  90.   
  91.   if (window.screen.height > 600)
  92.   {
  93. <% if not success and Err = 0 then %>
  94.     gWinheight= 700;
  95. <% else %>
  96.     gWinheight= 700;
  97. <% end if %>
  98.     gDialogsize= "width=640,height=480,left=500,top=50"
  99.   }
  100.   
  101.   window.resizeTo(620,gWinheight);
  102.   
  103.   // Launch IIS Help in another browser window.
  104.   
  105.   loadHelpFront();
  106.  
  107. function loadHelpFront()
  108. // This function opens IIS Help in another browser window.
  109. {
  110.   ghelpwin = window.open("http://localhost/iishelp/","Help","status=yes,toolbar=yes,scrollbars=yes,menubar=yes,location=yes,resizable=yes,"+gDialogsize,true);  
  111.       window.resizeTo(620,gWinheight);
  112. }
  113.  
  114. function activate(ServerVersion)
  115. // This function brings up a little help window showing how to open the IIS snap-in.
  116. {
  117.   if (50 == ServerVersion)
  118.     window.open("http://localhost/iishelp/iis/htm/core/iisnapin.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes,  width=350, height=350');
  119.   if (51 == ServerVersion)
  120.     window.open("http://localhost/iishelp/iis/htm/core/iiabuti.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes,  width=350, height=350');
  121.   if (60 == ServerVersion)
  122.     window.open("http://localhost/iishelp/iis/htm/core/gs_iissnapin.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes,  width=350, height=350');
  123.   if (0 == ServerVersion)
  124.     window.open("http://localhost/iishelp/", "Help", 'toolbar=no, left=200, top=200, scrollbars=yes, resizeable=yes,  width=350, height=350');  
  125. }
  126.  
  127. </script>
  128.  
  129. <title>Bienvenueá!</title>
  130. <style>
  131.   ul{margin-left: 15px;}
  132.   .clsHeading {font-family: Verdana; color: black; font-size: 11; font-weight: 800; width:210;}  
  133.   .clsEntryText {font-family: Verdana; color: black; font-size: 11; font-weight: 400; background-color:#FFFFFF;}    
  134.   .clsWarningText {font-family: Verdana; color: #B80A2D; font-size: 11; font-weight: 600; width:550;  background-color:#EFE7EA;}  
  135.   .clsCopy {font-family: Verdana; color: black; font-size: 11; font-weight: 400;  background-color:#FFFFFF;}  
  136. </style>
  137. </head>
  138.  
  139. <body topmargin="3" leftmargin="3" marginheight="0" marginwidth="0" bgcolor="#FFFFFF"
  140. link="#000066" vlink="#000000" alink="#0000FF" text="#000000">
  141.  
  142. <!-- BEGIN MAIN DOCUMENT BODY --->
  143.  
  144. <p align="center"><img src="winXP.gif" vspace="0" hspace="0"></p>
  145. <table width="500" cellpadding="5" cellspacing="3" border="0" align="center">
  146.  
  147.   <tr>
  148.   <td class="clsWarningText" colspan="2">
  149.   
  150.   <table><tr><td>
  151.   <img src="warning.gif" width="40" height="40" border="0" align="left">
  152.   </td><td class="clsWarningText">
  153.   <b>Votre service Web est maintenant en service.
  154.   
  155. <% If Not bSuccess And Err = 0 Then %>
  156.   
  157.   <p>Aucune page Web par dΘfaut n'est pour l'instant dΘfinie pour vos
  158.   utilisateurs. Les utilisateurs qui essaient de se connecter α votre site Web α partir d'un autre ordinateur reτoivent actuellement une page 
  159.   <a href="iisstart.asp?uc=1">En chantier</a> .
  160.   Votre serveur Web indique les fichiers suivants comme possibles pages Web par dΘfautá: <%=sDefDoc%>. Pour l'instant, seule iisstart.asp existe.<br><br>
  161.   
  162. <% End If %>
  163.  
  164.   Pour ajouter des documents α votre site Web par dΘfaut, enregistrez les fichiers dans <%=sPhyspath%>. 
  165.   </b>
  166.   </td></tr></table>
  167.  
  168.   </td>
  169.   </tr>
  170.   
  171.   <tr>
  172.   <td>
  173.   <table cellpadding="3" cellspacing="3" border=0 >
  174.   <tr>
  175.     <td valign="top" rowspan=3>
  176.       <img src="web.gif">
  177.     </td>  
  178.     <td valign="top" rowspan=3>
  179.   <span class="clsHeading">
  180.   Bienvenueá!</span><br>
  181.       <span class="clsEntryText">    
  182.     Internet Information Services (IIS) 5.1 pour Microsoft Windows XP Professionnel
  183.     apporte α Windows la puissance des applications pour le Web. Avec IIS, vous pouvez aisΘment partager des fichiers
  184.     et des imprimantes ou vous pouvez crΘer des applications pour publier des informations en toute sΘcuritΘ sur le Web
  185.     de faτon α amΘliorer la faτon dont votre entreprise partage l'information. IIS constitue une plate-forme sΘcurisΘe
  186.     pour la construction et le dΘploiement sur le Web de solutions de e-commerce ou d'applications dΘdiΘes critiques.
  187.   <p>
  188.     Windows XP Professionnel avec les Services Internet (IIS) installΘs constitue un systΦme d'exploitation personnel et de dΘveloppement idΘal pourá:</span>
  189.   <p>
  190.     <ul class="clsEntryText">
  191.       <li>Installer un serveur Web personnel
  192.       <li>Partager des informations avec votre Θquipe
  193.       <li>Bases de donnΘes Access
  194.       <li>DΘvelopper un intranet d'entreprise
  195.       <li>DΘvelopper des applications pour le Web.
  196.     </ul>
  197.   <p>
  198.   <span class="clsEntryText">
  199.     IIS intΦgre α Windows des standards Internet ΘprouvΘs, pour que l'utilisation du Web n'implique pas de devoir
  200.     tout rΘapprendre et d'assimiler de nouvelles mΘthodes de publication, de gestion ou de dΘveloppement de contenu. 
  201.   <p>
  202.   </span>
  203.   </td>
  204.  
  205.     <td valign="top">
  206.       <img src="mmc.gif">
  207.     </td>
  208.     <td valign="top">
  209.       <span class="clsHeading">Gestion intΘgrΘe</span>
  210.       <br>
  211.       <span class="clsEntryText">
  212.         Vous pouvez gΘrer IIS grΓce au composant Gestion de l'ordinateur de <a href="javascript:activate(<%=iVer%>);">Windows XP</a> 
  213.         ou en utilisant des scripts. GrΓce α la console, vous pouvez Θgalement partager avec d'autres personnes, via le Web,
  214.         le contenu de vos sites et de vos serveurs gΘrΘs avec les Services Internet. En accΘdant au composant logiciel
  215.         enfichable IIS α partir de la console, vous pouvez configurer la plupart des paramΦtres et propriΘtΘs usuels
  216.         d'IIS. AprΦs le dΘveloppement d'un site et de ses applications, ces paramΦtres et propriΘtΘs peuvent Ωtre
  217.         utilisΘs dans un environnement de production reposant sur des serveurs Windows plus puissants.  
  218.       <p>
  219.        
  220.       </span>
  221.     </td>
  222.   </tr>
  223.   <tr>
  224.     <td valign="top">
  225.       <img src="help.gif">
  226.     </td>
  227.     <td valign="top">
  228.       <span class="clsHeading"><a href="javascript:loadHelpFront();">Documentation en ligne</a></span>
  229.       <br>
  230.       <span class="clsEntryText">L'aide en ligne des Services Internet (IIS) comprend un index, un outil de recherche sur le texte complet,
  231.         et la possibilitΘ d'imprimer une rubrique individuelle ou tout un n£ud. Pour l'administration de
  232.         programmation et le dΘveloppement de scripts, utilisez les exemples installΘs avec IIS. Les fichiers
  233.         d'aide sont stockΘs sous forme HTML, ce qui vous permet de les annoter et de les partager autant
  234.         que nΘcessaire. GrΓce α l'aide en ligne de IIS, vous pouvezá:<p>
  235.       </span>
  236.       <ul class="clsEntryText">
  237.          <li>Obtenir de l'aide sur les tΓches
  238.          <li>En savoir plus sur le fonctionnement et la gestion d'un serveur
  239.          <li>Consulter les documents de rΘfΘrence
  240.          <li>Consulter des exemples de code.
  241.       </ul>
  242.       <p>
  243.         <span class="clsEntryText">
  244.         D'autres sources d'informations importantes sur les Services Internet (IIS) sont disponibles sur les sites Web de Microsoft.comá: 
  245.         MSDN, TechNet et le site Windows.
  246.         </span>
  247.     </td>
  248.   </tr>
  249.   
  250.   <tr>
  251.     <td valign="top">
  252.       <img src="print.gif">
  253.     </td>
  254.     <td valign="top">
  255.       <span class="clsHeading">Impression Web</span>
  256.       <br>
  257.       <span class="clsEntryText">Windows XP Professionnel rΘpertorie dynamiquement toutes les imprimantes de votre serveur
  258.         sur un site Web facile d'accΦs. Vous pouvez utiliser ce site pour contr⌠ler les
  259.         imprimantes et leurs tΓches. Il vous permet Θgalement de vous connecter aux imprimantes
  260.         α partir de tout ordinateur Windows. Pour en savoir plus sur l'impression Internet,
  261.         consultez l'aide sur Windows.
  262.       </span>
  263.     </td>
  264.   </tr>
  265.   
  266.   </table>
  267. </td>
  268. </tr>
  269. </table>
  270.  
  271. <p align=center><em><a href="/iishelp/common/colegal.htm">⌐ 1997-2001 Microsoft Corporation. Tous droits rΘservΘs.</a></em></p>
  272.  
  273. </body>
  274. </html>
  275.  
  276. <% End If %>
  277.  
  278.