- Katılım
- 26 Mart 2005
- Mesajlar
- 922
- Reaction score
- 4
PHP:
<form method="post">
<input type="text" name="resim" value="herhangi bir resim linki"><br />
<%
Dim resimal
resimal = Request.Form("resim")
degisken = " "& resimal &" "
Set objHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "GET", degisken
objHttp.Send
strBin = objHttp.ResponseBody
Set objHttp = Nothing
%>
<input type="submit" value="Gonder" name="gonder">
</form>
Yukarıdaki şekilde bir kodum var. Input içindeki resim
linki açıldıktan sonra kodun devamında ismi
değiştirilerek img klasörüne ekleniyor.
Yukarıdaki kod;
Direkt link yazdığım zaman,
PHP:
degisken = "resim linki"
veya Response.Write ile deneme yaptığımda çalışıyor gözüküyor.
PHP:
degisken = " "& resimal &" "
Response.Write degisken
Fakat input değerinden gelen linki bir türlü açtıramıyorum. Bu sorunu nasıl çözebilirim ?
Ekleme:
En azından yaşadığım soruna dair gelişmeleri paylaşayım. Belki daha sonra aynı sorunu yaşayan birilerinin işine yarayabilir.
Aşağıdaki GET kısmına URL adresini yazdığımda sorunsuz çalışıyor
PHP:
objHttp.Open "GET", "URL adresi"
Fakat degisken koyduğumda;
PHP:
objHttp.Open "GET", degisken
- Hosting üzerinde verdiği hata "The page cannot be displayed because an internal server error has occurred." Ayrıca form üzerindeki input ve submit kısımları gözükmüyor.
- Localhost üzerinde ise form üzerindeki input ve submit butonu gözüküyor ve "An error occurred on the server when processing the URL. Please contact the system administrator." hatasını alıyorum. Form submit yaptığımda kod çalışıyor.
Hatanın ne olduğunu görmek için IIS üzerinde > Default Web Site > ASP > Üst Yolları Etkinleştir = True ve Hataları Tarayıcıya Gönder = True yaptım.
Ekrana çıkan hata;
msxml3.dll hata '80070057'
Parametre hatalý.
/x.asp, satır 11
Bu hata objHttp.Open "GET", degisken satırına denk geliyor.
Çözümü olan ?
Ekleme:
Sorun başka bir forumda Turgut MIZRAP tarafından çözülmüştür.
http://forum.ceviz.net/asp/116052-f...im-linki-ve-asp-islemi-hakkinda-bir-soru.html
PHP:
<% @Language="VBScript" CodePage="1254" %>
<% Server.ScriptTimeOut=300 %>
<% Response.Buffer = TRUE %>
<% Resim=Request("resim") %>
<% If Resim = "" Then %>
<form method="post">
<input type="text" name="resim" value="herhangi bir resim linki"><br />
<input type="submit" value="Gonder" name="gonder">
</form>
<% Else %>
<%
Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", Resim, False
XmlHttp.send
Resim = XmlHttp.ResponseBody
Response.BinaryWrite(Resim)
Set XmlHttp = Nothing
%>
<% End If %>