<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") basclass="120" mymenu="Notice" myurl="Notice.asp?temp=1" %> 本站动态_ABC公告_澳大利亚ABC环球集团
<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank><%=trim(rs("> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>
<% sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" rs.open sql,cn,1,1 do while not rs.EOF url=myurl+"&classcode="+trim(rs("classcode")) if cstr(classcode)=cstr(rs(0)) then %> <%else%> <% end if rs.MoveNext loop rs.Close %>
<%=trim(rs("classname"))%><%=trim(rs("classname"))%>查看全部公告  
  您所在的位置:首页 > ABC公告
<% if classcode="" then sql="select * from miscell where basclass='120' and state='1' order by creadate desc" else sql="select * from miscell where classcode='"+classcode+"' and state='1' order by creadate desc" end if rs.Open sql,cn,1,1 i=1 pagesize=30 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %>
·<%=trim(rs("title"))%><%if rs("picflag")="1" then%>(图)<%end if%>  <%=rs("updatetime")%>
共有 <%=reccount%> 条公告
<%if pagecount>1 then%> <%if pageno>1 then%> 上页  <%else%> 上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  <%if pageno 下页 <%else%> 下页 <%end if%> <%end if%>
新闻快递