<!--#include file="../../include.asp"-->
<!--#include file="Mode.asp"-->
<!--#include file="label.asp"-->
<%
	ThemeID=seoeu.s("ThemeID")
	If seoeu.s("Install")="yes" Then 
		Call GetLabel(ThemeID)
		seoeu.euexe("Update Config_eu Set seoeu_Theme='"&ThemeID&"'  ")
		Call seoeu.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=seoeu.euEXE("SELECT ModeID FROM Mode_eu Where ModeName='链接'")(0)
				Case "3"'原来老的模型ID
					newm=seoeu.euEXE("SELECT ModeID FROM Mode_eu Where ModeName='产品'")(0)
				Case Else 
					newm=modeid
			End Select  
 	End Function 
	' Call forModeContent
	'Call execute(seoeu.LTemplate("class.asp"))
	Function forModeContent()
	Call 	drbc(seoeu.LTemplate("2.eu"))
	Call 	drbc(seoeu.LTemplate("3.eu"))
	End Function 
   Application.Contents.RemoveAll
   echo "<span style=""text-align:center; display:block;""><font color=red>安装成功!</font><p> <input onclick=""self.location.href='../../Index.asp';"" type=""button"" class=""eu_btn"" value="" 返回主题管理 ""   /></span>"

		   
		   %>