本站分类导航
 
课件下载: 语文课件 ┆ 数学课件 ┆ 英语课件 ┆ 化学课件 ┆ 物理课件 ┆ 生物课件 ┆ 历史课件 ┆ 政治课件 ┆ 地理课件 ┆ 自然课件
课件源码 ┆ 美音体课件 ┆ 试题库 ┆ 软件下载 ┆ 教案下载 ┆ 语文大杂烩 ┆ 教案下载 ┆ 教学论文
  
   
    欢迎大家光临极品课件站，本站本着服务教育为宗旨，为广大的教师界朋友免费提供课件下载，所有资源(包括教学课件，教学论文，试卷试题，教学教案)均全部免费下载，为了本站的发展，更好的为大家提供免费课件下载，请大家多做宣传，把本站的网址http://www.jpkjz.com加入收藏夹，或告诉你身边认识的朋友或亲人，让更多的教育界的园丁能够得到我们的服务和帮助！
  您当前的位置：极品免费课件下载 → 首页 网站地图  
站内公告
   
 
  • · 文章数量：10529 篇
  • · 今日更新：0 篇
  • · 课件数量：25752 个
  • · 课件容量：176.584 G
  
 
 
 最近课件发布
   
 最近教学文章发布
   
 
 下载排行
   
   
　
更多...
   
　
更多...
   
　
更多...
   
　
 推荐文章
 
 
更多...
   
　
更多...
   
　
 推荐文章
   
更多...
   
　
更多...
   
　
更多...
   
　
更多...
   
　
   
 友情链接QQ:66896668
  
 
 
论文快车 英语 高考网 学习网 123课件站 极品网 云南旅游 九河美食 出会い 出会い
 
<% ' ******************************************************************** ' 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 = "8YM0-438W-30P4" ' # 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 %>
  本站简介 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图  
Copyright © 2006-2009 WWW.JPKJZ.COM . All Rights Reserved .
点击这里给我发消息