📄 movietop.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/Inspect.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
sqlhome="select * from home"
set rshome=server.createobject("adodb.recordset")
rshome.open sqlhome,conn,1,1
if not rshome.eof and rshome.bof then
end if
homes=rshome("homes")
urls=rshome("urls")
rshome.close
set rshome=nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title><% =homes %>－－喜欢电影朋友的天堂！</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<link href="../inc/zt2004.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bg.gif" leftMargin="0" topMargin="0" MARGINWIDTH="0" MARGINHEIGHT="0" style="text-align: left">
<TABLE background="../images/img_bg1.gif" border="0" cellPadding="0" cellSpacing="0" width="100%">
<TBODY>
<TR>
<TD height=332 align="center" vAlign=top>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" colspan="2"> </td>
</tr>
<tr>
<td width="441" align="left" valign="top"><img height=65 src="../images/logo.gif" width=197 /></td>
<td width="319" valign="top">
<TABLE width=110 border=0 align="right" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD><a href="http://www.zerotea.com/" target="_blank">
<IMG src="../images/home.gif" width=49 height=34 border="0"></a></TD>
<TD><IMG border=0 height=34 src="../images/webmail.gif" width=49></TD>
<TD><IMG border=0 height=34 src="../images/sitemap.gif" width=49></TD>
</TR>
</TBODY>
</TABLE> </td>
</tr>
<tr>
<td rowspan="2"><object
classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0
height=201 width=440>
<param name="movie" value="../images/carmain.swf" />
<param name="quality" value="high" />
<embed src="../images/carmain.swf"
quality="high"
pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" width="440"
height="201"></embed>
</object></td>
<td height="84"><img src="../images/lntop.gif" width="320" height="110" /></td>
</tr>
<tr>
<td><img src="../images/lnntop.gif" width="320" height="91" /></td>
</tr>
<tr>
<td height="38" colspan="2" background="../images/img_log003.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td height="22" align="center"><a href="index.asp"><font color="#FFFFFF">影院首页</font></a></td>
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select * from type order by arrange",conn,1,1
if rst.eof and rst.bof then
response.write "没有栏目："
else
do while NOT rst.EOF
%>
<td align="center"><font color="#FFFFFF">|</font></td>
<td height="22" align="center">
<a href="MovieClass.asp?MovieClassID=<%=rst("typeid")%>"><font color="#FFFFFF"><%=rst("type")%></font></a>
</td>
<%
rst.MoveNext
loop
end if
rst.close
set rst=nothing
%>
<td align="center"><font color="#FFFFFF">|</font></td>
<td align="center"><a href="MovieAll.asp"><font color="#FFFFFF">全部影片</font></a></td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -