|
|
| 汽车绞盘·<%=rs1("typename")%> |
<%
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%>![](<%=rstop("picurl")%) 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 "| "
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 " | "
end function
%>
|
|
<%
rs.close
set rs=nothing
%>
|
|
绞盘集成应用网站
汽车绞车是汽车拖拉货物的必备工具，适用于国防建设配套、农林牧业作业配套、汽车越野拉力赛、抢险救援、野外工程、旅游和物流牵引等应用。
|
|
|
|
|
|
