<%@ codepage ="936" %>
 <%
	  data_path="../../"   'ACC连接数据库路径，对SQL无效
	  numid="101"            
	  dir="../err.asp"
 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../manage/makehtml/index/temp_inc.asp"-->
  <!--#include file="../rolecheck.asp"-->

 
<style type="text/css">
body{
	font-size: 12px;
}
</style>
<% 
 Set rs=Server.Createobject("adodb.recordSet")
sql="select * from [Websen_main]"
rs.Open sql,conn,1,1
Dim fso,html_save,html_page,html_content
	Set fso = YXFSO
	On Error Resume Next 
	Set html_save = fso.OpenTextFile(Server.Mappath(HOPE_InstallDir&"about/index_temp.html"),1)   '模版页面
	
  	html_content = html_save.ReadAll   '读出模版
	Select Case Request("act")
		Case "about"
			html_page=HOPE_InstallDir&"about/index.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutname#","关于我们")   
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("aboutus"))   
          	html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   

		Case "job"
			html_page=HOPE_InstallDir&"about/job.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutname#","诚聘英才")  
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("job"))  
  			html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   

		Case "map"
	    	html_page=HOPE_InstallDir&"about/sitemap.html"  '生成网页地址
 			html_content=Replace(html_content,"#HOPE_Aboutname#","网站地图")   
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("map"))  
  		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)  

		Case "hezuo"
 	 	  	html_page=HOPE_InstallDir&"about/products.html"  '生成网页地址
 			html_content=Replace(html_content,"#HOPE_Aboutname#","合作代理")  ' 
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("hezuo"))   
  		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   
			
		Case "kefu"	
		    html_page=HOPE_InstallDir&"about/service.html"  '生成网页地址
 			html_content=Replace(html_content,"#HOPE_Aboutname#","客户服务")   
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("kefu"))  
 		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   

		Case "shenming"
			html_page=HOPE_InstallDir&"about/copyright.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutname#","网站声明")   
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("shenming"))   
             html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   

		Case "ads"
			html_page=HOPE_InstallDir&"about/pop.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("ads"))  
			html_content=Replace(html_content,"#HOPE_Aboutname#","广告服务")   
 		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)  

		Case "contact"
			html_page=HOPE_InstallDir&"about/contact.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutname#","联系我们")   
			html_content=Replace(html_content,"#HOPE_Aboutus#",rs("lianxi"))  
 		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)   

		Case "link"
			html_page=HOPE_InstallDir&"about/link.html"  '生成网页地址
			html_content=Replace(html_content,"#HOPE_Aboutname#","友情连接")   
			html_content=Replace(html_content,"#HOPE_Aboutus#","#HOPE_ShowFriendSite(0,0,6,0,0,0)#")   
 		    html_content=Replace(html_content,"#HOPE_index#",HOPE_InstallDir)  
 						
		Case else
	End Select
	html_content=Hope_HtmlResult(html_content)
	On Error Resume Next 
	Set html_save = fso.CreateTextFile(Server.Mappath(html_page),True)  '创建生成文件，true为可覆盖
	If Err Then
	 Response.Write("<br><br><font color=red>生成失败！　</font>注意该模版是否存在或网站的基本设置中的'网站所在文件夹'是否正确！ <a href='javascript:window.close();'>关闭</a>")
  	Response.End()
  	End If
	html_save.Write html_content   '写数据
	html_save.Close
	Response.Write "生成完毕。<a href="&html_page&" target=blank>点击查看</a> <a href='javascript:window.close();'>关闭</a>"
 Set rs = Nothing
%>
