社区
ASP
帖子详情
怎样用asp实现站内搜索?谢谢!
ZTMSS
2003-12-02 01:28:10
怎样用asp实现站内搜索?
Thank you very much!
...全文
64
9
打赏
收藏
怎样用asp实现站内搜索?谢谢!
怎样用asp实现站内搜索? Thank you very much!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
minghui000
2004-01-14
打赏
举报
回复
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
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
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
RealPath=Server.MapPath(strRoot)
VirtualPath="http://" & Request.ServerVariables("SERVER_NAME")
Set objFolder = objFSO.GetFolder(RealPath)
schSubFol(objFolder)
Sub schSubFol(objFolder)
on error resume next
For Each objFile in objFolder.Files
If 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, 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 = "未命名"
end if
myFile=objFile.Path
myFile=replace(myfile,RealPath,VirtualPath,1,-1,1)
myFile=replace(myfile,"\","/")
strCount = strCount + 1
Response.Write "<DL><DT><B><I>"& strCount &"</I></B> - <A HREF=" & myFile & ">" & 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
Response.Write replace(Mid(strDeTag, strTitleL, 200),strText,"<font color=red>" & strText & "</font>",1,-1,bolcase)
Response.Write "...<BR><b><FONT SIZE='2'>URL: " & myFile
Response.Write " - 上次修改时间: " & objFile.DateLastModified
Response.Write " - " & FormatNumber(objFile.Size / 1024)
Response.Write "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 "没有匹配结果"
If bolFileFound then Response.Write "<B>搜索结束</B>"
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>
SEARCH.HTM
<HTML>
<HEAD>
<TITLE>文件搜索引擎</TITLE>
</HEAD>
<BODY>
<CENTER>
<FORM METHOD=POST ACTION="search.asp">
<TABLE BGCOLOR="#CC6633" BORDER="0">
<TR>
<TD> <FONT COLOR="#FFFFFF">
请输入所要搜索的字符串:
<INPUT TYPE="text" NAME="SearchText" SIZE="22"></FONT> </TD>
<TD><INPUT TYPE="submit" VALUE="确定">
<INPUT TYPE="reset" VALUE="清除"></TD>
</tr>
</TABLE>
</FORM>
</CENTER>
</BODY>
</HTML>
flying310
2003-12-08
打赏
举报
回复
up
jinco
2003-12-08
打赏
举报
回复
我也想知道~~~,那个文件
帮顶一下
htao007
2003-12-08
打赏
举报
回复
说说是哪一个文件阿
bzscs
2003-12-02
打赏
举报
回复
启动IIS的默认站点,它其中有一个不必连数据库的全站搜索的功能,你把对应的asp文件源码看一下就知道了,
-
服务器默认是支持这个功能的,
chang1216
2003-12-02
打赏
举报
回复
楼上的哥们怎么搞得!
eliphe
2003-12-02
打赏
举报
回复
sql="select * from table where " & 选择的值 & " like '%" & 输入文字 & "%' order by id desc"
chang1216
2003-12-02
打赏
举报
回复
sql="select * from table where " & 选择的值 & " like '%" & 输入文字 & "%' order by id desc"
cuipi2003
2003-12-02
打赏
举报
回复
google可以
呵呵
如果你要自己搜索可以参考,sql server的全文检索功能,我最讨厌的就是这个了:)
ASP
001基于
ASP
的论坛的设计与
实现
ASP
001基于
ASP
的论坛的设计与
实现
的资料,由于资料太多,不好上传程序包和开题报告、答辩稿PPT,大家可以到我们网站下载,本站有数十万篇免费论文和数千套各专业免费毕业设计,欢迎您的光临,您顺利毕业,是我们最大...
理想家园企业建站CMS系统 v2.5.rar
站内搜索
:不同的栏目
实现
不同内容的搜索。" 后台验证码:后台登录增加了清晰的数字验证码,防止恶意破坏。" " 后台功能:" 新闻具有搜索功能,可以直接查找到需要修改的新闻。" 同时后台添加文章...
飞翔非主流伪静态缓存开源版 v2.0.rar
本程序是开源,只做学习交流之用,请勿创建任何商业站点,
谢谢
! 程序包分为两种,一个是低级伪静态,地址回出现 “?” 另一种是高级伪静态,全站看上去和静态没什么区别。 高级伪静态需服务器支持ISAPI Rewrite...
理想家园企业建站CMS系统 v1.6
站内搜索
:不同的栏目
实现
不同内容的搜索。" 后台验证码:后台登录增加了清晰的数字验证码,防止恶意破坏。" " 后台功能:" 新闻具有搜索功能,可以直接查找到需要修改的新闻。" 同时后台添加文章之后可以自动...
新白领女性频道小偷 V2.2.rar
·
实现
全站URL路径伪静态功能,让各大搜索引擎收录更加友好; ·提供防SQL注入及跨站脚本攻击功能,确保程序更加安全; ·提供多个站点广告位并可在后台直接管理,轻松赚钱原来如此简单; =======================...
ASP
28,390
社区成员
357,068
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章