<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="01"
	dir="err.asp" 
  %>
<!--#include file="../editor/Include/Startup.asp"-->
  <!--#include file="../conn/conn.asp"-->
  <!--#include file="../inc/filesystem.asp"-->
  <!--#include file="../inc/safe.asp"-->
  <!--#include file="rolecheckout.asp"-->
 
  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<LINK href="css/style.css" rel=stylesheet type=text/css>
 <script language="javascript">
 function subcheck()
	 {
  	var str=document.formf.foldername.value;
 	var stro=document.formf.oldname.value;
	if(stro.replace(/\s+/g,"")==""||str=="请输入关键字")
	{
	alert("请输入原文件夹名称！");
	document.formf.oldname.focus();
	return false;
	}
    if(/^\w+$/g.test(stro)==false)
     {
	 alert("请输入正确的原文件夹名称！其中不能包含特殊符号！请使用字母数字下划线之类!请检查！");
     document.formf.oldname.focus();
 	 return false;
 	 }
 	if(str.replace(/\s+/g,"")==""||str=="请输入关键字")
	{
	alert("请输入新文件夹名称！");
	document.formf.foldername.focus();
	return false;
	}
    if(/^\w+$/g.test(str)==false)
     {
	 alert("请输入正确的新文件夹名称！其中不能包含特殊符号！请使用字母数字下划线之类!请检查！");
     document.formf.foldername.focus();
 	 return false;
 	 }
	 if(document.formf.foldername.value==document.formf.oldname.value)
	 {
	 alert("严重警告！新文件夹名称与原文件夹名称相同，这将导致修改失败，后台无法再使用！");
	 return false;
	 }
	 
	 var issure=confirm("你确定要修改后台管理文件夹的路径吗？请确定你所修改的文件夹名称书写正确，请确定你对此文件夹有修改权限！");
	 if(issure)
	 {
	 return true ;
	 }
	 else
	 {
	  return false;
	 }
  }
  </script>
 <style type="text/css">
<!--
.STYLE2 {color: #006699}
-->
 </style>
</head>

<body>
<%
Function noHtml(str)
		Dim re
		Set re=New RegExp
		re.IgnoreCase =True
		re.Global=True
		re.Pattern="(\<.*?\>)"
		str=re.Replace(str,"")
		re.Pattern="(\<\/.*?\>)"
		str=re.Replace(str,"")
		noHtml=str
 End Function
 
 Sub MoveAFolder()
    Dim fso
    Set fso = YXFSO
    On Error Resume Next
   fso.CreateFolder (server.MapPath(HOPE_InstallDir&newfoldername))
  fso.CopyFolder  Server.MapPath(HOPE_InstallDir&oldname),server.MapPath(HOPE_InstallDir&newfoldername)
  fso.DeleteFolder(server.MapPath(HOPE_InstallDir&oldname))
     If Err Then
   Response.Write("<font color=red><b>修改管理文件夹名称时出错,后台管理将无法使用！请使用备份文件还原！</font></b>！请首先检查原文件夹名称是否正确！请检查新的文件夹名是否已经存在或根本就无修改权限！本操作首先需要有对文件夹的操作权限，其次是修改后的文件夹名称不能是已经存在的！(提示：如果你是刚修改的，那么就是你刷新造成的第二次操作，而造成的重名这没有关系的！只要第一次提示成功即可！)")
    Response.End() 
	 
	Else
	Response.Write("<script>alert('操作成功！马上将切换到后台管理路径的新路径！');window.parent.close();window.open('"&HOPE_InstallDir&newfoldername&"/index.asp','','');</script>")
    Response.End() 
 	End If
 End Sub
 
Dim newfodlername
newfoldername=replace_text(Request.Form("foldername"))
gomodi=replace_text(Request.Form("gomodi"))
oldname=replace_text(Request.Form("oldname"))
newfoldername=noHtml(newfoldername)
  strurl=trim(request.ServerVariables("PATH_INFO"))
  strurl=trim(left(strurl,instrrev(strurl,"/")-1))
  strurl=trim(mid(strurl,instrrev(strurl,"/")+1))
 If gomodi<>"" then
 If oldname="" then 
 Response.Write("<script>alert('请输入原后台管理路径的文件夹名称！');history.back(-1);</script>")
 Response.End()
 End If
 If newfoldername="" then 
 Response.Write("<script>alert('请输入正确的后台管理路径的新文件夹名称！');history.back(-1);</script>")
 Response.End()
 End If
 Call MoveAFolder()
 
 End If 
%>
<table width="98%" border="1"  style=" border-collapse:collapse" bordercolor="#BACFEF" align="center" cellpadding="0" cellspacing="0"  bgcolor="#F0F0F0" >
<tr><td>
  <table cellpadding="1" cellspacing="1" border="0" width="100%"   align="center">
    <tr align="center">
      <th height="25" align="center"><span class="tableHeaderText"><strong>后台管理登陆文件夹名称管理</strong></span> </th>
    </tr>
  </table>

  <table width="100%" border="0" cellpadding="0" align="center" cellspacing="0" bgcolor="#F2F2F2">
 <form name="formf" method="post" action=""  onsubmit="return subcheck();"> <tr>
    <td  bgcolor="#E7E7E7">
 &nbsp;&nbsp;注意：  ①.<font color="red">请确保网络速度够快！请注意要有修改文件夹的权限!原文件夹名称的正确性，新文件夹的名称是否已经存在（是否有重名的），如果有都将造成更改后台管理路径的失败！甚至造成不可逆转的后果！请慎重！
 <br />
 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="black">②</font>.如果你有服务器的FTP管理权限或网站所在服务器上的操作权限，你可直接在站点中修改该后台管理文件夹的名称即可！<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#333333">③</font>.</font><span class="STYLE2">提示：</span><font color="red"> 请慎重使用此功能，以免造成严重的后果！请先将后台管理文件夹程序备份，一旦出现出错情况，请用备份的复制到站点中即可！ </font> </td>
  </tr>
  <tr><td  bgcolor="#C5C5C5"></td></tr>
 <tr><td height="40" align="center">原后台管理路径的文件夹名称为：
   <input type="text" name="oldname" maxlength="20" value="<%=strurl%>"  readonly   onblur="this.value=this.value.replace(/\s/g,'')" /></td>
 </tr><TR><TD height="40" align="center">
 新后台管理路径的文件夹名称为：
     <input  type="text" name="foldername" maxlength="20"  onblur="this.value=this.value.replace(/\s/g,'')" />
 </TD>
 </TR><tr><td height="40" align="center"><input type="submit" name="gomodi" value="我要修改"  style="background-color:#F5F5F5"/>&nbsp;&nbsp;&nbsp;&nbsp;<a href="#"  onclick="javascript:history.back(-1);">返回</a>
  </td>
 </tr> 
 <tr><td  bgcolor="#E6E6E6">
  </td></tr>
 <tr><td  height="3">
  </td></tr></form>
 </table>
 </td>
</tr></table>

</body>
</html>
