166 lines
3.5 KiB
Plaintext
166 lines
3.5 KiB
Plaintext
<%@ 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")=path
|
|
Set currentobj=GetObject(path)
|
|
vtype = Session("vtype")
|
|
|
|
%>
|
|
<!--#include file="iifixpth.inc"-->
|
|
<%
|
|
|
|
redir=currentobj.HttpRedirect
|
|
path=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 if
|
|
end 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>
|