<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下是数据库的设置信息
    ChannelID=Trim(Request.QueryString("ListId"))
If ChannelID<>"" Then
    Session("ChannelID")=ChannelID
Else
    ChannelID=Session("ChannelID")
End If
XML.StrSql="Select ChannelName From SQ_Channel Where ChannelID=" & ChannelID
XML.WriteOut "<h2>" & XML.MdbShow("ChannelName")  & "</h2>"
XML.WriteOut "<ul><li>"
XML.StrSql="Select ClassName,ClassID,Depth From SQ_Class Where Depth=0 And ChannelID=" & ChannelID '表示为取资讯频道
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    If XML.Rs("Depth")=0 Then
        XML.WriteRow XML.ImgA("Images/GreenDot.gif","NewsType.asp?ListId=" & XML.RS("ClassID"),XML.RS("ClassName") )
    Else	
        XML.WriteRow XML.ImgA("Images/GreenDot.gif","NewsList.asp?ListId=" & XML.RS("ClassID"),XML.RS("ClassName") )
    End If
    XML.Rs.MoveNext
Next
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
XML.WriteOut "</li></ul>"

'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","NewsFindText.asp","资讯搜索")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
