📄 index.asp
字号:
</tbody>
</table>
</td>
<%rs.movenext
next
else
%>
<tr>
<td>
<div align="center">暂无</div>
</td>
<%end if
rs.close%>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=739 align=center border=0>
<tbody>
<tr>
<td height=12></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=739 align=center border=0>
<tbody>
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM 影片分类 order by 排序"
rs.Open sql,conn,1,1
if not rs.eof then
count=0
do while not rs.eof
%>
<td width=192 valign="top">
<table cellspacing=0 cellpadding=0 width=170 align=center border=0>
<tbody>
<tr>
<td background=images/chinese.gif height=27>
<table cellspacing=0 cellpadding=0 width=170 border=0>
<tbody>
<tr>
<td width=41></td>
<td class=ff style="PADDING-TOP: 2px"
width=129><%=rs("分类名")%></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=170 align=center
border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=170 align=center
border=0>
<tbody>
<tr>
<td><img height=6 src="images/chinese_1.gif"
width=172></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=172 align=center
background=images/chin_bg.gif border=0>
<tbody>
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=154 align=center
border=0 height="28">
<tbody>
<%
show=0
show=5
set rs2=server.createobject("adodb.recordset")
sql2="select top 5 ID,小图,分类,影片名,主演,显示,人气 FROM 影片 where 显示='是' and 分类='"&rs("id")&"' order by 人气 desc"
rs2.Open sql2,conn,1,1
if not rs2.eof then
list_top=1
do while not rs2.eof%>
<tr>
<td width=20><img height=14 src="images/dot15.gif"
width=14></td>
<td width=104 height="25">
<%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs2("id")&" title="&rs2("影片名")&">"&left(rs2("影片名"),7)&"</a>"
else
Rw "<a href=film_view_"&md5(rs2("id"),32)&".html title="&rs2("影片名")&">"&rs2("影片名")&"</a>"
end if%>
</td>
<td width=50>
<div align="right"><%=rs2("人气")%></div>
</td>
</tr>
<tr>
<td colspan=3><img height=1 src="images/line29.gif"
width=154></td>
</tr>
<%
if list_top>=5 then exit do
list_top=list_top+1
rs2.movenext
loop
else
%>
<tr>
<td colspan=3>
<div align="center">暂无</div>
</td>
</tr>
<%end if
rs2.close%>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=172 align=center
border=0>
<tbody>
<tr>
<td height=5><img height=5 src="images/chinese_2.gif"
width=172></td>
</tr>
</tbody>
</table>
</td>
<%count=count+1
if count mod 4 = 0 then Rw "</tr><tr><td height=8></td></tr><tr>"
rs.movenext
loop
else
response.write "暂无分类"
end if
rs.close
%>
</tr>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=750 align=center border=0>
<tbody>
<tr>
<td height=6><img src="images/end.gif" width="750" height="13"></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=750 align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=1 cellpadding=0 width=750 align=center bgcolor=#e5e5e5
border=0>
<tbody>
<tr>
<td bgcolor=#ffffff>
<table cellspacing=0 cellpadding=0 width=750 border=0>
<tbody>
<tr>
<td width=10><img height=59 src="images/di_1.gif" width=10></td>
<td width=70 background=images/di_3.gif><img height=24
src="images/weekly.gif" width=76></td>
<td width=10 background=images/di_3.gif><img height=44
src="images/di_4.gif" width=7></td>
<td width=646 background=images/di_3.gif valign="middle">
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table border="0" align="left" cellpadding="3" cellspacing="0">
<tr align="center">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 7 * from 友情链接 order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
do While not rs.EOF
%>
<td>
<div align="left">
<%if rs("格式")="图片" then%>
<a href="<%=rs("网址")%>" target="_blank"><img src="../<%=film_pic%>/<%=rs("图标")%>" alt="<%=rs("网站名")%>-<%=rs("简介")%>" border="0"></a>
<%else%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
<param name="movie" value="../<%=film_pic%>/<%=rs("图标")%>">
</object>
<%end if%>
</div>
</td>
<%
rs.movenext
loop
else
%>
<tr>
<td>
<div align="center">暂无</div>
</td>
</tr>
<%end if
rs.close%>
</table>
</td>
<td width=12><img height=59 src="images/di_2.gif"
width=12></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
<table cellspacing=0 cellpadding=0 width=50% align=center border=0>
<tbody>
<tr>
<td height=4></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr bgcolor="#eeece0">
<td valign="top" bgcolor="#FFFFFF">
<%copyright%>
</td>
</tr>
</tbody>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -