index_gallery.inc

来自「是个不错的文件代码,希望大家好好用,」· INC 代码 · 共 24 行

<%
sub main_center_pic(cs_tnum,cs_cnum)
dim tmp1,tmp_topic,tmp_url
sql="select top 5 id,name,spic from gallery where hidden=1 and types='paste' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(1)
tmp_url="gallery_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("spic"),11,tmp_url)&"</td></tr>" & _
vbcrlf&" </table>" & _
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 width=360>" & _
vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong
end sub
%>
                      <%
call main_center_pic(4,12)
%>