Admin\Template\Template_Add.asp文件

<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->

下面加

<script language="javascript">
function upTemplateFileName(){
document.TemplateForm.TemplateFileName.value=TemplateForm.TemplateFileName.value;
}
</script>

还是Admin\Template\Template_Add.asp文件

查找

If Action = "Modify" Then
   Response.Write ("disabled=false")
  End If
  Response.Write " type=""text"" id=""TemplateFileName"" size=""28"" Value=""" & TemplateFileName & """>"

在下面加这么这段

  Response.Write " <input type=""submit"" "
  If Action = "Modify" Then
  Response.Write ("disabled=false")
  End If
  Response.Write " name=""Submitx"" value=""新建模板"" onblur=""upTemplateFileName();"">"

Admin\Template\Template_Add_Save.asp文件

   If TemplateType = 9993 Then
     FsoFileName = Trim(Request("FsoFileName")) & Request.Form("FnameType")
   Else
    FsoFileName = "0"
   End If
   TemplateContent = Trim(Request("Content"))
   TemplateFileName = Request("TemplateFileName")      '导入模板文件名及相对路径
   TemplateFilePath = Replace(TemplateFileName, Mid(TemplateFileName, InStrRev(TemplateFileName, "/")), "")

 改成下面那段

  If TemplateType = 9993 Then

     FsoFileName = Trim(Request("FsoFileName")) & Request.Form("FnameType")
   Else
    FsoFileName = "0"
   End If
   TemplateContent = Trim(Request("Content"))
   TemplateFileName = Request("TemplateFileName")     '导入模板文件名及相对路径

    if instr(TemplateFileName,"/")=0  then  TemplateFileName ="/"& Request("TemplateFileName")    

if instr(TemplateFileName,"/Template/")=0 then TemplateFileName ="/Template/"& Request("TemplateFileName")
   TemplateFilePath = Replace(TemplateFileName, Mid(TemplateFileName, InStrRev(TemplateFileName, "/")), "")