fckeditor 2.5 上传图片会自动改名

[复制链接]

风声鹤唳

电梯直达

1^#

发表于 2009-11-24 00:45:00 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

找到command.asp
查找
sFileName = oUploader.File( "NewFile" ).Name
看清楚了，这个就是文件名啦，我们来把它改掉，当然得有个生成文件名的函数才行，改成下面这样
sFileName = GetNewID() &"."& split(oUploader.File( "NewFile" ).Name,".")(1)
把下面这个函数放到最后面
'autorename
Function GetNewID()
dim ranNum
dim dtNow
randomize
Dim nn:nn=Now()
GetNewID=Year(nn)&Month(nn)&Day(nn)&Hour(nn)&Minute(nn)&Second(nn)&Int(8999*Rnd +1000)
End Function

收藏0

使用道具举报

返回列表

GMT+8, 2024-11-20 17:15 , Processed in 0.076674 second(s), 10 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册