用ASP做一个TOP COOL的站内搜索
来源:互联网 发布:php的等于符号 编辑:程序博客网 时间:2024/06/10 21:00
该搜索引擎由一个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
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")
%>
- 用ASP做一个TOP COOL的站内搜索
- 用ASP做一个TOP COOL的站内搜索
- 用lucene做一个站内搜索引擎(二):一个站内搜索器的设计(1):索引器的设计
- 一个ASP站内搜索的实例源代码
- 一个ASP站内搜索的实例源代码
- 一个ASP站内搜索的实例源代码
- asp的站内搜索功能
- 用ASP建立站内搜索
- 用lucene做一个站内搜索引擎(一):用ictclas4j做Lucene系统的分词器:(1)提高词典加载速度.
- 你可以用GitHub做的12件 Cool 事情
- ASP站内搜索
- Asp.net 简单的站内搜索引擎
- asp.net发布一个很COOL的图片验证码程序[含源码]
- 一个简单的站内搜索引擎的实现
- 加入一个基于GOOGLE的"站内搜索引擎"
- 各大电子商务网站的站内搜索比较,因为要做站内搜索,所以前去观摩下
- 一个很COOL的层窗体
- 一个很久以前写的 Cool Buttons 脚本
- . 我要让我的用户向指定的目录上载文件, 把 包含在表格内
- MySQL与MongoDB对比
- 一个显示Grid的VBScript对象
- Android中如何使用JUnit进行单元测试
- IOS管理文件和目录
- 用ASP做一个TOP COOL的站内搜索
- Oracle中把一张表查询结果插入到另一张表中
- Java 中的语法糖 (Syntactic Sugar)
- android 4.2.1短信接收以及应用接收顺序
- 怎么用命令行执行jar文件
- 'libxml/tree.h' file not found
- 数据结构之链表
- iOS—设置iTunes Connect中的Contracts, Tax, and Banking
- 64位系统下建立的C++ 项目在32位系统下运行