列表调用CMS2.0 图片配文字

Sub mods_pnews(n_num,c_num,b_num)
  dim temp1,pid,nid,n_topic,n_username,n_tim,n_word,n_counter,n_comto,n_id
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table><tr>"
  sql="select top "&n_num&" id,topic,pic,word,counter,tim,cod,comto from news where hidden=1 and ispic=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    n_id=rs("id")
    n_topic=rs("topic")
    n_comto=rs("comto")
    n_tim=rs("tim")
    n_tim=joekoe_cms.time_type(n_tim,1)
    n_counter=rs("counter")
    n_word=rs("word")
    if rs("cod")=1 then n_word=joekoe_cms.code_html(n_word)
    temp1=format_pic_type(rs("pic"),rs("topic"),c_num,mod_url&"_view.asp?id="&rs("id"))
    if temp1="" then temp1=""""""
response.write vbcrlf&"<table class=table  cellspacing=1 cellpadding=4>" & _
               vbcrlf&"<tr><td class=td0 colspan=2> "&joekoe_cms.img("m_vouch",1)&" <a href='"&mod_url&"_view.asp?id="&n_id&"'><font class=dtd>"&n_topic&"</font></a></td>" & _
               vbcrlf&"<tr><td width='30%' align='center'>"&temp1&"</td>" & _
               vbcrlf&"<td><table border=0 with='100%'><tr><td>"
response.write vbcrlf&joekoe_cms.code_html(n_word,1,b_num)
response.write vbcrlf&"<tr><td align='right'><font class=gray>[ <a href='news_view.asp?id="&n_id&"'>浏览全文…</a> ]</font></td></tr>" & _
               vbcrlf&"<tr><td align=right class=gray>摘自："&n_comto&"  时间："&n_tim&"   浏览 <font class=blue>"&n_counter&"</font> 人次</td></tr>" & _
               vbcrlf&"</table></td></tr></table>" & _
    rs.movenext
  loop
  rs.close
end Sub

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