home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / dy / gr / localstart.asp < prev    next >
Text File  |  2003-08-22  |  7KB  |  224 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. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  63. <META NAME="MS.LOCALE" CONTENT="ZH-CN">
  64. <title>╗╢╙¡╩╣╙├ Windows 2000 Internet ╖■╬±</title>
  65. <style>
  66.     ul{margin-left: 15px;}
  67.     .clsHeading {font-family: ╦╬╠σ; color: black; font-size: 12; font-weight: 800; width:210;}    
  68.     .clsEntryText {font-family: ╦╬╠σ; color: black; font-size: 12; font-weight: 400; background-color:#FFFFFF;}        
  69.     .clsWarningText {font-family: ╦╬╠σ; color: #B80A2D; font-size: 12; font-weight: 600; width:550;  background-color:#EFE7EA;}    
  70.     .clsCopy {font-family: ╦╬╠σ; color: black; font-size: 12; font-weight: 400;  background-color:#FFFFFF;}    
  71.     
  72. </style>
  73. </head>
  74.  
  75. <body TOPMARGIN="3" LEFTMARGIN="3" MARGINHEIGHT="0" MARGINWIDTH="0" BGCOLOR="#FFFFFF"
  76. LINK="#000066" VLINK="#000000" ALINK="#0000FF" TEXT="#000000">
  77. <!-- BEGIN MAIN DOCUMENT BODY --->
  78.  
  79. <img src="win2000.gif" vspace="0" hspace="0"> 
  80. <table WIDTH="500" CELLPADDING="5" CELLSPACING="3" BORDER="0">
  81. <% if not success and err = 0 then %>
  82.   <tr>
  83.     <td CLASS="clsWarningText" colspan="2">
  84.  
  85.     <img SRC="warning.gif" WIDTH="40" HEIGHT="40"
  86.     BORDER="0" ALIGN="LEFT" vspace="0" hspace="0"> <strong>─·─┐╟░├╗╙╨╬¬╙├╗º╔Φ╓├─¼╚╧╬─╡╡íú
  87. ╚╬║╬│ó╩╘┴¼╜╙┤╦╒╛╡─╙├╗º╢╝╗ß╩╒╡╜<a
  88.     href="<%= "iisstart.asp?uc=1" %>">í░╒²╘┌┤┤╜¿╡─╥│í▒</a>íú</strong>
  89.  
  90.     </td>
  91.   </tr>
  92. <% end if %>
  93.   <tr>
  94.     <td>
  95.     <table CELLPADDING="3" CELLSPACING="3" border=0 >
  96.     <tr>
  97.         <td valign="top" rowspan=3>
  98.             <IMG SRC="web.gif">
  99.         </td>    
  100.         <td valign="top" rowspan=3>
  101.     <span CLASS="clsHeading">
  102.     ╗╢╙¡╩╣╙├ IIS 5.0</span><br>
  103.         <span CLASS="clsEntryText">        
  104.     Microsoft Windows 2000 ╡─ Internet ╨┼╧ó╖■╬± (IIS) 
  105.      ╕° Windows ┤°└┤ Web ╝╞╦π╡─╟┐┤≤╣ª─▄íú 
  106.     ═¿╣² IISú¼─·┐╔╥╘╟ß╦╔╡╪╣▓╧φ╬─╝■║═┤≥╙í 
  107.     ▓ó╬¬░▓╚½╖ó▓╝╨┼╧ó┤┤╜¿╙ª╙├│╠╨≥└┤╕─╔╞─·╡─╣ñ╫≈íú 
  108.     IIS ╩╟┤┤╜¿║═┐¬╖ó╡τ╫╙╔╠╬±╥╡╜Γ╛÷╖╜░╕╡─░▓╚½╞╜╠¿íú 
  109.     IIS ╥▓╗ß┐╔╥╘╟ß╦╔╡╪╜½╚╬╬±╫╝╘≥╙ª╙├│╠╨≥┤°╕° Webíú
  110.     <P>
  111.     ║¼ IIS ╡─ Windows 2000 ┐╔╥╘┬·╫π─·╥╘╧┬╡─╨Φ╥¬:</span>
  112.     <p>
  113.     <ul class="clsEntryText">
  114.     <li>╔Φ╓├╕÷╚╦ Web ╖■╬±╞≈íú
  115.     <li>╘┌─·╡─╫Θ─┌╣▓╧φ╨┼╧óíú
  116.     <li>╖├╬╩╩²╛▌┐Γíú
  117.     <li>┤┤╜¿╥╗╕÷╞≤╥╡ Intranetíú
  118.     </ul>
  119.     <p>
  120.     <span CLASS="clsEntryText">
  121.     ╙╔╙┌ IIS ╡─╝»│╔╩╟╗∙╙┌ Windows ╡─ Internet ▒Ω╫╝ú¼╥≥┤╦╩╣╙├ Web ▓╗╨Φ╥¬╓╪╨┬╤º╧░╖ó▓╝ú¼╣▄└φ╗≥┐¬╖óíú 
  122.     <P>
  123.     ║¼╙╨ Internet ╨┼╧ó╖■╬±╡─ Windows 2000 ╩╟╘┌ Web ╔╧╣▓╧φ╨┼╧ó▓ó╘╦╨╨╟┐┤≤╡─╙ª╙├│╠╨≥╡─╫ε╝≥╡Ñ╡─╖╜╖¿íú
  124.     </span>
  125.     </td>
  126.  
  127.         <td valign="top">
  128.             <IMG SRC="mmc.gif">
  129.         </td>
  130.         <td valign="top">
  131.             <span CLASS="clsHeading">╝»│╔╡─╣▄└φ</span>
  132.             <br>
  133. <span CLASS="clsEntryText">
  134.                 ─·┐╔╥╘═¿╣² Windows 2000 ╝╞╦π╗·╣▄└φ<a href="javascript:activate();">┐╪╓╞╠¿</a>ú¼╗≥═¿╣²╜┼▒╛└┤╣▄└φ IISíú╝┘╚τ─·╥╤╛¡░▓╫░┴╦ Windows 2000 ╖■╬±╞≈╗≥ Windows 2000 ╕▀╝╢╖■╬±╞≈, 
  135.             <% if port <> "" then %><A HREF="<%=adminURL%>">╣▄└φ Web ╒╛╡π</A><% else %>╣▄└φ Web ╒╛╡π<% end if %> ╥▓┐╔╥╘╙├└┤╣▄└φ IISíú
  136.             <p>
  137.             ╚τ┼Σ╓├╢α╩²│ú╙├╡─ IIS ╔Φ╓├╥╗╤∙ú¼─·╥▓┐╔╥╘╘┌─┐┬╝╔╧╡Ñ╗≈╙╥╝ⁿú¼
  138.             ▓ó┐╔╥╘═¿╣² Web ╣▓╧φ╞Σ─┌╚▌íú 
  139.             </span>
  140.         </td>
  141.     </tr>
  142.     <tr>
  143.         <td valign="top">
  144.             <IMG SRC="help.gif">
  145.         </td>
  146.         <td valign="top">
  147.             <span CLASS="clsHeading"><a href="javascript:loadHelpFront();">┴¬╗·╬─╡╡</a></span>
  148.             <br>
  149.             <span CLASS="clsEntryText">╡├╜▒╡─ IIS ╡─┴¬╗·╬─╡╡░ⁿ║¼╦≈╥²ú¼
  150.              ═Ω╒√╬─╫╓╦╤╦≈ú¼║═░┤╜┌╡π╗≥╡Ñ╕÷╡─╓≈╠Γ┤≥╙í:<p>
  151.             </span>
  152.             <ul class="clsEntryText">
  153.                   <li>╗±╡├╣ñ╫≈░∩╓·íú
  154.                  <li>╤º╧░╖■╬±╞≈▓┘╫≈íú
  155.                 <li>▓╬╘─▓╬┐╝╫╩┴╧íú
  156.                  <li>▓Θ┐┤┤·┬δ╩╛└²íú
  157.             </ul>
  158.  
  159.         </td>
  160.     </tr>
  161. <%
  162.  
  163.         Dim WshShell, ver
  164.         Set WshShell = Server.CreateObject("Wscript.Shell")
  165.         On Error Resume Next
  166.         ver = 0
  167.         ver = WshShell.RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Printers\DisableWebPrinting")
  168.         
  169. %>
  170.  
  171. <% If ver <> 1 or err <> 0 Then %>
  172.     <tr>
  173.         <td valign="top">
  174.             <IMG SRC="print.gif">
  175.         </td>
  176.         <td valign="top">
  177.             <span CLASS="clsHeading">Web ┤≥╙í</span>
  178.             <br>
  179.             <span CLASS="clsEntryText">Windows 2000 ╘┌╥╗╕÷╥╫╙┌╖├╬╩╡─<a HREF="/printers" target="_new"> Web ╒╛╡π</a>╔╧╢»╠¼╡╪┴╨│÷─·╡─╖■╬±╞≈╔╧╡─╦∙╙╨┤≥╙í╗·íú─·┐╔╥╘Σ»└└╕├╒╛╡π╝α╩╙┤≥╙í╗·╝░╞Σ╣ñ╫≈╟Θ┐÷íú─·╥▓┐╔╥╘┤╙╚╬║╬ Windows ╝╞╦π╗·═¿╣²┤╦╒╛╡π┴¼╜╙╡╜┤≥╙í╗·íú
  180.             </span>
  181.         </td>
  182.     </tr>
  183. <% end if %>
  184. <% err.clear %> 
  185.     </table>
  186. </td>
  187. </tr>
  188. </table>
  189.  
  190. <P align=center><EM><A href="/iishelp/common/colegal.htm">(C)1997-1999 Microsoft ╣½╦╛íú▒ú┴⌠╦∙╙╨╚¿┴ªíú</A></EM></P></FONT></BODY>
  191.  
  192. <script LANGUAGE="javascript">
  193.     var gWinheight
  194.     var gDialogsize
  195.     var ghelpwin;
  196.     //launch help
  197.     window.moveTo(5,5);
  198.     gWinheight= 480;
  199.     gDialogsize= "width=640,height=480,left=300,top=50,"
  200.     if (window.screen.height > 600)
  201.     {
  202. <% if not success and err = 0 then %>
  203.         gWinheight= 700;
  204. <% else %>
  205.         gWinheight= 700;
  206. <% end if %>
  207.         gDialogsize= "width=640,height=480,left=500,top=50"
  208.     }
  209.     
  210.     window.resizeTo(600,gWinheight)
  211.     loadHelpFront();
  212.  
  213. function loadHelpFront(){
  214.     ghelpwin = window.open("http://localhost/iishelp/","Help","status=yes,toolbar=yes,menubar=yes,location=yes,resizable=yes,"+gDialogsize,true);    
  215. }
  216.  
  217. function activate(){
  218.     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');
  219. }
  220. </script>
  221.  
  222. </html>
  223.  
  224.