📄 vod_makenew.asp
字号:
<%Admin="VODMake"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>cn.MyFlash.NET</title>
<style>
body{font-size:12pt;line-height:140%}
</style>
</head>
<body>
<!--#include file="check.asp"-->
<!--#include file="config.asp"-->
<!--#include file="zcm.asp"-->
<%
page=ubound(split(webDownLb,","))+1
pagepath="../new_vod/"
JyDownNewPage=request("JyDownNewPage")
if JyDownNewPage<>"" then
%>
<!--#include file="mdb_path_vod.asp"-->
<%
shu=50
if JyDownNewPage="0" then
if webDownLbShuAll<>"" then
shu=Cint(webDownLbShuAll)
end if
sql="select top "&shu&" * from down order by date desc"
pagename=pagepath&"n"&JyDownNewPage&".htm"
title="全部作 品"
else
si=cint(JyDownNewPage)-1
if webDownLbShu<>"" then
LBshu=split(webDownLbShu,",")
shu=LBshu(si)
end if
if webDownLb<>"" then
LBname=split(webDownLb,",")
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 down where "&qttt&" order by date desc"
pagename=pagepath&"n"&JyDownNewPage&".htm"
end if
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=""53%"" bgcolor=""#DAF5FE"">["
rs_type.open "select * from downtype where id="&rs("tid"),conn,1,1
if not rs_type.EOF then
TN=split(rs_type("tname"),"|")
lb=lb&"<a href=""../vod_fl/"&rs("tid")&"_1.htm"">"&TN(ubound(TN)-1)&"</a>"
end if
rs_type.close
lb=lb&"] <a href=""../vod/"&rs("id")&".htm"">"&rs("cxn")&"</a></td>"
lb=lb&"<td width=""15%"" align=""center"" bgcolor=""#F7F7F7"">"&rs("ln")&"</td>"
lb=lb&"<td width=""17%"" align=""center"" bgcolor=""#DAF5FE"">"&year(rs("date"))&"-"&Dmonth&"-"&Dday&"</td>"
if rs("size")<>"" then
fsize=rs("size")
else
fsize="-"
end if
lb=lb&"<td width=""15%"" align=""center"" bgcolor=""#F7F7F7"">"&fsize&"</td></tr>"
i=i+1
if i>=shu then exit do
rs.movenext
loop
end if
rs.close
'本类TOP10
rs.open ("select top 5 cxn,pic,id from down 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&"<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0""><tr><td style=""line-height: 28px; font-size: 12px"" align=""middle""><a href=""../vod/"&rs("id")&".htm""><img src="""&rs("pic")&""" width=""100"" height=""75"" border=""1"" class=""border2""></a><br>"&rs("cxn")&"</td></tr>"
i=i+1
if i>=5 then exit do
rs.movenext
loop
end if
rs.close
bztop=bztop&"</table>"
'读取模板
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=""#4D9CC8"">"&request("pageshu")&"</font>个,总费时<font color=""#4D9CC8"">"&FormatNumber((timer()-request("D")),2)&"</font>秒,完成时间"&Now()&""
else
response.write"<b><font color=""#4D9CC8"">正在生成[最新更新]页(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('down_makenew.asp?JyDownNewPage="&i&"',onDownloadDone)</script>"
next
response.write"<meta http-equiv=""refresh"" content=""0;url='vod_makenew.asp?pageshu="&page+1&"&d="&timer()&""">"
end if
end if
%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -