📄 make_type.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="check.asp" --><body bgcolor="#DADAE9"><%
'====================================================================
'= Copyright (c) 2005-2007,马 克斯(QQ448265) 开发 =
'= All rights reserved. =
'=------------------------------------------------------------------=
'= 文件名称：make_type.asp =
'= 摘 要：后台—生成列表页 =
'=------------------------------------------------------------------=
'= 用 途：免费电影系统 =
'= 最后更新：2007-07-10 =
'====================================================================
server.ScriptTimeout=3600
template_class = FSOFileRead("../template/item.html")
Dim Atcion
action=Request.QueryString ("action")
Select Case Lcase(action)
Case "make_type_all"
Call make_type_all()
Case Else
Call main
End Select
Sub main
class_id=request("class_id")
call createtypelist(class_id)
End Sub
Sub make_type_all
i=0
page=cint(request("page"))
If page="" Or IsNull(page) Or page<1 then page=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 = page
end if
do while not rs.eof
zt_typeid=rs("zt_typeid")
i=i+1
if i > 1 then exit Do
Call createtypelist(zt_typeid)
'response.write rs("zt_typename")
If page<rs.recordcount Then
Response.Write "<script language=javascript>location.href='?action=make_type_all&Page="&page+1& "';</script>"
Else
Response.Write "<script language=javascript>alert('恭喜，全部搞定。');</script>"
End If
rs.movenext
loop
rs.close
end if
End Sub
Sub createtypelist(class_id)
m_class_name=get_classname(class_id)
m_class_enname=get_classenname(class_id)
response.write "正在生成分类：<font color=""#ff0000""><b>"&m_class_name&"</b></font><br>"
set rs = server.createobject("adodb.recordset")
str_sql="select zt_id,zt_name,zt_color,zt_type,zt_zy,zt_dy,zt_pic,zt_date,zt_hits from zt_data where zt_type="&class_id&" order by zt_date desc"
rs.open str_sql,conn,1,1
if rs.eof then
response.write "暂无影片"
else
rs.pagesize=maxz_15
cut=CInt(maxz_21)
for l = 1 to rs.pagecount
html=""
html_List = ""&chr(13)
for j = 1 to rs.pagesize
zt_id=rs("zt_id")
z_view_path=zt_id
z_name=rs("zt_name")
zt_zy=rs("zt_zy")
if len(zt_zy)>cut+3 then zt_zy=left(zt_zy,cut+3)&"..."
zt_names=rs("zt_name")
if len(zt_names)>cut Then
zt_name=left(zt_names,cut)&"..."
Else
zt_name=zt_names
End If
zt_type=m_class_name
zt_dy=rs("zt_dy")
zt_server=server_v(zt_dy)
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_hits=rs("zt_hits")
zt_date=formatdatetime(rs("zt_date"),2)
If j Mod 2 =0 Then
c_s=" cl_s"
Else
c_s=""
End If
zt_color=rs("zt_color")
If zt_color<>"" or IsNull(zt_color)=false Then zt_name="<font color="""&zt_color&""">"&zt_name&"</font>"
html_List = html_List&"<div class=""classpage7"&c_s&""">"&chr(13)
html_List = html_List&"<div class=""classpage8"">"&chr(13)
html_List = html_List&"<a href="""&z_view_path&"""><img src="""&zt_pic&""" onerror=""src='../images/nopic.gif'"" alt="""&zt_names&""" /></a>"&chr(13)
html_List = html_List&"</div>"&chr(13)
html_List = html_List&"<div class=""classpage9"">"&chr(13)
html_List = html_List&"<h3><a href="""&z_view_path&""" title="""&zt_names&""">"&zt_name&"</a></h3>"&chr(13)
html_List = html_List&"<P>主演："&zt_zy&"</p>"&chr(13)
html_List = html_List&"<P>分类："&m_class_name&"</p>"&chr(13)
html_List = html_List&"<P>来源："&zt_server&"</p>"&chr(13)
html_List = html_List&"<P>人气："&zt_hits&"</p>"&chr(13)
html_List = html_List&"<P>时间："&zt_date&"</p>"&chr(13)
html_List = html_List&"</div>"&chr(13)
html_List = html_List&"</div>"&chr(13)
rs.movenext
if rs.eof then exit for
next
html_List = html_List&""
'生成页码
html_page = "</div><div id=""classpage10"">"
if cint(l) < 1 or cint(l) > Rs.PageCount then l = 1
html_page = html_page &"共"& rs.recordcount &"条记录 页次:"& l &"/"& Rs.PageCount &"页 "
if l > 1 then
html_page = html_page &"<a href=""index.html"">首页</a> "
else
html_page = html_page &"首页"
end if
if l > 1 then
If l-1=1 Then
html_page = html_page &"<a href=""index.html"&""">上一页</a> "
Else
html_page = html_page &"<a href=""index"&l-1&".html"&""">上一页</a> "
End If
else
html_page = html_page &"上一页 "
end if
Y_PageNumber = maxz_20-1 '数字分页个数+1
if l-int(Y_PageNumber/2) <= 1 then
m = 1
else
m = l-int(Y_PageNumber/2)
end if
if m+Y_PageNumber > Rs.PageCount then
n = Rs.PageCount
if Rs.PageCount-Y_PageNumber <= 1 then
m=1
else
m = Rs.PageCount - Y_PageNumber
end if
else
n = m+Y_PageNumber
end if
for i = m to n
if i = cint(l) then
html_page = html_page &"<span class=""red"">"&i&"</span> "
else
If i=1 Then
html_page = html_page &"<a href=""index.html"&""">"&i&"</a> "
Else
html_page = html_page &"<a href=""index"&i&".html"&""">"&i&"</a> "
End If
end if
next
if int(l) < int(Rs.PageCount) then
html_page = html_page &"<a href=""index"&l+1&".html"&""">下一页</a> "
else
html_page = html_page &"下一页 "
end if
if int(l) < int(Rs.PageCount) then
html_page = html_page &"<a href=""index"&Rs.PageCount&".html"&""">尾页</a> "
else
html_page = html_page &"尾页"
end if
html_page = html_page & "</div>"
html_template = Replace(template_class,"$zt_title$",maxz_1)
html_template = Replace(html_template,"$zt_typename$",m_class_name)
html_template = Replace(html_template,"$zt_item$",item("../"))
html_template = Replace(html_template,"$zt_search$",search_list(maxz_16,"../"))
html_template = Replace(html_template,"$zt_recommend$",get_left(maxz_11,maxz_12,1,class_id,"../"))
html_template = Replace(html_template,"$zt_itemhits$",get_left(maxz_13,maxz_14,2,class_id,"../"))
html_template = Replace(html_template,"$zt_item_list$",html_List&html_page)
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=html&html_template
If l=1 Then
m_class_path = "../"&m_class_enname &"/index.html"
Else
m_class_path = "../"&m_class_enname &"/index"&l&".html"
End If
createhtml m_class_path,html
response.write "恭喜，生成成功！地址为：<a href="""&m_class_path&""" target=_blank>"&m_class_path&"</a><br>"
response.flush
Next
response.write "任务完成"
end if
rs.close
Set rs=Nothing
End Sub
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -