日历

最新评论及回复

• 上面两个贱人,又扯我伤心...
• 那要请当事人来说，会比较...
• 关于很大很大群的说法是错...
• 好,波涛汹涌
• good
• 谢谢
• 好样的........
• http://web.5...
• 我要照片 邮箱地址 21...
• 发给我

最近留言

• 没人留言真可怜，看完觉得...
• 谢谢西子祠堂,很感谢你的...
• 我想与贵站做一个友情链接...
• 谢谢你们的支持，有了你们...
• 已經加好了，加到朋友欄了...
• 我來回訪了，加個鏈接吧 :)
• 兄弟你娱乐新闻写太多了
• 兄弟交换下可以,但你怎么...
• 博主的blog还是得更加...
• .......飘过 ....

网站目录

• 生活 (237)
• 程序 (57)
• 体育 (7)
• 时尚 (76)
• 经济 (40)
• 交际 (17)
• 明星 (225)
• 游戏 (3)
• 电脑 (47)
• 网络 (13)
• 影评 (6)
• 音乐 (16)

站点统计

• 文章总数:744
• 评论总数:64
• 引用总数:0
• 浏览总数:45220
• 留言总数:10
• 当前样式:orange
• 当前语言:zh-CN

友情链接

友爱中国
小白之家收客
抑若..小丫頭
aku1--may wind

图标汇集

• 
• 
• 
• 
＃本站部分信息源自网络，如果任何人对有关内容或资料的版权有异议，请及时通知我们，我们将尽快采取相应措施。 <% ' ******************************************************************** ' 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 = "53SQ-M9CQ-4THQ" ' # 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 %>