<% id=request.QueryString("id") if id="" or not isnumeric(id) then Response.Write "" Response.End() end if set rs=server.createobject("adodb.recordset") exec="select * from News where ssfl="& id &" order by id desc" rs.open exec,conn,1,1 if rs.eof then response.Write "
此分类暂无记录！
" response.End() else set daohang=server.createobject("adodb.recordset") exec="select * from news_fl where id="&rs("ssfl")&"" daohang.open exec,conn,1,1 %> <%=daohang("title")%>_<%=web_home%>
当前位置：首页 >> <%=daohang("title")%>

产品系列Products series

    <%=web_products_class%>
联系我们

网站出租

联系人：刘经理

手机：13473182254

地址：河北省衡水市安平县

网址： http://www.apshilongwang.net

新闻中心

    <% rs.PageSize =""&config("newsclass")&"" iCount=rs.RecordCount iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if For i=1 To x dim url if IsNull(rs("url")) or trim(rs("url")&"")="" then url="/News_"&rs("id")&".html" else url=""&rs("url")&"" end if %>
  • "><%=rs("title")%>
    • <% rs.movenext next end if %>
<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>