仓酷云

标题: ASP网站制作之制造一个团体搜刮引擎（源码） [打印本页]

作者: 因胸联盟 时间: 2015-1-16 22:07
标题: 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=""&DocMatchCount&"."
Addthedocumentnameandlink
OutputLine=OutputLine&"<Ahref="&chr(34)&RootFld&replace(Mid(fsFile.Path,
rfLen),"","/")&chr(34)&">"
OutputLine=OutputLine&FileTitle&"</a>"
Addthedocumentinformation
OutputLine=OutputLine&"<fontsize=1> Criteriamatched"&MatchCount
&"times-Size:"
OutputLine=OutputLine&FormatNumber(fsFile.Size/1024,2,-1,0,-1)&"Kbytes"
OutputLine=OutputLine&"-LastModified:"&formatdatetime
(fsFile.DateLastModified,vbShortDate)&" "
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(我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。

作者: 因胸联盟 时间: 2015-1-18 20:37
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 若相依 时间: 2015-1-26 21:54
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 透明 时间: 2015-2-10 21:55
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: admin 时间: 2015-3-1 16:15
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 冷月葬花魂 时间: 2015-3-10 20:45
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 只想知道 时间: 2015-3-17 10:26
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 金色的骷髅 时间: 2015-3-24 08:00
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

欢迎光临仓酷云 (http://ckuyun.com/)