<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<!-- #include file="../directives.inc" -->
<!--#include file="jsbrowser.str"-->
<!--#include file="iisetfnt.inc"-->
<%
Const FIXEDDISK = 2
Dim path, FileSystem, drives, drive, primarydrive
path = Request.Cookies("HTMLA")("LASTPATH")
If path = "" Then
Set FileSystem=CreateObject("Scripting.FileSystemObject")
Set drives = FileSystem.Drives
For Each drive in drives
primarydrive = drive
'exit after the first FIXEDDISK if there is one...
if drive.DriveType = FIXEDDISK then
Exit For
end if
Next
primarydrive = primarydrive & L_SLASH_TEXT
Response.Cookies("HTMLA")("LASTPATH")=primarydrive
path = primarydrive
End If
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT LANGUAGE="JavaScript">
var DRIVE= 0;
var FOLDER = 1;
var FILE = 2;
</SCRIPT>
</HEAD>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#000000" VLINK="#000000" TEXT="#000000" TOPMARGIN=0 LEFTMARGIN=10 onLoad="loadList();">
<FORM NAME="userform" onSubmit="return false;">
<TABLE>
<TR><TD>
<%= sFont("","","",True) %>
<%= L_LOOKIN_TEXT %>
</FONT>
</TD>
<TD>
<INPUT TYPE="text" NAME="currentPath" VALUE="<%= path %>" SIZE = 50 OnBlur="changeDir(this.value);">
</TD>
<TD>
<A HREF="javascript:upDir();"><IMG SRC="updir.GIF" WIDTH=23 HEIGHT=22 BORDER=0></A>
</TD>
</TR>
</TABLE>
</FORM>
<SCRIPT LANGUAGE="JavaScript">
function loadList()
{
parent.hlist.location.href = "JSBrwSet.asp?btype=" + top.opener.JSBrowser.browsertype;
}
function redrawList()
{
parent.list.location.href = "JSBrwLs.asp";
}
function listFuncs()
{
this.loadList = loadList;
this.sortList = sortList;
this.SetFilter = SetFilter;
this.changeDir = changeDir;
this.setPath = setPath;
this.selIndex = 0;
this.sortby = "fname";
this.sortAsc = true;
this.filterType = "";
}
function upDir()
{
lastpath = document.userform.currentPath.value;
parent.filter.document.userform.currentFile.value = "";
uppath = lastpath;
while (lastpath.indexOf("<%= L_FWDSLASH_TEXT %>") > -1)
{
lastpath = lastpath.substring(0,lastpath.indexOf("<%= L_FWDSLASH_TEXT %>")) + "<%= L_DBLSLASH_TEXT %>" + lastpath.substring(lastpath.indexOf("/")+1,lastpath.length);
}
if (lastpath.lastIndexOf("<%= L_DBLSLASH_TEXT %>") == lastpath.length-1)
{
lastpath = lastpath.substring(0,lastpath.length-1);
}
lastwhack = lastpath.lastIndexOf("<%= L_DBLSLASH_TEXT %>");
if (lastwhack > 0)
{
uppath = lastpath.substring(0,lastwhack+1);
}
document.userform.currentPath.value = uppath;
if (lastpath.lastIndexOf(":") == lastpath.length-1)
{
uppath = ":";
document.userform.currentPath.value = "";
}
changeDir(uppath);
}
function changeDir(newpath)
{
newpath.toUpperCase();
var thispath = "JSBrwSet.asp?btype=" + top.opener.JSBrowser.browsertype + "&path=" + escape(newpath);
parent.hlist.location.href = thispath;
return false;
}
function setPath()
{
if (top.opener.JSBrowser == null)
{
top.close();
}
else
{
top.opener.JSBrowser.currentFile = parent.filter.document.userform.currentFile.value;
top.opener.JSBrowser.currentPath = document.userform.currentPath.value;
top.opener.JSBrowser.BrowserObjSetPath();
top.location.href = "JSBrwCl.asp";
}
}
function SetFilter(selFilter)
{
listFunc.filterType = selFilter.options[selFilter.selectedIndex].value;
loadList();
}
function numOrder(a,b)
{
return a[listFunc.sortby]-b[listFunc.sortby];
}
function sortList(sortby,sorttype)
{
if (sortby != listFunc.sortby)
{
listFunc.sortby = sortby;
listFunc.sortAsc = true;
}
else
{
listFunc.sortAsc = !listFunc.sortAsc;
}
if(sortby == "sdate" || sortby == "fsize" )
cachedList.sort(numOrder);
else
cachedList.sort(sortOrder);
if (!listFunc.sortAsc)
{
cachedList.reverse();
}
redrawList();
}
function sortOrder(a,b)
{
astr = (a["oType"] == FOLDER) + a[listFunc.sortby]
bstr = (b["oType"] == FOLDER) + b[listFunc.sortby]
if (astr.toLowerCase() < bstr.toLowerCase())
{
return -1;
}
else
{
if (astr.toLowerCase() > bstr.toLowerCase())
{
return 1;
}
else
{
return 0;
}
}
}
function crop(thestring,size)
{
if (thestring.length > size)
{
thestring = thestring.substring(0,size) + "...";
}
return thestring;
}
function fullname(fname,fext)
{
if (fext == "")
{
return fname;
}
else
{
return (fname + "." + fext);
}
}
function formatsize(iStr)
{
iStr = parseInt(iStr);
if (!isNaN(iStr))
{
iStr = Math.round(iStr/1024);
}
else
{
iStr = 0
}
return iStr;
}
function getLocaleDate(sDate)
{
var oDate = new Date(sDate);
return oDate.toLocaleString();
}
function listObj(fpath, fname,fext, fsize, ftype, lngLastUpdated, strLastUpdated, oType)
{
this.path = fpath;
if (oType == DRIVE)
{
this.icon = "drive.gif";
}
else
{
if (oType == FOLDER)
{
this.icon = "dir.gif";
}
else
{
this.icon = "file.gif";
}
}
this.oType = oType;
this.fname = fname;
this.fext = fext;
this.displayname = crop(fullname(fname,fext),<%= L_NAMECHARS_NUM %>);
this.fsize = fsize;
this.displaysize = formatsize(fsize);
this.ftype = crop(ftype,<%= L_TYPECHARS_NUM %>);
this.nodetype = ftype
this.sdate = lngLastUpdated;
this.lastupdated = strLastUpdated;
this.displaydate = crop(this.lastupdated ,<%= L_LASTMODIFIEDCHARS_NUM %>);
this.deleted = false;
this.updated = false;
this.newitem = false;
}
cachedList = new Array();
listFunc = new listFuncs();
</SCRIPT>
</BODY>
</HTML>