FCKeditor Asp版上傳文件(jiàn)時自(zì)動重命名方法

至于FCK的精減就(jiù)不說(shuō)了．可(kě)以百度一下或者說(shuō)哪天有時間了再寫這個精減文章(zhāng)．(本版本爲FCK 2.6.6)

首先打開FCKeditor\editor\filemanager\connectors\asp\config.asp文件(jiàn)．

ConfigIsEnabled = true '啓用上傳功能 把 false 改成 true

然後找到FCKeditor\editor\filemanager\connectors\asp\下的

commands.asp　與　io.asp文件(jiàn)

在commands.asp 裡(lǐ)

找到：sFileName = SanitizeFileName( sFileName )

在這行的下邊一行添加：

sFileName = GetID("LwpCms") & "." & Split(sFileName,".")(1)

在io.asp 裡(lǐ)

找到：function SanitizeFileName( sNewFileName )

在該函數結束的end function下邊添加

Function GetID(prefix)

dim YearStr , MonthStr , DayStr , HourStr , MinStr , SecStr , RndStr , NStr , i ,j , SupplyStr 'SupplyStr 爲補位 防止出現位數少的情況 就(jiù)自(zì)動補位

YearStr = year(date)

MonthStr = month(Date)

DayStr=day(Date)

HourStr = hour(time)

MinStr = minute(time)

SecStr = second(time)

if len(MonthStr)<2 then MonthStr="0" & MonthStr

if len(DayStr)<2 then DayStr="0" & DayStr

if len(HourStr)<2 then HourStr="0" & HourStr

if len(MinStr)<2 then MinStr="0" & MinStr

if len(SecStr)<2 then SecStr="0" & SecStr

Randomize

RndStr = Cstr(Fix(9000*rnd() +1000))

NStr = prefix&YearStr&MonthStr&DayStr&HourStr&MinStr&SecStr&RndStr

j = 20 - len(Nstr)

SupplyStr = ""

For i=1 to j

   Randomize

   SupplyStr = SupplyStr & fix(10*rnd())
 
Next

GetID = NStr & SupplyStr
 
end function

保存。關掉所有浏覽器重新打開試下。此時上傳的文件(jiàn)名