首页实现精彩贴图多行多列显示

将以下代码放在首页最后一个%>前面


Code:
sub main_center_pictrue(cs_tnum,cs_num,cs_cnum)
  dim tmp1,tmp_topic,tmp_url
  i=1
  sql="select top "&cs_tnum&" 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)
  if i=1 then tmp1=vbcrlf&"<tr>"
    tmp1=tmp1&vbcrlf&"<td width='10%'>" & _
         vbcrlf&" <table border=0 cellspacing=0 cellpadding=2>" & _
         vbcrlf&" <tr><td align=center>"&pic_fk(rs("spic"),1,tmp_url)&"</td></tr>" & _
         vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
         vbcrlf&" </table>" & _
         vbcrlf&"</td>"
  if i mod cs_num=0 then tmp1=tmp1&vbcrlf&"  </tr>"
    rs.movenext
  i=i+1
  loop
  rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 width='100%' class=table3>" & _
                 vbcrlf&"<tr><td class=td1> 精彩推荐</td></tr>" & _
                 vbcrlf&"<tr><td height=2 valign=top bgcolor='#DBCAAC'></td></tr>" & _
                 vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"&ukong
end sub


调用call main_center_pictrue(8,4,10)
参数说明：
cs_tnum 图片调用总数
cs_num  每行图片显示数量
cs_cnum 标题显示数目

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