<%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