Php Kodun Asp Versiyonu
-
beyler bana
<?
echo file_get_contents("http://premium.pingil.com/bot.php?sayfa=".$_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"]."&ip=".$_SERVER['HTTP_USER_AGENT']);
?>kodunun asp versiyonu lazım
burda şair file_get_contentsle ne demek istemiş mesela bunu bi çevirecek varsa çok şükela olur.
-
aspyi unutmuşum fakat şöyle birşey buldum;
---
function file_get_contents(sURL)
dim xmlhttp, sResult
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET",sURL, false
xmlhttp.send sURL
sResult = xmlhttp.ResponseText
set xmlhttp = nothing
file_get_contents = sResult
end function
---------
kısacası kullanıcıya göre ?sayfa= değişkenler şeklinde değer gönderip, içeriğini yazdırtıyor.Bir nevi include..
-
set XmlObj = Server.CreateObject("Microsoft.XMLHTTP")
XmlObj.open "POST", "http://premium.pingil.com/bot.php?sayfa=falanfilan", false
XmlObj.sendveya
<%
Response.ContentType "text/xml"
If Request.QueryString("deneme") <> "" Then
Response.Redirect "http://http://premium.pingil.com/bot.php?sayfa=Request.QueryString("falanfilan")"
End If
%>veya
<%
xml.Open "POST" , "http://www.siteadi.com" , False
xml.setRequestHeader "Content-Type" , "application/x-www-form-urlencoded"
xml.SEnd "alan=deger&alan2=deger2"
%>
-
ewy panpalar
<%
googlebot="http://premium.pingil.com/bot.php?sayfa="&Request.ServerVariables("server_name")&""&Request.ServerVariables("SCRIPT_NAME")&"&ip="&Request.ServerVariables("http_user_agent")&""
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , googlebot , false
StrHTTP.send
%>şu üstteki zamazingolarıda yazınca aynısının çıktısını aldım. php de kaç satır aspde kaç satır amk
