發表于:2011-06-08 00:00:00來源:SOUAB.COM人氣:3697
至于FCK的精減就不說了.可以百度一(yī)下(xià)或者說哪天有時間了再寫這個精減文章.(本版本爲FCK 2.6.6)
首先打開(kāi)FCKeditor\editor\filemanager\connectors\asp\config.asp文件.
ConfigIsEnabled = true '啓用上傳功能 把 false 改成 true
然後找到FCKeditor\editor\filemanager\connectors\asp\下(xià)的
commands.asp 與 io.asp文件
在commands.asp 裏
在這行的下(xià)邊一(yī)行添加:
sFileName = GetID("LwpCms") & "." & Split(sFileName,".")(1)
在io.asp 裏
找到:function SanitizeFileName( sNewFileName )
在該函數結束的end function下(xià)邊添加
Function GetID(prefix)
dim YearStr , MonthStr , DayStr , HourStr , MinStr , SecStr , RndStr , NStr , i ,j , SupplyStr 'SupplyStr 爲補位 防止出現位數少的情況 就自動補位
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
保存。關掉所有浏覽器重新打開(kāi)試下(xià)。此時上傳的文件名