تبادل إعلانات الشركة الدولية لتصميم برامج الكمبيوتر ILD - بناء مواقع إنترنت - البداية

عن الشركة

أسئلة متكررة

دخول الأعضاء

فكرة تبادل الإعلانات

تعتمد الفكرة على عرضك لإعلانات أعضاء شبكة تبادل الإعلانات مقابل عرضهم لإعلانك على مواقعهم. لكن للأسف كثير من المواقع أسائت وضع إعلانات الآخرين، إما بوضعها فى ذيل الصفحة أو بوضعها فى صفحة تقوم بتحديث نفسها تلقائيا دون أن يراها أحد، و بذلك يحصل صاحب الموقع الغشاش على نقط إضافية تتيح عرض إعلانه على مواقع الآخرين، و بعد أن أصبح أغلب أصحاب المواقع يتعاملون مع تبادل الإعلانات بهذه الكيفية فقدت هذه الوسيلة فعاليتها.

لذلك فكرنا بطريقة تضمن لك ظهور إعلانك بطريقة متميزة على مواقع أعضاء الشبكة، و عدم التلاعب و محاولة إخفاء إعلانك بطريقة أو بأخرى

ستحصل على 100 مرة عرض لإعلانك على مواقع أعضاء الشبكة مقابل كل نقرة يقوم أحد زوار موقعك بها من خلال موقعك ، بمعنى انك إذا قمت بوضع إعلانات أعضاء الشبكة فى مكان متميز من صفحات موقعك، و زار موقعك 100 زائر سيقوم 3 أو 4 بالنقر على إعلانات أعضاء الشبكة و فى مقابل ذلك سيظهر إعلانك 300 أو 400 مرة ، أما إذا قمت بوضع الإعلان فى مكان غير ظاهر فلن يراه أحد و لن يضغط عليه أحد و لن تستفيد بشئ، كذلك الأعضاء الآخرين،لذلك إبدأ بنفسك و ضع إعلانات الآخرين فى مكان متميز لتحدث المنفعة للجميع

للإشتراك إضغط هنا

This Page is built by SB technology

silica sand | windows web hosting | site builder

<% ' ******************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your BackLinks.com settings. ' ******************************************************************** Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ******************************************************************* ' please do not modify any of the code below ' ******************************************************************* BLKey = "D149-368Y-O8YL" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://www.backlinks.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>