index_movie_mb.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<!--#include file="movieconfig.asp"-->
<!--#include file="mdb_path_movie.asp"-->
<%  
newshu=6 '每个分类显示最新电影数
toplen=8
chalen=14
	   set rs=server.CreateObject("ADODB.RecordSet")
	   set rs_yl=server.CreateObject("ADODB.RecordSet")
	   set rs_info=server.CreateObject("ADODB.RecordSet")
	   i=0
	   j=0
       sql="select top 15 id,tid,moviename,movietime,hits,pic from movie where pic<>'' and show=1 order by date desc"
       rs.open sql,conn,1,1
       if not rs.eof then
       do while not rs.eof
       noid=noid&" and id<>"&rs("id")&""
       i=i+1
       piclist=piclist&"<a target=""_blank"" href=""xoYuMovie_"&rs("id")&".html""><img alt="""&rs("moviename")&""" src="""&rs("pic")&""" border=""0"" width=""120"" height=""160""></a> "
       if i>=15 then exit do
       rs.movenext
       loop
              rs.movefirst
              do while not rs.eof
              noid=noid&" and id<>"&rs("id")&""
              j=j+1
              goodlist=goodlist&j&" <a target=""_blank"" href=""xoYuMovie_"&rs("id")&".html"">"&rs("moviename")&"</a> "&rs("hits")&"<br>"
              if j>=10 then exit do
              rs.movenext
              loop
       end if
       rs.close
       set rs=nothing

	   
	   
list=list&"| "
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from movietype where tj=1 order by id",conn,1,1
if NOT rs.EOF then
allshu=rs.recordcount
Dim list_1(20)
Dim list_2(20)
Dim list_3(20)
do while NOT rs.EOF
ii=ii+1
list=list&"<a href=""xoYuMovieList_"&rs("id")&"_1.Html""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a> | "
list_1(ii)="<b><a href=""xoYuMovieList_"&rs("id")&"_1.Html""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a></b>"
list_2(ii)="<div align=right><a href=""xoYuMovieList_"&rs("id")&"_1.Html""><b>更多内容 ...</b></a></div>"
                  i=0
                  sqqq_yl=""
                  sql_yl="select * from movietype where ts like '"&rs("ts")&"%'"
                  rs_yl.open sql_yl,conn,1,1
                  if not rs_yl.eof then
                  do while not rs_yl.eof
                  sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&""
                  rs_yl.MoveNext
                  loop
                  end if
                  rs_yl.close
                           rs_info.open "select * from movie where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1
                           if NOT rs_info.EOF then
                           do while not rs_info.eof
                           if len(rs_info("moviename"))>chalen then
	                       movienamex=left(rs_info("moviename"),chalen)&"..."
	                       else
                           movienamex=rs_info("moviename")
                           end if
                            list_3(ii)=list_3(ii)&"[<a href=""xoYuMovie_"&rs("id")&"_1.Html""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a>]<a moviename="""&rs_info("moviename")&""" target=""_blank"" href=""xoYuMovie_"&rs_info("id")&".Html"">"&movienamex&"</a><font color=""#C0C0C0"">"&datetime1&"</font><br>"
                           i=i+1
                           if i>=newshu then exit do
                           rs_info.movenext
                           loop
                           end if
                            rs_info.close
                            
                           
rs.MoveNext
loop
end if
rs.close 
 '公告开始 
sql="select top 2 id,newsname,addtime,newsnote from Announce order by addtime desc"
rs.open sql,conn,1,1
if rs.eof then
  infolist="·还没有公告"
else
do while not rs.eof
Announce=Announce&"<b>◎</b>"&rs("newsnote")&"["&rs("addtime")&"]<br>"
	rs.movenext
	loop
end if
	rs.close
	   set rs_yl=nothing
	   set rs_info=nothing
'seetop
i=0
sql="select top 20 moviename,hits,id,tid from movie order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"还没有软件"
else
do while not rs.eof
seetop=seetop&"·<a href=""xoYumovie_"&rs("id")&".html"">"&rs("moviename")&" "&rs("hits")&"</a><br>"
i=i+1
if i>=20 then exit do
rs.movenext
loop
end if
rs.close

'lbnew
set rs_type=server.createobject("adodb.recordset")
i=0
       sql="select top 15 * from movie order by date desc"
       rs.open sql,conn,1,1
       if not rs.eof then
       do while not rs.eof
	   i=i+1
	   rs_type.open "select * from movietype where id="&rs("tid"),conn,1,1
	   if not rs_type.EOF then
       TN=split(rs_type("tname"),"|")
       lbnew=lbnew&"[<a href=""xoYuMovieList_"&rs("tid")&"_1.html"">"&TN(ubound(TN)-1)&"</a>]"
       end if
       rs_type.close
       if len(rs("moviename")) > 13 then
       lbnew=lbnew&" <a href=""xoYuMovie_"&rs("id")&".html"" target=""_blank"">"&left(rs("moviename"),13)&"..</a></FONT>"
       else
       lbnew=lbnew&" <a href=""xoYuMovie_"&rs("id")&".html"" target=""_blank"">"&rs("moviename")&"</a></FONT>"
       end if
       lbnew=lbnew&""&rs("hits")&"<br>"
	   if i>=15 then exit do
       rs.movenext
       loop
       end if
       rs.close
	   set rs=nothing
	   set rs_type=nothing
%>
<html>
<head>
<title>晓宇听幽工作室 网站内容管理系统 xoYu CMS 2004 V2.0 Professional<%=MovieWebname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<meta name="keywords" content="庆阳，中国庆阳，家在庆阳，听幽，gb,gbc,gba,fc,sfc,ps,ps2,dc,md,n64,ngc,xbox,nintendo,sony,rom,emu,任天堂,索尼,模拟器,游戏下载,download,gameboy,下载">
<link rel="stylesheet" href="../skin/main/main.css">
<style>
<!--
.p2{font-size:12px;line-height:130%;}
a:link.lb{color:black}
.h140 {
LINE-HEIGHT: 140%
}
TD {
FONT-SIZE: 12px; COLOR: #333333
}
-->
</style>
</head>
<div id=hint style="display:none"></div>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" text="#2F2F2F" style="text-align: center">
<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0" height="6">
<tr>
<td style="FONT-SIZE: 12px; FONT-FAMILY: 宋体" height="2" bgcolor="#375CB3" colspan="3" width="760">
</td>
</tr>
<tr>
<td style="FONT-SIZE: 12px; FONT-FAMILY: 宋体" height="1" bgcolor="#5A7CCC" colspan="3" width="760">
<img src="../skin/main/arrow.gif" height="12"> <b><%=list%></td>
</tr>
<tr>
<td bgColor="#728FD3" height="2" colspan="3" width="760"></td>
</tr>
<tr vAlign="center">
<td class="chs" width="760" bgColor="#A8BAE3" height="2" colspan="3">
</td>
</tr>
<tr vAlign="center">
<td class="chs" width="131" height="35">
<img border="0" src="../skin/main/logo.jpg" width="170" height="70"></td>
<td class="chs" width="150" height="35">
<p align="center"><font color="#375CB3">■ </font>
<a href="javascript:window.external.AddFavorite('http://www.xoYu.com','晓宇听幽工作室（www.xoYu.com）')" target="_self" style="color: #000000; text-decoration: none">加入收藏</a><br>
<font color="#375CB3">■ </font>
<a href="javascript:window.external.AddFavorite('http://www.xoYu.com','晓宇听幽工作室（www.xoYu.com）')" target="_self" style="color: #000000; text-decoration: none">加入收藏</a><br><font color="#375CB3">■</font><font color="#a70404">
</font>
<a href="http://www.xoyu.com/" target="_blank">
<font color="#2F2F2F">联系我们</font></a></td>
<td width="479" height="35">
<img src="../skin/main/44.gif" border="0" align="right" width="468" height="70"></td>
</tr>
<tr vAlign="center">
<form action="http://www.xoyu.com/bbs/loginout.asp" name="frmBBSLogin2" method="post" OnSubmit="return checkSubmit()">
<td width="760" height="12" colspan="3" bgcolor="#5A7CCC">
<p align="center">
<input type="hidden" name="inPath" value="">
<input type="hidden" name="Mode" value="login">
<input type="hidden" name="CookieDate" value="365">
用户名:<input maxLength="16" size="14" name="Name">
密 码:<input type="password" maxLength="16" size="14" value name="Password">
<input type="submit" value="登 陆" name="submit">
<input class="button" onclick="javascript:document.URL='http://www.xoyu.com/bbs/default.asp';" type="button" value="随便逛逛" name="guest">
<input class="button" onclick="javascript:document.URL='http://www.xoyu.com/bbs/policy.asp';" type="button" value="注 册" name="register">
<input class="button" onclick="javascript:document.URL='http://www.xoyu.com/bbs/Get_Pword.asp';" type="button" value="忘记密码" name="forget">
</td></form>
</tr>
<tr vAlign="center">
<td width="760" height="2" colspan="3" bgcolor="#728FD3">
</td>
</tr>
<tr vAlign="center">
<td width="760" height="2" colspan="3" bgcolor="#A8BAE3">
</td>
</tr>
<tr vAlign="center">
<td width="760" height="35" colspan="3">
<img border="0" src="../ads/love_banner_750.gif" align="right"></td>
</tr>
</table>
</div>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="right">
<td valign="baseline"><img src="../skin/main/291653471.gif" width="24" height="19"></td>
<td width="630">
<table border="0" cellspacing="1" cellpadding="0" width="630" bgColor=#728FD3>
<tr valign="bottom" align="middle">
<td height="17" width="628">
<p align="center"><%=list%></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" height="273">
<tr>
<td width="197" bgColor=#728FD3 valign="top" height="273">
<table width="180" border="0" cellspacing="0" cellpadding="0" align="center" height="395">
<tr valign="bottom">
<td colspan="3" height="13"> </td>
</tr>
<tr valign="bottom" background="2916535453.gif">
<td colspan="3" height="13" background="../skin/main/2916535453.gif">　　　<A class=dy href="bbs">站内公告</A></td>
</tr>
<tr>
<td bgcolor="#ffffff" width="1" height="87" align="center"><img height=1 src="../skin/main/291653472" width=1></td>
<td width="178" background="../skin/main/2916535554.gif" height="87" align="left"> 
<%=Announce%></td>
<td bgcolor="#ffffff" width="1" height="87" align="center"><img height=1 src="../skin/main/291653473" width=1></td>
</tr>
<tr bgcolor="#ffffff">
<td colspan="3" height="1"></td>
</tr>
<tr valign="bottom">
<td colspan="3" height="11"> </td>
</tr>
<tr valign="bottom" background="2916535453.gif">
<td colspan="3" height="14" background="../skin/main/2916535453.gif">　　　观看排行</td>
</tr>
<tr>
<td bgcolor="#ffffff" width="1" height="239" align="center"><img height=1 src="../skin/main/291653472" width=1></td>