<!--#include file="include.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>安装插件</title>
<link href="../../Images/style.css" rel="stylesheet" type="text/css">
<link href="Images/new.css" rel="stylesheet" type="text/css">
</head>
<body> 
<%	Dim strXmlFile,fso,FilePath
	ThemeID=fycms.s("ThemeID")
	Dim PlusRS,PlusSql
	If  Trim(ThemeID)="" Then 
		Call fycms.ActErr("请选择一个插件","","1")
	End If 

		Select Case fycms.s("A")
			Case "PlugInOpen"
				Call  PlugIn(1,ThemeID)
			Case "PlugInoff"
				Call  PlugIn(2,ThemeID)
		End Select 
 		Function PlugIn(id,ThemeID)
			Set fso = CreateObject(fycms.FsoName)
			FilePath =Tpath & fycms.admindir() & "\Sys_fy\plugin\ThemeInstallTemp\" &ThemeID& "\Install.Asp"
			If fso.FileExists(FilePath)  Then
				fycms.actexe("Update Config_fy Set fycms_Theme='"&ThemeID&"'  ")
				Call fycms.DelCahe("NowTheme")
				response.Redirect "ThemeInstallTemp/"&ThemeID&"/Install.asp?ThemeID="&ThemeID&"action="&id
			Else 
				Call fycms.ActErr("找不到插件安装程序","","1")
 			End If 
		End Function 
  %>	
</body>
</html>
