LinkWorth和众所周知的Text Link Ads一样可卖广告链接也可写类似Feedsky的话题文章。
而且它的话题邀请比较多，它不限制你添加多少个博客，并且对博客的要求比较低，尤其对于中文博客！可以通过支票和Paypal支付，最低标准25美元。当然，不到一个月就可以挣到了。
注册地址：http://www.linkworth.com/?a=16262
username:
password:
password:
email:
confirm email:
referral id: 16262
收取激活邮件，激活后重新登入后台，在submit blog中提交博客，等待审核。
网站通过审核后会收到LinkWorth的确认邮件，有链接被人买时也会收到确认邮件，千万不要一看全是英文就不管他们了，不确认是无法拿到钱的。当然，最赚钱的还是Linkpost,即博客话题，象我上月的$36.4,也有200多人民币了。
Ask2Link是又一个链接买卖服务平台。Ask2Link支持Paypal支付，10$起付，安装和使用和其他链接服务平台类似。
Ask2link加入条件很低：Pagerank至少为1，Alexa rank在前两百万名之内。只要有PR的网站都可以！网站买链接的价格如下：
PageRank – Price/Month
PR 0 – $4
PR 1 – $8
PR 2 – $16
PR 3 – $20
PR 4 – $28
PR 5 – $36
PR 6 – $80
PR 7 – $160
注册地址：http://www.ask2link.com/
出售链接
PageRank (PR) 1 homepage $1 , subpage $1
’1表在新窗口中打开,0表在当前页打开
OpenInNewWindow = 1
‘修改这里,把BlKey改为你的密钥
BLKey = “XXX-XXX-XXX”
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)
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
BackLinkCode = ResultString
Else
BackLinkCode = ErrorString
End If
%>
最近评论