首页 >> 读书频道 >> 电脑 >> ASP检索网站指定目录文件的算法与应用方向
 
· 一个让用户更改密码的简单
· 用ASP进行网络打印功能
· ASP实现多语言支持
· 在ADO使用SELECT
· 调试ASP脚本
· 在ASP处理程序时,进度
· 用ASP列出服务器上的所
· asp实现数据记录的备份
· 在linux上用ASP
· 在程序中直接设定待连接的
· ADO 事件模型
· Global.asa 参
 
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ASP检索网站指定目录文件的算法与应用方向


查看有无更新版本

关键字:ASP 2006-8-28

 

在我们许多网站中存在这样一个问题,就是链接的维护更新,这是一项工作量很大的工作,若不是的专门工作人员进行维护的大型网站,普通站点的站点更新维护工作基本上都成了一个很令人头疼的问题,特别是在没有很多人手的情况下,要经常维护更新链接更是讨厌,因为这项工作没有多少创意,却很耗时,而JACK显然不是那种喜欢花费大量时间在一件没创意的事情上的那种人,与是,JACK想出了一个ASP的程序原型,让它来完成我们所讨厌的工作吧!
现在我们假设你有这样一项网站维护任务,就是要把每个月的经济评论分门别类地链接起来供大家查看,这些评论涉及了经济运行的各个方面,可能有国内生产总值的,有物价指数的,有工业发展情况的,并且它们有一个共同的特征,就是他们的文件名就代表了各自评论的内容,例:《XX市1999年国内生产总值完成情况分析》,在这么多合适的假设下(嘻,假设几乎多过了萨缪尔森的经济学了!),我们偷赖的机会来了!我们只要把这些文件拷入评论这个目录相应的子目录,然后写一个ASP页面,它所完成的功能就是检索指定目录下面的文件,并检索结果做成可供点击的链接,那么我们应该怎么写呢?
很简单,我们只要让ASP给出指定目录下的文件名集合,并遍历这个集合,把集合的每个元素做成相应的链接供大家选择就行啦!另外,若要在全部经济类别内查询所有含有某特征字符串的文件名的文件呢?小CASE啦!你只要把检索文件的函数放入到一个递归的目录检索函数中就行啦!(嘻,不要告诉我你不会递归啊!)
这样,我们同样可以写出一个点歌系统(嘻,我喜欢听MP3)把歌手做成目录名,把歌曲加上中文名称,一切就OK啦!想听带“爱”的歌?OK!打入爱字!你就能找出所有带爱的歌了!(比如说:爱你爱到骨头里!嘻,排骨乐队!JACK主唱!)
另外,你加上扩展代码(删除指定文件的代码),若配合UPLOAD的ASP代码,你甚至可以写出一个远程的WEB维护系统呢!当然,这种事情JACK是不做的!ASP不够完美,对二进制的文件读写无能为力!所以只能操作文本文件,嘻嘻,美梦泡汤了?不要紧,用VC啦!写ISAPI能做到呢!
下面的代码,由于注释很完整(JACK一下午不上网才写出来的呢!嘻,不知又有多少MM在CHAT里等我等得心痛了呢!),我就不多说了,请大家自己分析啦!
<%
'从FORM变量集得到要查询的文件名称所要包含的字符串
data=request.form("search_data")
'调用函数查询目标查询目录下的所有子目录(所有子树)
'函数调用的规则:search_folder(要查询的字符串,查询目标的虚拟绝对路径,查询目标的真实绝对路径)
p=search_folder(data,"http://jack/cgi-bin","c:websharewwwrootcgi-bin")
%>
<script language="vbscript" RUNAT=SERVER>
'目录检索函数
function search_folder(search_data,v_path,c_path)
dim file_system,cur_folder,sub_folders,sub_files
'确定查询字符串有效非空
if not isempty(search_data) and len(search_data)>0 then
'建立文件系统对象
set file_system=createobject("scripting.filesystemobject")
'建立建立当前目录对象
set cur_folder=file_system.getfolder(c_path)
'建立当前目录的子目录对象集合
set sub_folders=cur_folder.subfolders
'对子目录集合进行遍历
for each each_sub_folder in sub_folders
'确定子目录的属性为普通子目录
if each_sub_folder.attributes=16 then
'得到当前的子虚拟绝对路径与真实绝对路径
'注:此程序默认子目录与子虚拟目录为同一级别且名称一致.
sub_v_path=v_path&"/"&each_sub_folder.name
sub_c_path=c_path&""&each_sub_folder.name
'调用文件检索函数对当前子目录下的文件进行字符串匹配检索
p=search_file(search_data,sub_v_path,sub_c_path)
'递归检索当前子目录的下一级目录
p=search_folder(search_data,sub_v_path,sub_c_path)
end if
next
'清除所有服务器端对象
set each_sub_folder=nothing
set sub_folders=nothing
set cur_folder=nothing
set file_system=nothing
end if
end function
'********************************
'文件匹配检索函数
function search_file(search_data,v_path,c_path)
dim file_system,sub_files,sub_file_v_path,sub_out_v_path
'确认路径不为空
if not isempty(c_path) then
set file_system=createobject("scripting.filesystemobject")
set cur_folder=file_system.getfolder(c_path)
'建立检索目录下的文件对象集合
set sub_files=cur_folder.files
'遍历文件对象集合
for each each_file in sub_files
'匹配字符串与文件名
if instr(each_file.name,search_data)<>0 then
'建立可用链接,输出匹配文件
sub_file_v_path=v_path&"/"&each_file.name
'替换路径及文件名中可能出现的空格,以便WEB能正常确定路径
sub_out_v_path=Replace(sub_file_v_path," ","%20")
response.write("<p><a href="&sub_out_v_path&">"&sub_file_v_path&"</a>")
end if
next
set sub_out_v_path=nothing
set sub_file_v_path=nothing
set each_file=nothing
set sub_files=nothing
set file_system=nothing
end if
end function
</script>

ASP检索网站指定目录文件的算法与应用方向

[ 1 ]
ASP检索网站指定目录文件的算法与应用方向 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑