📄 index.asp
字号:
<!--#include file="function.asp" -->
<%on error resume next
showtitle
top%>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=bottom width=501 bgColor=#ffffff height=50><IMG height=40
src="images/topic_title.gif" width=492></TD>
<TD vAlign=bottom width=469 bgColor=#ffffff><IMG height=40
src="images/today_hot.gif" width=460></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD width=500 bgColor=#ffffff height=295>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=475 border=0>
<TBODY>
<TR>
<TD height=243>
<DIV align=center>
<script src="../banner.asp?id=<%=site_top_flash%>"></script>
</DIV></TD></TR></TBODY></TABLE></DIV></TD>
<TD vAlign=top width=218 bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width=215 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=196 background=images/movie_001_r2_c1.gif
height=258>
<TABLE height=140 cellSpacing=0 cellPadding=0 width=215 border=0>
<TBODY>
<TR>
<TD width=15 height=16> </TD>
<TD width=178> </TD>
<TD width=22> </TD></TR>
<TR>
<TD> </TD>
<TD>
<DIV align=center>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT top 4 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' order by 观看次数 desc"
rs.Open sql,conn,1,1
if rs.eof then '###没有影片，终止运行
call msgbox_j("系统中没有影片","self.close();")
Response.end
end if
if site_runscript="asp" then
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=173 height=242 border=0></a>"
else
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("大图")&"' width=173 height=242 border=0></a>"
end if
%>
</DIV>
</TD>
<TD> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD background=images/movie_001_r5_c1.gif>
<DIV class=menu align=center><font color=#666666><strong>
<%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),15)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),15)&"</a>"
end if
%>
</strong></font></DIV>
</TD></TR>
<TR>
<TD><IMG height=12 src="images/movie_001_r7_c1.gif"
width=215></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=252 bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=1 width="99%" align=center border=0>
<TBODY>
<TR>
<TD> </TD></TR>
<TR>
<TD>
<%
for i=1 to 3
if not rs.eof then rs.movenext
%>
<TABLE cellSpacing=0 cellPadding=3 width="99%" align=center
border=0>
<TBODY>
<TR>
<TD width="11%"><IMG height=72 src="images/0<%=i%>_movie.gif"
width=31></TD>
<TD width="89%">
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD width="27%" bgColor=#ffffff rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 align=center
border=0>
<TBODY>
<TR>
<TD bgColor=#cccccc>
<TABLE cellSpacing=1 cellPadding=3 border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<%
if site_runscript="asp" then
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=60 height=60 border=0></a>"
else
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=60 height=60 border=0></a>"
end if
%></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width="73%" bgColor=#ffffff><FONT color=#666666><STRONG><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%></STRONG></FONT></TD>
</TR>
<TR>
<TD bgColor=#ffffff valign="top">主演：<%=left(rs("主演"),25)%></TD>
</TR>
</TBODY>
</TABLE>
<img height=8
src="images/010203_line.gif" width=195></TD>
</TR>
<TR valign="top">
<TD colSpan=2>
<div align="right"></div>
</TD>
</TR>
</TBODY>
</TABLE>
<%
next
rs.close
%>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD vAlign=top width=208>
<TABLE cellSpacing=0 cellPadding=0 width=200 align=center border=0 height="213">
<TBODY>
<TR>
<TD><IMG height=40 src="images/affiche_r1_c1.gif"
width=200></TD></TR>
<TR>
<TD><IMG height=12 src="images/affiche_r2_c1.gif"
width=200></TD></TR>
<TR>
<TD vAlign=top background=images/affiche_r3_c1.gif>
<TABLE cellSpacing=0 cellPadding=2 width="179" align=center
border=0>
<TBODY>
<TR>
<TD height="200"><iframe frameborder=0 height="100%"
id=news marginheight=0 marginwidth=0
scrolling=no src="../news.asp"
width="100%"></iframe></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=16 src="images/affiche_r5_c1.gif"
width=200></TD></TR></TBODY></TABLE>
<table cellspacing=0 cellpadding=0 width=200 align=center border=0>
<tbody>
<tr>
<td><img height=52
src="images/renqi.gif" width=200 border=0></td>
</tr>
<tr>
<td background=images/left_03_ry_r2_c1.gif>
<table cellspacing=0 cellpadding=2 width="90%" align=center
border=0>
<tbody>
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT top 10 ID,大图,小图,分类,人气,出产地,影片名,主演,显示,加入时间,详细介绍 FROM 影片 where 显示='是' order by 人气 desc"
rs.Open sql,conn,1,1
if not rs.eof then
for i=1 to 3 step 1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" valign="top"><img height=23
src="images/top_no_0<%=i%>.gif" width=23></td>
<td width="84%">
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td width="35%" rowspan=2>
<table cellspacing=0 cellpadding=0 align=center
border=0>
<tbody>
<tr>
<td width=118 bgcolor=#cccccc>
<table cellspacing=1 cellpadding=3 width="100%"
border=0>
<tbody>
<tr>
<td bgcolor=#ffffff>
<%
if site_runscript="asp" then
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view.asp?id="&rs("id")&" target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=50 height=50 border=0></a>"
else
Rw "<a title='影片名："&rs("影片名")&" 所属类："&readtype(rs("分类"))&" 出产地："&rs("出产地")&" 日 期："&datevalue(rs("加入时间"))&" 人 气："&rs("人气")&"' href=film_view_"&md5(rs("id"),32)&".html target='_top'><img src='../"&film_pic&"/"&rs("小图")&"' width=50 height=50 border=0></a>"
end if%></td></tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
<td width="65%">
<div align=center><%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&"><strong><font color=#ff6600>"&left(rs("影片名"),6)&"</font></strong></a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&"><font color=#ff6600>"&left(rs("影片名"),6)&"</font></strong></a>"
end if%></div>
</td>
</tr>
<tr>
<td>
<div
align=center><img src="images/hits.gif" width="15" height="15" align="absmiddle">人气：<%=rs("人气")%></div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td colspan="2" height="14">
<div align="center"><img height=9
src="images/line_top.gif" width=165></div>
</td>
</tr>
</table>
<%
if not rs.eof then rs.movenext
next
%>
<table cellspacing=0 cellpadding=0 width="98%">
<tbody>
<%
for i= 4 to 10
if not rs.eof then rs.movenext
%>
<tr>
<td class=b8 width="16%">
<div align=center><img height=13
src="images/top_no_0<%=i%>.gif" width=17></div>
</td>
<td width="59%" height=20>
<%if site_runscript="asp" then
Rw "<a href=film_view.asp?id="&rs("id")&" title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
else
Rw "<a href=film_view_"&md5(rs("id"),32)&".html title="&rs("影片名")&">"&left(rs("影片名"),8)&"</a>"
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -