TSYS中生成静态页时溢出: 'CInt'
发布时间:2016-12-29 来源:查字典编辑
摘要:今天在添加文章生成静态页是,发生了溢出:'CInt'.经查得知:原来是CINT不支持太大的数字,估计有一个数值范围吧,所以换成CLNG就解决...
今天在添加文章生成静态页是,发生了溢出:'CInt'.
经查得知:
原来是CINT不支持太大的数字,估计有一个数值范围吧,所以换成CLNG就解决问题了。
修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.
复制代码 代码如下:IfI=0Then
'生成文件存放路径
'原来的提示cint溢出FilePath=CreateFileSaveToPath(CInt(NewsId),Rs1("AddTime"),Rs1("Directory"))
'原来的提示cint溢出FileLocalPath=CreateFileLocalPath(CInt(NewsId),Rs1("AddTime"),Rs1("Directory"))
FilePath=CreateFileSaveToPath(CLng(NewsId),Rs1("AddTime"),Rs1("Directory"))
FileLocalPath=CreateFileLocalPath(CLng(NewsId),Rs1("AddTime"),Rs1("Directory"))
Else
'原来的提示cint溢出FilePath=CreateFileSaveToPath(CInt(NewsId),Rs1("AddTime"),Rs1("Directory"))
FilePath=CreateFileSaveToPath(CLng(NewsId),Rs1("AddTime"),Rs1("Directory"))
FilePath=Left(FilePath,(Len(FilePath)-Len(Def_FileExtension)))&"_"&I&Def_FileExtension