📄 search.asp
字号:
YC("<tr height=""60"" bgcolor='"&color(1)&"'><td colspan=""4"" align=""center"">")
YC("<br/ ><center>没有搜索到包含[<b><font color=""red"">"&keyword&"</font></b>]的数据……</center><br />")
YC("</td</tr>")
else
YC("<tr height=""24"" bgcolor='"&color(2)&"'><td colspan=""4"" align=""center"">")
YC("<script language=""javascript"">")
YC("showPageLink(""?page="","&mypage&","&pages&");")
YC("</script>")
YC(" 共有"&a&""&rs.recordcount&"条数据，分"&mypage&"/"&rs.pagecount&"页，每页"&rs.pagesize&"条。")
YC("</td</tr>")
end if
YC("</table>")
rs.close
set rs=nothing
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
case "搜索图片"
if mode="按标题" then
mode="title"
elseif mode="按内容" then
mode="content"
else
mode="title"
end if
sql="select * from [YC_pic] where "&mode&" like '%"&keyword&"%' and pass=1 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YC("<table border=""1"" width=""100%"" bordercolor="""&color(0)&""" align=""center"" frame=""void"">")
if not rs.bof and not rs.eof then
rs.pagesize=20
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
YC("<tr height=""24"" bgcolor='"&color(2)&"'>")
YC("<td width=""70%"" align=""center"">标 题")
YC("</td>")
YC("<td width=""10%"" align=""center"" nowrap>点 击")
YC("</td>")
YC("<td width=""20%"" align=""center"" nowrap>发表时间")
YC("</td>")
YC("</tr>")
do while not rs.eof
YC("<tr height=""24"" bgcolor='"&color(1)&"' onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" >")
YC("<td>")
YC("<ul class=""list""><li>[")
call myclass("YC_picclass","pic",rs("class"))
YC("] <a href=""showpic.asp?id="&rs("id")&""" target=""pic"" title=""图片标题："&rs("title")&"<br />发表用户："&rs("user")&"<br />发表时间："&rs("date")&"<br />点击次数："&rs("click")&"次"">"&replace(rs("title"),keyword,"<font color='red'>"&keyword&"</font>")&"</a> ["&rs("date")&"]")
if rs("best")=1 then
YC("『<font color=red>推荐</font>』")
end if
YC("</li></ul></td>")
YC("<td align=""center"" bgcolor='"&color(2)&"' nowrap>"&rs("click")&"")
YC("</td>")
YC("<td nowrap> "&replacetime(rs("date"),"1")&"")
YC("</td>")
YC("</tr>")
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
YC("</ul>")
end if
if rs.eof and rs.bof then
YC("<tr height=""60"" bgcolor='"&color(1)&"'><td colspan=""4"" align=""center"">")
YC("<br/ ><center>没有搜索到包含[<b><font color=""red"">"&keyword&"</font></b>]的数据……</center><br />")
YC("</td</tr>")
else
YC("<tr height=""24"" bgcolor='"&color(2)&"'><td colspan=""4"" align=""center"">")
YC("<script language=""javascript"">")
YC("showPageLink(""?page="","&mypage&","&pages&");")
YC("</script>")
YC(" 共有"&a&""&rs.recordcount&"条数据，分"&mypage&"/"&rs.pagecount&"页，每页"&rs.pagesize&"条。")
YC("</td</tr>")
end if
YC("</table>")
rs.close
set rs=nothing
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
case "搜索娱乐"
if mode="按标题" then
mode="title"
elseif mode="按内容" then
mode="content"
else
mode="title"
end if
sql="select * from [YC_dj] where "&mode&" like '%"&keyword&"%' and pass=1 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YC("<table border=""1"" width=""100%"" bordercolor="""&color(0)&""" align=""center"" frame=""void"">")
if not rs.bof and not rs.eof then
rs.pagesize=20
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
YC("<tr height=""24"" bgcolor='"&color(2)&"'>")
YC("<td width=""70%"" align=""center"">标 题")
YC("</td>")
YC("<td width=""10%"" align=""center"" nowrap>点 击")
YC("</td>")
YC("<td width=""20%"" align=""center"" nowrap>发表时间")
YC("</td>")
YC("</tr>")
do while not rs.eof
YC("<tr height=""24"" bgcolor='"&color(1)&"' onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" >")
YC("<td>")
YC("<ul class=""list""><li>[")
call myclass("YC_djclass","dj",rs("class"))
YC("] <a href=""showdj.asp?id="&rs("id")&""" target=""dj"" title=""娱乐标题："&rs("title")&"<br />娱乐作者："&rs("singer")&"<br />发布用户："&rs("user")&"<br />推荐程度："&rs("commend")&"<br />发表日期："&rs("date")&"<br />点击次数："&rs("click")&"次"">"&replace(rs("title"),keyword,"<font color='red'>"&keyword&"</font>")&"</a> ["&rs("date")&"]")
if rs("best")=1 then
YC("『<font color=red>推荐</font>』")
end if
YC("</li></ul></td>")
YC("<td align=""center"" bgcolor='"&color(2)&"' nowrap>"&rs("click")&"")
YC("</td>")
YC("<td nowrap> "&replacetime(rs("date"),"1")&"")
YC("</td>")
YC("</tr>")
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
YC("</ul>")
end if
if rs.eof and rs.bof then
YC("<tr height=""60"" bgcolor='"&color(1)&"'><td colspan=""4"" align=""center"">")
YC("<br/ ><center>没有搜索到包含[<b><font color=""red"">"&keyword&"</font></b>]的数据……</center><br />")
YC("</td</tr>")
else
YC("<tr height=""24"" bgcolor='"&color(2)&"'><td colspan=""4"" align=""center"">")
YC("<script language=""javascript"">")
YC("showPageLink(""?page="","&mypage&","&pages&");")
YC("</script>")
YC(" 共有"&a&""&rs.recordcount&"条数据，分"&mypage&"/"&rs.pagecount&"页，每页"&rs.pagesize&"条。")
YC("</td</tr>")
end if
YC("</table>")
rs.close
set rs=nothing
'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
case "搜索用户"
if mode="按标题" then
mode="user_name"
elseif mode="按内容" then
mode="user_true_name"
else
mode="user_name"
end if
sql="select * from YC_user where "&mode&" like '%"&keyword&"%' and pass=1 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
YC("<table border=""1"" width=""100%"" bordercolor="""&color(0)&""" align=""center"" frame=""void"">")
if not rs.bof and not rs.eof then
rs.pagesize=20
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
YC("<tr height=""24"" bgcolor='"&color(2)&"'>")
YC("<td width=""70%"" align=""center"">用户名")
YC("</td>")
YC("<td width=""15%"" align=""center"" nowrap>登陆次数")
YC("</td>")
YC("<td width=""25%"" align=""center"" nowrap>注册时间")
YC("</td>")
YC("</tr>")
do while not rs.eof
YC("<tr height=""24"" bgcolor='"&color(1)&"' onmouseover=""this.bgColor='"&color(2)&"';"" onmouseout=""this.bgColor='"&color(1)&"';"" >")
YC("<td>")
YC("<ul class=""list""><li>")
if rs("user_admin")=1 then
YC("[普通用户]")
elseif rs("user_admin")=2 then
YC("[<b><font color=""blue"">贵宾用户</font>]")
elseif rs("user_admin")=3 then
YC("[<b><font color=""red"">管理用户</font>]")
end if
YC("<a href=""user.asp?action=show_user_data&user="&rs("user_name")&""" title=""查看["&rs("user_name")&"]的资料"">"&rs("user_name")&"</a>")
YC("<a href=""sms.asp?action=send&user="&rs("user_name")&""" title=""发送短信给["&rs("user_name")&"]"">[短信]</a>")
YC("</li></ul></td>")
YC("<td align=""center"" bgcolor='"&color(2)&"' nowrap>"&rs("user_login_time")&"")
YC("</td>")
YC("<td nowrap> "&replacetime(rs("user_reg_date"),"1")&"")
YC("</td>")
YC("</tr>")
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
YC("</ul>")
end if
if rs.eof and rs.bof then
YC("<tr height=""60"" bgcolor='"&color(1)&"'><td colspan=""4"" align=""center"">")
YC("<br/ ><center>没有搜索到包含[<b><font color=""red"">"&keyword&"</font></b>]的数据……</center><br />")
YC("</td</tr>")
else
YC("<tr height=""24"" bgcolor='"&color(2)&"'><td colspan=""4"" align=""center"">")
YC("<script language=""javascript"">")
YC("showPageLink(""?page="","&mypage&","&pages&");")
YC("</script>")
YC(" 共有"&a&""&rs.recordcount&"条数据，分"&mypage&"/"&rs.pagecount&"页，每页"&rs.pagesize&"条。")
YC("</td</tr>")
end if
YC("</table>")
rs.close
set rs=nothing
case else
YC("<div class=""right_content""><br />")
YC("<ul style=""list-style-type:square;line-height:180%"">")
YC("<li>本搜索引擎可以搜索站内各栏目中的相关内容；</li>")
YC("<li>使用方法如下：")
YC("<ul style=""list-style-type:square;line-height:180%"">")
YC("<li>第一步：输入要搜索的栏目。 </li> ")
YC("<li>第二步：输入要搜索的方式。</li> ")
YC("<li>第三步：输入要搜索的关键词。</li> ")
YC("<li>然后点击提交即可快速搜索到本站相关资讯。</li></ul> ")
YC("<li>为了节省资源浪费，请不要恶意重复提交，谢谢！</li>")
YC("</ul>")
end select
%></div>
<td class="66" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width="100%"><tr>
<td class="77" nowrap></td>
<td class="88" nowrap></td>
<td class="99" nowrap></td>
</tr></table>
<!--中栏结束-->
</td></tr></table>
<%call foot()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -