sitemap_html.asp 爱美尔女性商城源码 1.0源码程序 - php源码程序

gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/sitemap_html.asp

    <!--#include file="../Inc/conn.asp"-->
<!--#include file="admin_check.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>admin</title>
<link href="Images/admin_css.css" rel="stylesheet" type="text/css" />
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
</head>
<body>
<p align="left" style="line-height:25px; font-size:14px;">
<font color="#000000"><b>注意：只有当您开启本站静态时，这里生成才有效果</b></font><br />
<font color="#0000FF"><b>点击网站地图静态：</b></font><br />
</p>


<%
	dim http,reurl
	set http=Server.createobject("Microsoft."&chr(120)&"MLHTTP") 
	Http.open "GET","http://"&SiteUrl&""&SitePath&"sitemap.asp",false 
	Http.send() 
	set objStream = Server.CreateObject("ADODB.Stream") 
	objStream.type = 1 
	objStream.open 
	objstream.write http.responseBody
	objstream.saveToFile server.mappath("../sitemap.html"),2
	response.Write"生成完毕"
%>
</body>
</html>