<% const MaxPerPage=20 typeid=7 dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs dim rstype dim typesql dim typeid,typename1 'if not isEmpty(request("typeid")) then 'typeid=request("typeid") 'else 'typeid=1 ' end if if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if sql1="select * from type where typeid="&typeid set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 sqlconfig="select * from config" set rsconfig=server.createobject("adodb.recordset") rsconfig.open sqlconfig,conn,1,1 footer="" footer=footer&"" footer=footer&"" footer=footer&"" footer=footer&"
Copyright © "&rsconfig("copyrights")&" All Rights Reserved
"&rsconfig("saddress")&"："&rsconfig("address")&"     邮政编码："&rsconfig("postcode")&"　
E-mail："&rsconfig("webemail")&"   QQ在线支持
"&rsconfig("copyright")&" "&rsconfig("superstat")&"
" %> ATV|UTV|沙滩车|全地形车|卡丁车<%=rs1("typename")%>-Powersports中国动力户外 ,Powersports中国动力户外-ATV|UTV|沙滩车提供全面的ATV.UTV全地形车沙滩车农夫车产品、改装、越野和比赛资讯。" /> ,越野,SUV,ATV,UTV,全地形车,四驱,农夫车,吉普车,越野旅行,多功能运动车,越野比赛,场地越野,泥地赛">
消防绞盘
加入资源合作 | 加入商业推广
站内搜索：  
主题推荐

中国消防绞盘专业供应商

ATV Winch,全地形车绞盘

  <%=rs1("typename")%>
<% rs.close set rs=nothing %>
<% sql="select * from article where typeid="+cstr(typeid)+" order by newsid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"mywine.html" else if (currentPage-1)*MaxPerPage

推荐阅读：<%=rstop("title")%>

<%if rstop("picchk")=1 then%> border="0" align="right"><%end if%> <%=left(rstop("content"),300)%> <%end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "" end function %>
暂无任何文章记录！
<% do while not rs.eof %> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>
 ·/<%=rs1("typedir")%>/<%=rs("N_Fname")%>" target="=_blank"><%=rs("title")%>[ <%=Year(rs("date"))%>-<%=Month(rs("date"))%>-<%=Day(rs("date"))%> ]
" response.write "共 "&totalnumber&" 条记录" response.write " 页次："&CurrentPage&"/"&n&"页 每页"&maxperpage&"条" if CurrentPage<2 then response.write "【最前页】【上一页】" else response.write "【最前页】" response.write "【上一页】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "" response.write "【下一页】【最后页】" end if response.write "
 
动力户外产品推荐
<%=footer%>
<% rsconfig.close set rsconfig=nothing rs1.close set rs1=nothing conn.close set conn=nothing %>