电影调用-影音视频

sub main_center_video(vname,vgen,c_num,w_num)
dim osql,id,name,pnum
select case vgen
case "hot"
osql=" order by counter desc,id desc"
case "good"
osql=" and star=5 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 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")
name=rs("name")
%>
<td width='<%'response.write pnum%>%'>
<table border=0 cellspacing=1 cellpadding=4>
<tr><td align=center><%response.write pic_fk(rs("pic"),8,"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>
</table>
</td>
<%
rs.movenext
loop
rs.close
%>
</tr>
</table>
</td></tr>
</table>
<%
response.write ukong
end sub


'点击排行
sub main_center_middle(vname,vgen,c_num,w_num)
dim osql,id,name,pnum
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>
<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")
name=rs("name")
%>
<td width='<%'response.write pnum%>%'>
<table border=0 cellspacing=1 cellpadding=4>
<tr><td align=center><%response.write pic_fk(rs("pic"),4,"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>
</table>
</td>
<%
rs.movenext
loop
rs.close
%>
</tr>
</table>
</td></tr>
</table>
<%
response.write ukong
end sub

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