<% newstype=request("newstype") sql="select * from news where newstype='"&newstype&"' and flag=1 order by shijian desc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,3,3 rs.PageSize = 30 '定义每页文章显示数 TotalPage = rs.PageCount '共有页面数 totalPut=rs.recordcount '共有记录数 intPageNo = Request("PageNo") '当前页 If intPageNo = Empty Then intPageNo = 1 Else if isNumeric(intPageNo) then intPageNo = CInt(intPageNo) If intPageNo > TotalPage Then intPageNo = TotalPage if intPageNo < 0 then intPageNo=1 End If if rs.eof then intPageNo=0 else rs.AbsolutePage = intPageNo '显示当前页 end if %>

←本市推行政府系统网上办公　　　←本市出境游组团社增加 　　　←一批罪犯昨被枪决 　　　←第五期党外局级干部研讨班结束 　　　←保税区学习贯彻党代会精神不留空白　　　←社区呼唤培养全科医生 　　　←西南角地区拆迁启动 　　　←７月１日起期刊报纸可以按月订阅　　　←交通整顿见成效路口遵章率逾八成 　　　←团员青年认真学习张立昌讲话精神 　　　←“唐人街”明年现身大直沽 　　　←天津建成全国最大男科医院 　　　←天津中考下周开锣 　　　←名牌啤酒津门斗法 　　　←公安消防又取缔１２黑网吧 　　　←天津海关严打价格瞒骗 　　　←天津部署禁毒专项斗争 　　　←“农业车间”亟待拓宽 　　　←天津港全封闭输煤长廊启建 　　　←海河水源保护工程告竣