	<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_SkinCls.asp"-->
<!--#include file="Ex_Cls/Ex_RefreshCls.asp"-->
<!--#include file="Ex_Cls/Ex_ZipCls.asp"-->
<!--#include file="Ex_Cls/Ex_XmlCls.asp"-->
<!--#include file="Ex_Cls/Ex_UploadCls.asp"-->
<!--#include file="Ex_Cls/Ex_SplitPageCls.asp"-->
<!--#include file="Ex_Cls/Ex_ImgCls.asp"-->
<!--#include file="Ex_Cls/Ex_FilterHtmlCls.asp"-->
<!--#include file="Plugin/Includes.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css"> 
<script src="inc/main.js"></script>
<script src="inc/jquery.js"></script>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<%
Dim Action,ExComm,ExRefresh,ExXml,ExSkin
Set ExComm=new Ex_CommonCls
Set ExXml=new Ex_XmlCls
Set ExRefresh=new Ex_Refreshcls
Set ExSkin=new Ex_SkinCls
ExComm.IsAdLogin 
ExComm.IsIpAllow
Action=Request.QueryString("action")
Select Case Action
	Case "install"
		Install
	Case "uninstall"
		UnInstall
	Case "open"
		Open
	Case "close"
		Close
	Case "plugininstallform"
		PluginInstallForm
	Case "plugininstall"
		PluginInstall
	Case Else
		ShowState
End Select 
Function IsExistTable(TableName)
	On Error Resume Next 
	Conn.Exeucte "Create table "&TableName&" (id counter)"
	If Err.Number<>0 Then 
		IsExistTable=True
	Else 
		IsExistTable=False
	End If 
End Function 
Function IsExistColumn(TableName,ColumnName)
	Dim I,Rs
	Set Rs=Conn.Exeucte("select * from "&TableName)
	For i = 0 to RS.Fields.Count - 1 
		If RS.Fields(i).Name=ColumnName then 
			IsExistColumn=True 
			Exit For 
		Else 
			IsExistColumn=False 
		End If  
	Next 
End Function 
Sub ShowState
%>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border tablebg">
    <tr>
      <th colspan="5" class="topbg">插件状态管理</th>
    </tr>
    <tr>
      <td width="21%" class="tdbg" style="text-align:center">插件名称</td>
      <td width="16%" class="tdbg" style="text-align:center">插件作者&nbsp;&nbsp;&nbsp;</td>
      <td width="31%" class="tdbg" style="text-align:center">支持站点</td>
      <td width="10%" class="tdbg" style="text-align:center">插件状态</td>
      <td width="22%" class="tdbg" style="text-align:center">操作</td>
    </tr>
	<%
			Dim ExFso,Folders,XmlObj,Item,Includes,Stream
			Set ExFso=server.CreateObject("scripting.filesystemobject")
			Set Folders=ExFso.GetFolder(Server.Mappath("Plugin"))
			Set XmlObj=Server.CreateObject("Microsoft.XMLDOM")
			Includes="<!--插件引用-->"&vbcrlf
			Dim pluginname,Author,WebSite,State,Msg
			For each item in Folders.SubFolders
				With XmlObj
					.Load(Server.Mappath("plugin/"&Item.Name&"/info.xml"))
					pluginname=.selectSingleNode("//pluginname").text
					Author=.selectSingleNode("//author").text
					WebSite=.selectSingleNode("//website").text
					State=.selectSingleNode("//state").text
					Includes=Includes&"<!-- #include file="""&Item.Name&"/Functions.asp"" -->"&vbcrlf
				End With
				Response.Write("<tr>")
				Response.Write("<td class=""tdbg"">&nbsp;&nbsp;"&pluginname&"</td>")
				Response.Write("<td class=""tdbg"">&nbsp;&nbsp;"&Author&"</td>")
				Response.Write("<td class=""tdbg"">&nbsp;&nbsp;"&WebSite&"</td>")
				Response.Write("<td class=""tdbg"">&nbsp;&nbsp;"&State&"</td>")
				If Trim(State)<>"卸载" Then
					Msg="alert('必须先卸载再安装');return false;"
				Else 
					Msg=""
				End If 
				Response.Write("<td class=""tdbg"">&nbsp;&nbsp;<a href=""?action=open&plugin="&Item.Name&""">开启</a>&nbsp;&nbsp;<a href=""?action=close&plugin="&Item.Name&""">关闭</a>&nbsp;&nbsp;<a href=""?action=install&plugin="&Item.Name&""" onclick="""&Msg&""">安装</a>&nbsp;&nbsp;<a href=""?action=uninstall&plugin="&Item.Name&""" onclick=""if(!confirm('是否卸载?\n卸载后此插件生成的数据将被全部删除')) return false;"">卸载</a></td>")
				Response.Write("</tr>")
			Next
			Set Stream = ExFso.CreateTextFile(Server.Mappath("plugin/includes.asp"),True)
			Stream.Write Includes
			Stream.Close
	%>
    <tr>
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
      <td class="tdbg">&nbsp;</td>
    </tr>
    <tr>
      <td colspan="5" class="tdbg">&nbsp;</td>
    </tr>
  </table>
  <p>
    <%
  End Sub 
  Sub Install
	Dim PluginName
	PluginName=Trim(Request.QueryString("plugin"))
	Eval("Install_"&PluginName)
	ExSkin.RefreshSkinCache
	ExXml.letFilePath="plugin/"&PluginName&"/info.xml"
	ExXml.modifyNodeValue "//state","开启"
	ExComm.ShowMsg "安装成功",Request.Servervariables("http_referer")
  End Sub 
  Sub UnInstall
	Dim PluginName
	PluginName=Trim(Request.QueryString("plugin"))
	Eval("UnInstall_"&PluginName)
	ExSkin.RefreshSkinCache
	ExXml.letFilePath="plugin/"&PluginName&"/info.xml"
	ExXml.modifyNodeValue "//state","卸载"
	ExComm.ShowMsg "卸载成功",Request.Servervariables("http_referer")
  End Sub
  Sub Open
	Dim PluginName
	PluginName=Trim(Request.QueryString("plugin"))
	Eval("Open_"&PluginName)
	ExSkin.RefreshSkinCache
	ExXml.letFilePath="plugin/"&PluginName&"/info.xml"
	ExXml.modifyNodeValue "//state","开启"
	ExComm.ShowMsg "开启成功",Request.Servervariables("http_referer")
  End Sub
  Sub Close
	Dim PluginName
	PluginName=Trim(Request.QueryString("plugin"))
	Eval("Close_"&PluginName)
	ExSkin.RefreshSkinCache
	ExXml.letFilePath="plugin/"&PluginName&"/info.xml"
	ExXml.modifyNodeValue "//state","关闭"
	ExComm.ShowMsg "关闭成功",Request.Servervariables("http_referer")
  End Sub
  Sub PluginInstallForm
  %>
</p>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border tablebg">
    <tr>
      <th colspan="4" class="topbg">博客插件安装</th>
    </tr>
	<form action="?action=plugininstall&installtype=local" method="post" enctype="multipart/form-data" name="form1" id="form1">
    <tr>
      <td width="14%" class="tdbg" style="text-align:center">本地导入插件：</td>
      <td class="tdbg" style="text-align:center"><label>
        <input type="file" name="pluginfile" id="pluginfile">
      </label></td>
      <td class="tdbg" style="text-align:center"><label>
        <input type="submit" name="Submit" value="导入" onClick="if(document.getElementById('pluginfile').value==''){alert('请选择本地插件安装文件');return false;}">
      </label></td>
      <td class="tdbg" style="text-align:center"><div align="left">&nbsp;&nbsp;提示：从本地上传插件文件后程序会自动安装，无需再进行在线插件安装</div></td>
    </tr>
	</form>
	<form action="?action=plugininstall&installtype=net" method="post" name="form1" id="form1">
    <tr>
      <td class="tdbg"><div align="center"><span class="tdbg" style="text-align:center">在线安装插件</span>：</div></td>
      <td width="26%" class="tdbg"><label>
        <div align="center">
          <select name="selectplugin" id="selectplugin">
			<option value="">请选择插件安装文件</option>
			<%
			Dim ExFso,ExFiles,I
			Set ExFso=new Ex_FsoCls
			ExFiles=ExFso.GetSubFiles("temp/plugindata")
			ExFiles=Split(ExFiles,"|")
			For I=0 To UBound(ExFiles)
				Response.Write("<option value=""temp/plugindata/"&ExFiles(I)&""">"&ExFiles(I)&"</option>"&vbcrlf)
			Next 
			%>
          </select>
          </div>
      </label></td>
      <td width="8%" class="tdbg"><label>
        <div align="center">
          <input type="submit" name="Submit2" value="安装" onClick="if(document.getElementById('selectplugin').value==''){alert('请选择插件安装文件');return false;}">
          </div>
      </label></td>
      <td class="tdbg">&nbsp;&nbsp;提示：从博客中查找插件安装文件。</td>
    </tr>
	</form>
    <tr>
      <td colspan="4" class="tdbg">&nbsp;</td>
    </tr>
  </table>
  <%
  End Sub 
  Sub PluginInstall
	Dim InstallType,FilePath,ExUpload,oFile,ExZip,ExFso
	InstallType=Request.QueryString("installtype")
	Set ExFso=new Ex_FsoCls
	If installtype="net" Then 
		FilePath=Request.Form("selectplugin")
	Else
		Set ExUpload=new Ex_UploadCls
		ExUpload.AllowExt="exzip"
		ExUpload.GetData(1024*10)
		Select Case ExUpload.Err
			Case 1
				ExComm.ShowMsg "请选择上传插件安装文件",""
			Case 2
				ExComm.ShowMsg "您的上传数据超过了10M",""
			Case 3
				ExComm.ShowMsg "插件安装文件格式不正确\n格式应该为ExZip",""
		End Select 
		Set oFile = ExUpload.File("pluginfile")
		ExFso.CreateRoute "Temp/PluginData"
		FilePath="Temp/PluginData/"&oFile.FileName
		oFile.SaveToFile Server.Mappath(FilePath)
	End If 
	Set ExZip=new Ex_ZipCls
	ExZip.UZip FilePath
	ExFso.CopyOneFile FilePath,"Plugin/"&Replace(LCase(oFile.FileName),".exzip","")&"/Data.ExZip"
	ExComm.ShowMsg "安装文件解压成功,请到状态管理中点“开启”连接以启用此插件。","admin_Plugin.asp"
  End Sub 
  %>
  <p>&nbsp;  </p>
</body>
</html>
