站 内 搜 索
<%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_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 %>
  		• " target="_blank"> <%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%>
     
      全 部 通 知
    <% if not isempty(request("page")) and request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=15 Set rs=server.CreateObject ("adodb.recordset") sql="select * from jjh_notice order by notice_id desc" rs.Open sql,conn,1,1 if not rs.EOF then rs.PageSize=maxperpage mpage=rs.PageCount totalput=rs.RecordCount if currentpage<1 then currentpage=1 end if rs.Move (currentpage-1)*maxperpage end if if rs.EOF and rs.bof then response.Write ("暂时没有新闻！") %> <% else k=(totalput-maxperpage*(currentpage-1))+1 do while not rs.EOF k=k-1 ii=ii+1 %>
    〖<%= rs("notice_time") %>〗 " target="_blank"> <%if len(rs("notice_title"))>30 then response.write left(rs("notice_title"),30)&".." else response.write rs("notice_title") end if%>
    <% i=i+1 if i>=maxperpage then exit do rs.MoveNext loop end if %>
    记录总数:<%=rs.recordcount%> 每页<%=MaxPerPage%>条 <% pageno=currentPage %> <%if cint(pageno)>1 then%> <%end if%> 9  <%if cint(pageno)>1 then%> title="上一页"> <%end if%> 7 <% pp=cint(pageno)-5 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno*1=cint(pageno)*1 then %>  [<%=pno%>] <%else%>  >[<%=pno%>] <%end if%> <% if p>=11 then exit for next%>   <%if cint(pageno)< mpage then%> title="下一页"> <%end if%> 8  <%if cint(pageno)< mpage then%> <%end if%> :