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

%>