home *** CD-ROM | disk | FTP | other *** search
/ bombers.k12.ar.us / bombers.k12.ar.us.tar / bombers.k12.ar.us / localstart.asp < prev    next >
Text File  |  2005-10-14  |  7KB  |  227 lines
  1. <% @Language = "VBScript" %>
  2. <% Response.buffer = true %>
  3.  
  4. <html>
  5.  
  6. <%
  7. Dim oFS,oFSPath
  8. Dim servername,serverinst, path
  9. Dim oDefSite,sDefDoc,sSitePath,sDocName
  10. Dim aDefDoc
  11. Dim success
  12. Dim infoobj, administ
  13. Dim bind,binditems,port,adminURL
  14.  
  15. adminURL = ""
  16. success = false
  17.  
  18. Set infoobj=GetObject("IIS://localhost/w3svc/info")
  19. Set administ= GetObject("IIS://localhost/w3svc/" & infoobj.AdminServer)    
  20. bind = administ.ServerBindings(0)(0)
  21. binditems = split(bind,":")
  22. port= binditems(1)
  23. adminURL = "http://localhost:" & port & "/"
  24.  
  25.  
  26. Set oFS=CreateObject("Scripting.FileSystemObject")
  27.  
  28. servername=Request.ServerVariables("SERVER_NAME")
  29. serverinst=Request.ServerVariables("INSTANCE_ID")
  30.  
  31. path = "IIS://" & servername & "/W3SVC/" & serverinst
  32. Set oDefSite = GetObject(path)
  33.  
  34. thisURL = oDefSite.ADsPath & "/Root" & Request.ServerVariables("URL")
  35. if instr(thisURL,"localstart.asp") > 0 then
  36.     thisURL =  Mid(thisURL,1,instr(thisURL,"localstart.asp")-2)
  37. end if
  38. Set oDefSiteRoot = GetObject(thisURL)
  39. 'Get the default document for this site...
  40. sDefDoc = oDefSite.DefaultDoc
  41. sSitePath = oDefSiteRoot.Path
  42.  
  43. 'parse through the default document string
  44. aDefDocs = split(sDefDoc,",")
  45.  
  46. 'and make sure at least one of them is valid
  47. for each sDocName in aDefDocs
  48.     if oFS.FileExists(sSitePath & "\" & sDocName) then
  49.         if InStr(sDocName,"iisstart") = 0 then
  50.             success = True
  51.             exit for
  52.         end if
  53.     end if
  54. next
  55. %>
  56.  
  57.  
  58.  
  59.  
  60.  
  61. <head>
  62. <title>Welcome to Windows 2000 Internet Services</title>
  63. <style>
  64.     ul{margin-left: 15px;}
  65.     .clsHeading {font-family: verdana; color: black; font-size: 11; font-weight: 800; width:210;}    
  66.     .clsEntryText {font-family: verdana; color: black; font-size: 11; font-weight: 400; background-color:#FFFFFF;}        
  67.     .clsWarningText {font-family: verdana; color: #B80A2D; font-size: 11; font-weight: 600; width:550;  background-color:#EFE7EA;}    
  68.     .clsCopy {font-family: verdana; color: black; font-size: 11; font-weight: 400;  background-color:#FFFFFF;}    
  69.     
  70. </style>
  71. </head>
  72.  
  73. <body TOPMARGIN="3" LEFTMARGIN="3" MARGINHEIGHT="0" MARGINWIDTH="0">
  74. <!-- BEGIN MAIN DOCUMENT BODY --->
  75.  
  76. <img src="win2000.gif" vspace="0" hspace="0"> 
  77. <table WIDTH="500" CELLPADDING="5" CELLSPACING="3" BORDER="0">
  78. <% if not success and err = 0 then %>
  79.   <tr>
  80.     <td CLASS="clsWarningText" colspan="2">
  81.  
  82.     <img SRC="warning.gif" WIDTH="40" HEIGHT="40"
  83.     BORDER="0" ALIGN="LEFT" vspace="0" hspace="0"> <strong>You do not currently have a default document set for your
  84.     users. Any users attempting to connect to this site are currently receiving an <a
  85.     href="<%= "iisstart.asp?uc=1" %>">"Under Construction page"</a>.</strong>
  86.  
  87.     </td>
  88.   </tr>
  89. <% end if %>
  90.   <tr>
  91.     <td>
  92.     <table CELLPADDING="3" CELLSPACING="3" border=0 >
  93.     <tr>
  94.         <td valign="top" rowspan=3>
  95.             <IMG SRC="web.gif">
  96.         </td>    
  97.         <td valign="top" rowspan=3>
  98.     <span CLASS="clsHeading">
  99.     Welcome to IIS 5.0</span><br>
  100.         <span CLASS="clsEntryText">        
  101.     Internet Information Services (IIS) for 
  102.     Microsoft Windows 2000 brings the power of Web computing to Windows. 
  103.     With IIS, you can easily share files and printers and create 
  104.     applications to securely publish information to improve 
  105.     the way your organization works. IIS is a secure platform for building and deploying eCommerce solutions. IIS also makes it easy to bring mission-critical business applications to the Web.
  106.     <P>
  107.     Windows 2000 with IIS scales to meet your needs. You can:</span>
  108.     <p>
  109.     <ul class="clsEntryText">
  110.     <li>Set up a personal Web server.
  111.     <li>Share information within your team.
  112.     <li>Access databases.
  113.     <li>Create an enterprise intranet.
  114.     </ul>
  115.     <p>
  116.     <span CLASS="clsEntryText">
  117.     IIS integrates proven Internet standards with Windows, so that using the Web does 
  118.     not mean having to start over and learn new ways to publish, manage, or develop. 
  119.     <P>
  120.     Windows 2000 with Internet Information Services is the easiest way to 
  121.     share information and run powerful applications on the Web.
  122.     </span>
  123.     </td>
  124.  
  125.         <td valign="top">
  126.             <IMG SRC="mmc.gif">
  127.         </td>
  128.         <td valign="top">
  129.             <span CLASS="clsHeading">Integrated Management</span>
  130.             <br>
  131.             <span CLASS="clsEntryText">
  132.                 You can manage IIS through the Windows 2000 Computer Management <a href="javascript:activate();">console</a>, or by using scripting. If you have installed Windows 2000 Server or Windows 2000 Advanced Server, the   
  133.             <% if port <> "" then %><A HREF="<%=adminURL%>">Administration Web site</A><% else %>Administration Web site<% end if %> can also be used to manage IIS.  
  134.             <p>
  135.             You can also right-click on a directory, 
  136.             and you can share its contents via the Web, as well as configure the most common IIS settings. 
  137.             </span>
  138.         </td>
  139.     </tr>
  140.     <tr>
  141.         <td valign="top">
  142.             <IMG SRC="help.gif">
  143.         </td>
  144.         <td valign="top">
  145.             <span CLASS="clsHeading"><a href="javascript:loadHelpFront();">Online Documentation</a></span>
  146.             <br>
  147.             <span CLASS="clsEntryText">The award-winning IIS online documentation includes an index,
  148.                 full-text search, and printing by node or by individual topic. You can:<p>
  149.             </span>
  150.             <ul class="clsEntryText">
  151.                   <li>Get help with tasks.
  152.                  <li>Learn about server operation.
  153.                 <li>Consult reference material.
  154.                  <li>View code samples.
  155.             </ul>
  156.  
  157.         </td>
  158.     </tr>
  159. <%
  160.  
  161.         Dim WshShell, ver
  162.         Set WshShell = Server.CreateObject("Wscript.Shell")
  163.         On Error Resume Next
  164.         ver = 0
  165.         ver = WshShell.RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Printers\DisableWebPrinting")
  166.         
  167. %>
  168.  
  169. <% If ver <> 1 or err <> 0 Then %>
  170.     <tr>
  171.         <td valign="top">
  172.             <IMG SRC="print.gif">
  173.         </td>
  174.         <td valign="top">
  175.             <span CLASS="clsHeading">Web Printing</span>
  176.             <br>
  177.             <span CLASS="clsEntryText">Windows 2000 dynamically lists all the printers on your
  178.                 server on an easily accessible <a HREF="/printers" target="_new">Web site</a>. You can browse this site
  179.                 to monitor printers and their jobs. You can also connect to the printers via this site
  180.                 from any Windows computer.
  181.             </span>
  182.         </td>
  183.     </tr>
  184. <% end if %>
  185. <% err.clear %> 
  186.     </table>
  187. </td>
  188. </tr>
  189. </table>
  190.  
  191. <P align=center><EM><A href="/iishelp/common/colegal.htm">⌐ 
  192. 1997-1999 Microsoft Corporation. All rights 
  193. reserved.</A></EM></P></FONT></BODY>
  194.  
  195. <script LANGUAGE="javascript">
  196.     var gWinheight
  197.     var gDialogsize
  198.     var ghelpwin;
  199.     //launch help
  200.     window.moveTo(5,5);
  201.     gWinheight= 480;
  202.     gDialogsize= "width=640,height=480,left=300,top=50,"
  203.     if (window.screen.height > 600)
  204.     {
  205. <% if not success and err = 0 then %>
  206.         gWinheight= 700;
  207. <% else %>
  208.         gWinheight= 700;
  209. <% end if %>
  210.         gDialogsize= "width=640,height=480,left=500,top=50"
  211.     }
  212.     
  213.     window.resizeTo(600,gWinheight)
  214.     loadHelpFront();
  215.  
  216. function loadHelpFront(){
  217.     ghelpwin = window.open("http://localhost/iishelp/","Help","status=yes,toolbar=yes,menubar=yes,location=yes,resizable=yes,"+gDialogsize,true);    
  218. }
  219.  
  220. function activate(){
  221.     window.open("http://localhost/iishelp/iis/htm/core/iisnapin.htm", "SnapIn", 'toolbar=no, left=200, top=200, scrollbars=no, resizeable=no,  width=350, height=350');
  222. }
  223. </script>
  224.  
  225. </html>
  226.  
  227.