网站地图（如何简单调用栏目分类）

把下面代码复制保存为map.asp

Code:
<!-- #include file="include/con_help.asp" -->
<!-- #include file="include/jk_nsort.asp" -->
<%

index_url="help"
tit="网站地图"


call web_head(0,0,0,0,0)
'----------------------------左边 开始----------------------------
call left_help()
call left_action()
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
%>
<!-- #include file="style/data_sort_art.asp" -->
<%
call map_sort("article_list.asp?",0,0,"文章分类")
%>
<!-- #include file="style/data_sort_news.asp" -->
<%
call map_sort("news_list.asp?",0,0,"新闻分类")
%>
<!-- #include file="style/data_sort_gall.asp" -->
<%
call map_sort("gallery.asp?",0,0,"图片分类")
%>
<!-- #include file="style/data_sort_shop.asp" -->
<%
call map_sort("shop_list.asp?",0,0,"商城")
%>
<!-- #include file="style/data_sort_web.asp" -->
<%
call map_sort("website.asp?",0,0,"网址")

if isarray(sort_dim) then erase sort_dim
'----------------------------中间 结束----------------------------
call web_end(0,0)

sub map_sort(t_url,t1,t2,t_title)
  dim temp1
  temp1=temp1&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table>" & _
              vbcrlf&"<tr><td class=td> "&img_skin("m_forum")&" "&t_title&"</td></tr>" & _
              vbcrlf&"<tr class=bg_td><td align=center>" & _
  vbcrlf&sort_type(t_url,t1,t2) & _  
     vbcrlf&"</td></tr>" & _
         vbcrlf&"</table>"
  response.write temp1
end sub

%>









http://www.joekoe.com/forum/view_70651_1.vhtml

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: