?? localstart.asp
字號:
<% @Language = "VBScript" %>
<% Response.buffer = true %>
<html>
<%
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
%>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<title>歡迎使用 Windows 2000 Internet 服務</title>
<style>
ul{margin-left: 15px;}
.clsHeading {font-family: 宋體; color: black; font-size: 12; font-weight: 800; width:210;}
.clsEntryText {font-family: 宋體; color: black; font-size: 12; font-weight: 400; background-color:#FFFFFF;}
.clsWarningText {font-family: 宋體; color: #B80A2D; font-size: 12; font-weight: 600; width:550; background-color:#EFE7EA;}
.clsCopy {font-family: 宋體; color: black; font-size: 12; font-weight: 400; background-color:#FFFFFF;}
</style>
</head>
<body TOPMARGIN="3" LEFTMARGIN="3" MARGINHEIGHT="0" MARGINWIDTH="0" BGCOLOR="#FFFFFF"
LINK="#000066" VLINK="#000000" ALINK="#0000FF" TEXT="#000000">
<!-- BEGIN MAIN DOCUMENT BODY --->
<img src="win2000.gif" vspace="0" hspace="0">
<table WIDTH="500" CELLPADDING="5" CELLSPACING="3" BORDER="0">
<% if not success and err = 0 then %>
<tr>
<td CLASS="clsWarningText" colspan="2">
<img SRC="warning.gif" WIDTH="40" HEIGHT="40"
BORDER="0" ALIGN="LEFT" vspace="0" hspace="0"> <strong>您目前沒有為用戶設置默認文檔。
任何嘗試連接此站的用戶都會收到<a
href="<%= "iisstart.asp?uc=1" %>">“正在創建的頁”</a>。</strong>
</td>
</tr>
<% end if %>
<tr>
<td>
<table CELLPADDING="3" CELLSPACING="3" border=0 >
<tr>
<td valign="top" rowspan=3>
<IMG SRC="web.gif">
</td>
<td valign="top" rowspan=3>
<span CLASS="clsHeading">
歡迎使用 IIS 5.0</span><br>
<span CLASS="clsEntryText">
Microsoft Windows 2000 的 Internet 信息服務 (IIS)
給 Windows 帶來 Web 計算的強大功能。
通過 IIS，您可以輕松地共享文件和打印
并為安全發布信息創建應用程序來改善您的工作。
IIS 是創建和開發電子商務業解決方案的安全平臺。
IIS 也會可以輕松地將任務準則應用程序帶給 Web。
<P>
含 IIS 的 Windows 2000 可以滿足您以下的需要:</span>
<p>
<ul class="clsEntryText">
<li>設置個人 Web 服務器。
<li>在您的組內共享信息。
<li>訪問數據庫。
<li>創建一個企業 Intranet。
</ul>
<p>
<span CLASS="clsEntryText">
由于 IIS 的集成是基于 Windows 的 Internet 標準，因此使用 Web 不需要重新學習發布，管理或開發。
<P>
含有 Internet 信息服務的 Windows 2000 是在 Web 上共享信息并運行強大的應用程序的最簡單的方法。
</span>
</td>
<td valign="top">
<IMG SRC="mmc.gif">
</td>
<td valign="top">
<span CLASS="clsHeading">集成的管理</span>
<br>
<span CLASS="clsEntryText">
您可以通過 Windows 2000 計算機管理<a href="javascript:activate();">控制臺</a>，或通過腳本來管理 IIS。假如您已經安裝了 Windows 2000 服務器或 Windows 2000 高級服務器,
<% if port <> "" then %><A HREF="<%=adminURL%>">管理 Web 站點</A><% else %>管理 Web 站點<% end if %> 也可以用來管理 IIS。
<p>
如配置多數常用的 IIS 設置一樣，您也可以在目錄上單擊右鍵，
并可以通過 Web 共享其內容。
</span>
</td>
</tr>
<tr>
<td valign="top">
<IMG SRC="help.gif">
</td>
<td valign="top">
<span CLASS="clsHeading"><a href="javascript:loadHelpFront();">聯機文檔</a></span>
<br>
<span CLASS="clsEntryText">得獎的 IIS 的聯機文檔包含索引，
完整文字搜索，和按節點或單個的主題打印:<p>
</span>
<ul class="clsEntryText">
<li>獲得工作幫助。
<li>學習服務器操作。
<li>參閱參考資料。
<li>查看代碼示例。
</ul>
</td>
</tr>
<%
Dim WshShell, ver
Set WshShell = Server.CreateObject("Wscript.Shell")
On Error Resume Next
ver = 0
ver = WshShell.RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Printers\DisableWebPrinting")
%>
<% If ver <> 1 or err <> 0 Then %>
<tr>
<td valign="top">
<IMG SRC="print.gif">
</td>
<td valign="top">
<span CLASS="clsHeading">Web 打印</span>
<br>
<span CLASS="clsEntryText">Windows 2000 在一個易于訪問的<a HREF="/printers" target="_new"> Web 站點</a>上動態地列出您的服務器上的所有打印機。您可以瀏覽該站點監視打印機及其工作情況。您也可以從任何 Windows 計算機通過此站點連接到打印機。
</span>
</td>
</tr>
<% end if %>
<% err.clear %>
</table>
</td>
</tr>
</table>
<P align=center><EM><A href="/iishelp/common/colegal.htm">(C)1997-1999 Microsoft 公司。保留所有權力。</A></EM></P></FONT></BODY>
<script LANGUAGE="javascript">
var gWinheight
var gDialogsize
var ghelpwin;
//launch help
window.moveTo(5,5);
gWinheight= 480;
gDialogsize= "width=640,height=480,left=300,top=50,"
if (window.screen.height > 600)
{
<% if not success and err = 0 then %>
gWinheight= 700;
<% else %>
gWinheight= 700;
<% end if %>
gDialogsize= "width=640,height=480,left=500,top=50"
}
window.resizeTo(600,gWinheight)
loadHelpFront();
function loadHelpFront(){
ghelpwin = window.open("http://localhost/iishelp/","Help","status=yes,toolbar=yes,menubar=yes,location=yes,resizable=yes,"+gDialogsize,true);
}
function activate(){
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');
}
</script>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -