竖排显示图片新闻

sub index_images(n)
dim temp1,per_num,n_topic,id,topic,c_num
temp1="<table border=0 cellspacing=4 cellpadding=2 align=center>"
sql="select top "&n&"  id,topic,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs(0)
topic=rs(1)
temp1= temp1& vbcrlf&"<tr><td width='"&per_num&"%'>"&format_pic_type(rs("pic"),n_topic,c_num,"news_view.asp?id="&rs("id"))&"</td></tr>"
rs.movenext
loop
rs.close
temp1= temp1&vbcrlf&"</table>"
response.write temp1
end sub

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: