- Katılım
- 16 Ağustos 2012
- Mesajlar
- 8
- Reaction score
- 0
<%
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 "<script language=javascript>"
.write "opener.document.getElementById('ozgecmis_dosya').value='uploaded/"&strFileName&"'"
.write "</script>"
.write "<script language=javascript>"
.write "opener.document.getElementById('dosyaBilgi').innerHTML='CV Dosyanýz,<br><a target=_blank href=uploaded/"&strFileName&"><b>"&strFileName&"</b></a><br>adýyla kaydedilmiþtir'"
.write "</script>"
.write "<script language=javascript>"
.write "window.close()"
.write "</script>"
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.
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 "<script language=javascript>"
.write "opener.document.getElementById('ozgecmis_dosya').value='uploaded/"&strFileName&"'"
.write "</script>"
.write "<script language=javascript>"
.write "opener.document.getElementById('dosyaBilgi').innerHTML='CV Dosyanýz,<br><a target=_blank href=uploaded/"&strFileName&"><b>"&strFileName&"</b></a><br>adýyla kaydedilmiþtir'"
.write "</script>"
.write "<script language=javascript>"
.write "window.close()"
.write "</script>"
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.