www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\flash\const.asp
<% Dim TPL_FilePath,TPL_FileName TPL_FilePath=Check_TPL_Path(NewAsp.ChannelID,5) Set TPL_XmlDom=NewAsp.CreateXmlDoc("msxml2.FreeThreadedDOMDocument" & MsxmlVersion) If Not TPL_XmlDom.load(NewAsp.TemplatePath&TPL_FilePath&"\config.xml") Then Response.Write "载入模板配置文件出错!"&NewAsp.TemplatePath&TPL_FilePath&"\config.xml" Response.End End If Function moremenu(sVariant) Dim strTempMenu,strLinks,i Dim arrLinks(3) If NewAsp.IsCreateHtml=0 Then If IsURLRewrite Then arrLinks(0)=CheckURLRewrite(NewAsp.ChannelPath,"newlist-1"&NewAsp.HtmlExtName) arrLinks(1)=CheckURLRewrite(NewAsp.ChannelPath,"bestlist-1"&NewAsp.HtmlExtName) arrLinks(2)=CheckURLRewrite(NewAsp.ChannelPath,"hotlist-1"&NewAsp.HtmlExtName) arrLinks(3)=CheckURLRewrite(NewAsp.ChannelPath,"ABC_A-Z_1"&NewAsp.HtmlExtName) Else arrLinks(0)="shownew.asp" arrLinks(1)="showbest.asp" arrLinks(2)="showhot.asp" arrLinks(3)="showabc.asp?q=a-z" End If Else arrLinks(0)=NewAsp.ChannelPath&OtherHtmlPath&"newlist-1"&NewAsp.HtmlExtName arrLinks(1)=NewAsp.ChannelPath&OtherHtmlPath&"bestlist-1"&NewAsp.HtmlExtName arrLinks(2)=NewAsp.ChannelPath&OtherHtmlPath&"hotlist-1"&NewAsp.HtmlExtName arrLinks(3)=NewAsp.ChannelPath&OtherHtmlPath&"ABC_A-Z_1"&NewAsp.HtmlExtName End If If IsNumeric(sVariant) And Trim(sVariant)<>"0" Then i=Int(sVariant)-1 If i>3 Then i=0 strTempMenu="<a href="""&arrLinks(i)&""">"&TPL_Config(30+i)&"</a>" Else If LCase(sVariant)="select" Then strTempMenu="<option value="""&arrLinks(0)&""">"&TPL_Config(30)&"</option> " strTempMenu=strTempMenu&"<option value="""&arrLinks(1)&""">"&TPL_Config(31)&"</option> " strTempMenu=strTempMenu&"<option value="""&arrLinks(2)&""">"&TPL_Config(32)&"</option> " strTempMenu=strTempMenu&"<option value="""&arrLinks(3)&""">"&TPL_Config(33)&"</option> " Else strTempMenu="<a href="""&arrLinks(0)&""">"&TPL_Config(30)&"</a> " strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(1)&""">"&TPL_Config(31)&"</a> " strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(2)&""">"&TPL_Config(32)&"</a> " strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(3)&""">"&TPL_Config(33)&"</a> " End If End If moremenu=strTempMenu End Function %>