|
|
 <%=a_title%> |
|
<% style="imgs_list"
%>
<%
Set Q = New Qi_Pager
Q.Connect(Conn)
Q.TableName = "jd_prt"
if keyword<>"" then
Q.AddWhere "title like '%"&keyword&"%' "
elseif n<>"" then
Q.AddWhere " classid="&n&" "
Q.RewritePath =iurl&apath&"index-*.html"
elseif bc<>"" then
Q.AddWhere " sclassid="&bc&" "
'//自定义ISAPI_REWRITE路径:标示 *
Q.RewritePath =iurl&bpath&"index-*.html"
else
Q.AddWhere "classid<>37 and classid<>33 and classid<>34"
end if
Q.OrderBy = " ID DESC"
'输出SQL语句 方便调试
'Response.Write(Q.GetSql())
'Response.End()
Q.Page = Request.QueryString("page")
Q.PageSize = prt_size
Set Rs = Q.Recordset
sPageInfo = Q.PageInfo
sPager = Q.Pager
if rs.eof then response.write "暂无信息 "
Do While Not Rs.EOF
%>
- " title="<%=rs("title")%>" >
 " />
<%
Rs.MoveNext
Loop
rs.close
set rs=nothing
%>
<%=sPager %>
|
|