<% Dim P,ErrNum,Page,I,K,Sql_Where Sql_Where="IsPass=1 And Classid=1" Set P=New Sdcms_Page With P Page=IsNum(Trim(Request.QueryString("page")),1) .Conn=Cn .PageNum=Page .PageSize=16 .Table="sdw_pic"&Lag .Field="id,pic,title" .Key="ID" .Where=Sql_Where .Order="ordnum desc,id desc" .PageUrl="?page=" End With On Error ReSume Next Set Rs=P.Show IF Err Then ErrNum=1 Err.Clear %> <%else%> <% End IF K=0 For I=1 To P.PageSize IF Rs.Eof Or Rs.Bof Then Exit For %> <% k=k+1 if k=4 then k=0 response.write"" end if Rs.MoveNext Next Rs.Close Set Rs=Nothing %>

<%=NoText%>

<%=gotTopic(rs(2),20,1)%>

<%IF Len(ErrNum)=0 Then%> <%End IF%>