<!--#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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<th colspan=5 style="text-align:center; height:40px;">网站生成管理</th>
</tr>
<tr >
<td colspan="5" class="td2">
<%
Dim jsname,action,custom,cpath
action=Trim(Request("action"))
jsname=Trim(Request.Form("jsname"))'生成后缀名
custom=Trim(Request.Form("custom"))'自定义页面模板路径
cpath=Trim(Request.Form("cpath"))  '自定义页面保存路径
tgzcmPath = left(tgzcmpath,instrrev(tgzcmpath, "/")-1)'获取安装目录
tgzcmPath = left(tgzcmpath,instrrev(tgzcmpath, "/"))'获取安装目录
If action="New" Then
	Call tgzcm_Lable_Head(tgzcm_Lable_Html("../skin/"&tgzcm(12)&"/"&tgzcmId(21)&"tgzcm_new.html")) 
ElseIf action="Hot" Then
	Call tgzcm_Lable_Head(tgzcm_Lable_Html("../skin/"&tgzcm(12)&"/"&tgzcmId(21)&"tgzcm_hot.html"))     
ElseIf action="Elite" Then
	Call tgzcm_Lable_Head(tgzcm_Lable_Html("../skin/"&tgzcm(12)&"/"&tgzcmId(21)&"tgzcm_elite.html")) 
ElseIf action="Custom" Then
	Call tgzcm_Lable_Head(tgzcm_Lable_Html("../skin/"&tgzcm(12)&"/Custom/"&custom)) 	
Else
    Response.Write("参数不正确,请返回!") 
	Response.End()  
End If

Call tgzcm_Lable_List(moban)
Call tgzcm_Lable_All(moban)

If jsname="js" Then
	moban=Replace(moban,vbCrLf,"")
	moban="document.write('" & moban & "')"
	Call MakeHtml("../Ad/"&action&".js",moban) '生成JS文件
ElseIf jsname="custom" Then	
	Call MakeHtml(cpath,moban) '生成自定义页面
Else
	Call MakeHtml("../Ad/"&action&"."&jsname,moban) '生成其它格式的文件
End If
Response.Write"<font color=#ff0000"">生成调用文件成功</font>！［<a href='javascript:history.go(-1)'>返回上一页</a>］"
%>
</td>
</tr>
</table>
</body>
</html>