站内搜索

<%call search()%>

推荐新闻

<% sql = "SELECT top 8 * FROM jjh_news where news_tui=1 ORDER BY news_id 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("news_title"))>20 then response.write left(rs("news_title"),20)&".." else response.write rs("news_title") end if%>

<% rs.movenext loop rs.close end if%>

点击排名

<% sql = "SELECT top 8 * FROM jjh_notice ORDER BY notice_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("notice_title"))>12 then response.write left(rs("notice_title"),12)&".." else response.write rs("notice_title") end if%>

<% rs.movenext loop rs.close end if%>

<% conn.execute("update jjh_notice set notice_hits=notice_hits+1 where notice_id="&Request("notice_id")) sql="select * from jjh_notice where notice_id="&Request("notice_id") set rs=conn.execute (sql) if not rs.eof or err then %>

<%= rs("notice_title") %>

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

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

打印本页

<%end if%>