⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 movie_makenew.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<%Admin="DownMake"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="电影制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<style>
body{font-size:12pt;line-height:140%} 
</style>
</head>
<body>
<!--#include file="check.asp"-->
<!--#include file="Movieconfig.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 电影名称：晓宇听幽网站内容管理系统·电影管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 电影创建时间：2003-7-10
'# 电影完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
page=ubound(split(xoYuMovieLb,","))+1
pagepath="../Movie/"
xoYuStudioNewPage=request("xoYuStudioNewPage")
if xoYuStudioNewPage<>"" then
%>
<!--#include file="mdb_path_Movie.asp"-->
<%
shu=50
if xoYuStudioNewPage="0" then
if xoYuMovieLbShuAll<>"" then
shu=Cint(xoYuMovieLbShuAll)
end if
sql="select top "&shu&" * from Movie order by date desc"
pagename=pagepath&"n"&xoYuStudioNewPage&".html"
title="全部电影"
else
si=cint(xoYuStudioNewPage)-1
if xoYuMovieLbShu<>"" then
  LBshu=split(xoYuMovieLbShu,",")
  shu=LBshu(si)
end if
if xoYuMovieLb<>"" then
  LBname=split(xoYuMovieLb,",")
  title=LBname(si)
end if
    if title="在线电影" then
      qttt="gs=1 or gs=2"
    elseif title="精彩动画" then
      qttt="gs=3"
    elseif title="特别电影" then
      qttt="sq='注册' or sq='破解' or sq='零售'"
    else
      qttt="cd='"&title&"'"
    end if
    sql="select top "&shu&" * from Movie where "&qttt&" order by date desc"
    pagename=pagepath&"n"&xoYuStudioNewPage&".html"
end if

ttypelist=ttypelist&"<select onchange=""javascript:window.open(this.options[this.selectedIndex].value,'_self')"" name=""select"">"
ttypelist=ttypelist&"<option value="""">"&title&"</option><option value=""n0.html"">-------</option>"
if xoYuMovieLb<>"" then
  xoYuMovieLb=split(xoYuMovieLb,",")
  for i=0 to ubound(xoYuMovieLb)
  ttypelist=ttypelist&"<option value=""n"&i+1&".html"">"&xoYuMovieLb(i)&"</option>"
  next
end if
ttypelist=ttypelist&"<option value=""n0.html"">全部电影</option></select>"

set rs=server.createobject("adodb.recordset")
set rs_type=server.createobject("adodb.recordset")
'列表内容
rs.open sql,conn,1,1
if not rs.eof then
i=0
do while not rs.eof
if len(month(rs("date")))=1 then
  Dmonth="0"&month(rs("date"))
else
  Dmonth=month(rs("date"))
end if
if len(day(rs("date")))=1 then
  Dday="0"&day(rs("date"))
else
  Dday=day(rs("date"))
end if
lb=lb&"<tr><td width=""420""><font color=""#000000"">["
  rs_type.open "select * from Movietype where id="&rs("tid"),conn,1,1
    if not rs_type.EOF then
     TN=split(rs_type("tname"),"|")
     lb=lb&"<a href=""list"&rs("tid")&"_1.html""><font color=""#000000"">"&TN(ubound(TN)-1)&"</font></a></FONT>"
    end if
    rs_type.close
    lb=lb&"]<FONT color=""#999999""> <a href=""xoYuMovie_"&rs("id")&".html"">"&rs("MovieName")&"&nbsp;"&rs("movieTime")&"</a></FONT></td>"
    lb=lb&"<td width=""80"" align=""center"">"&year(rs("date"))&"-"&Dmonth&"-"&Dday&"</td>"
    if rs("size")<>"" then
      fsize=rs("size")
    else
      fsize="-"
    end if
    lb=lb&"<td width=""80"" align=""center"">"&fsize&"</td></tr>"
i=i+1
if i>=shu then exit do
rs.movenext
loop
end if
rs.close
'本类TOP10
rs.open ("select top 10 MovieName,movieTime,id from Movie where date>Now()-7 order by hits desc"),conn,1,1
if rs.eof then
bztop = "还没有电影"
else
i=0
do while not rs.eof
bztop=bztop&"·<a href=""xoYuMovie_"&rs("id")&".html"">"&rs("MovieName")&" "&rs("movieTime")&"</a><br>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
'读取模板
rs.open ("select down_new from mb"),conn,1,1
pencat=""&rs("down_new")&""
rs.close
set rs_type=nothing
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"T_TITLE",title)
pencat=replace(pencat,"T_LIST",ttypelist)
pencat=replace(pencat,"T_BZTOP",bztop)
pencat=replace(pencat,"T_LB",lb)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&pagename&""))
fout.Write pencat
fout.close
Set fout=nothing
Set fso=nothing
else
if request("pageshu")<>"" then
response.write"成功:共生成[最新更新]页面<font color=""#FF0000"">"&request("pageshu")&"</font>个,总费时<font color=""#FF0000"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
else
response.write"<b><font color=""#FF0000"">正在生成[最新更新]页(Html),请等待......</font></b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
for i=0 to page
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('Movie_makenew.asp?xoYuStudioNewPage="&i&"',onDownloadDone)</script>"
next
response.write"<meta http-equiv=""refresh"" content=""0;url='Movie_makenew.asp?pageshu="&page+1&"&d="&timer()&""">"
end if
end if
%>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -