<%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) call DataConnect ii=1 sql="select * from [comment] where myshow='"&request.QueryString("myshow")&"' order by id desc" Set mypage=new xdownpage mypage.getconn=conn mypage.getsql=sql mypage.pagesize=5*5 hang=5 on error resume next set rs=mypage.getrs() %> <% for ipage=1 to mypage.pagesize/hang for hangs=1 to hang '这里就可以自定义显示方式了 if not rs.eof then u(hangs)=rs("myshow") c(hangs)=rs("username") t(hangs)=rs("update") n(hangs)=rs("contents") if rs.eof then exit for rs.movenext else exit for end if next if hangs-1
"/>
以下是网友对这张图片的评论
姓名：<%=c(1)%> 姓名：<%=c(2)%> 姓名：<%=c(3)%> 姓名：<%=c(4)%> 姓名：<%=c(5)%>
上传时间:
<%=t(1)%>		 上传时间:
<%=t(2)%>		 上传时间:
<%=t(3)%>		 上传时间:
<%=t(4)%>		 上传时间:
<%=t(5)%>
评论内容:
<%=n(1)%>
 评论内容:
<%=n(2)%>
 评论内容:
<%=n(3)%>
 评论内容:
<%=n(4)%>
 评论内容:
<%=n(5)%>

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