📄 index.asp
字号:
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_5.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>
<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_8.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>
<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>
<TD width=5 rowspan="3" vAlign=top></TD>
<TD rowspan="3" vAlign=top bgColor=#ffffff>
<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_4.gif" 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_3.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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -