<%
'***************************
'函数名格式为  动作_插件标识
'动作有以下四种: Install--安装  UnIstall--卸载 Open--开启 Close--关闭
'插件标识为插件的目录名 例如此演示插件目录为Example 插件标识就是 Example 
'此文件中可以使用Ex_Cls文件夹中定义的类 和 数据库连接 Conn
'默认对 Ex_CommonCls  Ex_XmlCls Ex_Refreshcls Ex_Skincls 类已经做了声明 
'对数据库进行修改时 表名尽量以　Ex_标识　格式命名。　　非插件生成表内新建字段名尽量以标识为前缀 Example_name开头
'***************************
'安装 解压生成插件文件并完成数据库等数据的初始化
Function Install_Example()
	Dim ExZip
	Set ExZip=new Ex_ZipCls
	ExZip.UZip "plugin/Example/Data.ExZip"
	'新建表示例
	Conn.Execute "create table Ex_Example(id counter,name varchar(10),age int,info memo,sex bit)"
	'再非本插件生成表外新建字段示例 别忘记命名规则哦
	Conn.Execute "alter table Ex_Config add column Example_Name varchar(100)"
End Function 
'卸载 删除安装文件和其他一些安装时的修改
Function UnInstall_Example()
	Dim ExFso,ExZip
	Set ExFso=new Ex_FsoCls
	Set ExZip=new Ex_ZipCls
	If ExFso.CheckExist("plugin/Example/Data.ExZip","file")=False Then 
		ExZip.ZipStr "admin_Example.Asp|","plugin/Example/Data.ExZip"
	End If 
	ExFso.DelFile "admin_Example.Asp|"
	'删除新建的数据库
	Conn.Execute "Drop table Ex_Example"
	'删除新建的字段
	ExComm.Execute "alter table Ex_Config drop column Example_Name"
End Function 
'开启 解压生成插件文件 并进行数据修改的一些操作
Function Open_Example()
	Dim ExZip
	Set ExZip=new Ex_ZipCls
	'解压文件示例
	ExZip.UZip "plugin/Example/Data.ExZip"
End Function 
'关闭 删除插件文件
Function Close_Example()
	Dim ExFso,ExZip
	Set ExFso=new Ex_FsoCls
	Set ExZip=new Ex_ZipCls
	If ExFso.CheckExist("plugin/Example/Data.ExZip","file")=False Then 
		ExZip.ZipStr "admin_Example.Asp|","plugin/Example/Data.ExZip"
	End If 
	ExFso.DelFile "Admin_Example.Asp"
End Function 
%>