<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为正文
Dim ListOrder '指定排列的顺序
ListOrder=Request.QueryString("Order")
If ListOrder<>"" Then
	Session("ListOrder")=ListOrder
Else
	If Session("ListOrder")="" Then Session("ListOrder")="desc" '如果没有排序指定，则为"desc"
	ListOrder=Session("ListOrder")
End If
'以下是数据库的设置信息
	SpecialID=Trim(Request.QueryString("SpecialID"))
	BackTypePage=Request.QueryString("MyPage")
If SpecialID<>"" Then
	Session("SpecialID")=SpecialID
	Session("BackTypePage")=BackTypePage
Else
	SpecialID=Session("SpecialID")
	BackTypePage=Session("BackTypePage")
End If

XML.StrSql="Select * From SQ_Special where SpecialID=" & SpecialID
XML.WriteOut "<h2>[专题]" & XML.MdbShow("SpecialName") & "</h2>"
XML.WriteOut "<ul><li>"
ChannelID=XML.MdbShow("ChannelId")
XML.StrSql="Select * From SQ_Channel Where ChannelID=" & ChannelID
ModuleType=XML.MdbShow("ModuleType")

If ModuleType =1 Then

XML.StrSql="Select * From SQ_Article where SQ_Article.ArticleID=Any(Select SQ_InfoS.ItemID From SQ_InfoS Where SQ_InfoS.SpecialID=" & SpecialID & " And SQ_InfoS.ModuleType=1) Order By SQ_Article.ArticleID " & ListOrder
XML.EveryPageSize=10
XML.FieldShow="Title"
XML.FieldId="ArticleID"
XML.GoFileName="NewsSpecialShow.asp"
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/RedDot.gif"
XML.RsInfoPlace="Top"
XML.ErrorPagePath=""
XML.MdbList


ElseIf ModuleType =2 Then

XML.StrSql="Select * From SQ_Soft where SQ_Soft.SoftID=Any(Select SQ_InfoS.ItemID From SQ_InfoS Where SQ_InfoS.SpecialID=" & SpecialID & " And SQ_InfoS.ModuleType=2) Order By SQ_Soft.SoftID " & ListOrder
XML.EveryPageSize=10
XML.FieldShow="SoftName"
XML.FieldId="SoftID"
XML.GoFileName="SoftSpecialShow.asp"
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/RedDot.gif"
XML.RsInfoPlace="Top"
XML.ErrorPagePath=""
XML.MdbList


ElseIf ModuleType =3 Then

XML.StrSql="Select * From SQ_Photo where SQ_Photo.PhotoID=Any(Select SQ_InfoS.ItemID From SQ_InfoS Where SQ_InfoS.SpecialID=" & SpecialID & " And SQ_InfoS.ModuleType=3) Order By SQ_Photo.PhotoID " & ListOrder
XML.EveryPageSize=10
XML.FieldShow="PhotoName"
XML.FieldId="PhotoID"
XML.GoFileName="ShowSpecialShow.asp"
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/RedDot.gif"
XML.RsInfoPlace="Top"
XML.ErrorPagePath=""
XML.MdbList

End If


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

If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If Session("ListOrder")="asc" or  ListOrder="" Then 
XML.WriteRow XML.ImgA("",XML.Thisfilename & "?Order=desc&amp;Page=" & iPageCurrent,"反转排序")
Else
XML.WriteRow XML.ImgA("",XML.Thisfilename & "?Order=asc&amp;Page=" & iPageCurrent,"反转排序")
End If
XML.WriteRow XML.ImgA("","SQSpecial.asp?Page=" & Session("BackTypePage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 