<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<%
'========================================================================================
' 文 件 名: admin_makehtml.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: html文件生成器 | 
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'======================================================================================== 
%>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<!-- #include file="../common/connect.asp" -->
<%flg = "man"%>
<!-- #include file="../common/purview.asp" -->
<head>
<title></title>
<%  
  Call htmlmeta() 
%> 
<link rel="stylesheet" href="../style/css/<%= LingFengNet_MS_web_css %>.css" type="text/css">
<link rel="shortcut icon" href="../pic/favicon.ico" type="image/x-icon">
<link rel="bookmark" href="../pic/favicon.ico" type="image/x-icon">
</head>
<body>
<%IF Request.Form("set") <> "ok" Then%>
<form action="admin_makeweb<%= Get_Suffix() %>" method="post" name="makehtml"><br>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="30"><input name="htmlname" type="text" readonly value="addnew.htm">
      <input name="html_button" type="submit" value="<%= LingFengNet_MS_language_w3c_05 %>">
      <input type="hidden" name="set" value="ok"></td>
  </tr>
</table>
</form>
</body>
</html>
<%
Else
	'On Error Resume Next
	Server.ScriptTimeOut = 9999999
		
	Path = "http://"&Request.ServerVariables("server_name") & Replace(Request.ServerVariables("Script_name"), "admin_makeweb.asp", "")
	url = "" & Path & "addnew.asp"
	wstr = getHTTPPage(url)
	
	start = Newstring(wstr, "<!--open-->")
	over = Newstring(wstr, "<!--end-->")
	body = Mid(wstr, start, over)
	'Response.Write(body)
	'Response.End

	IF IsObjInstalled("Scripting.FileSystemObject") then
		writeStr = "<!DOCTYPE html>"& body
		htmlname = Trim(Request.Form("htmlname"))
		toppath = Server.Mappath(""& htmlname &"")
		Set fs = CreateObject("Scripting.FileSystemobject")
		
		IF Not Fs.FileExists(toppath) Then 
			Set Ts = fs.CreateTextFile(toppath, True)
			Ts.close
		End IF
		Set Ts = Fs.OpenTextFile(toppath, 2)
		Ts.writeline (writeStr)
		Ts.close
		Set Ts = Nothing	
		
		Set Fs = Nothing
		logstr = LingFengNet_MS_language_w3c_12
		Call logtodo(logstr, 1, "ok")
		Response.Write ""& LingFengNet_MS_language_w3c_07 &"&ensp;"& htmlname &"&ensp;"& LingFengNet_MS_language_w3c_08 &"<br><a href=""admin_makeweb"&Get_Suffix()&""">"& LingFengNet_MS_language_w3c_06 &"</a>"
	Else
		logstr = LingFengNet_MS_language_w3c_12
		Call logtodo(logstr, 1, "err")
		Response.Write ""& LingFengNet_MS_language_w3c_11 &"&ensp;&ensp;&ensp;&ensp;<a href=""admin_makeweb"&Get_Suffix()&""">"& LingFengNet_MS_language_w3c_06 &"</a>"
	End IF
End IF		
%>