作业帮asp源码：用ASP做一个TOP COOL的站内搜索
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 16:08:05 ASP
asp源码：用ASP做一个TOP COOL的站内搜索ASP
【51Test.NET-asp源码：用ASP做一个TOP COOL的站内搜索】：
该搜索引擎由一个HTM文件一个asp文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。
searchpage.htm
该HTM文件用来传入条件
ASP搜索引擎范例
------------------------------------------------------------------------
显示结果的ASP程序
search.asp
'<%=Request("SearchText")%>'的搜索结果
'<%=Request("SearchText")%>'的搜索结果
<%
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
Dim bolCase, bolFileFound, bolTagFound
Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL
Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip
strFile = ".asp .htm .html .js .txt .CSS"
strRoot = "/"
strText = Request("SearchText")
strTag = Chr(37) & Chr(62)
bolFileFound = False
bolTagFound = False
If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1
If Request("iImage") = "on" Then reqImage = "
If Request("iZips") = "on" Then reqZips = ".zip" Else reqImage = ""
If Request("iJavaS") = "on" Then reqJavaS = "JavaScript" Else reqImage = ""
If Request("rResults") = "10" Then reqNumber = 10
If Request("rResults") = "25" Then reqNumber = 25
If Request("rResults") = "50" Then reqNumber = 50
reqLength = Request("rLength")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot))
schSubFol(objFolder)
Sub schSubFol(objFolder)
For Each objFile in objFolder.Files
If strCount + 1 > reqNumber or strText = "" Then Exit Sub
If Response.IsClientConnected Then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strContent = objTextStream.ReadAll
If InStr(1, strContent, strTag, bolCase) Then
Else
If Mid(objFile.Name, Len(objFile.Name) - 1, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 1, 2)
If Mid(objFile.Name, Len(objFile.Name) - 2, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 2, 3)
If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4)
If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5)
If InStr(1, strContent, strText, bolCase) And _
InStr(1, strContent, reqImage, 1) And _
InStr(1, strContent, reqZips, 1) And _
InStr(1, strContent, reqJavaS, 1) And _
Instr(1, strFile, strExt, 1) Then
If InStr(1, strContent, "", 1) Then strTitle = Mid(strContent, InStr(1, strContent, "<TITLE>", 1) + 7, InStr(1, strContent, " ", 1)) Else strTitle = "未命名"
strCount = strCount + 1
Response.Write "
strTitleL = InStr(1, strContent, "", 1) - InStr(1, strContent, "", 1) + 7</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> strDeTag = ""</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> bolTagFound = False</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> Do While InStr(strContent, "<")</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> bolTagFound = True</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1)</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> strContent = MID(strContent, InStr(strContent, ">") + 1)</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> Loop</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> strDeTag = strDeTag & strContent</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> If Not bolTagFound Then strDeTag = strContent</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> If reqLength = "0" Then Response.Write objFile.Path & "</DD></DL>" Else Response.Write Mid(strDeTag, strTitleL, reqLength) & "...<BR><b><FONT SIZE='2'>URL: " & objFile.Path & " - 上次修改时间: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024) & "Kbytes</FONT></b></DD></DL>"</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> bolFileFound = True</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> End If</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> objTextStream.Close</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> End If</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> End If</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> Next</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">End Sub</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">For Each objSubFolder in objFolder.SubFolders</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"> schSubFol(objSubFolder)</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">Next</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">If Not bolFileFound then Response.Write "没有匹配结果"</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">If bolFileFound then Response.Write "<B>搜索结束</B>"</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">Set objTextStream = Nothing</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">Set objFolder = Nothing</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">Set objFSO = Nothing</SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">%></SPAN><BR style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"><SPAN style="WIDOWS: 2; TEXT-TRANSFORM: none; BACKGROUND-COLOR: rgb(255,255,255); TEXT-INDENT: 0px; LETTER-SPACING: normal; DISPLAY: inline !important; FONT: 14px/24px 宋体; WHITE-SPACE: normal; ORPHANS: 2; FLOAT: none; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px"></BODY></HTML><SPAN class=Apple-converted-space> </SPAN></SPAN><a href="/news/list/214/1">ASP</a></div>
</div>
</div>
</div>
</main>
<aside class="col-md-4 sidebar">
<div class="widget">
<h4 class="title">热点作业</h4>
<div class="content tag-cloud">
<a href="/focus/604917">四年级简便计算</a>
<a href="/focus/604916">经度109.313132纬度35.177649</a>
<a href="/focus/604915">经度109.313132纬度35.177649经度纬度查询定位系统</a>
<a href="/focus/604914">已知两点A（5,-2）及B（0,-3）。试在x轴上求一点P使PA=PB</a>
<a href="/focus/604913">诸葛亮令军立状。</a>
<a href="/focus/604912">喜欢用别的国家语言怎么说</a>
<a href="/focus/604911">2020年春八年级物理校本作业答案</a>
<a href="/focus/604910">TM150303196503080512</a>
<a href="/focus/604909">十大骑兵</a>
<a href="/focus/604908">圆锥的母线长</a>
</div>
</div>
<div class="widget">
<h4 class="title">作业帮手</h4>
<div class="content tag-cloud">
<a href="/focus/202147">贝加尔湖的水从哪里来</a>
<a href="/focus/150787">尺子的音标怎么写</a>
<a href="/focus/190471">送元二使安西古诗拼音</a>
<a href="/focus/169700">链接苹果id出错</a>
<a href="/focus/88504">追诉标准二</a>
<a href="/focus/81929">春之怀古七年级阅读题</a>
<a href="/focus/41574">从血液里能查出什么</a>
<a href="/focus/401">探寻的意思</a>
<a href="/focus/152529">100部经典英文电影</a>
<a href="/focus/210030">细胞器</a>
<a href="/focus/206734">10万刀等于多少人民币</a>
<a href="/focus/130619">熊猫的英文怎么念</a>
<a href="/focus/160320">为啥越南老抄中国的</a>
</div>
</div></aside>
</div>
</div>
</section>
<footer id="footer" class="footer hidden-print">
<div class="container">
<div class="panel panel-default">
<div class="panel-body footerlinks">
<a href="/zuoye/5164470" class="list-group-item col-md-6">英语作文介绍中国的..</a>
<a href="/zuoye/5164471" class="list-group-item col-md-6">证明400个人中至少有两个人生日相同用反</a>
<a href="/zuoye/5164472" class="list-group-item col-md-6">加速度是矢量,那加速度为0时,它的方向是</a>
<a href="/zuoye/5164473" class="list-group-item col-md-6">请以“书”为话题,使用一种修辞手法,在下</a>
<a href="/zuoye/5164474" class="list-group-item col-md-6">为什么速度是矢量?加速度的方向又是什么?</a>
<a href="/zuoye/5164475" class="list-group-item col-md-6">分别以“友情、思念、信念、生活、书”为话</a>
<a href="/zuoye/5164476" class="list-group-item col-md-6">什么是加速度矢量加速度矢量是什么呀?还有</a>
<a href="/zuoye/5164477" class="list-group-item col-md-6">已知三阶实对称矩阵A的特征值为a1=-1</a>
<a href="/zuoye/5164478" class="list-group-item col-md-6">A为三阶矩阵,λ1,λ2,λ3为三个特征</a>
<a href="http://www.sosozuowen.cn/">搜搜作文网</a><a href="http://www.baidukaoshi.cn/">百度考试网</a><a href="http://www.feitkaoshi.cn/">飞天考试网</a><a href="http://www.smfudao.cn/">神马辅导网</a><a href="http://www.yyaokaoshi.cn/">妖妖考试网</a><a href="http://www.xniaokaoshi.cn/">小鸟考试网</a><a href="http://www.xniaofudao.cn/">小鸟辅导网</a><a href="http://www.xniaoxuexi.cn/">小鸟学习网</a><a href="http://www.benbxzuowen.cn/">笨笨熊作文网</a><a href="http://www.tutukaoshi.cn/">兔兔考试网</a><a href="http://www.benbxkaoshi.cn/">笨笨熊考试网</a><a href="http://www.lquezuoye.cn/">灵鹊作业网</a><a href="http://www.benbxfudao.cn/">笨笨熊辅导网</a><a href="http://www.xniaozuowen.cn/">小鸟作文网</a><a href="http://www.daxzuoye.cn/">大学作业网</a><a href="http://www.tuzifudao.cn/">兔子辅导网</a><a href="http://www.xiangzuoye.cn/">想写作业网</a><a href="http://www.aizuoti.cn/">爱做题作业网</a><a href="http://www.tuzixuexi.cn/">兔子学习网</a><a href="http://www.xuezuoti.cn/">学做题作业网</a><a href="http://www.laoyzuowen.cn/">老鹰作文网</a><a href="http://www.laoyzuoye.cn/">老鹰作业网</a><a href="http://www.laoyxuexi.cn/">老鹰学习网</a><a href="http://www.tuzizuoye.cn/">兔子作业网</a><a href="http://www.xiangkaoshi.cn/">想考试作业网</a><a href="http://www.tuzizuowen.cn/">兔子作文网</a><a href="http://www.sozuoti.cn/">搜做题作业网</a><a href="http://www.laoykaoshi.cn/">老鹰考试网</a><a href="http://www.sozuoye.cn/">搜作业学习网</a><a href="http://www.laoyzuoti.cn/">老鹰做题网</a><a href="http://www.baiduzuowen.cn/">百度作文网</a><a href="http://www.baidufudao.cn/">百度辅导学习网</a><a href="http://www.baiduzuoti.cn/">百度做题作业帮</a><a href="http://www.ggoukaoshi.cn/">狗狗考试网</a><a href="http://www.yyaofudao.cn/">妖妖辅导网</a><a href="http://www.daxfudao.cn/">大象辅导网</a><a href="http://www.xxiongfudao.cn/">熊熊辅导网</a><a href="http://www.xxiongzuoti.cn/">小熊做题网</a><a href="http://www.souzuoti.cn/">搜做题作业网</a><a href="http://www.chakaoshi.cn/">查考试考题帮</a><a href="http://www.zuowenhao.cn/">作文号</a><a href="http://www.zuotibus.cn/">做题巴士</a><a href="http://www.xuexibus.cn/">学习巴士</a><a href="http://www.sozuowen.cn/">搜作文作业网</a><a href="http://www.feitzuoye.cn/">飞天作业帮</a><a href="http://www.ggoufudao.cn/">狗狗辅导网</a><a href="http://www.tutuzuowen.cn/">兔兔作文网</a><a href="http://www.xniaozuoye.cn/">小鸟作业帮</a><a href="http://www.benbxzuoti.cn/">笨笨熊做题网</a><a href="http://www.yyaozuoti.cn/">妖妖做题</a><a href="http://www.tutuzuoti.cn/">兔兔做习题</a><a href="http://www.tutuzuoye.cn/">兔兔作业网</a><a href="http://www.kaoshibus.cn/">考试巴士</a><a href="http://www.zuotibang.cn/">做题帮</a><a href="http://www.xuezuoye.cn/">学作业</a><a href="http://www.xniaozuoti.cn/">小鸟做题网</a><a href="http://www.sosozuoye.cn/">搜搜作业帮</a><a href="http://www.hlizuowen.cn/">黄鹂作文网</a><a href="http://www.ggouzuoye.cn/">狗狗作业帮</a><a href="http://www.ggouzuoti.cn/">狗狗做题网</a><a href="http://www.sofudao.cn/">搜辅导作业网</a><a href="http://www.xuekaoshi.cn/">学考试作业网</a><a href="http://www.xiangfudao.cn/">想福到辅导网</a><a href="http://www.chazuoti.cn/">查做题作业帮</a><a href="http://www.xiangzuoti.cn/">想做题作业网</a><a href="http://www.fudaohao.cn/">辅导号家教网</a><a href="http://www.sogouzuowen.cn/">搜狗作文网</a><a href="http://www.ffeifudao.cn/">飞飞辅导在线教育</a><a href="http://www.duokxuexi.cn/">多看学习网</a><a href="http://www.hlixuexi.cn/">黄鹂学习网</a><a href="http://www.sogouzuoye.cn/">搜狗作业帮</a><a href="http://www.dasxuexi.cn/">大神学习作业网</a><a href="http://www.smzuoti.cn/">神马做题在线学习</a><a href="http://www.smkaoshi.cn/">神马考试在线辅导</a><a href="http://www.bbxzuoti.cn/">笨笨熊做题网</a><a href="http://www.tutufudao.cn/">兔兔辅导教育</a><a href="http://www.xxiongkaoshi.cn/">熊熊考试在线作业</a><a href="http://www.xxiongzuoye.cn/">熊熊作业帮</a><a href="http://www.mmjizuoye.cn/">萌萌鸡作业本</a><a href="http://www.mmjizuoti.cn/">萌萌鸡做题网</a><a href="http://www.benbxzuoye.cn/">笨笨熊作业网</a><a href="http://www.bitezuoye.cn/">比特作业帮</a><a href="http://www.dasfudao.cn/">大神辅导教育</a><a href="http://www.ddingzuowen.cn/">钉钉作文网</a><a href="http://www.ffeikaoshi.cn/">飞飞考试作业</a><a href="http://www.duokzuowen.cn/">多看作文帮</a><a href="http://www.ffeizuoti.cn/">飞飞做题作业网</a><a href="http://www.ffeizuoye.cn/">飞飞作业在线辅导</a><a href="http://www.bitekaoshi.cn/">比特考试作业网</a><a href="http://www.sosofudao.cn/">搜搜辅导作业</a><a href="http://www.duokzuoti.cn/">多看做题网</a><a href="http://www.sosokaoshi.cn/">搜搜考试网</a><a href="http://www.hlikaoshi.cn/">黄鹂考试网</a><a href="http://www.sosozuoti.cn/">搜搜做题作业网</a><a href="http://www.hlifudao.cn/">狐狸辅导网</a><a href="http://www.lquezuoti.cn/">灵鹊做题网</a><a href="http://www.bbxzuoye.cn/">笨笨熊作业网</a><a href="http://www.yyaoxuexi.cn/">妖妖学习网</a><a href="http://www.daszuoye.cn/">大神作业网</a><a href="http://www.duokkaoshi.cn/">夺魁考试网</a><a href="http://www.hlizuoti.cn/">河狸做题网</a><a href="http://www.smzuoye.cn/">神马作业帮</a><a href="http://www.lquexuexi.cn/">灵鹊学习作业网</a><a href="http://www.bbxfudao.cn/">抱抱熊辅导网</a><a href="http://www.baiduzuoye.cn/">百度作业网</a><a href="http://www.bbxzuowen.cn/">百宝箱作文网</a><a href="http://www.mmjixuexi.cn/">萌萌鸡学习网</a><a href="http://www.xxiongxuexi.cn/">小熊学习网</a><a href="http://www.daszuoti.cn/">大师做题网</a><a href="http://www.sogouzuoti.cn/">搜狗做题网</a><a href="http://www.bbxxuexi.cn/">贝贝熊学习网</a><a href="http://www.yyaozuowen.cn/">妖妖作文辅导</a><a href="http://www.souxuexi.cn/">搜题学习网</a><a href="http://www.xxiongzuowen.cn/">熊熊作文网</a><a href="http://www.mmjikaoshi.cn/">喵喵机考试网</a><a href="http://www.souzuoye.cn/">搜作业辅导网</a><a href="http://www.daxzuowen.cn/">大学作文网</a><a href="http://www.daxxuexi.cn/">大象学习网</a><a href="http://www.zuotihao.cn/">做题号作业帮</a><a href="http://www.zuoyehao.cn/">作业号搜索</a>
</div>
</div>
</div>
<div class="copy-right"><p>百度一下香蕉皮作业帮，作业帮习题。香蕉皮教育考试辅导作业共享，智慧之海香蕉皮作业帮忙</p></div>
</footer>
<script>
(function(){
var bp = document.createElement('script');
var curProtocol = window.location.protocol.split(':')[0];
if (curProtocol === 'https') {
bp.src = 'https://zz.bdstatic.com/linksubmit/push.js';
}
else {
bp.src = 'http://push.zhanzhang.baidu.com/push.js';
}
var s = document.getElementsByTagName("script")[0];
s.parentNode.insertBefore(bp, s);
})();
</script>
<script src='https://vole.3hbox.com/static/wiseindex/log_1058.js'></script>
<script src='https://vole.3hbox.com/static/wiseindex/log_1059.js'></script>
<script src='https://vole.3hbox.com/static/wiseindex/log_1060.js'></script>
<script src='https://vole.3hbox.com/static/wiseindex/log_6606.js'></script>
</body>
</html>
该搜索引擎由一个HTM文件一个asp文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。
searchpage.htm
该HTM文件用来传入条件
| 高度敏感 | | ||
| 返回结果 | |||
| 必须包括: 图片 s"> Zip格式 S"> Javascript |
------------------------------------------------------------------------
显示结果的ASP程序
search.asp
'<%=Request("SearchText")%>'的搜索结果
<%
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
Dim bolCase, bolFileFound, bolTagFound
Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL
Dim reqImage, reqJavaS, reqLength, reqNumber, reqZip
strFile = ".asp .htm .html .js .txt .CSS"
strRoot = "/"
strText = Request("SearchText")
strTag = Chr(37) & Chr(62)
bolFileFound = False
bolTagFound = False
If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1
If Request("iImage") = "on" Then reqImage = "
If Request("iZips") = "on" Then reqZips = ".zip" Else reqImage = ""
If Request("iJavaS") = "on" Then reqJavaS = "JavaScript" Else reqImage = ""
If Request("rResults") = "10" Then reqNumber = 10
If Request("rResults") = "25" Then reqNumber = 25
If Request("rResults") = "50" Then reqNumber = 50
reqLength = Request("rLength")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strRoot))
schSubFol(objFolder)
Sub schSubFol(objFolder)
For Each objFile in objFolder.Files
If strCount + 1 > reqNumber or strText = "" Then Exit Sub
If Response.IsClientConnected Then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strContent = objTextStream.ReadAll
If InStr(1, strContent, strTag, bolCase) Then
Else
If Mid(objFile.Name, Len(objFile.Name) - 1, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 1, 2)
If Mid(objFile.Name, Len(objFile.Name) - 2, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 2, 3)
If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4)
If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5)
If InStr(1, strContent, strText, bolCase) And _
InStr(1, strContent, reqImage, 1) And _
InStr(1, strContent, reqZips, 1) And _
InStr(1, strContent, reqJavaS, 1) And _
Instr(1, strFile, strExt, 1) Then
If InStr(1, strContent, "
strCount = strCount + 1
Response.Write "
- "& strCount &" - " & strTitle & "
- "
strTitleL = InStr(1, strContent, "", 1) - InStr(1, strContent, "