dosya adı değişme hatası

perkullekul · 2012-09-23T03:13:46.0000000+03:00

Function degistir(uzantilar) uzantilar = Replace(uzantilar,".asp",".___") uzantilar = Replace(uzantilar,".aspx",".___") uzantilar = Replace(uzantilar,".htm",".___") uzantilar = Replace(uzantilar,".html",".___") uzantilar = Replace(uzantilar,".php",".___") degistir = uzantilar End function Dim objUpload Dim strFileName Dim strPath Set objUpload = New clsUpload strFileName = degistir(session.sessionID"_"objUpload.Fields("ozgecmis_dosya").FileName) strPath = Server.MapPath("uploaded") "\" strFileName objUpload("ozgecmis_dosya").SaveAs strPath Set objUpload = Nothing with response .write " " .write "opener.document.getElementById('ozgecmis_dosya').value='uploaded/"strFileName"'" .write " " .write " " .write "opener.document.getElementById('dosyaBilgi').innerHTML='CV Dosyanyz, "strFileName" adyyla kaydedilmi?tir'" .write " " .write " " .write "window.close()" .write " " End with %> merhaba, yukarıdaki script kodlarıyla upload ettiğim dosyaların adını değiştiriyorum. upload edilen dosya adını "serkan.jpg" olarak varsayın. bu script dosyaları "654987_serkan.jpg" gibi önüne değişken alarak kaydediyor. sorun şu ki: ie'de sorunsuz çalışan bu script firefoxta çalışmıyor. hata da vermiyor ama dosyayı kaydederken uzantısını kaydetmiyor. sadece değişken adı çıkıyor. örnk: "654987_" gibi... bu sorun hakkında bilgisi olan varsa yardımını esirgemesin. şimdiden teşekkür ederim.