📄 makemovie.asp
字号:
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_movie.asp"-->
<!--#include file="Movieconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量生成HTML</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select down_show from mb"),conn,1,1
pencat=rs("down_show")
rs.close
rs.open ("select * from Movie where id="&request("id")&""),conn,1,1
if not rs.eof then
ttid=rs("tid")
id=rs("id")
MovieName=rs("MovieName")
if rs("movieTime")<>"" then
movieTime=rs("movieTime")
else
movieTime="未知"
end if
pwd=rs("pwd")
yy=rs("yy")
cd=rs("cd")
sq=rs("sq")
size=rs("size")
hot=rs("hot")
star=rs("star")
lu=rs("lu")
pic=rs("pic")
body=rs("body")
datetime=rs("date")
hits=rs("hits")
show=rs("show")
user=rs("user")
gs=rs("gs")
end if
rs.close
user="<a href='javascript:' onclick='window.open(""../admin/user.asp?user="&user&""","""",""width=400,height=150,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'>"&user&"</a>"
'################ 读取标题 等.. 开始 ################
rs.open "select * from Movietype where id="&ttid,conn,1,1
ts=rs("ts")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
if i=ubound(TN)-2 and ubound(TN)>1 then
TTY_id=TI(i)
TTY_name=TN(i)
end if
all_type_top_id=TI(i)
all_type_name=TN(i)
thistype=thistype & "-> <a href=""../Movie/xoYuMovieList_"&TI(i)&"_1.html"">"&TN(i)&"</a>"
thistitle=thistitle & " - "&TN(i)&""
ttype=TN(i)
next
rs.close
''########读取本类top10
sql="select * from Movie where tid="&ttid&" order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有电影"
else
do while not rs.eof
h=h+1
txtop=TXtop&"·<a href=""../Movie/xoYuMovie_"&rs("id")&".html"">"&rs("MovieName")&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
'########读取电影连接
sql="select * from Moviefile where downid="&id&" order by downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16 height=16> "
else
dlist=dlist&"<script language=""javascript"">function mvH(htmlurl){var newwin=window.open(htmlurl,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no');return false;}</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:"" onClick=""window.open('../play.asp?id="&id&"&no="&rs("downno")&"','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=368,height=285,status=no,resizable=no')"">观看["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs("downno")&""" onclick=""return mvH(this.href);""><img border=0 src=../images/d_download.gif width=14 height=14>点这里观看电影-> "
if rs("filename")<>"" then
dlist=dlist&""&rs("filename")&""
else
dlist=dlist&""&MovieName&""
end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关电影
sql="select top 10 id,MovieName,movieTime from Movie where MovieName like '%"&MovieName&"%' and id<>"&id&" order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
xlist=xlist&"·<a href="""&rs("id")&".html"">"&rs("MovieName")&""
if rs("movieTime")<>"" then
xlist=xlist&" "&rs("movieTime")&""
end if
xlist=xlist&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
xlist=xlist&"·更多相关 <a href=""../search.asp?k="&MovieName&""">GO!-></a><br><br>"
end if
rs.close
conn.close
set conn=nothing
%><%
pencat=replace(pencat,"S_CXN",MovieName)
pencat=replace(pencat,"S_CXV",movieTime)
pencat=replace(pencat,"S_ID",id)
if yy<>"" then
else
yy="未知"
end if
pencat=replace(pencat,"S_YY",yy)
if cd<>"" then
else
cd="未知"
end if
pencat=replace(pencat,"S_CD",cd)
if sq<>"" then
sq=sq&"版"
else
sq="授权未知"
end if
pencat=replace(pencat,"S_SQ",sq)
if size<>"" then
else
size="未知"
end if
pencat=replace(pencat,"S_SIZE",size)
for i=1 to hot
hotstar=hotstar&"<img src=""../images/d_star.gif"" width=""13"" height=""12"" border=""0"">"
next
'''###############注册页面
if reg<>"" then
hotstar=hotstar&"<br><b>在线注册：</b><a href="""®&""" target=""_blank""><font color=""red"">点击这里成为正版用户</font>==></a>"
end if
'''###############
pencat=replace(pencat,"S_HOT",hotstar)
if star<>"" then
else
star="未知"
end if
pencat=replace(pencat,"S_star",star)
if star<>"" then
star="<a href=""mailto:"&star&"?subject=Come from "&MovieWeburl&",About yours ["&MovieName&"]"">"&star&"</a>"
else
star="未知"
end if
pencat=replace(pencat,"S_EMAIL",star)
if lu<>"" then
lu="<a href="""&lu&""" target=""_blank"">"&lu&"</a>"
else
lu="未知"
end if
pencat=replace(pencat,"S_URL",lu)
if pic<>"" then
pic="<a href="""&pic&"""><img border=""0"" alt=""点击查看图片"" src="""&pic&""" width=""150"" height=""200"" align=""left"" hspace=""10""></a>"
else
pic=""
end if
pencat=replace(pencat,"S_PIC",pic)
pencat=replace(pencat,"S_TXT",body)
pencat=replace(pencat,"S_DATE",datetime)
if datetime>Now() then
mtime=datetime
else
mtime=Now()
end if
pencat=replace(pencat,"S_TIME",mtime)
pencat=replace(pencat,"S_HITS",hits)
if pwd<>"" then
pwd="<b>解压密码：</b>[<font color=""#FF0000"">"&pwd&"</font>](红色部分)<br>"
else
pwd=""
end if
pencat=replace(pencat,"S_PWD",pwd)
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXtop",txtop)
pencat=replace(pencat,"DOWN_LIST",dlist)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_INFO",xinfo)
pencat=replace(pencat,"T_USER",user)
Set fso = Server.CreateObject("Scripting.FilesystemObject")
Set fout = fso.CreateTextFile(server.mappath("../Movie/xoYuMovie_"&id&".html"))
fout.Write pencat
fout.Writeline("")
fout.Writeline("<center><div align=center><a title=""Powered By:xoYu CMS"" href=http://www.xoyu.com/><span style=""background-color: #FFFFFF"">xoYu CMS 2.0</span></a></div></center>")
fout.Writeline("<!--Published Date:"&Now&" Power by www.xoyu.com-->")
fout.Writeline("<!--2002～2003 Copyright by www.xoyu.com All Rights Reserved-->")
fout.close
'************** 生成HTML页 结束 ***************
if request("type")="page" then%><font color="#FF0000">生成电影观看页完成</font><script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
<%end if%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -