<% TypeID=request("TypeID") sql2 = "Select * From ClassTwo where ID="&TypeID Set rs2 = conn.Execute( sql2 ) TpName=rs2("TpName") title_pic=rs2("pic") rs2.close %> <%=TpName%>│金谷大铜章艺术交流网
<%=TpName%> 首页 > <%=TpName%>   
<% Set rs4 = Server.CreateObject("ADODB.Recordset") sql4 = "Select ID,title ,riqi From article where typeID="&typeID&" order by ID Desc" rs4.Open sql4,conn,adOpenStatic if rs4.eof and rs4.bof then response.write "

暂时没有数据
" else rs4.PageSize = 20 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs4.PageCount Then Page = rs4.PageCount %>

<% rs4.AbsolutePage = Page For iPage = 1 To rs4.PageSize %> <% rs4.MoveNext If rs4.EOF Then Exit For Next %>
<%=rs4("riqi")%>


<% If Page <> 1 Then Response.Write "第一页 " Response.Write "上一页 " End If If Page <> rs4.PageCount Then Response.Write "下一页 " Response.Write "最后一页 " End If %>

输入页数: 页数:第<%=Page%>页 / 共<%=rs4.PageCount%>页 >

<% end if rs4.close %>


上海泉和文化发展有限公司 版权所有
<% conn.close %> <% conn2.close %> <% conn3.close %>