📄 make_view_play.asp
字号:
<!-- #include file="Conn.asp" -->
<!--#include file="check.asp"-->
<body bgcolor="#DADAE9"><%'====================================================================
'= Copyright (c) 2005-2007,马克 斯(QQ448265)开发 =
'= All rights reserved. =
'=------------------------------------------------------------------=
'= 文件名称：make_view_play.asp =
'= 摘 要：后台—生成内容及播放页 =
'=------------------------------------------------------------------=
'= 用 途：免费电影系统 =
'= 最后更新：2007-07-8 =
'====================================================================
server.ScriptTimeout=3600
Dim Atcion
action=Request.QueryString ("action")
Select Case Lcase(action)
Case "make_view"
Call make_view()
Case "make_view_all"
Call make_view_all()
Case Else
Call main
End Select
Sub main
zt_id=request("zt_id")
call createview(zt_id)
zt_post_url=request.ServerVariables("HTTP_REFERER")
zt_post_e=Replace(request("zt_post_e"),",","&")
posturl=request("posturl")
If maxz_18<>1 Then
response.write"<br /><br />Create Html Is Closed"
Else
set rs=server.createobject("adodb.recordset")
Sql="select zt_id,zt_name,zt_url,zt_dy1,zt_url1 from zt_data where zt_id="&zt_id
rs.Open sql,conn,1,1
if rs.eof or rs.bof then
Response.Write("<p style=""margin-top: 2"" align=center>还没有相关数据")
response.end
else
zt_name=rs("zt_name")
zt_url=rs("zt_url")
response.write "<br />正在生成电影：<font color=""#ff0000""><b>"&zt_name&"</b></font>的播放页<br>"
zt_url=replace(zt_url,chr(10),"")
zt_url=replace(zt_url,chr(13),"#")
zt_url=replace(zt_url,"##","")
If Right(zt_url,1)="#" Then zt_url=Mid(zt_url,1,Len(zt_url)-1)
a=split(zt_url,"#")
b=ubound(a)
for i=0 to b
if i<9 then
ii="0"&i+1
else
ii=i+1
end if
c=Split(a(i),"|")
d=UBound(c)
If d>0 Then
For iii=0 To d
Call createplaylist(zt_id,b+1,i+1,d+1,iii+1,ii&"_"&iii+1,"")
Next
Else
If a(i)="没有" Then
Else
Call createplaylist(zt_id,b+1,i+1,d+1,1,ii,"")
End if
End If
Next
zt_dy1=rs("zt_dy1")
If zt_dy1<>"" Or IsNull(zt_dy1)=False Then
zt_url1=rs("zt_url1")
zt_url1=replace(zt_url1,chr(10),"")
zt_url1=replace(zt_url1,chr(13),"#")
zt_url1=replace(zt_url1,"##","")
If Right(zt_url1,1)="#" Then zt_url1=Mid(zt_url1,1,Len(zt_url1)-1)
a_1=split(zt_url1,"#")
b_1=ubound(a_1)
for i_1=0 to b_1
if i_1<9 then
ii_1="0"&i_1+1
else
ii_1=i_1+1
end if
c_1=Split(a_1(i_1),"|")
d_1=UBound(c_1)
If d_1>0 Then
For iii_1=0 To d_1
Call createplaylist(zt_id,b_1+1,i_1+1,d_1+1,iii_1+1,ii_1&"_"&iii_1+1,"0")
Next
Else
If a_1(i_1)="没有" Then
Else
Call createplaylist(zt_id,b_1+1,i_1+1,d_1+1,1,ii_1,"0")
End if
End If
next
End If
response.write "任务完成"
rs.close
end If
End If
If posturl="edit" Then
response.write "<script language=javascript>location.href='"&zt_post_e&"';</script>"
ElseIf posturl="add" Then
response.write "<script language=javascript>location.href='admin_add.asp';</script>"
Else
response.write "<script language=javascript>location.href='"&zt_post_url&"';</script>"
response.write"<br /><br /><a href="&zt_post_url&">返回</a>"
End If
End Sub
Sub createview(zt_id)
template_view = FSOFileRead("../template/view.html")
set rs = server.createobject("adodb.recordset")
str_sql="select * from zt_data where zt_id="&zt_id
rs.open str_sql,conn,1,1
if rs.eof then
response.write "暂无数据！"
else
zt_name=rs("zt_name")
zt_content=rs("zt_content")
zt_zy=rs("zt_zy")
if isnull(zt_zy)=true Then zt_zy=""
class_id=rs("zt_type")
zt_typename=get_classname(class_id)
m_class_enname=get_classenname(class_id)
zt_id=rs("zt_id")
zt_view_path=zt_id
zt_dy=rs("zt_dy")
zt_server=server_v(zt_dy)
zt_dy1=rs("zt_dy1")
If zt_dy1="" or IsNull(zt_dy1) Then
Else
zt_server1=server_v(zt_dy1)
End If
zt_pic=rs("zt_pic")
If zt_pic="" or IsNull(zt_pic) Then zt_pic="no"
If Left(zt_pic,6)="images" then
zt_pic="../../"&zt_pic
Else
zt_pic=zt_pic
End If
zt_color=rs("zt_color")
If zt_color<>"" or IsNull(zt_color)=false Then zt_name1=" style=""color:"&zt_color&";"""
zt_hits=rs("zt_hits")
zt_tj=rs("zt_tj")
If zt_tj>0 Then
zt_tjx="<img src=""../../images/tj.gif"" />"
Else
zt_tjx=""
End If
zt_lz=rs("zt_lz")
If zt_lz="" or IsNull(zt_lz) Then
zt_lz=""
Else
zt_lz="<p>状 态："&zt_lz&"</p>"
End If
zt_date=formatdatetime(rs("zt_date"),2)
zt_url=rs("zt_url")
url=url_(zt_url,zt_id,"","")
url="<div class=""movienews3""><div class=""indexmovie6"">在线点播服务器①<span>(来源："&zt_server&")</span></div><div class=""movienews_222"">"&url&"</div></div>"
If zt_dy1="" or IsNull(zt_dy1) Then
url1=""
Else
zt_url1=rs("zt_url1")
url1=url_(zt_url1,zt_id,"s=1&","0")
url1="<div class=""movienews3""><div class=""indexmovie6"">高清晰点播服务器②<span><font color=ff0000>(注意：播放前需要下载<a href=http://down.sandai.net/Thunder5.7.6.426.exe target=_blank>迅雷</A>)</font></span></div><div class=""movienews_222"">"&url1&"</div></div>"
End If
html_template = Replace(template_view,"$zt_name$",zt_name)
html_template = Replace(html_template,"$zt_name1$",zt_name1)
html_template = Replace(html_template,"$zt_title$",maxz_1)
html_template = Replace(html_template,"$zt_item$",item("../../"))
html_template = Replace(html_template,"$zt_typename$",zt_typename)
html_template = Replace(html_template,"$zt_typeid$",class_id)
html_template = Replace(html_template,"$zt_en$",m_class_enname)
html_template = Replace(html_template,"$zt_lz$",zt_lz)
html_template = Replace(html_template,"$zt_zy$",zt_zy)
html_template = Replace(html_template,"$zt_pic$",zt_pic)
html_template = Replace(html_template,"$zt_hits$",zt_hits)
html_template = Replace(html_template,"$zt_id$",zt_id)
html_template = Replace(html_template,"$zt_date$",zt_date)
html_template = Replace(html_template,"$zt_url$",url)
html_template = Replace(html_template,"$zt_url1$",url1)
html_template = Replace(html_template,"$zt_content$",zt_content)
'html_template = Replace(html_template,"$zt_server$",zt_server)
html_template = Replace(html_template,"$zt_tjx$",zt_tjx)
html_template = Replace(html_template,"$zt_mail$",maxz_3)
html_template = Replace(html_template,"$zt_web$",maxz_2)
html_template = Replace(html_template,"$zt_tj$",maxz_4)
html_template = Replace(html_template,"$zt_search$",search_list(maxz_16,"../../"))
html_template = Replace(html_template,"$zt_left_hits$",get_left(maxz_13,maxz_14,2,class_id,"../../"))
html_template = Replace(html_template,"$zt_left_commend$",get_left(maxz_11,maxz_12,1,class_id,"../../"))
html=html_template
m_view_path = "../"&m_class_enname &"/"&zt_view_path&"/index.html"
createhtml m_view_path,html
response.write "恭喜，<font color=red>"&zt_name&"</font>生成成功！地址为：<a href="""&m_view_path&""" target=_blank>"&m_view_path&"</a><br>"
response.flush
Response.Clear
End If
rs.close
Set rs=nothing
End Sub
Function url_(zt_url,zt_id,n,m)
url_=""
zt_url=replace(zt_url,chr(10),"")
zt_url=replace(zt_url,chr(13),"#")
zt_url=replace(zt_url,"##","")
If Right(zt_url,1)="#" Then zt_url=Mid(zt_url,1,Len(zt_url)-1)
a=split(zt_url,"#")
b=ubound(a)
for i=0 to b
if i<9 then
ii="0"&i+1
else
ii=i+1
end if
c=Split(a(i),"|")
d=UBound(c)
If d>0 Then
For iii=0 To d
If maxz_18=1 Then
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href="""&maxz_19&m&ii&"_"&iii+1&".html"">第"&ii&"-"&iii+1&"集</a></div>"&chr(13)
Else
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href=""../../play.asp?"&n&"id="&zt_id&"&m="&b+1&"&n="&i+1&"&u="&d+1&"&v="&iii+1&""">第"&ii&"-"&iii+1&"集</a></div>"&chr(13)
End If
Next
Else
If Left(a(i),2)="没有" Then
If InStr(a(i),"$")>0 Then
url_=url_&"<div class=""movienews3c""><a style=""background:#FFF;"">"&Split(a(i),"$")(1)&"</a></div>"&chr(13)
Else
url_=url_&"<div class=""movienews3c"">第"&ii&"集暂缺</div>"&chr(13)
End If
Else
If maxz_18=1 Then
If InStr(a(i),"$")>0 Then
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href="""&maxz_19&m&ii&".html"">"&Split(a(i),"$")(0)&"</a></div>"&chr(13)
Else
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href="""&maxz_19&m&ii&".html"">第"&ii&"集</a></div>"&chr(13)
End If
Else
If InStr(a(i),"$")>0 Then
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href=""../../play.asp?"&n&"id="&zt_id&"&m="&b+1&"&n="&i+1&"&u="&d+1&"&v=1"">"&Split(a(i),"$")(0)&"</a></div>"&chr(13)
Else
url_=url_&"<div class=""movienews3c""><a target=""_blank"" href=""../../play.asp?"&n&"id="&zt_id&"&m="&b+1&"&n="&i+1&"&u="&d+1&"&v=1"">第"&ii&"集</a></div>"
End If
End If
End if
End If
next
End Function
Sub createplaylist(id,m,n,u,v,p,o)
set rs1=conn.execute("select zt_id,zt_name,zt_url,zt_dy,zt_dy1,zt_url1,zt_dq,zt_type from zt_data where zt_id="&id)
if rs1.eof or rs1.bof then
Response.Write("<p style=""margin-top: 2"" align=center>还没有相关数据")
response.end
Else
v_name=rs1("zt_name")
If o="0" Then
v_url=rs1("zt_url1")
v_play=rs1("zt_dy1")
Else
v_url=rs1("zt_url")
v_play=rs1("zt_dy")
End If
v_dq=rs1("zt_dq")
If IsNull(v_dq) Then v_dq=""
v_type=rs1("zt_type")
v_typename=get_classname(v_type)
v_class_enname=get_classenname(v_type)
v_view_path=rs1("zt_id")
rs1.close
v_url=replace(v_url,chr(10),"")
v_url=replace(v_url,chr(13),"#")
v_url=replace(v_url,"##","")
If Right(v_url,1)="#" Then v_url=Mid(v_url,1,Len(v_url)-1)
'--------------------
no_url=""
a=split(v_url,"#")
b=UBound(a)
For p_i=0 To b
if p_i<9 then
pp_i="0"&p_i+1
else
pp_i=p_i+1
end if
c=Split(a(p_i),"|")
d=UBound(c)
If d>0 Then
For p_ii=0 To d
If p_i=n-1 And p_ii=v-1 Then
no_url=no_url&"<a style=""background:#FFF;""><span class=""red strong"">第"&pp_i&"-"&p_ii+1&"集</span></a>"
Else
no_url=no_url&"<a href="""&maxz_19&o&pp_i&"_"&p_ii+1&".html"">第"&pp_i&"-"&p_ii+1&"集</a> "
End If
Next
Else
If Left(a(p_i),2)="没有" Then
If InStr(a(p_i),"$")>0 Then
no_url=no_url&"<a style=""background:#FFF;"">"&Split(a(p_i),"$")(1)&"</a>"
Else
no_url=no_url&"<a style=""background:#FFF;"">第"&pp_i&"集暂缺</a>"
End If
Else
If p_i=n-1 Then
If InStr(a(p_i),"$")>0 Then
no_url=no_url&"<a style=""background:#FFF;""><span class=""red strong"">"&Split(a(p_i),"$")(0)&"</span></a>"
Else
no_url=no_url&"<a style=""background:#FFF;""><span class=""red strong"">第"&pp_i&"集</span></a>"
End If
Else
If InStr(a(p_i),"$")>0 Then
no_url=no_url&"<a href="""&maxz_19&o&pp_i&".html"">"&Split(a(p_i),"$")(0)&"</a>"
Else
no_url=no_url&"<a href="""&maxz_19&o&pp_i&".html"">第"&pp_i&"集</a>"
End If
End If
End If
End If
Next
If v=1 Then
nv=n
Else
nv=n&"-"&v
End If
'----------------------
v_a=Split(v_url,"#")
v_b=UBound(v_a)
If v_b>0 Then
v_c=v_a(n-1)
v_f=Split(v_c,"|")
v_g=UBound(v_f)
If v_g>0 Then
v_url_1=v_f(v-1)
Else
v_url_1=v_a(n-1)
End If
Else
v_d=Split(v_url,"|")
v_e=UBound(v_d)
If v_e>0 Then
v_url_1=v_d(v-1)
Else
v_url_1=v_url
End If
End If
If InStr(v_url_1,"$")>0 Then
v_url_3=Split(v_url_1,"$")
v_url_1=v_url_3(1)
v_url_2=v_url_3(0)
Else
v_url_2=v_name
End If
If v_play="ouou" Then
v_play_u="ouou.htm"
ElseIf v_play="tudou" Then
v_play_u="tudou.htm"
ElseIf v_play="iask" Then
v_play_u="iask.htm"
ElseIf v_play="56" Then
v_play_u="56.htm"
ElseIf v_play="play" Then
v_play_u="play.htm"
ElseIf v_play="real" Then
v_play_u="real.htm"
ElseIf v_play="media" Then
v_play_u="media.htm"
ElseIf v_play="bobo" Then
v_play_u="bobo.htm"
ElseIf v_play="6rooms" Then
v_play_u="6rooms.htm"
ElseIf v_play="youku" Then
v_play_u="youku.htm"
ElseIf v_play="qvod" Then
v_play_u="qvod.htm"
ElseIf v_play="neo" Then
v_play_u="neo.htm"
ElseIf v_play="xunlei" Then
v_play_u="xunlei.htm"
ElseIf v_play="xunlei2" Then
v_play_u="xunlei2.htm"
ElseIf v_play="tvix" Then
v_play_u="tvix.htm"
End If
v_play_temp = FSOFileRead("../template/play/"&v_play_u)
v_play_temp=Replace(v_play_temp,"template/","../../template/")
template_play = FSOFileRead("../template/play.html")
If maxz_24="" Or IsNumeric(maxz_24)=false Then maxz_24=314:End if
html_template = Replace(template_play,"$zt_name$",v_name)
html_template = Replace(html_template,"$zt_title$",maxz_1)
html_template = Replace(html_template,"$zt_item$",item("../../"))
html_template = Replace(html_template,"$zt_typename$",v_typename)
html_template = Replace(html_template,"$zt_en$",v_class_enname)
html_template = Replace(html_template,"$zt_search$",search_list(maxz_16,"../../"))
html_template = Replace(html_template,"$zt_nourl$",no_url)
html_template = Replace(html_template,"$zt_nv$",nv)
html_template = Replace(html_template,"$zt_playtool$",v_play_temp)
html_template = Replace(html_template,"$zt_play_url$",v_url_1)
html_template = Replace(html_template,"$zt_play_name$",v_url_2)
html_template = Replace(html_template,"$zt_mail$",maxz_3)
html_template = Replace(html_template,"$zt_web$",maxz_2)
html_template = Replace(html_template,"$zt_tj$",maxz_4)
html_template = Replace(html_template,"$zt_cid$",maxz_24)
html_template = Replace(html_template,"$zt_sid$",v_dq)
html_template = Replace(html_template,"$zt_vid$",id&"/"&maxz_19&o&p&".html")
html_template = Replace(html_template,"$zt_left_hits$",get_left(maxz_13,maxz_14,2,v_type,"../../"))
html_template = Replace(html_template,"$zt_left_commend$",get_left(maxz_11,maxz_12,1,v_type,"../../"))
html=html&html_template
m_play_path = "../"&v_class_enname &"/"&v_view_path&"/"&maxz_19&o&p&".html"
createhtml m_play_path,html
response.write "恭喜，生成成功！地址为：<a href="""&m_play_path&""" target=_blank>"&m_play_path&"</a><br>"
response.flush
Response.Clear
End If
Set rs1=Nothing
End Sub
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -