search.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_other.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim nummer,page,rssum,thepages,viewpage,pageurl,sqladd,keyword,sea_type,sea_name,topic,topic2,sql1,sql2,linkurl,keywords,tims
pageurl="?":sqladd="":topic="":sql1="":sql2="":linkurl="":keywords="":sea_name="搜索"
nummer=10:viewpage=1:thepages=0
tit="站内搜索"

call web_head(1,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
response.write left_action("jt13",4)
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong
call web_search(0)
response.write ukong
call sea_types()
call sql_add()
if sqladd="" then
  call search_error()
else
  call search_main()
end if

response.write ukong
'---------------------------------center end-------------------------------
call web_end(0)

sub search_error()
%>
<table border=0 width='96%'>
<tr><td height=300 align=center>
  <table border=0>
  <tr><td colspan=2 height=30>您可能没有填写“搜索关键字”，请查看以下帮助说明：</td></tr>
  <tr><td width=10></td><td><%response.write img_small("jt1")%>在搜索时必须填写“搜索关键字”；</td></tr>
  <tr><td></td><td><%response.write img_small("jt12")%>如要搜索多个关键字请用<font class=red>空格</font>将多个关键字隔开，如：<font class=blue>V6&nbsp;插件</font>；</td></tr>
  <tr><td></td><td><%response.write img_small("jt0")%>“关键字”中不能含有单引号（'）；</td></tr>
  <tr><td></td><td><%response.write img_small("jt0")%>“关键字”中含有的加号（+）将被视为空格处理；</td></tr>
  <tr><td></td><td><%response.write img_small("jt13")%>“快速搜索”只在：新闻、文栏、下载里有效；</td></tr>
  <tr><td></td><td><%response.write img_small("jt14")%>祝您在使用本站的“站内搜索”时轻松愉快。</td></tr>
  </table>
</td></tr>
</table>
<%
end sub

sub search_main()
  sql=sql1&sqladd&sql2
  tims=timer()
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    rssum=0
  else
    rssum=rs.recordcount
  end if
  call format_pagecute()
%>
  <table border=0 width='96%' cellspacing=0 cellpadding=2>
  <tr><td height=1 colspan=4 background='images/bg_dian.gif'></td></tr>
  <tr align=center valign=bottom<%response.write table4%>>
  <td width='6%'>序号</td>
  <td width='94%'>相关内容（您查询的关键字是：<%response.write keywords%>每页 <font class=red><%response.write nummer%></font> 条 <font class=blue><%response.write sea_name%></font> 查询结果）</td>
  </tr>
  <tr><td height=1 colspan=2 background='images/bg_dian.gif'></td></tr>
  <tr><td height=5></td></tr>
<%
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
%>
  <tr>
  <td align=center><%response.write (viewpage-1)*nummer+i%>.</td>
  <td><a href='<%
    response.write linkurl&rs(0)
    if sea_type="forum" then response.write "&forum_id="&rs(4)
%>' target=_blank><%response.write code_html(rs(1),1,32)%></a>&nbsp;<font class=gray size=1><%response.write time_type(rs(3),3)%></font>&nbsp;<%response.write format_user_view(rs(2),1,"blue")%></td>
  </tr>
<%
    rs.movenext
  next
  rs.close:set rs=nothing
%>
  <tr><td height=5></td></tr>
  <tr><td height=1 colspan=2 background='images/bg_dian.gif'></td></tr>
  <tr><td colspan=2<%response.write table4%>>
    <table border=0 width='100%' cellspacing=0 cellpadding=0>
    <tr>
    <td>共&nbsp;<font class=red><%response.write rssum%></font>&nbsp;条结果&nbsp;
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>&nbsp;
分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,3,"#ff0000")%></td>
    <td align=right><font size=2 class=gray>查询用时：<font class=red_3><% response.write FormatNumber((timer()-tims)*1000,3) %></font> 毫秒</font></td>
    </tr>
    </table>
  </td></tr>
  <tr><td height=1 colspan=2 background='images/bg_dian.gif'></td></tr>
  </table>
<%
end sub

sub sql_add()
  dim ddim,dnum,i
  keyword=code_form(request.querystring("keyword"))
  if len(keyword)<1 or len(topic)<1 then sqladd="":exit sub
  keyword=replace(keyword,"+"," ")
  pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&"
  ddim=split(keyword," ")
  dnum=ubound(ddim)
  for i=0 to dnum
    keywords=keywords&"<font class=red_3><b>"&ddim(i)&"</b></font>&nbsp;&nbsp;"
    sqladd=sqladd&" and ("&topic2&" like '%"&ddim(i)&"%' or username like '%"&ddim(i)&"%')"
  next
  erase ddim
  if sea_type="forum" and sqladd<>"" then
    sqladd=right(sqladd,len(sqladd)-4)
  end if
end sub

sub sea_types()
  dim celerity
  celerity=trim(request.querystring("celerity"))
  sea_type=trim(request.querystring("sea_type"))
  select case sea_type
  case "news","article"
    topic="topic":topic2=topic
    if celerity="yes" then topic2="keyes"
    linkurl=sea_type&"_view.asp?id="
    sea_name="新闻"
    if sea_type="article" then sea_name="文栏"
    sql1="select id,"&topic&",username,tim from "&sea_type&" where hidden=1"
    sql2=" order by id desc"
  case "down"
    topic="name":topic2=topic
    if celerity="yes" then topic2="keyes"
    linkurl=sea_type&"_view.asp?id="
    sea_name="软件"
    sql1="select id,"&topic&",username,tim from "&sea_type&" where hidden=1"
    sql2=" order by id desc"
  case "website"
    topic="name":topic2=topic
    if celerity="yes" then topic2="keyes"
    linkurl=sea_type&".asp?action=view&id="
    sea_name="网站"
    sql1="select id,"&topic&",username,tim from "&sea_type&" where hidden=1"
    sql2=" order by id desc"
  case "video"
    topic="title":topic2=topic
    linkurl=sea_type&"_view.asp?id="
    sea_name="影视"
    sql1="select id,"&topic&",username,tim from "&sea_type&" where hidden=1"
    sql2=" order by id desc"
  case "paste"
    topic="name":topic2=topic
    linkurl="gallery.asp?action="&sea_type&"&types=view&id="
    sea_name="图片"
    if sea_type="flash" then sea_name="Flash"
    sql1="select id,"&topic&",username,tim from gallery where hidden=1 and types='"&sea_type&"'"
    sql2=" order by id desc"
  case "flash"
    topic="name":topic2=topic
    linkurl="flash.asp?action="&sea_type&"&types=view&id="
    sea_name="FLASH"
    if sea_type="FLASH" then sea_name="FLASH"
    sql1="select id,"&topic&",username,tim from flash where hidden=1 and types='"&sea_type&"'"
    sql2=" order by id desc"
  case else
    sea_type="forum"
    topic="topic":topic2=topic
    linkurl="forum_view.asp?view_id="
    sea_name="论坛"
    sql1="select id,"&topic&",username,tim,forum_id from bbs_topic where"
    sql2=" order by id desc"
  end select
  pageurl=pageurl&"sea_type="&sea_type&"&"
end sub
%>