[KingCMS安装在Godaddy修改记录-3] [KingCMS安装在Godaddy修改记录-2] [KingCMS安装在Godaddy修改记录]
一直没有用到KingCMS的上传功能，突然发现上传不能使用，提示目录没有权限，同样还是目录级别的问题。
需要修改两个地方：
/你的文件或站点目录/page/system/config.asp
- '上传目录
- const king_upath = "你的文件或站点目录/upfiles"
同样多级目录跟着相应增加
因为扩展性不强，每次安装在gd目录一旦改变目录级别就需要修改，于是写了一个小函数
将这段代码加在需要加的位置里，然后使用filepath函数就行
- Dim filepath,f1,f2
- f1=server.mappath("/")
- f2=server.mappath("fun.asp")
- filepath=replace(right(f2,len(f2)-len(f1)),"\","/")
- Dim reg
- set reg = New RegExp
- reg.pattern = "/\w{1}.\w*/\w*/\w*.asp"
- reg.IgnoreCase =false
- reg.Global = True
- filepath=reg.Replace(filepath,"")
- '上传目录
- const king_upath = filepath&"upfiles"
这个没写成全局函数，因为可能牵涉要改的函数太多了，比如ad模块的ssi也需要修改类似的路径。
第二个需要修改的是fckeditor的上传函数
找到/你的文件或站点目录/admin/system/editor/FCKeditor/editor/filemanager/connectors/asp/config.asp
- ' You should look at the settings for each resource type to get the full potential
- Dim ConfigUserFilesPath
- ConfigUserFilesPath = "/你的文件或站点目录/upfiles/"
另外就是godaddy上的时间格式和国内主机的格式不一样，使用date()函数的话是这样显示 "7/11/2009" 而不是 "2009-7-11" 如果是作为目录的话就多了很多层级也容易出错，所以要写成这样
自定义一个date函数，格式成想要的样子
- Dim dDate
- dDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
具体用的地方比如fckeditor上传目录的设置
找到/你的文件或站点目录/admin/system/editor/FCKeditor/editor/filemanager/connectors/asp/config.asp;其他格式的上传也可以这样修改
- Dim dDate
- dDate = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
- ConfigAllowedExtensions.Add "Image", "bmp|gif|jpeg|jpg|png"
- ConfigDeniedExtensions.Add "Image", ""
- ConfigFileTypesPath.Add "Image", ConfigUserFilesPath & "image/"&dDate
- ConfigFileTypesAbsolutePath.Add "Image", ""
- ConfigQuickUploadPath.Add "Image", ConfigUserFilesPath& "image/"&dDate
- ConfigQuickUploadAbsolutePath.Add "Image", ""
- ConfigAllowedExtensions.Add "Flash", "swf|flv"
- ConfigDeniedExtensions.Add "Flash", ""
- ConfigFileTypesPath.Add "Flash", ConfigUserFilesPath & "flash/" &dDate
- ConfigFileTypesAbsolutePath.Add "Flash", ""
- ConfigQuickUploadPath.Add "Flash", ConfigUserFilesPath & "flash/" &dDate
- ConfigQuickUploadAbsolutePath.Add "Flash", ""
- ............
