www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\soft\const.asp

    <%
Dim TPL_FilePath,TPL_FileName

TPL_FilePath=Check_TPL_Path(NewAsp.ChannelID,2)
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(39+i)&"</a>"
	Else
		If LCase(sVariant)="select" Then
			strTempMenu="<option value="""&arrLinks(0)&""">"&TPL_Config(39)&"</option> "
			strTempMenu=strTempMenu&"<option value="""&arrLinks(1)&""">"&TPL_Config(40)&"</option> "
			strTempMenu=strTempMenu&"<option value="""&arrLinks(2)&""">"&TPL_Config(41)&"</option> "
			strTempMenu=strTempMenu&"<option value="""&arrLinks(3)&""">"&TPL_Config(42)&"</option> "
		Else
			strTempMenu="<a href="""&arrLinks(0)&""">"&TPL_Config(39)&"</a> "
			strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(1)&""">"&TPL_Config(40)&"</a> "
			strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(2)&""">"&TPL_Config(41)&"</a> "
			strTempMenu=strTempMenu&sVariant&"<a href="""&arrLinks(3)&""">"&TPL_Config(42)&"</a> "
		End If
	End If
	moremenu=strTempMenu
End Function

Function typemenu(sVariant)
	Dim TypeArry,TypeItem,i
	Dim strLinks,strMenus
	
	If Len(NewAsp.ChannelSetting(2)) < 3 Then NewAsp.ChannelSetting(2) = "国产软件,国外软件,汉化补丁,源码程序"
	TypeArry = Split(NewAsp.ChannelSetting(2), ",")
	If IsNumeric(sVariant) And Trim(sVariant)<>"0" Then
		i=Int(sVariant)-1
		If i>UBound(TypeArry) Then i=0
		strMenus="<a href="""&TypeArry(i)&""">"&TypeArry(i)&"</a>"
	Else
		i=0
		For Each TypeItem in TypeArry
			i=i+1
			If NewAsp.IsCreateHtml=0 Then
				If IsURLRewrite Then
					strLinks=CheckURLRewrite(NewAsp.ChannelPath,"type-"&Server.URLEncode(TypeItem)&"-1"&NewAsp.HtmlExtName)
				Else
					strLinks=NewAsp.ChannelPath&"showtype.asp?type="&Server.URLEncode(TypeItem)
				End If
			Else
				strLinks=NewAsp.ChannelPath&OtherHtmlPath&"typelist-"&i&"-1"&NewAsp.HtmlExtName
			End If
			If LCase(sVariant)="select" Then
				strMenus=strMenus&"<option value="""&strLinks&""">"&TypeItem&"</option> "
			Else
				If i=1 Then
					strMenus="<a href="""&strLinks&""">"&TypeItem&"</a> "
				Else
					strMenus=strMenus&sVariant&"<a href="""&strLinks&""">"&TypeItem&"</a> "
				End If
			End If
		Next
	End If
	typemenu=strMenus
End Function

Function GetSoftTypeID(strType)
	Dim TypeArry,TypeItem,i
	GetSoftTypeID=1
	If ""=strType&"" Then Exit Function
	If Len(NewAsp.ChannelSetting(2)) < 3 Then NewAsp.ChannelSetting(2) = "国产软件,国外软件,汉化补丁,源码程序"
	TypeArry = Split(NewAsp.ChannelSetting(2), ",")
	i=0
	For Each TypeItem in TypeArry
		i=i+1
		If UCase(TypeItem)=UCase(strType) Then Exit For
	Next
	GetSoftTypeID=i
End Function

%>