<!--#include file="tgzcm_Conn.asp"-->
<!--#include file="tgzcm_Check.asp"-->
<!--#include file="../tgzcm.Include/tgzcm.Lable.All.asp"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>网站生成管理</TITLE>
<link href="skins/css/tgzcm_main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
tgzcmPath = left(tgzcmpath,instrrev(tgzcmpath, "/")-1)'获取安装目录
tgzcmPath = left(tgzcmpath,instrrev(tgzcmpath, "/"))'获取安装目录
Call tgzcm_Lable_Head(tgzcm_Lable_Html("../skin/"&tgzcm(12)&"/"&tgzcmId(21)&"tgzcm_all.html"))
Call tgzcm_Lable_List(moban)
Call tgzcm_Lable_All(moban)
Dim  allmovie,allclass,alldata
Set cs=Conn.Execute("select class_id,class_name from tgzcm_class order by class_id asc")
If Not(cs.bof And cs.eof) Then
	allmovie=""
	Do while not cs.eof
	    Call GetLinkPath(cs("class_id"),0)'该ListUrl的路径
		allclass="<h1><a href='"&ListUrl&"' target='_blank' title='"&cs("class_name")&"'>"&cs("class_name")&"</a></h1>"
		Set rs=Conn.Execute("select name_id,class_id,data_name,data_lastdate from tgzcm_name where class_id="&cs("class_id")&" order by data_lastdate desc")
		If Not(rs.bof And rs.eof) Then
			alldata=""
			Do while not rs.eof
			    Call GetLinkPath(rs("class_id"),rs("name_id"))'该路径
				alldata=alldata&"<li><a href='"&DataUrl&"' target='_blank' title='"&rs("data_name")&"'>"&GetSubStr(rs("data_name"),tgzcmId(13),True)&"</a></li>"
			rs.movenext
			loop
		Else
			alldata="<li>该分类没有数据!</li>"
		End If
		Set rs=nothing
	allmovie=allmovie&"<ul>"&allclass&""&alldata&"</ul>"
	cs.movenext
	loop
Else
	allmovie="<ul><li>没有作何分类</li></ul>"
End If
Set cs=nothing
Call CloseConn
moban=replace(moban,"@AllMovie@",allmovie)
Call MakeHtml("../MovieAll.html",moban)
Response.Write"<font color=#ff0000"">生成调用文件成功</font>！［<a href='javascript:history.go(-1)'>返回上一页</a>］"
%>
</body>
</html>