如何用FileSystemObject組件來(lái)做一個(gè)站內(nèi)搜索？
searchpage.htm
' 搜索頁(yè)面.
<html><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
<head>
<title>千花飛舞之站內(nèi)搜索引擎</title>
</head>
<body>
<CENTER>
<FORM METHOD=POST ACTION="searchresult.asp">
<TABLE BGCOLOR="#BLUE" BORDER="0">
<tr>
<td ROWSPAN="3" BGCOLOR="#BLUE" width="21" nowrap></td>
<td width="363" nowrap> <FONT COLOR="#FFFFFF">
<INPUT TYPE="text" NAME="SearchText" SIZE="22">
<INPUT TYPE="checkbox" NAME="Case">
高度敏感</FONT> </td>
<td ROWSPAN="3" width="10">
<INPUT TYPE="submit" VALUE="搜索">
<P>
<INPUT TYPE="reset" VALUE="重寫">
</td>
<td ROWSPAN="3" BGCOLOR="#BLUE" width="28"></td>
</tr>
<tr>
<td width="363" nowrap> <FONT COLOR="#FFFFFF"> 搜索返回結(jié)果
<select name="rLength" >
<option value="200" selected>詳細(xì)信息</option>
<option value="100">簡(jiǎn)短信息</option>
<option value="0">只返回連接</option>
</select>
<select NAME="rResults">
<OPTION VALUE="10" selectED>10
<OPTION VALUE="25">25
<OPTION VALUE="50">50
</select>
</FONT>
</td>
</tr>
<tr>
<td width="363" nowrap> <FONT COLOR="#FFFFFF"> 必須包含:
<INPUT TYPE="checkbox" NAME="iImage">圖片
<INPUT TYPE="checkbox" NAME="iZips">Zip格式
<INPUT TYPE="checkbox" NAME="iJavaS"> javascript
</FONT>
</td>
</tr>
</TABLE>
</FORM>
</CENTER>
<DL>
</DL>
</body></html>
searchresult.asp
' 搜索結(jié)果.
<html>
<head>
<title>千花飛舞站內(nèi)'<%=Request("SearchText")%>'之搜索結(jié)果</title>
</head>
<body>
<B>'<%=Request("SearchText")%>'的搜索結(jié)果</B><BR>
<%
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 = "<IMG" Else 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, "<title>", 1) Then strtitle = Mid(strContent, InStr(1, strContent, "<title>", 1) + 7, InStr(1, strContent, "</title>", 1)) Else strtitle = "未命名"
strCount = strCount + 1
Response.Write "<DL><DT><B><I>"& strCount &"</I></B> - <A HREF=" & objFile.Path & ">"
& strtitle & "</A></A></DT><BR><DD>"
strtitleL = InStr(1, strContent, "</title>", 1) - InStr(1, strContent, "<title>", 1) +7
strDeTag = ""
bolTagFound = False
Do While InStr(strContent, "<")
bolTagFound = True
strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1)
strContent = MID(strContent, InStr(strContent, ">") + 1)
Loop
strDeTag = strDeTag & strContent
If Not bolTagFound Then strDeTag = strContent
If reqLength = "0" Then Response.Write objFile.Path & "</DD></DL>" Else Response.Write
Mid(strDeTag, strtitleL, reqLength) & "...<BR><FONT SIZE='2'>URL: " & objFile.Path & " - 上次修改時(shí)
間: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024)
& "Kbytes</FONT></DD></DL>"
bolFileFound = True
End If
objTextStream.Close
End If
End If
Next
End Sub
For Each objSubFolder in objFolder.SubFolders
schSubFol(objSubFolder)
Next
If Not bolFileFound then Response.Write "抱歉,沒(méi)有找到您要搜索的結(jié)果!"
If bolFileFound then Response.Write "<B>搜索結(jié)束</B>"
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</body></html>
[1]
上一篇：如何制作K線圖？
欄 目：編程問(wèn)答
下一篇：如何實(shí)現(xiàn)電子郵件的自動(dòng)發(fā)送？
本文標(biāo)題：如何用FileSystemObject組件來(lái)做一個(gè)站內(nèi)搜索？
本文地址：http://www.jygsgssxh.com/a1/bianchengwenda/12083.html
您可能感興趣的文章
- 01-11如何實(shí)現(xiàn)點(diǎn)擊數(shù)的計(jì)算？
- 01-11如何判斷電子郵件的地址格式是否正確？
- 01-11如何做一個(gè)文本搜索？
- 01-11如何實(shí)現(xiàn)網(wǎng)上考試？
- 01-11如何實(shí)現(xiàn)全文檢索？
- 01-11如何用POP3接收電子郵件？
- 01-11如何使用表單發(fā)送電子郵件？
- 01-11如何在線更改密碼？
- 01-11如何取回已忘記的密碼？
- 01-11如何做一個(gè)隨機(jī)密碼產(chǎn)生器？
閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹(shù)的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問(wèn)題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-11如何實(shí)現(xiàn)點(diǎn)擊數(shù)的計(jì)算？
- 01-11如何做一個(gè)文本搜索？
- 01-11如何判斷電子郵件的地址格式是否正
- 01-11如何實(shí)現(xiàn)全文檢索？
- 01-11如何實(shí)現(xiàn)網(wǎng)上考試？
- 01-11如何使用表單發(fā)送電子郵件？
- 01-11如何用POP3接收電子郵件？
- 01-11如何取回已忘記的密碼？
- 01-11如何在線更改密碼？
- 01-11如何做一個(gè)隨機(jī)密碼產(chǎn)生器？
隨機(jī)閱讀
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10delphi制作wav文件的方法
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能？
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 01-10SublimeText編譯C開(kāi)發(fā)環(huán)境設(shè)置
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 04-02jquery與jsp,用jquery
- 01-11Mac OSX 打開(kāi)原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實(shí)例總結(jié)