相关代码 |
|
showtitle
top
%>
src="images/icon_address.gif" width=19>
您的位置: href=""> >> 网站首页
height=100>
src="images/search_icon01.gif" width=141>
name=serachfs>
影片名
name=serachfs>
主要演员
name=serachfs>
详细介绍
style="WIDTH: 170px" value=关键字 name=keyword class="search02">
搜索
width=758>
人气排行TOP5 |
下载排行TOP5 |
观看排行TOP5
|
最近浏览
frameBorder=0 width=100% scrolling=no height=120>
width=242>
width=234>
show=0
show=5
set rs=server.createobject("adodb.recordset")
sql="SELECT news_id,News_Adddate,News_Title FROM 新闻 order by News_Adddate desc"
rs.Open sql,conn,1,1
if not rs.eof then
count=1
do while not rs.eof%>
src="images/icon_dot.gif" width=10>
if count>show then exit do
rs.movenext
loop
else
Rw " 暂无"
end if%>
width=242>
width=1>
set rst=server.createobject("adodb.recordset")
rst.Open "SELECT * FROM 影片分类 order by 排序 desc",conn,1,1
if not rst.eof then
do while not rst.eof
%>
width=640>
Rw " "
else
Rw " "
end if%>
show=0
forci=0
show=4
set rs=server.createobject("adodb.recordset")
sql="SELECT ID,小图,分类,人气,出产地,影片名,主演,显示,加入时间 FROM 影片 where 显示='是' and 分类='"&rst("id")&"' order by 加入时间 desc"
rs.Open sql,conn,1,1
if not rs.eof then
if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if
for i=1 to forci
%>
Rw ""&rs("影片名")&""
else
Rw ""&rs("影片名")&""
end if%>
next
else
Rw " 暂无"
end if
%>
rst.movenext
loop
else
Rw "暂无"
end if
rs.close
rst.close
%>
src="index.files%5Cspacer_1.gif" width="1" height="1">
width=300>
show=0
forci=0
show=ayang_indexshowtj
set rs=server.createobject("adodb.recordset")
sql="SELECT ID,小图,分类,人气,出产地,影片名,主演,显示,加入时间,推荐时间 FROM 影片 where 显示='是' and 推荐='是' order by 推荐时间 desc"
rs.Open sql,conn,1,1
if not rs.eof then
if rs.recordcount>show then
forci=show
else
forci=rs.recordcount
end if
for i=1 to forci
%>
Rw ""&rs("影片名")&""
else
Rw ""&rs("影片名")&""
end if%>
rs.movenext
next
else
Rw " 暂无"
end if
rs.close
%>
width=8>
src="images\spacer(1).gif"
width=1>
相关资源 |
|