<% body=Replace(body,"$gn_header$",fsoGetHtml(gn_header)) body=Replace(body,"$gn_footer$",fsoGetHtml(gn_footer)) body=Replace(body,"$gn_siteName$",htmlDecoder(gn_siteName)) body=Replace(body,"$gn_siteUrl$",htmlDecoder(gn_siteUrl)) body=Replace(body,"$gn_keywords$",htmlDecoder(gn_keywords)) body=Replace(body,"$gn_description$",htmlDecoder(gn_description)) body=Replace(body,"$gn_copyright$",htmlDecoder(gn_copyright)) body=Replace(body,"$gn_beian$",htmlDecoder(gn_beian)) Call public_runsub("$navigate") Call public_runsub("$ad") Call public_runsub("$notice") Call public_runsub("$link") Call public_runsub("$vote") Call public_runsub("$slide") Call public_runsub("$newArticle") Call public_runsub("$hotArticle") Call public_runsub("$putArticle") Call public_runsub("$newAlbum") Call public_runsub("$hotAlbum") Call public_runsub("$putAlbum") Call public_runsub("$search") Call public_runsub("$siteMap") Sub public_runsub(label) on error resume next Dim tmp1,tmp2,i Dim tmpstr,para tmp2 = 1 While InStr(tmp2, body, label) > 0 tmp1 = InStr(tmp2, body, label) tmp2 = InStr(tmp1 + 1, body, "$") tmpstr = Mid(body, tmp1, tmp2 - tmp1) tmpstr = Replace(tmpstr, "(", "") tmpstr = Replace(tmpstr, ")", "") tmpstr = Trim(Replace(tmpstr, label, "")) para = Split(tmpstr, ",") Select Case label Case "$navigate" '导航条 body=replace(body,label&"("&tmpstr&")$",navigate(para(0),para(1),para(2),para(3))) Case "$ad" '广告插件 body=replace(body,label&"("&tmpstr&")$",ad(para(0),para(1))) Case "$notice" '公告插件 body=replace(body,label&"("&tmpstr&")$",notice(para(0),para(1))) Case "$link" '链接插件 body=replace(body,label&"("&tmpstr&")$",link(para(0),para(1),para(2))) Case "$vote" '投票插件 body=replace(body,label&"("&tmpstr&")$",vote(para(0),para(1),para(2))) Case "$slide" '幻灯片插件 body=replace(body,label&"("&tmpstr&")$",slide(para(0),para(1),para(2))) Case "$newArticle" '最新文章 body=replace(body,label&"("&tmpstr&")$",newArticle(para(0),para(1),para(2),para(3),para(4))) Case "$hotArticle" '热门文章 body=replace(body,label&"("&tmpstr&")$",hotArticle(para(0),para(1),para(2),para(3),para(4))) Case "$putArticle" '推荐文章 body=replace(body,label&"("&tmpstr&")$",putArticle(para(0),para(1),para(2),para(3),para(4))) Case "$newAlbum" '最新图集 body=replace(body,label&"("&tmpstr&")$",newAlbum(para(0),para(1),para(2),para(3),para(4))) Case "$hotAlbum" '热门图集 body=replace(body,label&"("&tmpstr&")$",hotAlbum(para(0),para(1),para(2),para(3),para(4))) Case "$putAlbum" '推荐图集 body=replace(body,label&"("&tmpstr&")$",putAlbum(para(0),para(1),para(2),para(3),para(4))) Case "$search" '搜索框 body=replace(body,label&"("&tmpstr&")$",search(para(0))) Case "$siteMap" '网站地图 body=replace(body,label&"("&tmpstr&")$",siteMap(para(0),para(1),para(2),para(3))) End Select Wend End Sub %>