%
ClassID=request("ClassID")
sql2 = "Select * From ClassOne where ID="&ClassID
Set rs2 = conn3.Execute( sql2 )
ClassName=rs2("ClassName")
rs2.close
%>
<%=ClassName%>│金谷大铜章艺术交流网
<%=ClassName%>
首页 > <%=ClassName%>
<%
TypeID=0
Set rs4 = Server.CreateObject("ADODB.Recordset")
sql4 = "Select * From product where ClassID="&ClassID&" order by OrderID,ID"
rs4.Open sql4,conn3,adOpenStatic
if rs4.eof and rs4.bof then
response.write "
暂时没有数据
"
else
rs4.PageSize = 15
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
%>