<%sub news() '============================================================站点新闻 sql="SELECT top * FROM jjh_news ORDER BY news_id DESC" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof%>   ')" title="发表时间：<%=rs("news_time")%>"><%=rs("news_title")%> <%=rs("news_time")%>
<%rs.movenext loop if rs.eof and rs.bof then%> 目前尚无任何新闻！ <%end if if not rs.eof or not rs.bof then end if rs.close set rs=nothing end sub%> <%sub notice() '============================================================站点公告%> <% Set rs = Server.CreateObject("ADODB.Recordset") sql ="select top 12 * from jjh_notice order by notice_id desc" rs.open sql,conn,2,2 if rs.bof and rs.eof then rs.close response.write "
没有公告" else do while not rs.eof %>
<% rs.movenext loop rs.close end if%>
  		• "><%=rs("notice_title")%> [<%=rs("notice_time")%>]
    <%end sub%> <%sub search() '============================================================内容搜索%>
     
    类 型 :
    关键词:
    <%end sub%> <%sub department() '============================================================部门分类%> <% 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") %>
    <%end sub%> <% sub vote() '============================================================投票 %> <% end sub%>