<% If ShowUserModel = False Then %> <%=SiteName & " >> 会员中心"%>
<% Response.Write "您现在的位置:" & SiteName & " >> 会员中心 >> 收藏夹" %>
<% Call Execute %>
<% Call CloseConn %> <% Else Dim arrstrHtml ChannelID = 0 SkinID = DefaultSkinID PageTitle = SiteName & " >> 会员中心" strPageTitle = "您现在的位置:" & SiteName & " >> 会员中心 >> 收藏夹" strHtml = GetTemplate(0, 102, 0) If strHtml = XmlText("BaseText", "TemplateErr", "找不到模板") Then Response.Write strHtml Response.End End If strHtml = Replace(strHtml, "{$Skin_CSS}", GetSkin_CSS(0)) strHtml = Replace(strHtml, "{$MenuJS}", GetMenuJS("", False)) strHtml = Replace(strHtml, "{$ShowMessageBox}", ShowMessageBox()) Call ReplaceCommonLabel strHtml = Replace(strHtml, "{$PageTitle}", SiteTitle & " >> " & PageTitle) strHtml = Replace(strHtml, "{$UserMenu}", UserMenu()) strHtml = Replace(strHtml, "{$ShowPath}", strPageTitle) If Instr(strHtml,"{$MainContent}") = 0 Then Response.Write "会员中心通用模板里面必须包含模板内容'{$MainContent}',请参考默认模板。" Response.End End If arrstrHtml = Split(strHtml,"{$MainContent}") Response.Write arrstrHtml(0) call Execute Response.Write arrstrHtml(1) Call CloseConn End If %>