<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp" -->
<!--#include file="Config.asp" -->
<%
set fso=CreateObject("Scripting.FileSystemObject") 
set f=fso.OpenTextFile(server.mappath("/temp/liucheng.html")) 
StrContent=f.ReadAll 
f.close 
set f=nothing 
set fso=nothing 
StrContent=Replace(StrContent,"$$SiteKeyword$$",SiteKey)
StrContent=Replace(StrContent,"$$SiteTitle$$",SiteTitle)
StrContent=Replace(StrContent,"$$SiteKeyword$$",SiteKey)
StrContent=Replace(StrContent,"$$SiteDesc$$",SiteDesc)
StrContent=Replace(StrContent,"$$SiteUrl$$",SiteUrl)
	
StrContent=Replace(StrContent,"$$BusinessArt$$",Business())
	
StrContent=Replace(StrContent,"$$CompanyNews(行业动态,8)$$",CompanyNews("行业动态",8))
StrContent=Replace(StrContent,"$$SiteBottom$$",SiteBottom)
StrContent=Replace(StrContent,"$$Keyword$$",Keyword())

set fso=CreateObject("Scripting.FileSystemObject") 
set f=fso.CreateTextFile(server.mappath("/service/liucheng.html"), true ) 
f.WriteLine(StrContent) 
f.close 
set f = nothing 
set fso = nothing 
response.Write("<script language='javascript'>alert('服务流程生成！');location.href='sysadmin_view.asp';</script>")
response.End()

%>
