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 %>