当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现在web中显示电子表格数据(四)创建文件选择列表

ASP
asp 实现对SQL注入危险字符进行重编码处理的函数
asp下实现对HTML代码进行转换的函数
asp 验证用户名是否包含有非常字符的函数
ASP通用分页样式函数代码
asp 生成任意英文+数字位数长度的随机码函数
asp 取得中文句子头一个字的大写拼音字母的函数
asp实现计算两个时间内的工作日的函数
asp实现过滤关键字的函数
asp实现限制搜索的关键字的函数
asp动态include文件,方便多模板的实现
推荐的用Asp实现屏蔽IP地址访问的代码
XDOWNPAGE ASP版本 分页类
飞云防CC攻击ASP程序代码插件
定期自动运行ASP程式的代码
ASP下Cookie操作的详细讲解
再发几个ASP不错的函数
比较不错的asp模板引终极讲解(WEB开发之ASP模式)
ip138之asp小偷程序代码
在VBScript中实现-函数/方法名作为参数传入另一个函数
asp实现批量插入表单中的数据到数据库的方法

ASP 中的 asp实现在web中显示电子表格数据(四)创建文件选择列表


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 188 ::
收藏到网摘: n/a

  最后介绍创建文件选择列表的代码,在这里使用内建的FileSystem对象获得文件和文件夹的信息。

   为简单起见,例程假设电子数据表文件和ASP文件位于同一个目录下。通过vServerFolder= Server.MapPath(".") 获取当前目录名称,并将之转换到folder对象,从而找出目录中的文件。 FileSystem对象的.GetFolder方法使用如下:

Set oFs = Server.CreateObject("Scripting.FileSystemObject")
Set oFolder = oFs.GetFolder(vServerFolder)
   通过Folder对象的.Files集合的列举,可以获取文件夹下的文件,并且限制显示的文件类型为Excel。执行下面的HTML/ASP代码创建文件选择列表:

< select name="XlBook" >
< %
vOptions = ""
For Each oFile In oFolder.Files
    If oFile.Type = "Microsoft Excel Worksheet" Then
vOptions = vOptions & "< option >" & _
            Server.HtmlEncode(oFile.Name) & "< /option >    
    End If
Next    
Response.Write vOptions
% >
< /select >

   同样的,实际的ReadX1.asp代码要复杂些,因为有一些JavaScript脚本要取回上一次的选择。

   总结

   上面介绍了如何通过ADO读取Excel工作簿的方法,以及内建对象FileSystem的使用技巧。除了广泛地应用于数据库领域,ADO能处理许多不同格式的数据,其方式就象处理数据库一样。这里只是接触到ADO的一点基本功能,还有更多更强大的方面有待开发。