ASP网站制作之制造一个团体搜刮引擎(源码)
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。搜刮引擎<%Response.Buffer=True
OneFileSearchEngine(ofSearchv1.0)
Copyright?000SixtoLuisSantos<sixtos@prtc.net>
AllRightsReserved
Note:
Thisprogramisfreeware.ThisprogramisNOTinthePublicDomain.
Youcanfreelyusethisprograminyourownsite.
Youcannotre-distributethecode,byanymeans,
withouttheexpresswrittenauthorizationbytheauthor.
Usethisprogramatyourownrisk.
Globals--------------------------------------
----------------------------------------------
ConstValidFiles="htmltxt"
ConstRootFld="./"
DimMatched
DimRegex
DimGetTitle
Dimfs
DimrfLen
dimRootFolder
DimDocCount
DimDocMatchCount
DimMatchedCount
----------------------------------------------
Procedure:SearchFiles()
----------------------------------------------
PublicSubSearchFiles(FolderPath)
DimfsFolder
DimfsFolder2
DimfsFile
DimfsText
DimFileText
DimFileTitle
DimFileTitleMatch
DimMatchCount
DimOutputLine
Getthestartingfolder
SetfsFolder=fs.GetFolder(FolderPath)
Iteratethrueveryfileinthefolder
ForEachfsFileInfsFolder.Files
Comparethecurrentfileextensionwiththelistofvalidtargetfiles
IfInStr(1,ValidFiles,Right(fsFile.Name,3),vbTextCompare)>0Then
DocCount=DocCount+1
Openthefiletoreaditscontent
SetfsText=fsFile.OpenAsTextStream
FileText=fsText.ReadAll
Applytheregexsearchandgetthecountofmatchesfound
MatchCount=Regex.Execute(FileText).Count
MatchedCount=MatchedCount+MatchCount
IfMatchCount>0Then
DocMatchCount=DocMatchCount+1
Applyanotherregextogetthehtmldocumentstitle
SetFileTitleMatch=GetTitle.Execute(FileText)
IfFileTitleMatch.Count>0Then
Stripthetitletags
FileTitle=Trim(replace(Mid(FileTitleMatch.Item(0),8),"</title>","",1,1,1))
Incasethetitleisempty
IfFileTitle=""Then
FileTitle="NoTitle("&fsFile.Name&")"
EndIf
Else
Createanalternateentryname(ifnotitlefound)
FileTitle="NoTitle("&fsFile.Name&")"
EndIf
Createtheentrylinewithproperformatting
Addtheentrynumber
OutputLine="<b>"&DocMatchCount&".</B>"
Addthedocumentnameandlink
OutputLine=OutputLine&"<Ahref="&chr(34)&RootFld&replace(Mid(fsFile.Path,
rfLen),"","/")&chr(34)&"><B>"
OutputLine=OutputLine&FileTitle&"</B></a>"
Addthedocumentinformation
OutputLine=OutputLine&"<fontsize=1><br>Criteriamatched"&MatchCount
&"times-Size:"
OutputLine=OutputLine&FormatNumber(fsFile.Size/1024,2,-1,0,-1)&"Kbytes"
OutputLine=OutputLine&"-LastModified:"&formatdatetime
(fsFile.DateLastModified,vbShortDate)&"</Font><br>"
Displayentry
Response.WriteOutputLine
Response.Flush
EndIf
fsText.Close
EndIf
Next
Iteratethrueachsubfolderandrecursivelycallthisprocedure
ForEachfsFolder2InfsFolder.SubFolders
SearchFilesfsFolder2.Path
Next
SetFileTitleMatch=Nothing
SetfsText=Nothing
SetfsFile=Nothing
SetfsFolder2=Nothing
SetfsFolder=Nothing
EndSub
----------------------------------------------
Procedure:Search()
----------------------------------------------
SubSearch(</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。 代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。 我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。 最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。 Session:这个存储跟客户端会话过程的数据,默认20分钟失效 没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
页:
[1]