📄 index.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
typeid=request("typeid")
dim keyword
keyword=request("keyword")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=rs1("homes")%>=><%=rs1("home")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,td { font-size: 12px}
.f138 { font-size: 14px;line-height: 20px}
.nav {letter-spacing: 3px}
a:link { color: #66CCFF;text-decoration: none}
a:active { text-decoration: none}
a:visited { color: #66CCFF;text-decoration: none}
-->
</style>
<BODY text=#66ccff bgColor=#003366 leftMargin=0 topMargin=0>
<CENTER>
<SCRIPT language=JavaScript src="js/vod.js"></SCRIPT>
</CENTER>
<TABLE cellSpacing=0 cellPadding=5 width=778 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=150>
<TABLE cellSpacing=0 cellPadding=0 width=146 background=images/bg.gif
border=0>
<TBODY>
<TR>
<TD><IMG height=1 src="images/nav_01.gif" width=146></TD></TR>
<TR>
<TD><IMG height=20 src="images/nav_02.gif" width=146></TD></TR>
<TR>
<TD><IMG height=2 src="images/nav_03.gif" width=146></TD></TR>
<TR>
<TD class=f138 vAlign=top align=middle height=285> <table width="100%" border="0">
<tr>
<td colspan="2"> <%sql1="select * from type"
Set typelie = Server.CreateObject("ADODB.Recordset")
typelie.open sql1,conn,1.1
do while not typelie.eof%> </td>
</tr>
<tr>
<td width="100%">
<div align="center"><a class="hot"
style="CURSOR: crosshair"
href="index.asp?typeid=<%=typelie("typeid")%>">□<%=typelie("type")%></a></div></td>
<td width="27%"><img src="IMAGES/MORE.GIF" width="29" height="9"></td>
</tr>
<tr>
<td colspan="2"> <%typelie.movenext
loop
typelie.Close
set typelie=nothing%> </td>
</tr>
</table>
<p> </p>
</TD></TR>
<TR>
<TD><IMG height=4 src="images/nav_05.gif" width=146></TD></TR>
<TR>
<TD><IMG height=2 src="images/nav_07.gif" width=146></TD></TR>
<TR>
<TD><IMG height=21 src="images/nav_06.gif" width=146></TD></TR>
<TR>
<TD class=f138 vAlign=top align=middle height=160>武汉电信<BR>
ADSL专栏<BR>
<A
href="http://map.wuhan.net.cn/" target=_blank>武汉地图</A><BR><A
href="http://www.ecwin.net/" target=_blank>企业黄页</A><BR><A
href="http://www.kaxiu.com/" target=_blank>卡秀贺卡</A><BR><A
href="http://jobs.wuhan.net.cn/" target=_blank>人才中心</A><BR><A
href="http://www.ok100.net/" target=_blank>免费论坛</A><BR><A
href="http://club.wuhan.net.cn/" target=_blank>虚拟社区</A> </TD></TR>
<TR>
<TD><IMG height=4 src="images/nav_09.gif" width=146></TD></TR>
<TR>
<TD><IMG height=21 src="images/nav_10.gif" width=146></TD></TR>
<TR>
<TD><IMG height=2 src="images/nav_11.gif" width=146></TD></TR>
<TR>
<TD align=middle>
<TABLE cellSpacing=8 cellPadding=4 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD>
<DIV align=center><a href="http://bbs.hbhx.com.cn/upload/rp8plus-cn-setup6.0.9.584.exe" target="_blank"><img src="images/rpplus_logo.gif" width="119" height="48" border="0"></a></DIV></TD></TR>
<TR>
<TD>
<DIV align=center><a href="http://windowsmedia.com/download/" target="_blank"><img src="images/get_wmp.gif" width="120" height="32" border="0"></a></DIV></TD></TR>
<TR>
<TD>
<DIV align=center><A
href="soft/DivX_311alpha.zip"><IMG height=32
src="images/divx.gif" width=89
border=0></A></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><IMG height=1 src="images/nav_13.gif"
width=146></TD></TR></TBODY></TABLE></TD>
<TD width="100%" vAlign=top>
<TABLE cellSpacing=3 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#3399CC class=nav><a
href="<%=rs1("url")%>" target="_blank"><font color="#000066"><%=rs1("homes")%></font></a><font
color="#000066"><img src="IMAGES/MORE.GIF" width="29" height="9"><a
href="index.asp"><%=rs1("home")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"></font>
<font color="#000066">
<% =types %>
</font> </TD>
</TR>
</TBODY>
</TABLE>
<%
dim page
page=request("page")
PageSize = 7
dim besttop,str1,topbest
if typeid="" then
str1 ="SELECT * FROM film where title like '%"&keyword&"%' ORDER BY dateandtime DESC"
else
str1 ="SELECT * FROM film where title like '%"&keyword&"%' and typeid="&typeid&" ORDER BY dateandtime DESC"
end if
Set besttop = Server.CreateObject("ADODB.Recordset")
besttop.open str1,Conn,3,3
besttop.PageSize = PageSize
topbest=besttop.recordcount
pgnum=besttop.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then zhuinew.AbsolutePage=page
topbest=1
if besttop.eof then
response.write "<font color='#3300FF' class='3dfont'>对不起！暂时没有电影提供观看</font>"
else
do while not besttop.eof
if not besttop.eof then
%>
<TABLE width="100%" border=0 align="center" cellPadding=5 cellSpacing=5>
<TBODY>
<TR>
<TD width="50%">
<%if rs("images")<>"" and rs("images")<>"/image/emailist.jpg" then%>
<TABLE width="100%" border=0 cellPadding=1 cellSpacing=1>
<TBODY>
<TR>
<TD width="50%" rowSpan=4 vAlign=top><A
href="soft.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>"
target=_blank><IMG src="<%=besttop("images")%>" alt="<%=besttop("title")%>" width="120" height="114" border=0></A></TD>
<TD height="24"> <%=besttop("title")%></TD>
</TR>
<TR>
<TD height="32">人气:<%=besttop("hits")%></TD>
</TR>
<TR>
<TD height="33">格式:<%=besttop("runsystem")%></TD>
</TR>
<TR>
<TD>带宽：<%=besttop("daikuan") %></TD>
</TR>
</TBODY>
</TABLE>
<%end if%> </TD>
<% besttop.movenext %>
<TD width="50%">
<%if rs("images")<>"" and rs("images")<>"/image/emailist.jpg" then%>
<TABLE width="100%" border=0 cellPadding=1 cellSpacing=1>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -