10_3.asp.txt

来自「ASP 网页数据库短训教程源码」· 文本代码 · 共 40 行

TXT

40 行

<HTML>
  <BODY>
    <form name=frm1>
<%
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")	' 创建文件系统对象
    if IsEmpty(Request("af")) and IsEmpty(Session("af")) then		' 是否有表单提交的数据
      set Session("af")=objFSO.GetFolder(Server.MapPath(".\"))
      Set objFolder = Session("af")
    elseif not IsEmpty(Request("af")) then
      set Session("af")=objFSO.GetFolder(Request("af"))			' Session("af")变量存放提交
      Set objFolder = Session("af")							' 的子文件夹对象
    end if
    Set objFolder = Session("af")							' 给对象变量赋值
    Set Session("af") = objFolder
    Response.Write "当前目录：" & objFolder.Name & "<BR>"		' 网页上显示当前目录
    ff=objFolder.parentfolder.path							' 下面开始第1个列表框
    Response.Write "<SELECT size =8 style='width:200px' name=af>"
    if trim(objFolder.parentfolder.Name)<>"" then
      Response.Write  "<OPTION value=" & ff & ">[..]"			' 显示父文件夹符号
    end if
    For Each objSubFolder in objFolder.SubFolders				' 文件夹列表
      Response.Write "<OPTION value=" & objSubFolder.path & ">" & objSubFolder.Name
    Next
    Response.Write "</SELECT> "
    Response.Write "<SELECT size =8 style='width:200px'>"		' 下面开始第2个列表框
   For Each objFile in objFolder.Files
     Response.Write "<OPTION>" & objFile.Name				' 文件列表
   Next
    Response.Write "</SELECT>"
    Set objFolder = Nothing
    Set objFSO = Nothing
%>
    <SCRIPT FOR=af EVENT=onClick LANGUAGE="VBScript">	' 文件夹列表框的“单击”
      frm1.submit										' 事件过程代码
    </SCRIPT>
    </form>
  </BODY>
</HTML>

10_3.asp.txt - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 10_3.asp.txt 源码文件，采用文本编程语言编写，共 40 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?