📄 make_view.asp
字号:
<!-- #include file="Conn.asp" -->
<!--#include file="check.asp"-->
<body bgcolor="#DADAE9"><%'====================================================================
'= Copyright (c) 2005-2007,马 克斯(QQ448265)开 发 =
'= All rights reserved. =
'=------------------------------------------------------------------=
'= 文件名称：make_view.asp =
'= 摘 要：后台-生成数据显示页 =
'=------------------------------------------------------------------=
'= 用 途：免费电影系统 =
'= 最后更新：2007-07-7 =
'====================================================================
server.ScriptTimeout=3600
template_view = FSOFileRead("../template/view.html")
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 "main1"
Call main1
Case "view_c"
Call view_c
Case Else
Call main
End Select
Sub main
class_id=request("class_id")
call createview(class_id,0,"")
End Sub
Sub main1
class_id=request("class_id")
pagen=request("pagen")
call createview(class_id,pagen,"")
End Sub
Sub view_c
zt_id_c=request("zt_id")
If zt_id_c="" Then response.write"<script language=javascript>alert('没有选择数据');history.go(-1);</script>":response.End
call createview("",0,zt_id_c)
End Sub
Sub make_view_all
i=0
pages=cint(request("pages"))
if pages="" or pages<1 then pages=1
set rs=server.createobject("adodb.recordset")
Sql="select zt_typeid,zt_typename from zt_type order by zt_typeid asc"
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
rs.pagesize = 1
if rs.pagecount >0 then
rs.absolutepage = pages
end if
do while not rs.eof
zt_typeid=rs("zt_typeid")
i=i+1
if i > 1 then exit Do
pagen=rs.recordcount
Call createview(zt_typeid,pagen,"")
rs.movenext
loop
rs.close
end if
End Sub
Sub createview(zt_type,pagen,zt_id_c)
pagen=CInt(pagen)
page=CInt(request("page"))
pages=CInt(request("pages"))
if page="" or page=0 Then page=1
if pages="" or pages=0 Then pages=1
If zt_id_c="" Then
response.write "正在生成<b>"&get_classname(zt_type)&"</b>内容页...<br>"
str_sql="select * from zt_data where zt_type="&zt_type&" order by zt_id desc"
Else
str_sql="select * from zt_data where zt_id in("&zt_id_c&")"
End If
set rs = server.createobject("adodb.recordset")
rs.open str_sql,conn,1,1
if rs.eof then
response.write "暂无数据！"
Else
rs.pagesize=maxz_17
rs.absolutepage=page
pagenum=rs.pagecount
if Rs.Eof or page>pagenum then
response.write "生成完成！"
else
m_num=0
while not rs.eof and m_num<100
zt_type=rs("zt_type")
m_class_name=get_classname(zt_type)
m_class_enname=get_classenname(zt_type)
zt_name=rs("zt_name")
zt_id=rs("zt_id")
zt_view_path=zt_id
zt_content=rs("zt_content")
zt_zy=rs("zt_zy")
if isnull(zt_zy)=true Then zt_zy=""
zt_typename=m_class_name
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
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$",m_class_name)
html_template = Replace(html_template,"$zt_typeid$",zt_type)
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,zt_type,"../../"))
html_template = Replace(html_template,"$zt_left_commend$",get_left(maxz_11,maxz_12,1,zt_type,"../../"))
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
m_num=m_num+1
Rs.MoveNext
Wend
If page<pagenum Then
If pagen=0 Then
response.write "<script language=javascript>location.href='?class_id="&zt_type&"&page="&page+1&"&pages="&pages&"&pagen="&pagen&"';</script>"
Else
response.write "<script language=javascript>location.href='?action=main1&class_id="&zt_type&"&page="&page+1&"&pages="&pages&"&pagen="&pagen&"';</script>"
End If
Else
If pagen=0 Then
response.write "任务完成<br /><a href="""&request.ServerVariables("HTTP_REFERER")&""">返回</a>"
Else
If pages=pagen Then
response.write "<script language=javascript>alert('恭喜，全部搞定。');</script>"
Else
response.write "<script language=javascript>location.href='?action=make_view_all&Pages="&pages+1&"';</script>"
End If
End If
End If
End If
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
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -