|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全fso作者:甘冀平
你大概想:好,如今我晓得怎样写进文件了。但能做到更多一些吗?上面来试一试为web站点创建一个搜刮功效。
创建搜刮引擎的关头是递回。次要地,编写一段代码搜刮目次下的文件,然后对一切的目次轮回实行一样的代码。因
为不克不及断定统共有几个子目次,以是必需一遍又一各处实行搜刮代码,直到停止。递回挪用十分好!
上面来创立搜刮页面。假定已创建了一个HTML表单,用户在个中输出一个搜刮字符串。
DimobjFolder
DimstrSearchText
DimobjFSO
strSearchText=Request.Form("SearchText")<--Thesearchstring
createtheFSOandFolderobjects
Setfso=Server.CreateObject("Scripting.FileSystemObject")
SetobjFolder=objFSO.GetFolder(Server.MapPath("/"))
SearchobjFolder
下面的代码复杂地初始化变量,Search函数实行搜刮功效,形貌以下:
FunctionSearch(objFolder)
DimobjSubFolder
loopthrougheveryfileinthecurrent
folder
ForEachobjFileinobjFolder.Files
SetobjTextStream=objFSO.OpenTextFile(objFile.Path,1)<--ForReading
readthefilescontentsintoa
variable
strFileContents=objTextStream.ReadAll
ifthesearchstringisinthefile,then
writealink
tothefile
IfInStr(1,strFileContents,strSearchText,1)then
Response.Write"<AHREF=""/"&objFile.Name&_
""">"&objFile.Name&"</A><BR>"
bolFileFound=True
EndIf
objTextStream.Close
Next
Herestherecursionpart-foreach
subfolderinthisdirectory,runtheSearchfunctionagain
ForEachobjSubFolderinobjFolder.SubFolders
SearchobjSubFolder
Next
EndFunction
为了能翻开文件,FSO必要实践的文件路径,而不是web路径。好比,是c:inetpubwwwrootempindex.html,而不是
www.enfused.com/temp/index.html大概/temp/index.html。为了将后者转换为前者,利用Server.MapPath
("filename"),filename暗示web路径名。
下面的代码将在你指定的初始目次下的文件夹的每个子目次中实行,在这里,初始目次是指web根目次“/”。然后
就复杂地翻开目次下的每个文件,看看个中是不是包括指定的字符串,假如找到字符串就显现谁人文件的链接。
注重,跟着文件和子目次数目的增添,搜刮消费的工夫也将增添。假如必要沉重的搜刮事情,倡议你接纳其他的方
法,好比微软公司的索引服务器IndexServer。
</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|