📄 index.asp
字号:
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="sethits.asp"-->
<%
if day(now())=15 then initmon()
if day(now())=1 then setmonhit()
if weekday(now())=1 then initweek()
if weekday(now())=2 then setweekhit()
%>
<HTML><HEAD>
<TITLE><%=webname%>-首页</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link href="http://127.0.0.1/newmovie/images/CNFNOT.ICO" rel="shortcut icon">
<LINK
href="style/style.css" rel=stylesheet type=text/css>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<BODY bgcolor="#B2DBFD" leftMargin=0 topMargin=0 oncontextmenu=self.event.returnValue=false onselectstart="return false">
<table width="775" height="83" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E5E5E5">
<tr>
<td width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%"><TBODY>
<TR><TD height="24" bgcolor="#FFFFFF">
<div align="center">
<!--#include file="webtop.asp"-->
</div>
</TD></TR>
</TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%">
<TBODY>
<TR>
<TD WIDTH="1" rowspan="3" align=middle vAlign=TOP bgColor=#0000FF></TD>
<TD rowSpan=4 vAlign=top width="195" bgcolor="#FFFFFF" background="style/orange.jpg ">
<!--#include file="webleft.asp"-->
</TD>
<TD align=center bgColor=#FFFFFF vAlign=TOP>
<!--#include file="gonggao.asp"-->
</TD>
<TD WIDTH="1" rowspan="3" align=middle vAlign=TOP bgColor=#0000FF></TD>
</TR>
<TR>
<TD align=middle bgColor=#FFFFFF vAlign=middle WIDTH="580" height="37">
<table cellspacing=0 cellpadding=0 width="95%" border=0 height="22" align="center">
<tbody>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" background="style/background-extender5.gif">
<tr>
<td colspan="3" height="5" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="177"><img src="style/hiptj.gif"></td>
<td colspan="2"><table width="100%" height="35" border="2" cellspacing="0" cellpadding="0" bordercolor="#00CC66">
<tr>
<td align="center" valign="middle">
<table width="98%" height="25" border="1" cellspacing="0" cellpadding="0" bordercolor="#00CC66">
<tr><td> </td></tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="230" rowspan="9" align="center">
<%Dim objRS3,connSQL3,fileRS,fileconn,filmfile,fileID,filmtype,ftRS,ftSQL,ftID
set objRS3=server.createobject("adodb.recordset")
connSQL3="select top 1 * from film where recomfilm=True order by dateandtime DESC"
objRS3.open connSQL3,conn,1,1
fileID=trim(objRS3("imagefile"))
ftID=trim(objRS3("typeid"))
set ftRS=server.createobject("adodb.recordset")
ftSQL="select * from Type where typeid="&ftID&""
ftRS.open ftSQL,conn,1,1
filmtype=trim(ftRS("type"))
ftRS.close
set ftRS=nothing
set fileRS=server.createobject("adodb.recordset")
fileconn="select * from imagefile where PicFileID="&fileID&""
fileRS.open fileconn,conn,1,1
filmfile=trim(fileRS("ImgeFile"))
fileRS.close
set fileRS=nothing
%>
<a href="showfilm.asp?id=<%=trim(objRS3("id"))%>&typeid=<%=ftID%>"><img src="<%if trim(objRS3("imagesname"))="" then
response.Write("filmpic/defaut2.jpg")
else response.Write(filmfile&trim(objRS3("imagesname")))
end if%>" width="151" height="214" border="0" border=0 width="90" height="128" alt="<%=objRS3("title")%>"></a></td>
<td width="80">电影名称：</td>
<td><%if len(trim(objRS3("title")))<40 then
response.Write(trim(objRS3("title")))
else
response.Write(left(trim(objRS3("title")),38)&"…")
end if
%></td>
</tr>
<tr>
<td valign="middle">主要演员：</td>
<td><%=trim(objRS3("mainactors"))%></td>
</tr>
<tr>
<td>电影导演：</td>
<td><%=trim(objRS3("directors"))%></td>
</tr>
<tr>
<td >电影产地：</td>
<td><%=trim(objRS3("madein"))%></td>
</tr>
<tr>
<td>电影类型：</td>
<td><%=filmtype%></td>
</tr>
<tr>
<td>电影长度：</td>
<td><%=trim(objRS3("filmtime"))%> 分钟</td>
</tr>
<tr>
<td>出品公司：</td>
<td><%=trim(objRS3("productor"))%></td>
</tr>
<tr>
<td>电影质量：</td>
<td><%=trim(objRS3("runsystem"))%> <%=trim(objRS3("quality"))%></td>
</tr>
<tr>
<td>观看费用：</td>
<td><%=trim(objRS3("filmprice"))%></td>
<%objRS3.close
set objRS3=nothing%>
</tr>
<tr>
<td height="2" ></td>
<td colspan="2"></td>
</tr>
</table>
</td>
</tr>
<tr>
<form method=POST name="fsform" action="fileserach.asp">
<td height="32" background="images/searchbar_04.gif" STYLE="border-bottom: 1 solid #cccccc">
<div align="center"><img src="images/search3.gif" width="16" height="16" align=absMiddle>
影片搜索：
<input id="sradio" type="radio" name="sradio" value="filmnames" checked>按片名
<input id="sradio" type="radio" name="sradio" value="actors">按演员
<input id="sradio" type="radio" name="sradio" value="directors">按导演
<input size=16 name=keyword style="border: 1px solid #000000">
<input type="hidden" name="submit" value="mysubmit">
<input type="image" border="0" name="submit" value="mysubmit" src="images/search_menu.gif" width="41" height="20" align=absMiddle>
</div>
</td>
</form>
</tr>
</tbody>
</table>
</TD>
</TR>
<TR>
<TD align=middle bgColor=#FFFFFF vAlign=TOP><br style="LINE-HEIGHT: 3px">
<table width="95%" border="0" align="center" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
<tr>
<td>
<table cellspacing=0 cellpadding=0 width="100%" border=0 bgcolor="#FFFFFF">
<tbody>
<!--#include file="ImageFile.asp"-->
<%
dim besttop,str1,topbest,moviefile
str1 ="SELECT top 6 f.*,t.* FROM film f,type t WHERE ifNew=true and f.typeid=t.typeid ORDER BY dateandtime DESC"
Set besttop = Server.CreateObject("ADODB.Recordset")
besttop.open str1,Conn,0,1
topbest=1
if besttop.eof then
response.write "<font color='#ffffff'>对不起，本站暂没有新影片加入!</font>"
else
do while not besttop.eof
if not besttop.eof then
%>
<tr>
<td width="100%">
<div align="center">
<table cellspacing=0
cellpadding=5 width="96%" border=0>
<tbody>
<tr>
<td>
<div align=center>
<table width="245" border="0" cellspacing="1" cellpadding="0" height="140" bgcolor="#EBEBEB">
<tr>
<td colspan="2" height="24" background="images/newmovie.gif">
<div align="left">
<a href="showfilm.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>" title="<%=besttop("title")%>">::<%if len(besttop("title"))<13then
response.Write(besttop("title"))
else
response.Write(left(besttop("title"),11)&"…")
end if
%></a></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="94">
<div align="center"><a href="showfilm.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>"><img src="<%if besttop("imagesname")="" then
moviefile="filmpic/defaut2.jpg"
else moviefile=FIfile(trim(besttop("imagefile")))&trim(besttop("imagesname"))
end if%><%=moviefile%>" align=top border=0 width="90" height="128" alt="<%=besttop("title")%>"></a></div>
</td>
<td bgcolor="#FFFFFF" width="148">
<div align=center>
<table width="100%" border="0" height="44">
<tr>
<td>
<div align=center></div>
<p style="LINE-HEIGHT: 100%"><font color="#993300">主演：</font><font color="#999999"><br>
<font color="#7C7C7C"><%=left(besttop("mainactors"),18)%>...</font></font><br>
<br>
<font color="#993300">影片简介：</font><font color="#999999"><br>
<font color="#7C7C7C"> <span class="yangline"><%=left(besttop("content"),55)%>...</span></font></font></p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
<%besttop.movenext%>
<td>
<div align=center>
<table width="245" border="0" cellspacing="1" cellpadding="0" height="140" bgcolor="#EBEBEB">
<tr>
<td colspan="2" height="24" background="images/newmovie.gif">
<div align="left">
<a href="showfilm.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>" title="<%=besttop("title")%>">::<%if len(besttop("title"))<13then
response.Write(besttop("title"))
else
response.Write(left(besttop("title"),11)&"…")
end if%></a></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="94">
<div align="center"><a href="showfilm.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>"><img src="<%if besttop("imagesname")="" then
moviefile="filmpic/defaut2.jpg"
else moviefile=FIfile(trim(besttop("imagefile")))&trim(besttop("imagesname"))
end if%><%=moviefile%>" align=top border=0 width="90" height="128" alt="<%=besttop("title")%>"></a></div>
</td>
<td bgcolor="#FFFFFF" width="148">
<div align=center>
<table width="100%" border="0" height="44">
<tr>
<td>
<div align=center></div>
<p style="LINE-HEIGHT: 100%"><font color="#993300">主演：</font><font color="#999999"><br>
<font color="#7C7C7C"><%=left(besttop("mainactors"),18)%>...</font></font><br>
<br>
<font color="#993300">影片简介：</font><font color="#999999"><br>
<font color="#7C7C7C"> <span class="yangline"><%=left(besttop("content"),55)%>...</span></font></font></p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</tbody>
</table>
</div>
</td>
</tr>
<%besttop.movenext
end if
topbest=topbest+2
if besttop.eof or topbest>6 then
exit do
end if
loop
besttop.close
set besttop=nothing
set conn=nothing
end if%>
</tbody>
</table>
</td>
</tr>
</table>
<br>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center">
<!--#include file="webbottom.asp"-->
</div>
</td>
</tr>
</table>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -