asp373如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？_第1頁
asp373如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？_第2頁
asp373如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？_第3頁
asp373如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？_第4頁
asp373如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？_第5頁
已閱讀5頁，還剩3頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、如何用FILESYSTEMOBJECT組件來做一個(gè)站內(nèi)搜索？看看下而咱們提供的例子，要緊由和兩個(gè)文件組成，很簡(jiǎn)單：'搜索頁面<HTML><HEAD><TITLE>出色春風(fēng)之站內(nèi)搜索引擎</TITLE></HEAD><BODY><CENTER>FORM METHOD=POST ACTION=”)<TABLE BGCOLOR="#BLUE" BORDER="0><TR><TD ROWSPAN="3" BGCOLOR="

2、#BLUE" width="21 nowrap></TD><TD width="363" nowrap> <FONT COLOR="#FFFFFF><INPUT TYPE二text" NAME="SearchText“ SIZE=22><INPUT TYPE="checkbox" NAME二Case”>高度靈敏GF0NT> </TD><TD ROWSPAN二3" width="10<INPU

3、T 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="rLen

4、gth” ><option value="200" selected詳細(xì)信息/option<option value="100”>簡(jiǎn)短信息</option><option value="0"只返回連接</option></SELECT><SELECT NAME=”Results”<OPTION VALUE=/z10"SELECTED>10<OPTION VALUE="25>25<OPTION VALUE=50>50&l

5、t;/SELECT></FONT></TD></TR><TR><TD width="363" nowrap> <FONT COLOR="#FFFFFF”> 必需包括：< INPUT TYPE="checkbox“ NAME="ilmage”>圖片< INPUT TYPE="checkbox" NAME="iZips”>Zip 格式< INPUT TYPE="checkbox“ NAME二iJavaS

6、> JavaScript</FONT></TD></TR></TABLE></FORM>/CENTER)<DL></DL></BODY></HTML>'搜索結(jié)果<HTML><HEAD>TITLE精彩春風(fēng)站內(nèi)<%=Request("SearchText")%>'之搜索結(jié)果(/TITLE)</HEAD><BODY><B>J <%=RequestCSearchText/，)%

7、>，的搜索結(jié)果</BXBR><%Const fsoForReading = 1Dim objFile, objFolder, objSubFolder, objTextStreamDim bolCase, bolFileFound, bolTagFoundDim strCount, strDeTag, strExt, strFile, strContent, strRoot, strlag, strText, strTitle, strTitleLDim reqimage, reqJavaS, reqLength, reqNumber, reqZip strFile =

8、" asp . htm . html . js . txt . css”strRoot = 7"strText = Request ("SearchText")strTag = Chr(37) & Chr(62)bolFileFound = FalsebolTagFound = FalseIf Request("Case") = "orT Then bolCase = 0 Else bolCase = 1If Request C，iImage，) = "on" Then reqimage = &q

9、uot;IMG" Else reqimage =If Request ("iZips") = "on" Then reqZips =zip" Else reqimage =If Request("iJavaS") = on Then reqJavaS = "JavaScript' Else reqimage =If Request("rResults")="10ThenreqNumber=10If Request("Results")="

10、25"ThenreqNumber=25If Request("Results")="50"ThenreqNumber=50reqLength = Request(rLength)Set objFSO =(”)Set objFolder = (strRoot)schSubFol (objFolder)Sub schSubFol(objFolder)For Each objFile inIf strCount + 1 > reqNumber or strText = "" Then Exit SubIf ThenSet o

11、bjTextStream = ,fsoForReading)strContent =If InStr(1, strContent, strTag, bolCase) ThenElseIf Mid, Len - 1, D ="Then strExt = Mid, Len-1, 2)If Mid, Len - 2, 1) = " Then strExt = Mid, Len-2, 3)If Mid, Len - 3, D ="Then strExt = Mid, Len-3, 4)If Mid, Len - 4, 1)="Then strExt = Mid,

12、 Len-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) ThenIf InStr(1, strContent, “<TITLE>", 1) ThenstrTitle = Mid(strContent, InStr(1, str

13、Content, “<TITLE>”, 1) + 7, InStr(1,strContent, "/TITLE”, D) Else strTitle ="未命名"strCount = strCount + 1<DLXDTBXI>& strCount &/z</IX/B> - <AHREF="& & ”>& strTitle & "</A></A></DT><BRXDD>" strTitleL

14、= InStr(l, strContent, “/TITLE"， 1)- InStr (1, strContent, “TITLE"，1) + 7strDelag =bolTagFound = FalseDo While InStr(strContent, “(")bolTagFound = TruestrDeTag = strDelag & " &Left(strContent, InStr(strContent, “(") - 1)strContent = MID(strContent,InStr (strContent,

15、">") + 1)LoopstrDeTag = strDeTag & strContentIf Not bolTagFound Then strDeTag = strContentIf reqLength = 0" Then & </DD></DL> ElseMid(strDeTag, strTitleL, reqLength) & <BRXbXFONT SIZE='2' >URL: & & " -上次修改時(shí) 間："& & -& FormatNumber / 1024)&，zKbytes</FONT></b></DDX/DL>"bolFileFound = TrueEn

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論