<% IF not(Session("KEY")="1") THEN response.write "" response.end END IF '========================================== ' ' SuperCMS新闻文章内容管理系统 V 1.0 ' ' 官方网址：http://www.supercms.cn ' www.supercms.net ' '========================================== '程序名称： SuperCMS新闻文章内容管理系统 '英文名称：Super Content Management System '作 者： 创意小子 '联系 Q Q： 77801933 ' '程序创建时间：2005-6-10 '程序完成时间：2005-8-1 '========================================== '请尊重作者版权不要删除以上信息 ' '力争做国内最好最实用的开源网站内容管理系统 ' '特别感谢玄鸟科技提供的大力支持 ' http://www.superbtec.com '========================================== %> <% dim rs,tsql dim rst dim rs1,sql1 dim rs2,sql2 dim rs3,sql3 if request("typeid")<>"" then typeid=request.form("typeid") sql2="select * from type where typeid="&typeid set rs2=server.createobject("adodb.recordset") rs2.open sql2,conn,1,1 cms_type_path = server.MapPath("..")& "/" &(rs2("typedir")) ''########删除数据库栏目信息 set rst=server.CreateObject("ADODB.RecordSet") rst.open "delete * from type where typeid="+request("typeid"),conn,1,1 rst.close ''########删除数据库该栏目下的所有文章信息 set rs1=server.CreateObject("ADODB.RecordSet") rs1.open "delete * from article where typeid="+request("typeid"),conn,1,1 rst.close end if ''########删除服务器上该文件夹中的所有数据资料以及文件夹 Set fso = CreateObject("Scripting.FileSystemObject") Fso.DeleteFolder(cms_type_path) Set fso = nothing rs2.close set rs2=nothing conn.close set conn=nothing response.redirect "typemanage.html"%>