文件名称:search
-
所属分类:
- 标签属性:
- 上传时间:2012-11-16
-
文件大小:636byte
-
已下载:0次
-
提 供 者:
-
相关连接:无下载说明:别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容来自于网络,使用问题请自行百度
关于搜索引擎的源代码 抄袭加修改 不知道好不好用-<!--#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
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.