<% dim keyword dim sql dim findword dim jie dim rs keyword=request("keyword") if keyword="" then Response.Write ("") else keyword=replace(replace(replace(replace(keyword,"'","‘"),"<","<"),">",">")," "," ") if request("action")="shenbao" then findword="jjh_activ where activ_title like '%"&keyword&"%' " jie="activ" elseif request("action")="news" then findword="jjh_news where news_title like '%"&keyword&"%' " jie="news" elseif request("action")="notice" then findword="jjh_notice where notice_title like '%"&keyword&"%' " jie="notice" elseif request("action")="news" then findword="jjh_news where news_title like '%"&keyword&"%' " jie="news" elseif request("action")="notice" then findword="jjh_notice where notice_title like '%"&keyword&"%' " jie="notice" elseif request("action")="notice" then findword="jjh_notice where notice_title like '%"&keyword&"%' " jie="notice" else findword="jjh_record where record_title like '%"&keyword&"%' " jie="record" end if end if %>
站 内 搜 索
<%call search()%>
推 荐 新 闻
<% sql = "SELECT * FROM jjh_department ORDER BY department_id asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 i=1 if rs.bof and rs.eof then rs.close response.write "
没有信息" else do while not rs.eof %>
<% i=i+1 rs.movenext %> <% i=i+1 rs.movenext %> <% loop rs.close end if %>
"><%= rs("department_name") %><% if not rs.eof then %> <% End If %> "><%= rs("department_name") %>
点 击 排 名
<% sql = "SELECT top 8 * FROM jjh_activ ORDER BY activ_hits desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 if rs.bof and rs.eof then rs.close response.write "
没有信息" else do while not rs.eof %>
  		• " target="_blank"> <%if len(rs("activ_title"))>12 then response.write left(rs("activ_title"),12)&".." else response.write rs("activ_title") end if%>
    <% rs.movenext loop rs.close end if%>
     
      全 部 结 果
    <% set rs=server.createobject("adodb.recordset") sql="select * from "&findword&" " sql=sql&" order by "&jie&"_id desc" rs.open sql,conn,1,1 if rs.bof and rs.eof then rs.close response.write "
    没有查询到你要的信息!" else do while not rs.eof %>
    〖<%= rs(""&jie&"_time") %>〗 " target="_blank"> <%if len(rs(""&jie&"_title"))>30 then response.write left(rs(""&jie&"_title"),30)&".." else response.write rs(""&jie&"_title") end if%>
    <% rs.movenext loop rs.close end if%>