给PJBLOG后台风格管理增加删除皮肤的功能

前几天看到有人在论坛发的帖子，想从wbc的PJPLUS版里把一些好的功能提取出来，今天小研究了一下，把后台“删除风格”功能提取出来，并做了一点小的修改，大家可以参照使用！
　　此功能需要服务器FSO组件支持，删除时会删除风格所在的文件夹，故请大家谨慎使用！

 打开ConContent.asp，找到

'============================================================   
'    设置外观    
'============================================================  

在上面添加

elseif Request.QueryString("Smenu")="delskin" then   
 delskin request.QueryString("SkinFolder")   

再找到

else 
response.write ("<a href=""javascript:setSkin('"&SkinFolder"','"&SkinXML.SelectXmlNodeText("SkinName")"')"">设置为当前风格</a>")  

替换为

else   
response.write ("<a href=""javascript:setSkin('"&SkinFolder"','"&SkinXML.SelectXmlNodeText("SkinName")"')"">设置为当前风格</a>  <a href=""ConContent.asp?Fmenu=Skins&Smenu=delskin&SkinFolder="&server.URLEncode(SkinFolder)""" onclick=""if (!window.confirm('确定要删除此风格吗?')){return false}"">删除此风格</a>")  

打开class\cls_control.asp，找到

'----------- 获得路径的文件信息 ----------------------------  

在上面添加

'----------- 删除风格文件夹信息 ----------------------------   
function delskin(FolderName)  
Dim upl   
       Set upl=Server.CreateObject("Scripting.FileSystemObject")   
                If upl.FolderExists(Server.MapPath("skins/"&folderName)) Then  
                        upl.deleteFolder Server.