-
关键词：asp Web文档文件
在Intranet平台中，客户使用Web浏览器从服务器上下载被HTML页面标记的信息，这通常被称为虽然生产页面有专门的页面制作工具来做，但是为了完成页面的制作，我们需要掌握一些专业知识，如HTML标记语言。如果我们想创建动态交互式页面，我们需要更高的专业人士。然而，在许多企业中，许多数据表示一个文档文件，如Word，Excel，WPS和TXT文件，这些文件已经成为重要的信息资源，在不同部门之间共享数据是通过查询和复制每个其他的文件来实现的。如果文件未被转换，它可以查询和Web浏览器下载，因此信息处理效率将提高，和信息维护的工作量将大大降低。
本文是在网页中使用ASP技术实现浏览文件夹和文件，通过超级连接功能的ActiveX文档的信息，其功能类似于FTP服务，但比FTP服务的性能，和更友好的界面，与网页无缝；二，容易控制，安全性好，可以看到文件被显示在网页上，不看文件不显示。
二、asp技术及其对象
从IIS3.0，微软推出的ASP，ASP技术，ASP，HTML页，脚本语言（VBｓｃｒｉｐｔ，Javaｓｃｒｉｐｔ和ActiveX控件）有机地结合起来，创造一个动态的、互动的、高效的页面和基于强大的服务器应用程序，Web数据库。
ASP的另一个特点是它有一个强大的内置对象，包含了许多方法和属性，在用asp开发Web应用程序时，调用对象及其方法的能力不仅可以提高编程效率，而且程序代码更优化。
1、asp包含六个内置对象：
请求对象是从客户机获取信息。
响应对象向客户机发送信息。
会话对象存储在会话用户信息中。
应用程序对象允许不同的客户机在ASP应用程序中共享信息。
服务器对象提供了服务器使用的许多方法。
ObjectContext对象可以分布在分布式事务处理微软事务服务器
2，服务器对象的一种重要方法
CreateObject方法CreateObject方法是用来创建ActiveX组件的变量已经在服务器上注册的实例。例如，在ASP程序中浏览文件夹和文件，您必须使用CreateObject方法建立FileSystemObject对象的实例变量FS，然后调用FS方法获取对象变量的文件夹和文件（夹）（文件），这里是获取文件夹 / DCW文件夹对象的ASP代码：
建立FileSystemObject第一
设置FS = server.createobject（脚本。FileSystemObject）
得到的 / DCW文件夹的实际路径
绝对= server.mappath（ / DCW）
建立 / DCW文件夹对应的文件夹对象
设置FD = fs.getfolder（绝对）
MapPath方法将Web服务器的虚拟路径到服务器端的实际路径。例如，在IIS Web服务器，假设有C的实际路径：财务部。当构建网络虚拟路径，它被称为动态，及其书写格式 / DCW。事实上，server.mappath（ / DCW）是其真正的路径，C：财务部。一般来说，用于浏览网页在Web应用程序的URL是虚拟路径。在文件访问过程中，实际路径被使用。在设置FD = fs.getfolder提到（绝对）的说法，绝对是实际的路径。
URLEncode编码的方法特殊字符在URL为基于URL字符串编码的原理
The HtmlEncode method uses the Htmlencode method to encode a Html file in the form of ASCII
三。实现过程
客户机将请求信息发送到服务器。
该客户端向服务器发送请求信息是一个ASP文件listf.asp和三个参数，in_folder，out_file，提示。
in_folder被表示为一个文件夹浏览
out_file代表页面从出口返回
提示符表示列出文件夹的页上的提示信息。
以浏览C：财务部文件夹信息为例，其Web虚拟目录 / DCW，程序退出返回到首页，首页的虚拟路径可以表示为 /和提示信息是财务数据信息，用下面的语句在Web程序，你可以在所有的子文件夹和文件：财务部文件夹。
文件的开头
2，获取参数信息
文件夹=请求（文件夹）
如果文件夹=那么
in_folder =请求（in_folder）
out_file =请求（out_file）
提示=请求（提示）
如果in_folder和out_file然后
Session (in_folder) =in_folder
Session (out_file) =out_file
会话（提示符）=提示符
最后如果
文件夹=会话（in_folder）
提示=会话（提示符）
输出文件夹名称和提示信息
response.write
快速文件目录系列
其他的
文件夹的子文件夹=
文件夹=会话（in_folder）文件夹
输出文件夹名称和提示信息
response.write
中期（ucase（取代（子文件夹 / _）），2）
最后如果
asppath = request.servervariables（path_info）
3，设置文件夹对象变量FD的实例
设置FS = server.createobject（脚本。FileSystemObject）
设置FD = fs.getfolder（server.mappath（文件夹））
4，构建一个hyperjoin功能
UnMapPath的功能是实际的路径到一个虚拟路径的变换
函数的Unmappath（路径）
unmappath =取代（MID（路径，len（server.mappath（in_folder）））+ 1），， /）
端功能
功能makefolderhref建设文件夹hyperjoin
功能makefolderhref（asppath，路径）
urlpath = serverencode（unmappath（路径））
makefolderhref =
其他的
response.write
最后如果
6，列出文件夹和文件
列表文件夹，文件夹不显示为临时
response.write
II = 1
在FD每个SFD。子文件夹的子文件夹的子文件夹中每个获得FD
如果sfd.nametemp然后
如果ii＝1
response.write
href = IMG SRC = folder.webp对齐= texttop >
href = href makefolderhref（asppath，SFD。路径）
response.write href sfd.name
response.write
ii＝1
其他的
response.write
href = IMG SRC = folder.webp对齐= texttop >
href = href makefolderhref（asppath，SFD。路径）
response.write href sfd.name
response.write
II = 1
最后如果
最后如果
下一个
如果ii＝2
response.write
最后如果
response.write
以下是输出文件的扩展名，和DOC，XLS，WPS，和文本显示，但扩展不上市。
response.write下面是一个文件
response.write
II = 1
对于文件中的每个f文件
POS = instrrec（f.path，。）
如果POS > 0然后
Ext =中（f.path，POS机+ 1）
其他的
Ext =
最后如果
如果Lase（EXT）= DOC或1例（EXT）= XLS或1例（EXT）= WPS
POS = instrrec（f.name，。）
如果POS > 0然后
noext_file =左（f.name，pos-1）
最后如果
如果ii＝1
response.write
href = makefilehref（f.path）
Response.Write HREF noext_file
写响应。
ii＝1
其他的
response.write
href = makefilehref（f.path）
写noext_file href的响应。
写响应。
II = 1
最后如果
最后如果
下一个
如果ii＝2
response.write
最后如果
response.write
%>
文件的结尾
四。结论
本文应用窗口在NT4.0，内联网，它可以运行在一个单独的调用IE4 IIS4.0平台，可以嵌入到Web程序或其他HTML页面，是看使用的Web浏览器的文件目录信息非常方便，你可以下载文件，但要注意该程序适用于局域网的使用，这是不适合远程调用。此外，它要求客户端安装Office等软件，wps97。