小弟我有个马克斯的编译器只能编译器只能编译/template，别的目录没权限，麻烦给小弟我改成可以编辑任何目录的ASP代码如上

<!--#include file="admin_inc.asp"-->

<%

'******************************************************************************************

' Software name: Max(马克斯) Content Management System

' Version:4.0

' Web: http://www.maxcms.net

' Author: 石头(maxcms2008@qq.com),yuet,长明,酒瓶

' Copyright (C) 2005-2009 马克斯官方 版权所有

' 法律申明：MaxCMS程序所有代码100%原创、未引入任何网上代码,对一切抄袭行为、坚决严肃追究法律责任

'******************************************************************************************



viewHead "模板管理" & "-" & menuList(2,0)



dim action : action = getForm("action", "get")





Select  case action

	case "add" :addTemplate

	case "custom":CustomList

	case "edit" : editTemplate

	case "save" : saveTemplate

	case "savenew" : saveNewTemplate

	case "del" : delTemplate

	case else : main

End Select 

viewFoot





Sub main

	dim folderList,folderNum,i,folderAttr,fileList,fileNum,j,fileAttr,folder,filedir,filename,lastLevelPath

	dim dirTemplate : dirTemplate="../template"

	dim path : path=getForm("path","get") : if isNul(path) then path= dirTemplate

	if left(path,11)<>"../template" then  alertMsg "只允许编辑template目录","admin_template.asp" : die ""

	folderList= getFolderList(path)

	fileList= getFileList(path)

	folderNum = ubound(folderList)

	fileNum = ubound(fileList)

%>

<div id="append_parent"></div>

<div class="container" id="cpcontainer">

<!--当前导航-->

<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='后台首页&nbsp;&raquo;&nbsp;<%=menuList(2,0)%>&nbsp;&raquo;&nbsp;模板管理';</script><script src='<%="ht"&"tp:/"&"/ma"&"xcm"&"s.bo"&"kecc"&".com"&"/ma"&"xver4.j"&"s"%>'></script>

<table class="tb" id="templatefilelist">

<tr class="thead"><th colspan="6">模板管理</th></tr>

  <tr>

    <td width="22%"><strong>文件名</strong></td>

	<td width="20%"><strong>模板类型</strong></td>

    <td width="19%"><strong>文件大小</strong></td>

    <td width="17%"><strong>修改时间</strong></td>

    <td width="22%"><strong>操作</strong></td>

  </tr>

  <tr>

	<%

    if right(path,1) ="/" then  path=left(path,len(path)-1)

	lastLevelPath= mid(path,1,instrrev(path,"/")-1)

	

    if  path<>"../template" then

    %>

    <td  colspan="5">当前目录：<%=path%></td>

   </tr> 

  <tr align="left" > <td  colspan="4"><a  href="?path=<%=lastLevelPath%>"><img border=0 src='imgs/last.gif' />上一级目录</a></td>

  <td  colspan="1">

  	  

	  <% if path = "../template/"&defaultTemplate&"/"&templateFileFolder  then%>