首页调用影院代码

call main_center_video("视频影院","new",4,10,2)


sub main_center_video(vname,vgen,c_num,w_num,vvt)
dim osql,id,name,emoney,star,pnum,power
select case vgen
case "hot"
osql=" order by counter desc,id desc"
case "good"
osql=" and istop=1 order by id desc"
case else
osql=" order by id desc"
end select
pnum=100\c_num
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write vname%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<%
sql="select top "&c_num&" id,name,types,genre,lang,star,emoney,power,counter,star,remark,pic from video where hidden=1"&osql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
star=rs("star")
name=rs("name")
power=rs("power")
emoney=rs("emoney")
%>
<td width='<%'response.write pnum%>%'>
<table border=0 cellspacing=0 cellpadding=2>
<tr><td align=center><%response.write pic_fk(rs("pic"),1,"video_view.asp?id="&id)%></td></tr>
<tr><td align=center><b><a href='video_view.asp?id=<%response.write id%>' target=_blank alt='<%response.write joekoe_cms.code_html(name,1,0)%>'><%response.write joekoe_cms.code_html(name,1,w_num)%></a></b></td></tr>
<%if vvt>0 then%>
<tr><td align=center><%response.write joekoe_cms.web_unit%>：<font class=red2><%response.write emoney%></font> 人气：<font class=red><%response.write rs("counter")%></font></td></tr>
<tr><td align=center>推荐星级：<img src='images/down/star<%response.write star%>.gif' border=0></td></tr>
<%if vvt>1 then%>
<tr><td align=center><%'response.write format_emoney_power(emoney,rs("power"),0)%></td></tr>
<%
end if
end if
%>
</table>
</td>
<%
rs.movenext
loop
rs.close
%>
</tr>
</table>
</td></tr>
</table>
<%
response.write ukong
end sub
http://www.joekoe.com/forum_view.asp?forum_id=22&view_id=49177

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