社区地图插件

社区地图插件

主要是用来让搜索引擎收录

和用于为会员导航

单文件

纯绿色

将下列源码保存为sitemap.asp放在根目录下即可!

<!-- #include file="setup.asp" -->
<%
top
%>
<TITLE>网站地图</TITLE>
<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
<tr class=a3>
<td>&nbsp;<img src="images/Forum_nav.gif">&nbsp; <%ClubTree%> →
<a href="sitemap.asp">网站地图</a></td>
</tr>
</table>

<br>

<table cellspacing=1 cellpadding=5 border=0 width=100% class=a2>
 <tr class="a1" id="TableTitleLink">
  <td>　<a >网站地图</a></td>
 </tr>
<tr class=a3>
<td>
<%
Sql="Select * From [BBSXP_Forums] Where TolSpecialTopic>''"
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
ForumID=Rs("ID")
Response.Write "<br><a href="&BBSDIR&"ShowForum.asp?ForumID="&ForumID&">★"&Rs("ForumName")&"★</a><br>"
filtrate=split(Rs("TolSpecialTopic"),"|")
for i = 0 to ubound(filtrate)
Response.Write " [<a href="&BBSDIR&"ShowForum.asp?ForumID="&ForumID&"&SpecialTopic="&filtrate(i)&">"&filtrate(i)&"</a>] "
next
Rs.MoveNext
Loop
Rs.Close
%>
</td>
</tr>
</table>
  

<%
htmlend
%>

演示地址:http://free.9612.org/cbgzs/bbsxp6/sitemap.asp