📄 makelist_all.asp
字号:
<%
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>
<font color=#A2C7FF><b>全站导航--------方便客户快速准确的找到合适的有用信息!促成更多的商家的合作交流...........</b></font><br> <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"> 查看相关页面：◇<a href='<%=HOPE_InstallDir%>corporation/sitemap.html' target="_blank"><b><font color=#FF9148>公司库行业导航</font></b></a> □<a href='<%=HOPE_InstallDir%>corporation/sitemaptra.html' target="_blank"><b><font color=#FF9148>我要采购行业导航</font></b></a> △<a href='<%=HOPE_InstallDir%>corporation/sitemapsel.html' target="_blank"><b><font color=#FF9148>我要销售行业导航</font></b></a> ∏<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> "¬es&" <small>></small><strong>"&Replace(notes,"地图导航","")&"所有行业分类</strong><br><br> ◇<a href='"&HOPE_InstallDir&"corporation/sitemap.html'><b><font color=#FF9148>公司库行业导航</font></b></a> □<a href='"&HOPE_InstallDir&"corporation/sitemaptra.html'><b><font color=#FF9148>我要采购行业导航</font></b></a> △<a href='"&HOPE_InstallDir&"corporation/sitemapsel.html'><b><font color=#FF9148>我要销售行业导航</font></b></a> ∏<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>完成！ <a href="<%=wpage%>" target="_blank">查看页面</a> <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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -