<%Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, must-revalidate"%> 在线大头贴 大头贴图库:
<% dim u(5),n(5),t(5),c(5),b(5) call DataConnect ii=1 sql="select * from [myphoto] order by id desc" Set mypage=new xdownpage mypage.getconn=conn mypage.getsql=sql '设置每一页的记录条数据为5条 mypage.pagesize=5*5 hang=5 set rs=mypage.getrs() for ipage=1 to mypage.pagesize/hang for hangs=1 to hang '这里就可以自定义显示方式了 if not rs.eof then sql="select count(*) as pnum from [comment] where myshow='"&rs("myshow")&"' " set bs=conn.execute(sql) if not bs.eof then b(hangs)=bs("pnum") end if set bs=nothing u(hangs)=rs("myshow") c(hangs)=rs("userid") t(hangs)=rs("update") if rs.eof then exit for rs.movenext else exit for end if next if hangs-1
| | | | |
上传时间:<%=t(1)%> 上传时间:<%=t(2)%> 上传时间:<%=t(3)%> 上传时间:<%=t(4)%> 上传时间:<%=t(5)%>

<% next mypage.showpage() call DataDisConnect %>