网站图片竖行通用调用

sub main_pic(cs_tnum,cs_data,cs_sid,cs)  
dim tmp1,tmp_topic,tmp_url,n
select case cs
case "0"
n="c"
case"1"
n="s"
end select
tmp1=vbcrlf&"<tr align=center>"  
sql="select top "&cs_tnum&" id,topic,pic from "&cs_data&" where hidden=1  and "&n&"_id="&cs_sid&" order by pic desc"  
set rs=joekoe_cms.exec(sql,1)  
do while not rs.eof  
tmp_topic=rs(1)  
tmp_url="/"&cs_data&"/"&cs_data&"_view.asp?id="&rs(0)  
tmp1=tmp1&vbcrlf&"<td align=center>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td height=15></td></tr>" & _
vbcrlf&" <tr><td align=center><a href="&tmp_url&" target=_blank>"&pic_url(rs("pic"),5)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td></tr>"
rs.movenext  
loop  
rs.close  
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"
end sub


<%call main_center_list("news",5,15,1)%>

该内容已经被作者隐藏,只有会员才允许查阅 登录 | 注册