<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为正文

'以下是数据库的设置信息
	ClassId=Trim(Request.QueryString("ListId"))
	BackTypePage=Request.QueryString("MyPage")
If ClassId<>"" Then
	Session("ClassId")=ClassId
	Session("BackTypePage")=BackTypePage
Else
	ClassId=Session("ClassId")
	BackTypePage=Session("BackTypePage")
End If
XML.StrSql="Select * From SQ_Class where ClassID=" & ClassId
XML.WriteOut "<h2>" & XML.MdbShow("ClassName") & "</h2>"
XML.StrSql="Select * from SQ_Product where Deleted=False And ClassId=" & ClassId & " Order By ProductID Desc"
XML.EveryPageSize=10
XML.FieldShow="ProductName"
XML.FieldId="ProductID"
XML.GoFileName="ProductShow.asp"
XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
XML.ErrorPagePath=""
'以下为列表显示标题
XML.WriteOut "<ul><li>"
XML.MDbListPagesTwo()
XML.WriteOut "</li></ul>"

If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.StrSql="Select * From SQ_Class where ClassID=" & ClassId
XML.MdbDo 1
If XML.Rs1.RecordCount>0 And XML.Rs1("ParentID")=0 Then
XML.WriteRow XML.A("","ProductClass.asp?Page=" & Session("BackTypePage") & "&amp;ListId=" & XML.Rs1("ChannelID"),"返回上级")
Else
XML.WriteRow XML.A("","ProductType.asp?Page=" & Session("BackTypePage") & "&amp;ListId=" & XML.Rs1("ParentID"),"返回上级")
End If
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
