|
|
<%@ Language=VBScript %>
<!--#include file=scripts/inc_common.asp -->
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="default.css" type="text/css">
<title><%=langBrowse%></title>
<script LANGUAGE="javascript">
<!--
function pickFile(s){
if(window.opener != null && window.opener != 'undefined'){
window.opener.document.getElementById("iPath").value = s;
window.close();
}else{
prompt("<%=langOldBrowser%>",s);
window.close();
}
}
function onDriveChange(drive){
if(drive.length > 0){
var s = drive;
if(s.lastIndexOf("\\") != s.length-1)
s += "\\";
document.location.replace("browse.asp?dir=" + escape(s));
}
}
//-->
</script>
</head>
<body>
<h3><%=langBrowse%></h3>
<P align=center><%=langOnlyMDB%></P>
<%
dim fso, dir, strCurDir, s, script, d
script = Request.ServerVariables("SCRIPT_NAME")
if Request.QueryString("dir").Count = 0 then
strCurDir = Server.MapPath("/")
else
strCurDir = Request.QueryString("dir")
end if
set fso = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
set dir = fso.GetFolder(strCurDir)
if Err then
Response.Write "<P class=Error align=center>" & langCannotAccessFolder & Err.Description & "</P>"
strCurDir = Request.QueryString("curdir")
set dir = fso.GetFolder(strCurDir)
end if
%>
<P align=left>
<b><%=langDriveSelector%></B><BR>
<SELECT name=drive id=drive onchange="javascript:onDriveChange(this.options[this.selectedIndex].value);">
<%
set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(strCurDir)))
%>
<OPTION value="<%=d.Path%>"><%=d.Path%> (<%=GetDriveType(d.DriveType)%>)</OPTION>
<OPTION value="">---------</OPTION>
<%for each d in fso.Drives%>
<OPTION value="<%=d.Path%>"><%=d.Path%> (<%=GetDriveType(d.DriveType)%>)</OPTION>
<%next%>
</SELECT>
</P>
<table align="left" border="0" width="100%">
<TR><td style="border:1px solid navy"><b><%=langCurrentPath%></B><br><%=strCurDir%></td></tr>
<%
set d = nothing
if not dir.IsRootFolder then
%>
<tr><td><img src="images/folder.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="<%=script%>?dir=<%=Server.URLEncode(dir.ParentFolder.Path)%>&curdir=<%=Server.URLEncode(strCurDir)%>">[...]</a></td></tr>
<%end if%>
<%for each s in dir.SubFolders%>
<tr><td><img src="images/folder.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="<%=script%>?dir=<%=Server.URLEncode(s.Path & "\")%>&curdir=<%=Server.URLEncode(strCurDir)%>"><%=s.Name%></a></td></tr>
<%next%>
<%for each s in dir.Files%>
<%if StrComp(Right(s.Name, 3), "mdb", 1) = 0 then%>
<tr><td><img src="images/msaccess.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="javascript:pickFile('<%=Replace(s.Path, "\", "\\")%>');"><%=s.Name%></a></td></tr>
<%end if%>
<%next%>
</table>
<%
set dir = nothing
set fso = nothing
%>
</body>
</html>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Function GetDriveType(dtype)
Select Case dtype
Case 1: GetDriveType = langRemovable
Case 2: GetDriveType = langFixed
Case 3: GetDriveType = langNetwork
Case 4: GetDriveType = "CD-ROM"
Case 5: GetDriveType = "RAM-Disk"
Case Else: GetDriveType = langUnknown
End Select
End Function
</SCRIPT>
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
I was born in small town Penza, Russia, in October 13th, 1975 yr. So my mother tongue is Russian. I finished the school there and learned in University, then I came to Israel and since then, I live there (or here *s*)
My profession is a C++ programmer under MS Windows platforms, but my hobby is Web development and ASP programming.
I started interesting in computers and programming somewere in 1990-1991 yrs., when my father brought home our first computer - Sinclair ZX Spectrum (he made it by himself). So I learned Basic and joined the Basic programmers club at my school (me and my friend were the only 2 guys from all school there, lol). After I finished the school (1992yr) I decided to continue my study at University and got specialization Operation Systems and Software Engineer. Although I still like my profession, but I always wanted something new, thus I learned HTML, Javascript and ASP which turned to be my hobby
Submit an article or tip