TSYS中生成靜態(tài)頁時(shí)溢出: 'CInt'
更新時(shí)間:2007年01月08日 00:00:00 作者:
今天在添加文章生成靜態(tài)頁是,發(fā)生了 溢出: 'CInt'.
經(jīng)查得知:
原來是CINT不支持太大的數(shù)字,估計(jì)有一個(gè)數(shù)值范圍吧,所以換成CLNG就解決問題了。
修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.
經(jīng)查得知:
原來是CINT不支持太大的數(shù)字,估計(jì)有一個(gè)數(shù)值范圍吧,所以換成CLNG就解決問題了。
修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.
復(fù)制代碼 代碼如下:
If I=0 Then
'生成文件存放路徑
'原來的提示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
'生成文件存放路徑
'原來的提示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
相關(guān)文章
asp通過JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)
asp通過JMAIL實(shí)現(xiàn)通用發(fā)送函數(shù)...2007-08-08asp中去除內(nèi)容HTML標(biāo)簽的三個(gè)function函數(shù)
asp中去除內(nèi)容HTML標(biāo)簽的三個(gè)function函數(shù)...2007-03-03一份ASP內(nèi)存的釋放的實(shí)驗(yàn)報(bào)告
一份ASP內(nèi)存的釋放的實(shí)驗(yàn)報(bào)告...2006-12-12aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼
aspupload文件重命名及上傳進(jìn)度條的解決方法附代碼...2007-08-08