Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp | Resim Veya Dosya Var Mı Yok Mu Kontrolü? :/ Asp | Resim Veya Dosya Var Mı Yok Mu Kontrolü? :/
-
bir projem için bunu halledebilecek birşeyler arıyorum. Şimdi diyelim resmi ekledik "başka bir site üzerinden" o siteden resim kaldırıldığında resmin olmadığını bildiren bi yazı veya veya resim koycam yerine.
<%
Set Tools = Server.CreateObject("MSWC.Tools")
resim = "hede/hodo.gif"
If Tools.FileExists(resim) then
Response.write "var"
Else
Response.write "yok"
End if
%>bu kodla sadece local dosyalar arasında var yok kontrolü yapılabiliyor bunun yerine fso da kullanılabilir fakat bana başka site üzerinde var mı yokmu kontrolü lazım :/
<%
GotothisURL = "http://aaa.com/bbb.gif"
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
GetConnection.Open "get", GotothisURL, False
GetConnection.Send
ResponsePage = GetConnection.responseText
Response.write (ResponsePage)
Set GetConnection = Nothing
%>birde bunu denedim deneme amaçlı giflerde gif89 yazdırıyor fakat jpg dosyalarında olmuyor o iş.. bmp, jpg, gif şeklinde hepsini denettirebilmem lazım
:/
-
abi url leri bi vt ye kaydet sonra oradan çek
<%
Set Tools = Server.CreateObject("MSWC.Tools")
resim = ""&pesi("url")&""
If Tools.FileExists(resim) then
Response.write "var"
Else
Response.write "yok"
End if
%>böle olmazmı ? yoksa ben mi yanlış anladım :|
-
abü şimdi zaten resimlerin urlsi vt de ama dielim bu resmin adresi http://aa.com/aaa.gif .. olduda bu resim oradan kaldırıldı resim çıkmicak dimi? işte ben resim yoksa orada öyle bi x işareti değilde direk resminizde hata var gibisine bişey koydurcam niyetim o :/ o kodda başka urldeki resmin olup olmadını kontrol etmiyo local dosyalar için geçerli o sadece :/
-
o dediğin şeyi webwiz yapıyo, diyelimki resimi görmüyo, direk blank_avatar.gif i açıyo, resimin bulunduğu sunucu da filan bi bokluk olduğu zamanim mesela dediğin gibi x işareti yerine blank_avatar.gif açılıyo. bizzat yaşadım ve kafayı yemek üzereydim :D diyomö benim avatar bu değil niye böle çıkıyo sonradan çaktım köfteyi tabi :D ama nasıl yapmış anlamadım ,zaten webwizin kodlarından bi bok anlamıyom :C istersen kurcala biraz benim kullandığım sürüm 8.5
-
bakalım bakalım :D
-
al link Web Wiz Forum 8.05a (tr)
-
baktım img taglarında OnError kullanarak hallediyor o işi ama ben OnError kullanamam :D başka çözüm lazııım
-
niye kullanamıyosun ki :| tam istediğin gibi bişey , sende buldun bunuyon :C
<%
strURL = "http://www.tahribat.com/img/forum/avatars/kafa.sikar.olerim.JPG"
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false
objXmlHttp.sEnd
strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
Set Tools = Server.CreateObject("MSWC.Tools")
resim = ""&strHTML&""
If Tools.FileExists(resim) then
Response.write "var"
Else
Response.write "yok"
End if
%>şöle bişi yazdım gerçi hata verdi ama o bileşen benim sunucuda olmadığından :|
-
abü wml de kullanıcam çoğu tel hata veriyor onerror çalıştırmıyo :d
işte o kod gifte hata vermiyor ama bmp ve jpgde hata verdiriyor :d
-
alla alla ne alakası varsa , gif - jpg nin :S garipmiş. ne iş cep telefonu sitesim kuruyon :D
bak bende bi yerden warez ini kurdum bi scriptin wap.theturkler.com :D admin paneli filan var :D değişik bişey ama güzel oluyo :D
-
yıllardır cep telefonu sitesi kuruyom ben :d cep telden chat şeysi
hallettim ben :p
<%
on error resume next
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
gercekresim="http://asdasdtyty.com/asdasd.gif"
XmlHttp.Open "HEAD", gercekresim, False
XmlHttp.send
if XmlHttp.status <> 200 then
response.redirect "resimler/yok.gif"
else
response.redirect gercekresim
end if
Set XmlHttp = Nothing
%>ama 404 sayfası elle yapılandırılmış bi siteden resim çekerken işlemiyor :d
edit modifiye ettim :d
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla