Question

我正在使用此代码浏览远程计算机上可用的文件夹。

 <%@ Language=VBScript %><%
option explicit
dim sRoot, sDir, sParent, objFSO, objFolder, objFile, objSubFolder, sSize
%>
<META content="Microsoft Visual Studio 6.0" name=GENERATOR><!-- Author: Adrian Forbes --> 
<%


sRoot = "\\iflblw-bpd-12\Vercon_IP-BPD-01\SOFT"


sDir = Request("Dir")


sDir = sDir & "\"

Response.Write "<h1>" & sDir & "</h1>" & vbCRLF


Set objFSO = CreateObject("Scripting.FileSystemObject")
on error resume next

Set objFolder = objFSO.GetFolder(sRoot & sDir)
if err.number <> 0 then
    Response.Write "Could not open folder"
    Response.End
end if
on error goto 0


sParent = objFSO.GetParentFolderName(objFolder.Path)

' Remove the contents of sRoot from the front.  This gives us the parent
' path relative to the root folder
' eg. if parent folder is "c:webfilessubfolder1subfolder2" then we just want "subfolder1subfolder2"
sParent = mid(sParent, len(sRoot) + 1)

Response.Write "<table border=""1"">"

' Give a link to the parent folder.  This is just a link to this page only pssing in
' the new folder as a parameter
Response.Write "<tr><td colspan=3><a href=""browse.asp?dir=" & Server.URLEncode(sParent) & """>Parent folder</a></td></tr>" & vbCRLF

' Now we want to loop through the subfolders in this folder
For Each objSubFolder In objFolder.SubFolders
    ' And provide a link to them
    Response.Write "<tr><td colspan=3><a href=""browse.asp?dir=" & Server.URLEncode(sDir & objSubFolder.Name) & """>" & objSubFolder.Name & "</a></td></tr>" & vbCRLF
Next

' Now we want to loop through the files in this folder
'For Each objFile In objFolder.Files
'    if Clng(objFile.Size) < 1024 then
 '       sSize = objFile.Size & " bytes"
  '  else
   '     sSize = Clng(objFile.Size / 1024) & " KB"
    'end if
    ' And provide a link to view them.  This is a link to show.asp passing in the directory and the file
    ' as parameters
   ' Response.Write "<tr><td><a href=""show.asp?file=" & server.URLEncode(objFile.Name) & "&dir=" & server.URLEncode (sDir) & """>" & objFile.Name & "</a></td><td>" & sSize & "</td><td>" & objFile.Type & "</td></tr>" & vbCRLF
'Next

Response.Write "</table>"
%>

我想将文件夹路径传递到另一个页面上的表单。实际上，在填写表单时应该调用此页面。你是如何通过这条路的？

例如，我需要的是当用户想要选择他点击调用此页面的按钮的文件夹时。选择文件夹时，文件夹的路径应返回到表单任何帮助都非常感谢。

Answer 1

您已在此处传递代码中的文件夹路径：

<a href=""browse.asp?dir=" & Server.URLEncode(sDir & objSubFolder.Name) & """>" 
& objSubFolder.Name & "</a>

在browser.asp页面上，您可以使用以下命令获取文件夹：

sDir = Request("Dir")

从asp文件传递文件夹路径

1 个答案: