<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下是数据库的设置信息
	TypeID=Trim(Request.QueryString("ListId"))
	BackTypePage=Request.QueryString("MyPage")
If TypeID<>"" Then
	Session("TypeID")=TypeID
	Session("BackTypePage")=BackTypePage
Else
	TypeID=Session("TypeID")
	BackTypePage=Session("BackTypePage")
End If
XML.StrSql="Select * From SQ_Class Where ClassID=" & TypeID
ChannelID=XML.MdbShow("ChannelID") '设置返回上级的频道。
XML.WriteOut "<h2>" & XML.MdbShow("ClassName") & "</h2>"
XML.WriteOut "<ul><li>"

XML.StrSql="Select * From SQ_Class Where Child=0 And Parentid=" & TypeID
XML.MdbDo '执行SQL语句。

If XML.RecordCount>0 Then
        XML.EveryPageSize=10
	XML.FieldShow="ClassName"
	XML.FieldId="ClassID"
	XML.GoFileName="SoftList.asp"
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
	XML.ErrorPagePath=""
        XML.MdbList
Else
	XML.StrSql="Select * from SQ_Soft where ClassId=" & TypeID & " Order By SoftID Desc"
        XML.EveryPageSize=10
	XML.FieldShow="SoftName"
	XML.FieldId="SoftID"
	XML.GoFileName="SoftShow.asp"
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
	XML.ErrorPagePath=""
        XML.MdbList
End If

XML.WriteOut "</li></ul>"

'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
XML.WriteRow XML.ImgA("","SoftFindText.asp","下载搜索")
XML.WriteRow XML.ImgA("","SoftClass.asp?Page=" & Session("BackTypePage") & "&amp;ListID=" & ChannelID,"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
