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

<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charSet=gb2312">
	<title>生成全站地图</title>
	<style type="text/css">
	<!--
	body {
		margin-left: 0px;
		margin-top: 0px;
		margin-right: 0px;
		margin-bottom: 0px;
		background-color: #E4EDF9;
	}
	body,td,th {
		font-size: 12px;
	}
	a:link{
		text-decoration: none;
		color: #000000;
		font-size: 12px;
	}
		a:visited{
		text-decoration: none;
		color: #000000;
		font-size: 12px;
	}
		a:hover{
		text-decoration: underline;
		color: #FFFFFF;
		font-weight: bold;
		font-size: 12px;
	}
		a:active{
		text-decoration: none;
		font-size: 12px;
	}
	-->
	</style>
	</head>
<body>
<%
 '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 '说明：此页面模版为文件/manage/makehtml/corporation/mb/sitemap_mb.html
%>
<table  border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr><td  height="30"></td></tr>
<tr>
<td>
&nbsp;&nbsp;<font color=#A2C7FF><b>全站导航--------方便客户快速准确的找到合适的有用信息!促成更多的商家的合作交流...........</b></font><br>&nbsp;&nbsp;<font color="red">注</font>：<font color="#ABB8C8">数据量较大请慎用！</font>
</td>
</tr>
</table>
<%
   siteid=Replace_Text(Request("siteid"))
   If siteid="" Then
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" >
<tr><td colspan="4"  height="30">&nbsp;&nbsp;查看相关页面：◇<a href='<%=HOPE_InstallDir%>corporation/sitemap.html' target="_blank"><b><font color=#FF9148>公司库行业导航</font></b></a>&nbsp;&nbsp;□<a href='<%=HOPE_InstallDir%>corporation/sitemaptra.html' target="_blank"><b><font color=#FF9148>我要采购行业导航</font></b></a>&nbsp;&nbsp;△<a href='<%=HOPE_InstallDir%>corporation/sitemapsel.html' target="_blank"><b><font color=#FF9148>我要销售行业导航</font></b></a>&nbsp;&nbsp;∏<a href='<%=HOPE_InstallDir%>corporation/sitemappro.html' target="_blank"><b><font color=#FF9148>产品库行业导航</font></b></a></td></tr>
<tr bgcolor="#FDFEFF">
 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?siteid=com" target="_blank">生成公司库全站导航</a></td>
 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?siteid=tra" target="_blank">生成我要采购全站导航</a></td>
 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?siteid=sel" target="_blank">生成我要销售全站导航</a></td>
 <td height="35" align="center"   onMouseOut="this.style.backgroundColor='#FDFEFF'" onMouseOver="this.style.backgroundColor='#87D2FC'"><a href="?siteid=pro" target="_blank">生成产品库全站导航</a></td>
</tr>
</table>
 <%
	End If
	 If siteid="com" Then
	urlmap=HOPE_InstallDir&"corporation/trade/"
	wpage=HOPE_InstallDir&"corporation/sitemap.html"
	notes="公司库地图导航"
	ElseIf siteid="tra" Then
	urlmap=HOPE_InstallDir&"tradeinfo/trade/"
	wpage=HOPE_InstallDir&"corporation/sitemaptra.html"
	notes="我要采购地图导航"
	ElseIf siteid="sel" Then
	urlmap=HOPE_InstallDir&"seller/trade/"
	wpage=HOPE_InstallDir&"corporation/sitemapsel.html"
	notes="我要销售地图导航"
	ElseIf siteid="pro" Then
	urlmap=HOPE_InstallDir&"productshow/trade/"
	wpage=HOPE_InstallDir&"corporation/sitemappro.html"
	notes="产品库地图导航"
	Else  
	urlmap=HOPE_InstallDir&"corporation/trade/"
	wpage=HOPE_InstallDir&"corporation/sitemap.html"
	notes="公司库地图导航"
	End If
	If siteid<>"" Then 
	HOPE_Type=HOPE_Type&"<table width='750' border='0' cellpadding='0' cellspacing='0' class='outborder' align=center>"&vbCrlf
	HOPE_Type=HOPE_Type&"<tr>"&vbCrlf
	HOPE_Type=HOPE_Type&"<td>"&vbCrlf
	 '第一大类总目录'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	 sortsql="select * from Websen_class_1 order by orderid"   
	Set rssort=Server.CreateObject("ADODB.RecordSet")
	rssort.Open sortsql,conn,1,1
	If rssort.Eof Then
	Response.Write"<center><font color=#D8D8D8>暂无行业分类信息！</font></center>"
	Else
	sortid=rssort("sortid")
	HOPE_Type=HOPE_Type&"<TABLE width='90%' border=0 align='center' cellPadding=3 cellSpacing=0 class=s>"&vbCrlf
	HOPE_Type=HOPE_Type&"<tr class='lh13'>"&vbCrlf
	j=1
	Do While Not rssort.Eof
	HOPE_Type=HOPE_Type&"<td class=paddleft width='35%' valign=top> <a href='#"&rssort("sortid")&"'> <font  class=c>"&rssort("sort")&"</font></a> ("&yijicount_cor&") </td>"&vbCrlf
	If j mod 3 = 0 Then
	HOPE_Type=HOPE_Type&"</tr><tr>"&vbCrlf 
	End If
	rssort.Movenext
	j=j+1
	Loop
	End If
	rssort.Close
	Set rssort=Nothing
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	HOPE_Type=HOPE_Type&"</table>"&vbCrlf
	HOPE_Type=HOPE_Type&"</td>"&vbCrlf
	HOPE_Type=HOPE_Type&"</tr>"&vbCrlf
	HOPE_Type=HOPE_Type&"</table><br><br>"&vbCrlf
	  
	'所有的二级三级页面^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	
	sortsql="select * from Websen_class_1"   
	Set rssort=server.CreateObject("ADODB.Recordset")
	rssort.Open sortsql,conn,1,1
	If rssort.Eof Then
	HOPE_body=HOPE_body&"<center><font color=#D8D8D8>暂无行业分类</font></center>"
	Else
	Do While Not rssort.Eof
	 HOPE_body=HOPE_body&"<TABLE width=770 border=0 align=center cellPadding=5 cellSpacing=0 class=outborder>"&vbCrlf
	HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
	HOPE_body=HOPE_body&"<TR>"&vbCrlf
	HOPE_body=HOPE_body&"<TD valign=middle class=searchbar>  <A name="&rssort("sortid")&"></A><A href='"&urlmap&rssort("sortid")&".html'  class=m target=_blank>"&rssort("sort")&"</A> ("&yijicount_cor&")</TD>"&vbCrlf
	HOPE_body=HOPE_body&"<TD valign=center class=searchbar align=right>"&vbCrlf
	HOPE_body=HOPE_body&"</TD>"&vbCrlf
	HOPE_body=HOPE_body&"</TR></TBODY></TABLE>"&vbCrlf
	HOPE_body=HOPE_body&"<table width=770  border=0 align=center cellpadding=0 cellspacing=0 class=blackborder>"&vbCrlf
	HOPE_body=HOPE_body&"<tr>"&vbCrlf
	HOPE_body=HOPE_body&"<td>"&vbCrlf
	typesql="select * from Websen_class_2 where sortid="&rssort("sortid")&""
	Set rstype=Server.CreateObject("ADODB.Recordset")
	rstype.Open typesql,conn,1,1
	If rstype.Eof or rstype.bof Then
	HOPE_body=HOPE_body&"<center><font color=#D8D8D8>暂无行业小类</font></center>"
	Else
	HOPE_body=HOPE_body&"<TABLE width=730 border=0 align='center' cellpadding=5 cellspacing=5>"&vbCrlf
	HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
	HOPE_body=HOPE_body&"<tr>"&vbCrlf
	Do While Not rstype.Eof
	typeid=rstype("typeid")
	HOPE_body=HOPE_body&"<TD>"&vbCrlf
	HOPE_body=HOPE_body&"<A href='"&urlmap&rstype("sortid")&"-"&rstype("typeid")&".html' target=_blank>"&rstype("typename")&"</A> <font color='#636363'>("&erjicount_cor&")</font></TD>"&vbCrlf
	a=a+1
	If a=3 Then
	HOPE_body=HOPE_body&"</tr><tr>"&vbCrlf
	a=0
	End If
	rstype.movenext
	Loop
	HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
	HOPE_body=HOPE_body&"</TABLE>"&vbCrlf
	End If
	rstype.Close
	Set rstype=Nothing
	 
	HOPE_body=HOPE_body&"</td>"&vbCrlf
	HOPE_body=HOPE_body&"</tr>"&vbCrlf
	HOPE_body=HOPE_body&"</table>"&vbCrlf
	HOPE_body=HOPE_body&"<TABLE width=770 border=0 align=""center"" cellPadding=5 cellSpacing=0>"&vbCrlf
	HOPE_body=HOPE_body&"<TBODY>"&vbCrlf
	HOPE_body=HOPE_body&"<TR>"&vbCrlf
	HOPE_body=HOPE_body&"<TD align=right><span style=""font-weight: bold"">↑</span> <A href=""#top"">回页首</A></TD>"&vbCrlf
	HOPE_body=HOPE_body&"</TR>"&vbCrlf
	HOPE_body=HOPE_body&"</TBODY>"&vbCrlf
	HOPE_body=HOPE_body&"</TABLE><br><br>"&vbCrlf
	 rssort.Movenext
	Loop
	End If
	rssort.Close
 	Set rssort=Nothing
%>
</body>
<%
	HOPE_TradeGo="<a href='"&HOPE_InstallDir&"'>首页</a> <small>></small> "&notes&" <small>></small><strong>"&Replace(notes,"地图导航","")&"所有行业分类</strong><br><br>&nbsp;◇<a href='"&HOPE_InstallDir&"corporation/sitemap.html'><b><font color=#FF9148>公司库行业导航</font></b></a>&nbsp;&nbsp;□<a href='"&HOPE_InstallDir&"corporation/sitemaptra.html'><b><font color=#FF9148>我要采购行业导航</font></b></a>&nbsp;&nbsp;△<a href='"&HOPE_InstallDir&"corporation/sitemapsel.html'><b><font color=#FF9148>我要销售行业导航</font></b></a>&nbsp;&nbsp;∏<a href='"&HOPE_InstallDir&"corporation/sitemappro.html'><b><font color=#FF9148>产品库行业导航</font></b></a>"
	Set fso = YXFSO
	Set sort_mb = fso.Opentextfile(Server.Mappath("mb/sitemap_mb.html"),1,True)
	pencat= sort_mb.ReadAll
 	pencat=Hope_HtmlResult(pencat)
	On Error Resume Next
	Set fout = fso.CreateTextFile(Server.Mappath(wpage))
	If Err Then
	Response.Write("<br><br><font color=red>生成失败！　</font>请注意该模版是否存在或网站的基本设置中的'网站所在文件夹'是否正确！<a href='javascript:window.close();'>关闭</a>")
	Response.End()
	End If
	fout.WriteLine pencat
	fout.Close
	Set fso = Nothing
	sort_mb.Close
	End If
 %>
<br><br>
<%
    If siteid<>"" Then
%>
<center>生成<font color="red"><%=notes%></font>完成！&nbsp;&nbsp;&nbsp;<a href="<%=wpage%>" target="_blank">查看页面</a>&nbsp;&nbsp;<a href="#" onClick="window.close();">关闭</a><br><br></center>
<%
   Else
%>
 <center><a href="#" onClick="javascript:history.back(-1)">返回</a></center>
<%
   End If
%>
</html>
<%
conn.close
%>