最新、热门、推荐黄页调用

sub main_right_pris(ft)
dim id,name,c_id,s_id,tmp1
  select case ft
  case "hot"
    sql=" order by counter desc,id desc"
  case "good"
    sql=" and isgood=1 order by id desc"
  case else
    sql=" order by id desc"
  end select
sql="select top 10 id,c_id,name,counter from pris where hidden=1"&sql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  name=rs("name")
      tmp1=tmp1&vbcrlf&"  <tr><td align=left>·<a href='pris_view.asp?id="&id&"'>"&joekoe_cms.code_html(name,1,16)&"</a></td></tr>"
  rs.movenext
loop
rs.close
  tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
  response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
                 vbcrlf&"<tr><td class=td0> 黄页调用</td></tr>" & _
                 vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
                 vbcrlf&"</table>"&ukong
end sub

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