📄 10_3.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -