<%
'=======================================================
'关键字自动切割性循环搜索
'=======================================================
searchdata=keywords '从文本框中获得输入的关键字
if trim(searchdata)="" then '如果没有关键字的输入或者只输入的空格，警告！
response.write ""
response.end
end if
searchdata=replace(searchdata,"'","’")'将获得的字符串中英文单引号换成中文单引号
searchdata=Rtrim(LTrim(searchdata))'去掉获得的字符串最左边空格和最右边空格
keywords=split(searchdata," ") '将输入的字符串根据空格分开，获得一个数组
max=ubound(keywords) '得出这个数组的维数，即输入的关键字个数
'++++++++++++++++++++++++++++++++
'-----判断选择类别
stable=request.form("stable")
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
if stable="coolSite" then
search_class="酷站"
'关键字模糊搜索
if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" Title like '%" & keywords(i) & "%' "
sql2=sql2&" info like '%" & keywords(i) & "%' "
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" (Title like '%" & keywords(i) & "%' or "
sql2=sql2&" (info like '%" & keywords(i) & "%' or "
else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾
sql1=sql1&" Title like '%" & keywords(i) & "%') "
sql2=sql2&" info like '%" & keywords(i) & "%')"
else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句
sql1=sql1&" Title like '%" & keywords(i) & "%' or "
sql2=sql2&" info like '%" & keywords(i) & "%' or "
end if
end if
next '循环结束
end if
sql_coolSite="select * from nav where "&sql1&" or "&sql2
end if
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
if stable="down" then
search_class="资源"
'关键字模糊搜索
if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" title like '%" & keywords(i) & "%' "
sql2=sql2&" content like '%" & keywords(i) & "%' "
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" (title like '%" & keywords(i) & "%' or "
sql2=sql2&" (content like '%" & keywords(i) & "%' or "
else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾
sql1=sql1&" title like '%" & keywords(i) & "%') "
sql2=sql2&" content like '%" & keywords(i) & "%')"
else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句
sql1=sql1&" title like '%" & keywords(i) & "%' or "
sql2=sql2&" content like '%" & keywords(i) & "%' or "
end if
end if
next '循环结束
end if
sql_down="select * from download where "&sql1&" or "&sql2
end if
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
if stable="article" then
search_class="文章"
'关键字模糊搜索
if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" ArticleTitle like '%" & keywords(i) & "%' "
sql2=sql2&" content like '%" & keywords(i) & "%' "
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" (ArticleTitle like '%" & keywords(i) & "%' or "
sql2=sql2&" (content like '%" & keywords(i) & "%' or "
else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾
sql1=sql1&" ArticleTitle like '%" & keywords(i) & "%') "
sql2=sql2&" content like '%" & keywords(i) & "%')"
else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句
sql1=sql1&" ArticleTitle like '%" & keywords(i) & "%' or "
sql2=sql2&" content like '%" & keywords(i) & "%' or "
end if
end if
next '循环结束
end if
sql_art="select * from article where "&sql1&" or "&sql2
end if
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
if stable="img" then
search_class="图片"
'关键字模糊搜索
if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" Imgtitle like '%" & keywords(i) & "%' "
sql2=sql2&" info like '%" & keywords(i) & "%' "
sql3=sql3&" ClassName like '%" & keywords(i) & "%' "
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" (Imgtitle like '%" & keywords(i) & "%' or "
sql2=sql2&" (info like '%" & keywords(i) & "%' or "
sql3=sql3&" (ClassName like '%" & keywords(i) & "%' or"
else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾
sql1=sql1&" Imgtitle like '%" & keywords(i) & "%') "
sql2=sql2&" info like '%" & keywords(i) & "%')"
sql3=sql3&" ClassName like '%" & keywords(i) & "%') "
else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句
sql1=sql1&" Imgtitle like '%" & keywords(i) & "%' or "
sql2=sql2&" info like '%" & keywords(i) & "%' or "
sql3=sql3&" ClassName like '%" & keywords(i) & "%' or "
end if
end if
next '循环结束
end if
sql_img="select * from Img where "&sql1&" or "&sql2&" or "&sql3
end if
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
if stable="music" then
search_class="音乐"
'关键字模糊搜索
if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理
sql1=sql1&" MusicTitle like '%" & keywords(i) & "%'"
sql2=sql2&" Lyric like '%" & keywords(i) & "%'"
sql3=sql3&" ClassName like '%" & keywords(i) & "%'"
else '如果含有多个关键字，采用循环处理sql语句
for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现
if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码
sql1=sql1&" (MusicTitle like '%" & keywords(i) & "%' or "
sql2=sql2&" (Lyric like '%" & keywords(i) & "%' or "
sql3=sql3&" (ClassName like '%" & keywords(i) & "%' or "
else
if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾
sql1=sql1&" MusicTitle like '%" & keywords(i) & "%') "
sql2=sql2&" Lyric like '%" & keywords(i) & "%')"
sql3=sql3&" ClassName like '%" & keywords(i) & "%') "
else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句
sql1=sql1&" MusicTitle like '%" & keywords(i) & "%' or "
sql2=sql2&" Lyric like '%" & keywords(i) & "%' or "
sql3=sql3&" ClassName like '%" & keywords(i) & "%' or "
end if
end if
next '循环结束
end if
sql_music="select * from Music where "&sql1&" or "&sql2&" or "&sql3
end if
'■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
'-----判断选择类别结束
'++++++++++++++++++++++++++++++++
Set rs=server.CreateObject("adodb.recordset")
rs.open sql_down,db,1,1
rs.open sql_art,db,1,1
rs.open sql_img,db,1,1
rs.open sql_music,db,1,1
rs.open sql_coolSite,db,1,1
'-----------关键词列出
for i=0 to max
word_show=word_show&"" & keywords(i) & " "
next
if rs.eof and rs.bof then
response.write " 共
0条记录"
response.write " 类别：
"&search_class&""
response.write " 关键词：
"&word_show&""
response.write "
"
response.write "
× 没有搜索到您需要的内容哦..."
else
rs.PageSize=9999999 '每页显示数--有选择性搜索则不 分页，如果要分页，则不能使用if stable="**" 的方法
page=clng(request("page"))'转换成long型
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
pp=1
'---------------------
response.write " 共
"&rs.recordcount&"条记录"
response.write " 类别：
"&search_class&""
response.write " 关键词：
"&word_show&""
response.write "
"
'---------------------
for j=1 to rs.PageSize
ClassName=rs("ClassName")
hits=rs("hits")
renum=rs("renum")
'下载 start
d_ID=rs("ID")
d_from=rs("from")
url1=rs("url1")
url2=rs("url2")
url3=rs("url3")
d_Title=replace(rs("title"),chr(32),"")
d_content=mid(rs("content"),1,200)&"...."
if url1<>"" then url1="
下载地址①"
if url1="" then url1="下载地址①(暂无...)"
if url2<>"" then url2="
下载地址②"
if url2="" then url2="下载地址②(暂无...)"
if url3<>"" then url3="
下载地址③"
if url3="" then url3="下载地址③(暂无...)"
'下载 end
title=rs("ArticleTitle")
title2 =rs("MusicTitle")
title3=rs("ImgTitle")
title4=rs("Title")
mypath=replace(replace(rs("FilePath"),"../../","../"),"/default.html","")
'---------------------分页要循环的内容
response.Write "
',430,150,170,0,0,0);MySite.Cookie.set('downHit"&d_ID&"','1');"" title=""header=["&d_Title&"] body=[资源来自："&d_from&"
]"" >"&d_Title&" "
end if
if stable="article" then
response.Write "
"
end if
response.Write " "
'---------------------分页要循环的内容结束
rs.movenext
pp=pp+1
if rs.eof then exit for
next
%>