<%
data_path="../../../" 'ACC连接数据库路径，对SQL无效
 dir="no"
 numid="no"
 
  %>
<!--#include file="../../../conn/conn.asp"-->
 <!--#include file="../../../inc/filesystem.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<!--#include file="../../../inc/classcount.asp"-->
<!--#include file="temp_inc.asp"-->
   <!--#include file="../makerole.asp"-->

<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
	<title>生成各大栏目首页</title>
	<style type="text/css">
	<!--
	body {
		margin-left: 0px;
		margin-top: 0px;
		margin-right: 0px;
		margin-bottom: 0px;
		background-color: #E4EDF9;
	}
	body,td,th {font-size: 12px;}
	
	a:link{
	text-decoration: none;
	color: #000000;
	font-size: 12px;
}
	a:visited{
	text-decoration: none;
	color: #000000;
	font-size: 12px;
}
	a:hover{
	text-decoration: underline;
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
	a:active{
	text-decoration: none;
	font-size: 12px;
}
	-->
	</style>
	</head>
<body>

<%
 
		 
		Dim action
		  action=Request.QueryString("act")
	    If action<>"" Then
	
	 '获取模板^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
		Set rs=Server.createobject("ADODB.RecordSet")
		rs.Open ("select home_index,vipinfo_index,help_index,tradeinfo_index,seller_index,brand_index,job_index,info_index,corporation_index,productshow_index,expo_index from [Websen_worldec_Temp] where yx_selected=1"),conn,1,1
	If rs.Eof Then
	Response.Write("<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=red>对不起！该模版不存在！</font><a href='#' onclick='javascript:history.back(-1);'>返回</a>")
	Response.End()
	End If
	If Not rs.Eof Then 
		Select Case action
			Case "index"
			Which_page=HOPE_InstallDir&"index.html"               '生成的网站首页文件名(或路径)

			Code_index=rs("home_index")                           '模版内容
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_html.asp></script>"
			
			Case "trade"
			Which_page=HOPE_InstallDir&"tradeinfo/index.html"     '供应首页
			Code_index=rs("tradeinfo_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_tradeinfo.asp></script>"
			
			Case "seller"
			Which_page=HOPE_InstallDir&"seller/index.html"        '求购首页
			Code_index=rs("seller_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_sellerinfo.asp></script>"
			
			Case "expo"
			Which_page=HOPE_InstallDir&"service/expo/index.html"  '展会首页
			Code_index=rs("expo_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_expoinfo.asp></script>"
			
			Case "info"
			Which_page=HOPE_InstallDir&"info/index.html"          '以商会友首页
			Code_index=rs("info_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_newsinfo.asp></script>"
			
			Case "corporation"
			Which_page=HOPE_InstallDir&"corporation/index.html"   '公司库首页
			Code_index=rs("corporation_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_cominfo.asp></script>"
			
			Case "product"
			Which_page=HOPE_InstallDir&"productshow/index.html"   '产品库首页
			Code_index=rs("productshow_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_proinfo.asp></script>"
			
			Case "vipinfo"
			Which_page=HOPE_InstallDir&"vipinfo/index.html"   '专项商机首页
			Code_index=rs("vipinfo_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_proinfo.asp></script>"
			
			Case "job"
			Which_page=HOPE_InstallDir&"job/index.html"           '人才库首页
			Code_index=rs("job_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_job.asp></script>"

			Case "brand"
			Which_page=HOPE_InstallDir&"brand/index.html"           '品牌首页
			Code_index=rs("brand_index")
			autourl="<script src="&HOPE_InstallDir&"autoindex/index_brandinfo.asp></script>"
 			Case Else
		End Select
		rs.Close
		Set rs=Nothing
		End if
		
  		'替换标签生成html页^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
			
		 str=Hope_HtmlResult(Code_index)
	 
		 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
		'处理生成页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
		Set fso = YXFSO
		 Set sort_save = fso.CreateTextFile(Server.Mappath(Which_page))
		   sort_save.Write str&autourl
		 sort_save.Close
		'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
		   Response.Write "<br><br>生成完毕。<a href="&Which_page&" target=blank><font color=red>点击查看</font></a>&nbsp;&nbsp;<a href=index.asp>返回</a>"
		conn.Close
		Set conn=Nothing
		
     Else

%>
	<table width="100%" border="0">
	<tr><td colspan="5" height="30" align="center"><br><font style="font-size:14px; font-weight:bold">生成各首页静态页面操作</font>：请点击相关项进行生成操作！</td></tr>
	<tr><td colspan="5" height="30"></td></tr>
	  <tr bgcolor="#FDFEFF">
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=index" >生成网站首页</a></td>
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=trade">生成我要采购首页</a></td>
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=seller">生成我要销售首页</a></td>
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=expo">生成展会首页</a></td>
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=info">生成行业资讯首页</a></td>
		</tr>
 		<tr  bgcolor="#FDFEFF">
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=corporation">生成公司库首页</a></td>
		 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=product">生成产品库首页</a></td>
		 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=job">生成人才招聘首页</a></td>
		 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="../help/makeindex.asp">生成帮助首页</a></td>
		  <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="../feedback/makelist.asp?all=all" target="_blank">生成意见建议</a></td>
 	  </tr>
		<tr  bgcolor="#FDFEFF">
		<td height="35" align="center"  onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=vipinfo">生成专项商机首页</a></td>
		<td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?act=brand">生成品牌首页</a></td>
  	    <td height="35" colspan="3" align="center" onMouseOver="this.style.backgroundColor='#87D2FC'"  onMouseOut="this.style.backgroundColor='#FDFEFF'"></td>
 </tr>
  	  <tr>
		<td colspan="5" height="50" align="center"><a href="#" onClick="javascript:history.back(-1);">返回</a></td>
		</tr>
	  <tr  >
		<td height="35" align="center"  ></td>
		 <td height="35" align="center" ></td>
		 <td height="35" align="center"   > </td>
		 <td height="35" align="center"  > </td>
		  <td height="35" align="center"   > </td>
 	  </tr>
	  	<tr>
		<td colspan="5" height="50"></td>
		</tr>
</table>
<%
 End If 
%>
