SitePoint Sponsor

User Tag List

Results 1 to 3 of 3
  1. #1
    SitePoint Addict
    Join Date
    Dec 2004
    Location
    netherlands
    Posts
    229
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Question Links not opening file

    Hi,
    Using the script for browsing network folders on Intranet.
    Working fine, I can browse through the directory's, but when a file (i.e. Word document) is clicked, nothing happens.
    In the left bottom (status bar?) of the browser, I see that the link is directing to the folder where the script is, not to the folder on the network I'm looking in.
    I have no asp knowledge to fix this.. you ?? Please do..
    Thanks !!

    Code:
     <%@LANGUAGE="VBSCRIPT"%>
    <%
       Option Explicit
       On Error Resume Next
    
      ' this section is optional - it just denies anonymous access
       If Request.ServerVariables("LOGON_USER")="" Then
         Response.Status = "401 Access Denied"
       End If
    
       ' declare variables
       Dim objFSO, objFolder
       Dim objCollection, objItem
    
       Dim strPhysicalPath, strTitle, strServerName
       Dim strPath, strTemp
       Dim strName, strFile, strExt, strAttr
       Dim intSizeB, intSizeK, intAttr, dtmDate
    
       ' declare constants
       Const vbReadOnly = 1
       Const vbHidden = 2
       Const vbSystem = 4
       Const vbVolume = 8
       Const vbDirectory = 16
       Const vbArchive = 32
       Const vbAlias = 64
       Const vbCompressed = 128
    
       ' don't cache the page
       Response.AddHeader "Pragma", "No-Cache"
       Response.CacheControl = "Private"
    
      ' get the current folder URL path
       strTemp = Mid(Request.ServerVariables("E:\Informatie"),2)
       strPath = ""
    
       Do While Instr(strTemp,"/")
          strPath = strPath & Left(strTemp,Instr(strTemp,"/"))
          strTemp = Mid(strTemp,Instr(strTemp,"/")+1)
       Loop
    
       strPath = "/" & strPath
    
       ' create the file system objects
       'strPhysicalPath = Server.MapPath(strPath)
    
    if request("dir") = "" then
       strPhysicalPath = "E:\Informatie"
    else
       strPhysicalPath = request("dir")
    end if
       Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
       Set objFolder = objFSO.GetFolder(strPhysicalPath)
       
       ' build the page title
       'strServerName = UCase(Request.ServerVariables("SERVER_NAME"))
       strTitle = "Contents of the " & strPhysicalPath & " folder"
    	
    
    %>
    <html>
    <head>
    <title><%=strServerName%> - <%=strTitle%></title>
    <style>
    BODY  { BACKGROUND: #cccccc; COLOR: #000000;
            FONT-FAMILY: Arial; FONT-SIZE: 10pt; }
    TABLE { BACKGROUND: #cccccc; COLOR: #ffffff; }
    TH    { BACKGROUND: #000066; COLOR: #ffffff; }
    TD    { BACKGROUND: #ffffff; COLOR: #000000; }
    TT    { FONT-FAMILY: Courier; FONT-SIZE: 11pt; }
    </style>
    </head>
    <body>
    
    <h1 align="center"><%=strServerName%><br><%=strTitle%></h1>
    <h4 align="center">Please choose a file/folder to view.</h4>
    
    <div align="center"><center>
    <table width="100%" border="0" cellspacing="1" cellpadding="2">
    <tr>
       <th align="left">Name</th>
       <th align="left">KB</th>
       <th align="left">Type</th>
       <th align="left">Last Modified</th>
       <!--<th align="left">Bytes</th>-->
       <!--<th align="left">Attributes</th>-->
       <!--<th align="left">Ext</th>-->
       <!--<th align="left">Time</th>-->
    </tr>
    
    <%
       ''''''''''''''''''''''''''''''''''''''''
       ' output the folder list
       ''''''''''''''''''''''''''''''''''''''''
    
       Set objCollection = objFolder.SubFolders
    
       For Each objItem in objCollection
          strName = objItem.Name
          strAttr = MakeAttr(objItem.Attributes)
          dtmDate = CDate(objItem.DateLastModified)
    %>
    <tr>
       <td align="left"><b><a href="dirlist.asp?dir=<%=strPhysicalPath & "\" & strName%>"><%=strName%></a></b></td>
       <td align="right">N/A</td>
       <td align="left"><b><DIR></b></td>
       <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td>
       <!--<td align="right">N/A</td>-->
       <!--<td align="left"><tt><%=strAttr%></tt></td>-->
       <!--<td align="left"><b>Directory</b></td>-->
       <!--<td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td>-->
    </tr>
    <% Next %>
    
    <%
       ''''''''''''''''''''''''''''''''''''''''
       ' output the file list
       ''''''''''''''''''''''''''''''''''''''''
    
       Set objCollection = objFolder.Files
    
       For Each objItem in objCollection
          strName = objItem.Name
          strFile = Server.HTMLEncode(Lcase(strName))
    
          intSizeB = objItem.Size
          intSizeK = Int((intSizeB/1024) + .5)
          If intSizeK = 0 Then intSizeK = 1
    
          strAttr = MakeAttr(objItem.Attributes)
          strName = Ucase(objItem.ShortName)
          If Instr(strName,".") Then strExt = Right(strName,Len(strName)-Instr(strName,".")) Else strExt = ""
          dtmDate = CDate(objItem.DateLastModified)
    	  
    %>
    <tr>
       <td align="left"><a href="<%=strFile%>"><%=strFile%></a></td>
       <td align="right"><%=intSizeK%>K</td>
       <td align="left"><%=objItem.Type%></td>
       <td align="left"><%=FormatDateTime(dtmDate,vbShortDate)%></td>
       <!--<td align="right"><%=FormatNumber(intSizeB,0)%></td>-->
       <!--<td align="left"><tt><%=strAttr%></tt></td>-->
       <!--<td align="left"><%=strExt%></td>-->
       <!--<td align="left"><%=FormatDateTime(dtmDate,vbLongTime)%></td>-->
    </tr>
    <% Next %>
    
    </table>
    </center></div>
    
    </body>
    </html>
    <%
       Set objFSO = Nothing
       Set objFolder = Nothing
    
       ' this adds the IIf() function to VBScript
       Function IIf(i,j,k)
          If i Then IIf = j Else IIf = k
       End Function
    
       ' this function creates a string from the file atttributes
       Function MakeAttr(intAttr)
          MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-")
          MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-")
          MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-")
          MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-")
       End Function
    %>
    MySQL version is 4.1.10

  2. #2
    SitePoint Addict
    Join Date
    Dec 2004
    Location
    netherlands
    Posts
    229
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    More specific:
    The hyperlink created is not correct:
    It directs to the scripts folder instead of the directory where browsed.

    The hyperlinks created for subfolders is oke, so this shouldn't be to hard for most of you.. it is for me though...
    Please have a look.. thanks !
    MySQL version is 4.1.10

  3. #3
    SitePoint Addict
    Join Date
    Dec 2004
    Location
    netherlands
    Posts
    229
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Anyone ? Please...
    This must have bee done before, right ?
    MySQL version is 4.1.10


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •