Source code of Windows XP (NT5)
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<%@ LANGUAGE = VBScript %><% Option Explicit %><!-- #include file="directives.inc" -->
<!--#include file="iivdhd.str"-->
<% On Error Resume Next
Dim path, currentobj, redir, dirtype, quote, dirkeyType, vtype
dirkeyType = "IIsWebDirectory"path=Session("dpath")Session("path")=pathSet currentobj=GetObject(path)vtype = Session("vtype")
%><!--#include file="iifixpth.inc"--><%
redir=currentobj.HttpRedirectpath=currentobj.path
if redir <> "" then dirtype="redir"elseif instr(path,"\\") then dirtype="net"else dirtype="dir"end if
quote=chr(34)
function writeDirType(thetype) if vtype = "svc" or not Session("isAdmin") then if thetype = dirtype then writeDirType = "<IMG SRC='images/radioon.gif' HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0>" else writeDirType = "<IMG SRC='images/radiooff.gif' HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0>" end if else if thetype=dirtype then writeDirType= "<INPUT TYPE=radio NAME=" & quote &_ "rdoDirType" & quote & " CHECKED OnClick=" &_ quote & "warnWrkingSite();SetDirType('" & thetype & "')" &_ quote & ">" else writeDirType= "<INPUT TYPE=radio NAME=" & quote &_ "rdoDirType" & quote & " OnClick=" &_ quote & "warnWrkingSite();SetDirType('" & thetype & "')" &_ quote & ">" end if end ifend function
%><!--#include file="iisetfnt.inc"--><HTML><HEAD> <TITLE></TITLE></HEAD>
<SCRIPT LANGUAGE="JavaScript">
var Global=top.title.Global; Global.siteProperties = false; function warnWrkingSite() { if (top.title.nodeList[Global.selId].isWorkingServer) { alert("<%= L_WORKINGSERVER_TEXT %>"); } } function SetDirType(theType){
<% if Session("IsIE") then %> if (theType=="net"){ parent.head.location.href="iivddir.asp?ptype=UNC"; } if (theType=="redir"){ parent.head.location.href="iivdrd.asp"; } if (theType=="dir"){ parent.head.location.href="iivddir.asp?ptype=Local"; } <% else %> if (theType=="net"){ parent.frames[1].location.href="iivddir.asp?ptype=UNC"; } if (theType=="redir"){ parent.frames[1].location.href="iivdrd.asp"; } if (theType=="dir"){ parent.frames[1].location.href="iivddir.asp?ptype=Local"; } <% end if %> } </SCRIPT>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" OnLoad="SetDirType('<%= dirtype %>');" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" ><TABLE WIDTH = 500><TR><TD>
<%= sFont("","","",True) %><% if (vtype="server") or (vtype="svc") then %> <B><%= L_HOMEDIRECTORY_TEXT %></B><% else %> <B><%= L_DIRECTORY_TEXT %></B><% end if %>
<FORM NAME="userform"><%= L_WHENCONNECTING_TEXT %> <%= L_CONTENTSHOULD_TEXT %><P>
<TABLE BORDER=0> <TR> <TD ALIGN="left" VALIGN="bottom"> <%= sFont("","","",True) %> <%= writeDirType("dir") %> <%= L_DIR_TEXT %> </FONT> </TD> </TR> <TR> <TD ALIGN="left" VALIGN="bottom"> <%= sFont("","","",True) %> <% if vtype <> "dir" then %> <%= writeDirType("net") %> <%= L_NETDIR_TEXT %> <% else %> <% if Session("IsIE") then %> <IMG SRC="images/radiooff.gif" HSPACE=2 WIDTH=12 HEIGHT=12 BORDER=0 ALT=""> <% else %> <IMG SRC="images/radiooff.gif" HSPACE=4 WIDTH=12 HEIGHT=12 BORDER=0 ALT=""> <% end if %> <%= sFont("","","Gray",True) %> <%= L_NETDIR_TEXT %> </FONT> <% end if %> </FONT> </TD> </TR> <TR> <TD ALIGN="left" VALIGN="bottom"> <%= sFont("","","",True) %> <%= writeDirType("redir") %> <%= L_REDIR_TEXT %> </FONT> </TD> </TR></TABLE></FORM><HR></TD></TR></TABLE></FONT></BODY></HTML>
|
