<% ' #Kodları kendi tasarımınıza uygun şekilde bir php dosyasının içine yerleştirebilirsiniz. ' # DEĞİŞTİRMEYİN! Dim UserKey Dim ThisPage Dim PostingString Dim PassedQuery Dim AllowSearch Dim ErrorString Dim ResultString ' # // ' # Backlink.Gen.Tr User Key: UserKey ="3273" ' # Buradan aşağıdaki kodlarda değişiklik yaparsanız kodlar çalışmaz! ' --------------------------------------------------------------------------------- ThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the Backlink.Gen.Tr server; PostingString = "&UserKey=" & UserKey PostingString = PostingString & "&ScriptName=" & ThisPage PostingString = PostingString & "&Siteid=" & 586 ' # pass through any querystring data to Backlink.Gen.Tr to allow paging PassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetLinkExchangeData(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else ' here we are just dumping error info to the page. You can clean this up to ' fit your site Response.Write ErrorString End If Function GetLinkExchangeData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetLinkExchangeData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinkExchangeData = False End If Else hObj.Open "GET", "http://www.backlink.gen.tr/linkspage.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetLinkExchangeData = False Else strResponse = ComponentString & hObj.responseText GetLinkExchangeData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing ' let's see if the server supports the XMLHTTP component, various versions On Error Resume Next Set hObj = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else ' # Open connection to Backlink.Gen.Tr server, sending the UserKey information via POST ' # Also, pass through the querystring information (contains category, link information) hObj.open "GET", "http://www.backlink.gen.tr/linkspage.php?" & strQuery & strPost, false hObj.Send If hObj.status <> 200 Then ' # error! strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" TryMSXML = False Else ' # We should have received the links information from the server, ' # the following line will return the data by reference: strResponse = ComponentString & hObj.responseText TryMSXML = True End If Set hObj = Nothing End If End Function ' # //FINSIHED Backlink.Gen.Tr SCRIPT BLOCK %>