<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下是数据库的设置信息
	D_ListID=Trim(Request.QueryString("ListId"))
	BackTypePage=Request.QueryString("MyPage")
If D_ListID<>"" Then
	Session("D_ListID")=D_ListID
	Session("BackTypePage")=BackTypePage
Else
	D_ListID=Session("D_ListID")
	BackTypePage=Session("BackTypePage")
End If
Wap.StrSql="Select * From NewsData Where D_Recycle=False And D_ClassID=" & D_ListID & " Order By D_ID Desc"
Wap.EveryPageSize=10
Wap.FieldShow="D_Title"
Wap.FieldId="D_ID"
Wap.GoFileName="NewsShow.asp"
Wap.IsShowImage=False
Wap.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
Wap.ErrorPagePath=""
Wap.MDbListPagesThree()
If Wap.RecordCount<1 Then Wap.WriteRow "暂时没有您要找的信息。"
Wap.WriteRow Wap.A("","NewsType.asp?Page=" & Session("BackTypePage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
