📄 index.asp
字号:
<td align="left" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>13 then content=left(content,13)&"-"
response.write content
%></a></td>
<td align="Right" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><%=rs("hits")%>次</td>
<tr>
<td colspan="3">
</td>
</tr>
<% i=i+1
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</TABLE>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top colSpan=3>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD height="5"></TD>
</TR>
<TR>
<TD><a class="a1" href="mlist.asp?typeid=电视剧"><img src="images/top_t_9.gif" width="170" height="34" border="0"></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top colSpan=3>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5"> </td>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
sql="select * from learning WHERE domurl<>Null and typeid='电视剧' order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有任何电影"
else
i=0
do while not rs.eof or rs.bof
%>
<tr>
<td width="5" align="left"><IMG src="images/dd1.gif"></td>
<td align="left" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>13 then content=left(content,13)&"-"
response.write content
%></a></td>
<td align="Right" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><%=rs("hits")%>次</td>
<tr>
<td colspan="3">
</td>
</tr>
<% i=i+1
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</TABLE></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top colSpan=3>
<TABLE height=24 cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD height="5"></TD>
</TR>
<TR>
<TD><a class="a1" href="mlist.asp?typeid=剧情片"><img src="images/top_t_10.gif" width="170" height="34" border="0"></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top colSpan=3>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5"> </td>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
sql="select * from learning WHERE domurl<>Null and typeid='剧情片' order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有任何电影"
else
i=0
do while not rs.eof or rs.bof
%>
<tr>
<td width="5" align="left"><IMG src="images/dd1.gif"></td>
<td align="left" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>13 then content=left(content,13)&"-"
response.write content
%></a></td>
<td align="Right" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><%=rs("hits")%>次</td>
<tr>
<td colspan="3">
</td>
</tr>
<% i=i+1
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</TABLE></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top colSpan=3><TABLE height=24 cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD height="5"></TD>
</TR>
<TR>
<TD><a class="a1" href="mlist.asp?typeid=战争片"><img src="images/top_t_6.gif" width="170" height="33" border="0"></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=top colSpan=3><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5"> </td>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
sql="select * from learning WHERE domurl<>Null and typeid='战争片' order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有任何电影"
else
i=0
do while not rs.eof or rs.bof
%>
<tr>
<td width="5" align="left"><IMG src="images/dd1.gif"></td>
<td align="left" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>13 then content=left(content,13)&"-"
response.write content
%></a></td>
<td align="Right" style="BORDER-BOTTOM: #a4d3ff 1px dashed"><%=rs("hits")%>次</td> </tr>
<tr>
<td colspan="3">
</td>
</tr>
<% i=i+1
if i>=12 then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</TABLE></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top width=5 bgColor=#ffffff> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=4 src="images/old_movie_di.gif" width=758 border=0></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=10><IMG height=8 src="" width=10></TD>
</TR>
<TR>
<TD colSpan=3><IMG height=3 src="" width=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><IMG height=6 src="images/link_di.gif" width=778 border=0></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file=Bottom1.asp-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -