影院的首页调用

sub main_center_vedio()
dim oid,topic,id,nid
%>
<td width=1 background='/skin/skin_1/bg_c.gif'></td><td wdith=*>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> 新港影院</td></tr>
<tr class=bg_td><td align=center><table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td width='60%'><table border=0 width='100%'>
<%
oid=0
sql="select top 1 id,name,types,genre,lang,role,star,emoney,counter,remark,pic from video where hidden=1 and star=5 and pic<>'' order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
id=rs("id")
oid=id
topic=rs("name")
nid=rs("ID")
%>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr><td height=3></td></tr>
<tr align=center>
<td width='35%'><%response.write pic_fk(rs("pic"),8,"video_view.asp?id="&nid)%></td>
<td width='65%'>
<table border=0 width='100%' class=tf>
<tr><td>片名：<b><a href='video_view.asp?id=<%=rs("ID")%>' alt='浏览影片：<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,8)%></a></b></td></tr>
<tr><td>主演：<%=rs("role")%> </td></tr>
<tr><td>语言：<%=rs("lang")%>　人气：<font class=red><%response.write int(rs("counter"))%></font></td></tr>

<tr><td>推荐星级：<img src='images/down/star<%response.write int(rs("star"))%>.gif' border=0></td></tr>
<tr><td class=bw>介绍：<%response.write joekoe_cms.code_html(rs("remark"),1,20)%></td></tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
%>
</td><td width='40%'>
<table border=0 cellspacing=1 cellpadding=0 width='100%'>
<tr><td height=3></td></tr>
<%
i=0
sql="select top 2 id,name,types,genre,lang,role,star,emoney,counter,remark,pic from video where hidden=1 and star=5 and pic<>'' and id<>"&oid&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("name")
nid=rs("ID")
if i mod 2=0 then response.write vbcrlf&" <tr>"
%>
<td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr align=center>
<td width='35%'><%response.write pic_fk(rs("pic"),4,"video_view.asp?id="&nid)%></td>
<td width='65%'>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<tr><td><b><a href='video_view.asp?id=<%=rs("ID")%>' alt='浏览影片：<%=rs("name")%>' target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,8)%></a></b></td></tr>
<tr><td>主演：<%=rs("role")%> </td></tr>
<tr><td><%=rs("lang")%>　人气：<font class=red><%response.write int(rs("counter"))%></font></td></tr>
</table>
</td>
</tr>
</table>
</td>
<%
if i+1 mod 1=0 then response.write vbcrlf&" </tr>"
if i=1 then response.write vbcrlf&" <tr><td height=1></td></tr>"
rs.movenext
i=i+1
loop
rs.close
%>
</tr></table></td></tr></table></td>
<%
end sub
http://www.joekoe.com/forum_view.asp?forum_id=22&view_id=50427

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