利用ASP做一个TOP COOL的站内搜索

发布时间：2023-09-04 14:10:11 所属栏目：Asp教程来源：

导读：该搜索引擎由一个HTM文件一个ASP文件组成，主要是运用FILESYSTEMOBJECT组件来达到目的，功能强大，修改界面以后可以直接拿来使用，当然加上一点自己的东西就更加好了。

searchpage.htm

该HTM文件用来传入条件

该搜索引擎由一个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> </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"> </TD>

</TR>

<TR>

<TD width="363" nowrap> <FONT COLOR="#FFFFFF"> 返回结果

<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> </DD>

</DL>

</BODY>

</HTML>

------------------------------------------------------------------------

显示结果的ASP程序

search.asp

<HTML>

<HEAD>

<TITLE>'<%=Request("SearchText")%>'的搜索结果</TITLE>

</HEAD>

<BODY>

<B>'<%=Request("SearchText")%>'的搜索结果</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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!