<%
'***************************
'函数名格式为  动作_插件标识
'动作有以下四种: Install--安装  UnIstall--卸载 Open--开启 Close--关闭
'插件标识为插件的目录名 例如此演示插件目录为PhotoPreview 插件标识就是 PhotoPreview 
'此文件中可以使用Ex_Cls文件夹中定义的类 和 数据库连接 Conn
'默认对 Ex_CommonCls  Ex_XmlCls Ex_Refreshcls 类已经做了声明 
'对数据库进行修改时 表名尽量以　Ex_标识　格式命名。　　非插件生成表内新建字段名尽量以标识为前缀 PhotoPreview_name开头
'***************************
'安装 解压生成插件文件并完成数据库等数据的初始化
Function Install_PhotoPreview()
	Dim ExZip,Temp
	Set ExZip=new Ex_ZipCls
	ExZip.UZip "plugin/PhotoPreview/Data.ExZip"
	Temp="<!--PhotoPreview图片预览插件代码开始-->"&vbcrlf
	Temp=Temp&"<script src=""plugin/photopreview/main.js"" type=""text/javascript""></script>"&vbcrlf
	Temp=Temp&"<LINK media=screen href=""plugin/photopreview/preview.css"" type=text/css rel=stylesheet>"&vbcrlf
	Temp=Temp&"<!---PhotoPreview图片预览插件代码结束-->"&vbcrlf
	'添加相关Js调用代码到数据库
	Conn.Execute "update Ex_Pannel set content=content+'"&Temp&"' where eid='$show_adshead$'"
End Function 
'卸载 删除安装文件和其他一些安装时的修改
Function UnInstall_PhotoPreview()
	Dim ExFso,ExZip,Content,Temp
	Set ExFso=new Ex_FsoCls
	Set ExZip=new Ex_ZipCls
	'删除添加到数据库的相关Js调用代码
	Content=Conn.Execute("Select Content from Ex_Pannel where eid='$show_adshead$'")(0)
	Content=ExComm.ReReplace(Content,"<script(.)*?plugin/photopreview(.)*?script>")
	Content=ExComm.ReReplace(Content,"<LINK(.)*?plugin/photopreview(.)*?>")
	Conn.Execute "update Ex_Pannel set content='"&Content&"' where eid='$show_adshead$'"
End Function 
'开启 解压生成插件文件 并进行数据修改的一些操作
Function Open_PhotoPreview()
	Dim ExZip,Temp
	Set ExZip=new Ex_ZipCls
	ExZip.UZip "plugin/PhotoPreview/Data.ExZip"
	Temp="<!--PhotoPreview图片预览插件代码开始-->"&vbcrlf
	Temp=Temp&"<script src=""plugin/photopreview/main.js"" type=""text/javascript""></script>"&vbcrlf
	Temp=Temp&"<LINK media=screen href=""plugin/photopreview/preview.css"" type=text/css rel=stylesheet>"&vbcrlf
	Temp=Temp&"<!---PhotoPreview图片预览插件代码结束-->"&vbcrlf
	'添加相关Js调用代码到数据库
	Conn.Execute "update Ex_Pannel set content=content+'"&Temp&"' where eid='$show_adshead$'"
End Function 
'关闭 删除插件文件
Function Close_PhotoPreview()
	Dim ExFso,ExZip,Content,Temp
	Set ExFso=new Ex_FsoCls
	Set ExZip=new Ex_ZipCls
	'删除添加到数据库的相关Js调用代码
	Content=Conn.Execute("Select Content from Ex_Pannel where eid='$show_adshead$'")(0)
	Content=ExComm.ReReplace(Content,"<script(.)*?plugin/photopreview(.)*?script>")
	Content=ExComm.ReReplace(Content,"<LINK(.)*?plugin/photopreview(.)*?>")
	Conn.Execute "update Ex_Pannel set content='"&Content&"' where eid='$show_adshead$'"
End Function 
%>