<!--#include file="../../include.asp"-->
<!--#include file="Mode.asp"-->
<!--#include file="label.asp"-->
<%
	ThemeID=fycms.s("ThemeID")
	If fycms.s("Install")="yes" Then 
		Call GetLabel(ThemeID)
		fycms.actexe("Update Config_fy Set fycms_Theme='"&ThemeID&"'  ")
		Call fycms.DelCahe("NowTheme")
 		 response.Redirect "Index.asp?title="&ThemeID&"主题安装成功"
		 respone.End
	Else 
		Call GetLabel(ThemeID)
 	End If 
	Function newm(ModeID)
		'2-产品 3-链接
 			Select Case ModeID
				Case "2"'原来老的模型ID
					newm=fycms.ACTEXE("SELECT ModeID FROM Mode_fy Where ModeName='链接'")(0)
				Case "3"'原来老的模型ID
					newm=fycms.ACTEXE("SELECT ModeID FROM Mode_fy Where ModeName='产品'")(0)
				Case Else 
					newm=modeid
			End Select  
 	End Function 
	' Call forModeContent
	'Call execute(LTemplate("class.asp"))
	Function forModeContent()
	Call 	drbc(LTemplate("2.act"))
	Call 	drbc(LTemplate("3.act"))
	End Function 
   Application.Contents.RemoveAll
   echo "缓存清除成功"

		   
		   %>