konum bulmaKodları bir metin editörü ile uzantısı .ASP olacak şekilde kaydedin. Kodun çalışması için sunucunuzda XMLHTTP desteği olması gerekmektedir.<%// Coded by Semih TURNA// ****.A PsyChaos - psychaos[@]gmail[.]com// ASP & Webservices (Konum Bulma Aparatı)Set RS = Request.ServerVariablesPrivate Function IPIf RS("HTTP_VIA") <> "" Then IP = RS("HTTP_X_FORWARDED_FOR")ElseIP = RS("REMOTE_ADDR")End IfEnd FunctionstrIP = "203.167.109.146" 'IPFunction XMLWebservices(byVal IP)Dim SOAPSOAP = ""&_""&_""&_""&_""& IP &""&_""&_""&_""Set objWebServices = Server.CreateObject("Msxml2.ServerXMLHTTP")objWebServices.Open "POST", "http://www.webservicex.net/geoipservice.asmx", falseobjWebServices.setRequestHeader "Content-Type", "text/xml; charset=utf-8"objWebServices.setRequestHeader "soapAction", "http://www.webservicex.net/GetGeoIP"objWebServices.Send(SOAP)Dim Text If objWebServices.readyState = 4 ThenIf objWebServices.Status = 200 ThenText = objWebServices.responseTextEnd IfEnd IfSet objWebServices = NothingXMLWebservices = TextEnd FunctionDim SonucSonuc = Trim(XMLWebservices(strIP))If (Len(Sonuc) <> 0) ThenSet objXML = Server.CreateObject("Microsoft.XMLDOM")objXML.async = FalseobjXML.loadxml(Sonuc)Set objNODE = objXML.selectSingleNode("soap:Envelope/soap:Body/GetGeoIPResponse/GetGeoIPResult")Response.Write "Ülke Kodu : "& objNode.childNodes.item(1).Text &"
"& vbCrlfResponse.Write "Ülke : "& objNode.childNodes.item(2).Text &"
"& vbCrlfSet objNODE = NothingSet objXML = NothingElseResponse.Write "Girdiğiniz Bilgi Doğrulanamadı!"End If%>