<newstar修改004>删除管理员时保留其文件夹
\Admin\SysAdmin_Del_Submit.asp 142行处
'判断是否有隶属管理员
Conn.execute("Update FS_MF_Admin set Admin_Parent_Admin ='"&Trim(Request.Form("Parent_Admin_Name"))&"' where Admin_Parent_Admin='"& tmp_str_d &"'")
Conn.execute("Delete From FS_MF_Admin where id="&NoSqlHack(Request.Form("AdminID")))
'插入日志
'删除静态目录
' Dim p_FSO,tmp_path
' Set p_FSO = Server.CreateObject(G_FS_FSO)
' tmp_path = "..\"& G_UP_FILES_DIR &"\adminFiles\"& tmp_str_d
' tmp_path = Server.MapPath(Replace(tmp_path,"[url=file://\\]
\\","\[/url]
"))
' if p_FSO.FolderExists(tmp_path) = true then p_FSO.DeleteFolder tmp_path
' set p_FSO = nothing
