<%@ Language=VBScript%> <% request_SmallClassID=Request.QueryString ("SmallClassID") if request_smallclassid="" or not IsNumeric(request_SmallClassID) then request_SmallClassID=114 end if PageShowSize = 10 '每页显示多少个页 MyPageSize = 5 '每页显示多少条新闻 If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then MyPage=1 Else MyPage=Int(Abs(Request("page"))) End if %> <% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") nohtml=str set re=nothing end function %> 新闻动态
专业的软件定制合作伙伴

您的位置: 首页 > 关于我们

    <% set rs = server.CreateObject("ADODB.RecordSet") rs.Source="select * from News where SmallClassID="&request_SmallClassID&" and checkked=1 order by newsid DESC" rs.Open rs.Source,conn,1,1 if showyear=1 then datetime="(" & year(rs("UpdateTime")) &"年"& Month(rs("UpdateTime")) &"月"& Day(rs("UpdateTime")) &"日)" else datetime="("& Month(rs("UpdateTime")) &"月"& Day(rs("UpdateTime")) &"日)" end if If Not rs.eof then rs.PageSize = MyPageSize MaxPages = rs.PageCount rs.absolutepage = MyPage total = rs.RecordCount i = 0 do until rs.Eof or i = rs.PageSize if rs("picname")<>"" then newsimg=rs("picname") else newsimg="dzswqy.png" end if title=trim(rs("title")) title=replace(title,"
    ","") news_zhaiyao=left(rs("zhaiyao"),300) %>
    共 <%=total%> 条,第 <%=Mypage%>/<%=Maxpages%> 页,每页 <%=MyPageSize%> 条 <% url="news.asp?SmallClassid=" & request_SmallClassid PageNextSize=int((MyPage-1)/PageShowSize)+1 Pagetpage=int((total-1)/rs.PageSize)+1 if PageNextSize >1 then PagePrev=PageShowSize*(PageNextSize-1) Response.write "上一翻页 " Response.write "页首 " end if if MyPage-1 > 0 then Prev_Page = MyPage - 1 Response.write "上一页 " end if if Maxpages>=PageNextSize*PageShowSize then PageSizeShow = PageShowSize Else PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1) End if If PageSizeShow < 1 Then PageSizeShow = 1 for PageCounterSize=1 to PageSizeShow PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize if PageLink <> MyPage Then Response.write "[" & PageLink & "] " else Response.Write "["& PageLink &"] " end if If PageLink = MaxPages Then Exit for Next if Mypage+1 <=Pagetpage then Next_Page = MyPage + 1 Response.write "下一页" end if if MaxPages > PageShowSize*PageNextSize then PageNext = PageShowSize * PageNextSize + 1 Response.write " 页尾" Response.write " 下一翻页" End if else Response.write " 本类暂无信息" End If Rs.close set rs=nothing %>