苗景云的博客

kesion X1.0 标签自动小写上传路径的解决办法

打开 KS_Cls/Kesion.Label.FunctionCls.asp 查找case "photo","photourl","userface","bigphoto","logo" 大约91行，替换成下面的代码

case "photo","photourl","userface","bigphoto","logo" 
  Dim PhotoUrl:PhotoUrl=Trim(Node.SelectSingleNode("@" & Lcase(sTemp)).text & "")
  if KS.IsNul(PhotoUrl) then PhotoUrl=DomainStr & "images/nopic.gif"
  
  ' 新增这行：统一转成大写 UploadFiles（防止以后新上传的文件又小写）
  PhotoUrl = Replace(PhotoUrl, "uploadfiles", "UploadFiles", 1, -1, 1)   ' vbTextCompare 不区分大小写替换
  
  If Left(Lcase(PhotoUrl),4)<>"http" and left(PhotoUrl,1)<>"/" Then 
     PhotoUrl=KS.Setting(3) & PhotoUrl
  End If
  If Left(Lcase(PhotoUrl),4)<>"http" Then 
     PhotoUrl=KS.Setting(2) & PhotoUrl
  End If
  echo PhotoUrl

后台更新缓存，生成页面