<%=ClassName%>
当前位置：首页-<%=ClassName%>
-
<%
Dim Where
Where=" IsPass=1 "
IF ClassID<>0 Then
Where=Where&" And ClassID="&ClassID&""
End IF
Dim Page,P,j,I
Page=IsNum(Trim(Request.QueryString("page")),1)
Set P=New Sdcms_Page
With P
.Conn=Cn
.PageNum=Page
.Table="Sdw_News"&Lag
.Field="id,title,adddate"
.Where=Where
.Key="ID"
.Order="OrdNum Desc,ID Desc"
.PageUrl="?ClassID="&ClassID&"&page="
End With
On Error ReSume Next
Set Rs=P.Show
IF Err Then
%>
- <%=NoText%> <% Err.Clear End IF For I=1 To P.PageSize IF Rs.Eof Or Rs.Bof Then Exit For %>
- <%=Get_Date(Rs(2),"-",1)%>·<%=Gottopic(Rs(1),70,1)%> <% Rs.MoveNext Next Rs.Close Set Rs=Nothing %>
<%Echo P.PageList%>