www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\adminadmin\sys\admin_makesitemap.asp

    <!--#include file="../../conn.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../../common/sitemap.asp"-->
<%
Admin_header
Dim strHTML,strHtmlPath
IsNowOutputText = False
If Not ChkAdmin("CreateIndex") Then
	Call Transfer_error()
End If
Call Main
strHtmlPath=Server.MapPath("../../")&"\sitemap.html"
NewAsp.CreatedTextFile strHtmlPath,TPL_Memory
TPL_Memory=""
Response.Write "<br/><p align=""center""><li><a href=""../../sitemap.html"" target=""_blank"">恭喜您！生成网站地图导航 sitemap.html 文件完成。</a></li></p><p>&nbsp;</p>"
Admin_footer
NewAsp.PageEnd()
%>