用ASP技术实现在WEB网页上浏览目录及文件

网络整理 - 07-26

前在许多单位里，象WORD、EXCEL或WPS该类文档文件已成为重要的数据信息资源，在INTRANET WEB平台上如何高效率地管理这些信息资源是一个需要解决的问题。本文是利用ASP技术开发一个基于WEB的应用程序，实现在WEB页面上浏览目录文件，很轻易地做到诸如WORD、EXCEL和WPS等文档文件的查阅和下载，大大地减少信息维护的工作量。
关键词 ASP WEB 文档文件

前言：在INTRANET平台上，客户用WEB浏览器从服务器下载过来的信息是以HTML标记构成的页面，也就是平常所说的网页，页面一般分为两类，一类是简单的静止不变的页面，包括文字、表格和静态图像等信息，这种页面可通过编写HTML标记组成的文本文件或采用页面制作工具如FRONTPAGE软件来实现；另一类是动态的具有交互性和智能化的页面，这类页面实现起来比较复杂，需要将HTML标记、ACTIVEX控件及基于客户端和服务端的脚本语言（如VBscript、JAVAscript）组合在一起构成WEB应用程序，WEB 程序经过服务端和客户机运行处理才得到页面。制作页面虽然有专用的页面制作工具来做，但是，要完成页面制作需掌握一定的专业知识，如HTML标记语言，如果要制作动态的有交互功能的页面，要求就更高了，需要专业人员才能做到。但是，目前在许多企事业单位中，数据信息的表示形式许多是文档文件，如WORD、EXCEL、WPS和TXT等文档，这些文档文件已成为重要的数据信息资源，各部门之间的数据共享也是通过查询和拷贝彼此的文档文件来实现的。如果文档文件不作任何转换，就能在WEB浏览器中被查询和下载，那么信息处理的效率将会提高，大大地减少信息维护的工作量。
本文是运用ASP技术实现在WEB页面浏览文件夹及文件，通过超连接功能查看相关的ACTIVEX文档信息，其功能类似于FTP服务，但比FTP服务性能更好，一、界面更友好，同WEB页面无缝地连接；二、容易控制，安全性好，可以做到该需要查看的文档才显示在页面上，不该看的文档不显示。
二、ASP技术及其对象
从IIS3.0开始，MICROSOFT推出了ACTIVE SERVER PAGES，既ASP技术，ASP能将HTML页面、脚本语言（VBscript、JAVAscript）和ACTIVEX控件有机地组合起来，创建具有动态的、交互式的、高效率的页面和基于WEB数据库的功能强大的服务器应用程序。
ASP还有一个特点是其拥有功能强大的内置对象，对象之中又有很多的方法和属性。在用ASP开发WEB应用程序时，能够调用其对象及其方法，不但能提高编程效率，而且程序编码更优化。
1、ASP包括了六个内置对象：
Request 对象是从客户端取得信息
Response 对象将信息送给客户端
Session 对象存储在一个Session内的用户信息
Application对象在一个ASP-Application内让不同的客户端共享信息
Server 对象提供一些服务端使用的方法。在本文的ASP程序中运用了该对象的几个方法，在后面将对其作具体地说明。
Objectcontext对象可以配合Microsoft Transaction Server进行分布式事务处理
2、Server对象的重要方法
Createobject方法 Createobject方法用于创建已注册到服务器上的ACTIVEX组件变量实例。比如在ASP程序中想要浏览文件夹及文件，必须先用Createobject方法建立FileSystemObject对象的变量实例fs,然后调用对象变量fs的方法以获取文件夹（folder）及文件(file)，下面是获取文件夹为 /dcw 的Folder对象的ASP代码：
　　　　　　　　‘先建立FileSystemObject
　　　　　　　　 set fs=server.Createobject(“scripting.FileSystemobject”)
　　　　　　　　 ‘获取 /dcw文件夹的实际路径
　　　　　　　　 Fullpath=Server.mapPath(“/dcw”)
　　　　　　　　 ‘建立 /dcw文件夹所对应的 Folder对象
　　　　　　　　 set fd=fs.getFolder(fullpath)

MapPath方法　　转换Web Server 虚拟路径为服务器端实际路径。如在IIS Web服务器上假设有一实际路径为C:\财务部，在建立Web 虚拟路径时取名为 dcw，书写格式为 /dcw，事实上 Server.MapPath(“/dcw”)就是它的实际路径 C:\财务部。一般地，在 Web应用中浏览网页时使用的网址就是虚拟路径，在文件存取过程中使用的是实际路径，如前面提到的 set fd=fs.getfolder(fullpath)语句里，fullpath就表示为实际路径
URLEncode 方法　　根据URL编码原则，将URL 中的特殊字符编码为字符串
HtmlEncode方法　　使用Htmlencode方法编码为 ASCII形式的Html文件

三、实现过程　
客户端向服务端传送请求信息
客户向服务端传送的请求信息是一个ASP文件Listf.asp和三个参数in_folder，out_file，prompt。
In_folder　表示为要浏览的文件夹
Out_file 表示退出返回到的页面
Prompt 表示在列出文件夹的页面上的提示信息
以浏览 “C:\财务部”文件夹信息为例，其WEB虚拟目录为“/dcw”，程序退出返回到主页，主页的虚拟路径可表示为“/”，提示信息为“财务数据信息”。在 Web 程序中加入下面一条语句就可以查看“c:\财务部”文件夹下的所有子文件夹及文件。
<a Href=listf.asp?in_folder=/dcw&out_file=/&prompt=财务数据信息>财务文件信息[/url]
‘文件开始
<HTML><BODY bgcolor=”#c0c0c0”>
<%

‘2、获取参数信息
Folder=Request(“Folder”)
If Folder=”” Then
In_folder=request(“in_folder”)
Out_file=request(“out_file”)
Prompt=request(“prompt”)
If in_folder<>”” and out_file<>’’ then
Session(“in_folder”)=in_folder
Session(“out_file”)=out_file
Session(“prompt”)=prompt
End if
Folder=session(“in_folder”)
Prompt=session(“prompt”)
‘ 输出文件夹名和提示信息
response.write “<H2 align=””” & “center” & “””>” & prompt & “系列文件目录<HR></H2>”
else
subfolder=folder
folder=session(“in_folder”) & folder
‘输出文件夹名和提示信息
response.write “<H2 align=””” & “center” & “””>” & mid(ucase(replace(subfolder,”/”,”_”)),2) & “<HR></H2>”
end if
AspPath=Request.serverVariables(“PATH_INFO”)
‘3、建立文件夹对象变量实例 fd
set fs= Server.createObject(“scripting.filesystemobject”)
set fd= fs.getfolder(Server.MapPath(folder))
‘4、构造超连接函数
‘函数UnMapPath是将实际路径转换为虚拟路径
Function Unmappath(path)
UnMapPath=Replace(mid(path,len(server.MapPath(“in_folder”)))+1),”\”,”/”)
End Function
‘函数MakefolderHREF 构造文件夹超连接
Function MakefolderHREF(AspPath,path)
URLPath=ServerEncode(UnMapPath(path))
MakefolderHREF=”<A HREF=””” & AspPath & “?folder=” & URLPath & “””>”
End Function
‘函数MakefileHREF 构造文件超连接
Function makefileHREF(path)
MakefileHREF=”<A HREF=””” & session(“in_folder”) & Server.htmlencode(unmappath(Path)) & “””>”
End Function
‘5、返回到上一层文件夹或退出到主页
If folder<session(“in_folder”) then
‘有上一层文件夹
HREF_Path=MakefolderHREF(AspPath,fd.parentfolder.path)
Response.write HREF_path & “[上一层文件夹></A><BR>”
Else
Response.write “<A HREF=””” & session(“out_file”) & “””>返回主页</A>
”
End if
‘6、列出文件夹和文件
‘ 列出文件夹，文件夹为temp不显示出来
Response.write “<table width=600 align=center border=1>”
Ii=1
For Each sfd in fd.subfolders ‘获取 fd 中的各个子文件夹subfolder
If sfd.name<>”temp” then
If ii=1 then
Response.write “<tr><td>”
HREF=”img src=http://www.newasp.net/Article/asp/other/2005/folder.gif align=texttop>”
HREF=HREF &MakefolderHREF(AspPath,sfd.path)
Response.write HREF & sfd.name & “</A><BR>”
Response.write “</td>”
Ii=ii+1
else
Response.write “<td>”
HREF=”img src=http://www.newasp.net/Article/asp/other/2005/folder.gif align=texttop>”
HREF=HREF &MakefolderHREF(AspPath,sfd.path)
Response.write HREF & sfd.name & “</A><BR>”
Response.write “</td></tr>”
Ii=1
End if
End if
Next
If ii=2 then
Response.write “<td> </td></tr>”
End if
Response.write “</table>
‘以下为输出文件，扩展名为doc、xls、wps和txt的文档才显示出来，但扩展名不列出
Response.write”<hr>以下为文件
<p>”
Response.write”<table width=600 align=center border=1>”
Ii=1
For Each f in fd.Files
Pos=instrrec(f.path,”.”)
If pos>0 then
Ext=mid(f.path,pos+1)
Else
Ext=””
End if
If Lase(ext)=”doc” or lcase(ext)=”xls” or lcase(ext)=”wps” or lcase(ext)=”txt” then
Pos=instrrec(f.name,”.”)
If pos>0 then
Noext_file=left(f.name,pos-1)
End if
If ii=1 then
Response.write “<tr><td>”
HREF=”<img src=http://www.newasp.net/Article/asp/other/2005/file.gif align=texttop>” & MakefileHREF(f.path)
Response.Write HREF & noext_file & “</A><BR>”
Response.Write “</td>”
Ii=ii+1
Else
Response.write “<td>”
HREF=”<img src=http://www.newasp.net/Article/asp/other/2005/file.gif align=texttop>” & MakefileHREF(f.path)
Response.Write HREF & noext_file & “</A><BR>”
Response.Write “</td></tr>”
Ii=1
End if
End if
Next
If ii=2 then
Response.write “</td></tr>”
End if
Response.write “</table><BR>”
%>
</BODY></HTML> ‘文件结束
四、结论
本文的应用程序在WINDOW NT4.0，IIS4.0和IE4所构成的INTRANET WEB平台上运行，既可以单独调用，又可以嵌入到其它的WEB程序或HTML页面中，使用WEB浏览器很方便地查看到文件目录信息，并可以下载文件。但要注意的是，该程序适合于局域网下使用，对于远程调用不太合适，另外，还要求客户端安装了OFFICE、WPS97等软件。