<%
Dim P,ErrNum,Page,I,K,Sql_Where
Sql_Where="IsPass=1"
IF ClassID<>0 Then
set rs=ShowInfo("Sdw_ProClass","child,ParentPath","classId="&classId,m_ClickSum,0)
if not rs.eof then
if rs("child")>0 then Sql_Where=Sql_Where&" and classId in (select classId from Sdw_ProClass where ParentPath like '"&rs("ParentPath")&","&classId&"%' or" else Sql_Where=Sql_Where&" and "
Sql_Where=Sql_Where&" classId="&classId
if rs("child")>0 then Sql_Where=Sql_Where&")"
end if
rs.close()
End IF
IF skey<>"" Then
Sql_Where=Sql_Where&" And Title like '%"&skey&"%'"
End IF
Set P=New Sdcms_Page
With P
Page=IsNum(Trim(Request.QueryString("page")),1)
.Conn=Cn
.PageNum=Page
.PageSize=12
.Table="sdw_pro"&Lag
.Field="id,pic,title"
.Key="ID"
.Where=Sql_Where
.Order="ordnum desc,id desc"
'response.Write Sql_Where
.PageUrl="?classid="&ClassID&"&page="
End With
On Error ReSume Next
Set Rs=P.Show
IF Err Then
ErrNum=1
Err.Clear
%>
| <%=NoText%> |
<%else%>
<%
End IF
K=0
For I=1 To P.PageSize
IF Rs.Eof Or Rs.Bof Then Exit For
if rs(1)="" then
showPic="nopic.jpg"
else
showPic=rs(1)
end if
%>
<%=gotTopic(rs(2),20,1)%>
|
<%
k=k+1
if k=3 then
k=0
response.write" "
end if
Rs.MoveNext
Next
%>
<%IF Len(ErrNum)=0 Then%>
<%Echo P.PageList%>
<%End IF
rs.close()%> |