站内搜索

<%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 %>

"> <%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%>

<% conn.execute("update jjh_news set activ_hits=activ_hits+1 where news_id="&Request("activ_id")) sql="select * from jjh_activ where activ_id="&Request("activ_id") set rs=conn.execute (sql) if not rs.eof or err then %>

<%= rs("activ_title") %>

添加作者：<%= rs("activ_author") %> 浏览次数：<%= rs("activ_hits") %>

<%=ubb2html(formatStr(autourl(rs("activ_content"))),true,true)%>

打印本页

<%end if%>