文件名称:search
- 所属分类：
- WEB源码
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2012-11-26
- 文件大小：
- 1kb
- 下载次数：
- 0次
- 提 供 者：
- wil***
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
关于搜索引擎的源代码 抄袭加修改 不知道好不好用-<!--#INCLUDE FILE="includes/DisplayHandling.asp"-->
<!--#INCLUDE FILE="includes/MainSearch.asp"-->
<
Dim strHTML, strError
____________________________________________________________________________________________________________
Function CheckRules
CheckRules = True
If Len(strKeywords) < 2 Then
CheckRules = False
strError = "Please enter keyword(s) for searching."
End If
End Function
____________________________________________________________________________________________________________
Sub InitializePage
On Error Resume Next
Dim strSQL, strTEMP, intDescr iption,intDate
intDate = 3
intDescr iption = 8
catID = 6
If CheckRules = True Then
Call MainSearchInitialize
Call GetRecordSet(BuildSearchSQL(doActiveStatus))
strTemp = BuildHTMLTable(catID)
Call MainSearchClose
End If
strHTML = strTEMP
If err <> 0 Then
strError = "<p align=center><b>An error has occured in the search engine, " & _
<!--#INCLUDE FILE="includes/MainSearch.asp"-->
<
Dim strHTML, strError
____________________________________________________________________________________________________________
Function CheckRules
CheckRules = True
If Len(strKeywords) < 2 Then
CheckRules = False
strError = "Please enter keyword(s) for searching."
End If
End Function
____________________________________________________________________________________________________________
Sub InitializePage
On Error Resume Next
Dim strSQL, strTEMP, intDescr iption,intDate
intDate = 3
intDescr iption = 8
catID = 6
If CheckRules = True Then
Call MainSearchInitialize
Call GetRecordSet(BuildSearchSQL(doActiveStatus))
strTemp = BuildHTMLTable(catID)
Call MainSearchClose
End If
strHTML = strTEMP
If err <> 0 Then
strError = "<p align=center><b>An error has occured in the search engine, " & _
(系统自动生成,下载前可以参看下载内容)
下载文件列表
search.asp