码迷,mamicode.com
首页 > Web开发 > 详细

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

时间:2014-05-13 23:39:29      阅读:484      评论:0      收藏:0      [点我收藏+]

标签:style   java   c   ext   color   width   


该搜索引擎由一个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的站内搜索,布布扣,bubuko.com

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

标签:style   java   c   ext   color   width   

原文地址:http://blog.csdn.net/u014739778/article/details/25606399

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!