92design

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 92design <% set rs=server.createobject("adodb.recordset") sql="select * from jcl_photo where P_type=2 order by id desc" rs.open sql,conn,1,1 IF not rs.eof Then proCount=rs.recordcount rs.PageSize=5 '定义显示数目 if not IsEmpty(Request("ToPage")) then ToPage=CInt(Request("ToPage")) if ToPage>rs.PageCount then rs.AbsolutePage=rs.PageCount intCurPage=rs.PageCount elseif ToPage<=0 then rs.AbsolutePage=1 intCurPage=1 else rs.AbsolutePage=ToPage intCurPage=ToPage end if else rs.AbsolutePage=1 intCurPage=1 end if intCurPage=CInt(intCurPage) k=1 do while Not rs.eof and k<6 %> <% for n=1 to 1 %>

" target="_blank">

" width="150" height="120" border="0">

·名称：<%=rs("P_name")%>

·网址：" target="_blank">点击进入

·日期：<%=rs("P_date")%>

·说明：<%=left(rs("P_dom"),300)%>

<% rs.movenext if rs.eof then exit for if rs.eof then exit do Next %> <% k=k+1 Loop %> <% rs.close set rs=nothing end if %>