home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE=VBScript %>
- <% Option Explicit %>
- <% Response.Expires = 0 %>
-
- <%
- Const L_TITLE_TEXT = "Internet Service Manager (HTML) "
- Const L_LIVESCRIPT_TEXT = "This page requires a newer version of LiveScript to view. Do you want to upgrade now?"
- %>
-
- <%
-
- function MinVer(browserver,brwminver)
- MinVer = (browserver >= brwminver)
-
- end function
-
- function GetBrowserVer(browserstr)
- dim browserver, i, curchr
- browserver = ""
-
- for i = 1 to len(browserstr)
- curchr = Mid(browserstr, i,1)
- if isNumeric(curchr) or curchr = "." then
- browserver = browserver & curchr
- end if
- if browserver <> "" and not (isNumeric(curchr) or curchr = ".") then
- exit for
- end if
- next
-
- GetBrowserVer = browserver
- end function
-
- On Error Resume Next
- Dim browserobj, browserkey, browserok,browserver,agentstr
-
- browserkey = "Unknown Browser"
- agentstr = Request.ServerVariables("HTTP_USER_AGENT")
- Session("CanBrowse") = True
-
- if Request.Querystring("browserok") <> "" or Request.QueryString("FONTSIZE") <> "" then
- browserok = True
- else
- if Instr(agentstr, "MSIE") then
- browserver = CInt(GetBrowserVer(Mid(agentstr,InStr(agentstr,"MSIE"))))
- browserok=MinVer(browserver,3)
- browserKey = "IE" & browserver
- Session("IsIE") = True
- else
- Session("IsIE") = False
- if Instr(agentstr,"Mozilla") then
-
- browserver = CInt(GetBrowserVer(agentstr))
- browserKey = "Netscape"
-
- if InStr(agentstr, "Win") > 0 then
- browserok=MinVer(browserver,3)
- else
- browserok=MinVer(browserver,4)
- end if
- else
- browserok = false
- end if
- end if
- Session("Browser") = browserkey
- Session("IsMac") = InStr(agentstr, "Mac") > 0
-
- if Session("IsMac") then
- Session("CanBrowse") = False
- end if
- end if
- %>
-
- <% if browserok then %>
-
- <%
- if Request.QueryString("FONTSIZE") <> "" then
- Response.Cookies("HTMLA")("FONTSIZE")=Request.QueryString("FONTSIZE")
- Response.Cookies("HTMLA").expires=#December 31, 2000 1:00:00 AM#
- Session("FONTSIZE")=Request.QueryString("FONTSIZE")
- Session.timeout=200
- else
- Session("FONTSIZE") = Request.Cookies("HTMLA")("FONTSIZE")
- end if
- %>
-
- <html>
-
-
- <% if Session("IsIE") then %>
- <script language="JavaScript">
- // Determine the version number.
- var version;
- var requiredVersion=2;
- if (typeof(ScriptEngineMajorVersion) + ""=="undefined")
- {
- version=1;
- }
- else
- {
- version=ScriptEngineMajorVersion();
- }
-
- // Prompt client and navigate to download page.
-
- if (version < requiredVersion)
- {
- if (confirm("<%= L_LIVESCRIPT_TEXT %>"))
- {
- self.location.href="http://www.microsoft.com/msdownload/scripting.htm";
- }
- }
- </script>
- <% end if %>
-
-
-
- <head>
- <title><%= L_TITLE_TEXT %></title>
- </head>
-
- <SCRIPT LANGUAGE="JavaScript">
- <% if Session("IsIE") then %>
- if (version >= requiredVersion)
- {
- <% end if %>
- if (newBrowser()){
- self.location.href = "iisnew.asp";
- }
- else{
- self.location.href = "iis.asp";
- }
- <% if Session("IsIE") then %>
- }
- <% end if %>
-
- function newBrowser(){
- //Checks for existence of cookie
- cookiestr="<%= Session("FONTSIZE") %>"
- brwser="<%= Session("BROWSER") %>"
- return (cookiestr == "");
- }
-
- </SCRIPT>
-
- <body BGCOLOR="#000000">
- </body>
-
- <% else %>
-
- <html>
- <body bgcolor="#000000" text="#FFFFFF" link="#FFCC00" vlink="#FFCC00" alink="#FFCC00"topmargin="0" leftmargin="0" STYLE="font-face: Helv,Arial; font-size:10pt;">
- <img src="images/iisttl.gif">
-
- <table cellpadding="0" width="600">
- <tr>
- <td width = 190>
- </td>
- <td width = 400>
- <font face="HELV,ARIAL" size=2>
- Your web browser has not been tested to administer IIS 4.0.<p>
- </FONT>
- <font face="HELV,ARIAL" size=1>
- <P>
- You may continue to use the Ineternet Service Manager (HTML) with your current browser,
- but you may experience problems.
- <P>
- For best viewing, we recommend that you install the released version of Microsoft® Internet Explorer.
- You can<a href="http://www.microsoft.com/ie/default.asp"> download it</a> now!
- <P>
- <A HREF="default.asp?browserok=True">Continue with my current browser.</A>
-
- <p>
- <hr>
- <B> Minimum Browser Requirements:</B>
- <P>
- <B>Windows</B><BR>
- Microsoft® Internet Explorer 3.02<BR>
- Netscape Navigator® 3.0<BR>
-
- <P>
- <B>Macintosh</B><BR>
- Microsoft® Internet Explorer 3.01<BR>
- Netscape Navigator® 4.03<BR>
-
- <P>
- <B>Unix</B><BR>
- Netscape Navigator® 4.03<BR>
- </font>
- </td>
- </tr>
- </table>
-
- </body>
- <% end if %>
- </html>