📄 index.asp
字号:
<td width="100%">
<p align="right">
<select name="typeid" size="1">
<option value="片名" selected>按电影名</option>
<option value="演员">按主演者</option>
</select>
<input type="text" name="keyword" size="12" value="请输入关键字" onFocus="if(this.value=='请输入关键字')this.value='';">
<input type="submit" value="搜索" name="submit" style="height:19px">
</td>
</tr>
</tr>
</table></TD>
</TR>
<TR>
<TD width=255 background=img/menubg.gif height=29> <TABLE cellSpacing=0 cellPadding=0 width="255" border=0>
<TBODY>
<TR>
<TD width=30></TD>
<TD vAlign=bottom align=left width=130 height=18><FONT
color=#ffffff><b>电影点播排行</b></FONT></TD>
<TD width=49></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
%>
<%
i=0
do while not rst.eof
i=i+1
%>
<tr>
<td align="center" height="18"><%=i%>.</td>
<td><a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="left"><%content=rst("title")
if len(content)>10 then content=left(content,10)&"…"
response.write content
%></a>
</td>
<td align="center" width="16%" height="18"><%=rst("hits")%></td>
</tr>
<tr>
<td colspan="3">
<img border="0" src="images/index_4x.jpg" width="255" height="1" ></td>
</tr>
<%
if i>=19 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
</table></TD>
</TR>
<TR>
<TD width=255 background=img/menubg.gif height=29> <TABLE cellSpacing=0 cellPadding=0 width="255" border=0>
<TBODY>
<TR>
<TD width=30></TD>
<TD vAlign=bottom align=left width=130 height=18><FONT
color=#ffffff><b>播放软件下载</b></FONT></TD>
<TD width=49></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=3 cellPadding=2 width="100%" border=0>
<TR>
<TD align=center>
<a target="_blank" href="http://www.lnyyw.com/Downloads/RealOnePlayerV2GOLD.exe"><img src="images/realone.gif"
width=88 height=31 border="0"></a></TD>
</TR>
<TR>
<TD align=center><a href="http://www.lnyyw.com/Downloads/media.exe" target="_blank"><img src="images/media.gif" width="88" height="31" border="0"></a></TD>
</TR>
</TABLE></TD>
</TR>
<TR>
<TD align=center><img src="images/left_8_service.gif" width="188" height="131"></TD>
</TR>
</table>
<TD background=images/link_bg.gif vAlign=top width=5 bgColor=#ffffff> </TD>
<TD vAlign=top width=540 bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD width="50%" 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_1.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_7.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_2.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)&"-"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -