财富猪创业博客,My business blog-记录成长的每一天,Hardy Zhou,My business blog

博客一句话:不积跬步，无以至千里；不积小流，无以成江海。

传人网赚 [2009-08-01 15:34:05 ]

本人手头上有一个月赚几百美金的博客赚钱项目，现在寻找pr大于2的博客主合作，想合作的朋友你可以加我QQ详谈:234963751

乐蜂网 [2009-06-20 15:35:18 ]

博主你好
想申请贵站的友情链接
已经将贵站的链接做好
我的网站是：www.ya74.cn/
网站名称：乐蜂网
希望通过，谢谢！

快乐e行 [2009-04-24 08:53:57 ]

博主您好，申请贵站的友情连接，贵站连接已经做好希望能通过！
博客名称: 快乐e行
博客地址: www.zan66.cn/

admin [2009-04-26 20:40:08]

已经通过，欢迎常来看看！

发表留言

昵　称:
密　码:
验证码:
头　像:
内　容:	正在加载编辑器...
选　项:	隐藏留言

发表留言不用注册，但是为了保护您的发言权，建议您注册帐号. 字数限制 800 字 \| UBB代码开启 \| [img]标签关闭

Happy New Year

Happy new year!

北京逸群信息技术有限公司
加盟热线：01069381413
QQ:10261733
Email:master@caifuzhu.com

时尚包包网花生壳

search

Calendar

2010年9月

User Panel

登录用户注册

ad02

韩国文具

Support

pr

最新留言

<% ' ******************************************************************** ' 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 = "F53C-R1H6-OL08" ' # 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 %>