用ASP做一个TOP COOL的站内搜寻
|
该搜索引擎由一个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 （编辑：银川站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
