六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

用ASP做一個TOP COOL的站內(nèi)搜索

發(fā)表時間：2024-01-10 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：6

[摘要]該搜索引擎由一個HTM文件一個ASP文件組成，主要是運用FILESYSTEMOBJECT組件來達到目的，功能強大，修改界面以后可以直接拿來使用，當然加上一點自己的東西就更加好了。searchpage.htm該HTM文件用來傳入條件<HTML> <HEAD> ...
該搜索引擎由一個HTM文件一個ASP文件組成，主要是運用FILESYSTEMOBJECT組件來達到目的，功能強大，修改界面以后可以直接拿來使用，當然加上一點自己的東西就更加好了。

searchpage.htm
該HTM文件用來傳入條件

<HTML>
    <HEAD>
        <TITLE>ASP搜索引擎范例</TITLE>
    </HEAD>
    <BODY>
        <CENTER>
            <FORM METHOD=POST ACTION="search.asp">
                
    <TABLE BGCOLOR="#CC6633" BORDER="0">
      <TR>
                        
        <TD ROWSPAN="3" BGCOLOR="#CC6633" width="21" nowrap>&nbsp; </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="#CC6633" width="28">&nbsp; </TD>
                    </TR>
                    <TR>
                        
        <TD width="363" nowrap> <FONT COLOR="#FFFFFF"> 返回結(jié)果
          <SELECT name="rLength" >
            <option value="200" selected>長信息 </option>
            <option value="100">短信息</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>
  <DD>&nbsp; </DD>
        </DL>
    </BODY>
</HTML>

------------------------------------------------------------------------
顯示結(jié)果的ASP程序
search.asp

<HTML>
<HEAD>
<TITLE>'<%=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><b><FONT SIZE='2'>URL: " & objFile.Path & " - 上次修改時間: " & objFile.DateLastModified & " - " & FormatNumber(objFile.Size / 1024) & "Kbytes</FONT></b></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 "沒有匹配結(jié)果"
If bolFileFound then Response.Write "<B>搜索結(jié)束</B>"

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>




主站蜘蛛池模板： 四虎国产精品免费五月天 | 婷婷六月综合网 | 性生大片免费观看性 | 日本大片久久久高清免费看 | 伊人一区二区三区 | 日韩性黄色一级 | 色播激情五月 | 日本视频一区二区 | 亚洲视频免费在线 | 日韩大片在线播放 | 亚洲国产成人久久一区www | 无人区国产大片 | 日本在线观看免费 | 色狠狠狠色噜噜噜综合网 | 在线视频一区二区三区在线播放 | 亚洲一欧洲中文字幕在线 | 在线观看亚洲精品专区 | 婷婷色在线播放 | 天天干天天色综合 | 亚洲综合丁香婷婷六月香 | 天天做天天做天天综合网 | 日日摸日日添日日透 | 午夜亚洲一区二区福利 | 深爱激情小说网 | 午夜剧院免费 | 欧美专区欧美吧 | 亚洲另类电击调教在线观看 | 日韩精品一区在线观看 | 亚州中文字幕 | 亚洲欧美久久精品 | 亚洲欧美日韩一级特黄在线 | 日韩三级视频 | 亚洲福利一区二区三区 | 桃色成人精品网站 | 日产精品一二三四区国产 | 天天爽夜夜爽天天做夜夜做 | 亚洲成a人片在线观看播放 亚洲成a人片在线观看www | 色网站在线 | 午夜三级国产精品理论三级 | 日本视频一区二区 | 午夜视频在线观看完整高清在线 |