TSYS中生成静态页时溢出: 'CInt'
更新时间：2007年01月08日 00:00:00 作者：
今天在添加文章生成静态页是，发生了 溢出: 'CInt'.
经查得知：
原来是CINT不支持太大的数字，估计有一个数值范围吧，所以换成CLNG就解决问题了。
修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.
经查得知：
原来是CINT不支持太大的数字，估计有一个数值范围吧，所以换成CLNG就解决问题了。
修改TSYS下的MANAGE/INCLUDE/CreateFile_Fun.asp中的第107行.
复制代码 代码如下:
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
相关文章
隐藏并修改文件的最后修改时间的asp-webshell2009-04-04
ASP生成UTF-8编码的代码...2007-05-05
防止别人盗链的好方法推荐...2007-01-01
asp 实现的冒泡排序程序程序代码，需要的朋友可以参考下。2009-11-11
最近公司开放网站需要用到根据用户添加的出生日期得到生肖发现了这个函数。使用起来不错2008-01-01
一个非常简单的将半角转换为中文的函数...2006-09-09
Session.TimeOut的最大取值是1440，超出会报错
Session.TimeOut的取值以分钟为单位，最大取值是1440分钟，也就是24个小时，如果给它赋一个更大的值2009-06-06
ASP下批量删除数据的两种方法，里面也有删除附件的功能。2010-09-09
TsysV1.1 系统文件清单介绍...2007-01-01
用VB生成DLL封装ASP连接数据库的代码...2007-02-02
最新评论