<% 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 '========================================== %> <% if (request.form("typename") <> "") and (request.form("typedir") <> "") then Comm_typename = request.form("typename") Comm_typedir= request.form("typedir") end if %> <% dim fso dim f_path dim f_path1 f_path = server.MapPath("..")& "/" &(request.Form("typedir")) Set fso = CreateObject("Scripting.FileSystemObject") if request.Form("typedir") <> "" then f_path1 = server.MapPath("..")& "/" &(request.Form("typedir1")) if f_path1 <> f_path then If not fso.FolderExists(f_path) then if not fso.FolderExists(f_path1) then fso.CreateFolder (f_path1) end if fso.MoveFolder f_path1, f_path else %> <% response.End() end if else If not fso.FolderExists(f_path) then fso.CreateFolder(f_path) end if end if else If not fso.FolderExists(f_path) then fso.CreateFolder(f_path) end if end if Set fso = nothing %> <% dim rs,tsql dim rst set rst=server.CreateObject("ADODB.RecordSet") if request("method")="modified" then rst.open "select * from type where typeid="+request("typeid"),conn,1,3 rst("typename")=Comm_typename rst("typedir")=Comm_typedir rst.Update end if rst.close%> <% response.write "" %>