无意中发现，科讯9.5修改栏目英文名时不检测英文名是否重复。于是想办法解决，顺便把单页面英文名不能修改也修复了。限制了修改栏目英文名的权限，只有admin可以修改栏目英文名。

修改asp

KS_Cls/Kesion.ClassCls.asp

TJ=RST("tj")

Dim An_folder:An_folder=RST("folder") ' 定义变量

RST.Close

'==========修改栏目英文名称===================================

   if request("FolderEname")<>request("oldFolderEname")
and KS.C("AdminName")="admin"
then

An_folder=left(An_folder,len(An_folder)-len(request("oldFolderEname"))-1)&request("FolderEname")&"/"

'Call KS.AlertHistory(KS.G("folderename")&"|"&request("oldFolderEname")&"|"&An_folder,-1): .End

IF Not(Conn.Execute("Select folder from KS_Class Where TN in(Select TN from KS_Class Where id='"&KS.G("FolderID")&"') and  id<>'"&KS.G("FolderID")&"' and Folder='"&An_folder&"'").Eof) Then

   Call KS.AlertHistory("栏目英文名已存在！",-1): .End

End IF

rst.open "select id,foldername,folder,tj from KS_Class Where
classtype<>2
and ts like '%" & KS.G("FolderID") &"%'",conn,1,3

do while not rst.eof

  dim ntj:ntj=tj-1

  dim ii,folderarr:folderarr=split(rst("folder"),"/")

  dim newFolder:NewFolder=""

  for ii=0 to ubound(folderarr)

    if ii=ntj then

  if newfolder="" then

  newfolder=KS.G("folderename")

  else

   newfolder=newfolder & "/" & KS.G("folderename")

  end if

else

if newfolder="" then

newfolder=folderarr(ii)

else

newfolder=newfolder & "/" & folderarr(ii)

end if

end if

  next

  rst("folder")=newfolder

rst.movenext

loop

rst.close

rst.open "select folder from KS_Class Where classtype=3 and id='" & KS.G("FolderID") &"'",conn,1,3

   IF Not(rst.Eof) Then

An_folder=left(An_folder,len(An_folder)-len(request("FolderEname"))-1)

IF An_folder<>"" Then

   An_folder=An_folder&"/"&request("FolderEname")

Else

   An_folder=request("FolderEname")

End IF

An_folder=Replace(An_folder,".html","")&".html" '强制使用html

IF Not(Conn.Execute("Select folder from KS_Class Where TN in(Select TN from KS_Class Where id='"&KS.G("FolderID")&"') and  id<>'"&KS.G("FolderID")&"' and Folder='"&An_folder&"'").Eof) Then

   Call KS.AlertHistory("单页面英文名已存在！",-1): .End

End IF

'Call KS.AlertHistory(An_folder,-1): .End

rst("folder")=An_folder

rst.update

End IF

rst.close

end if

'================================================================

备注：红色为添加部分