<%
' ********************************************************************
' 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 = "xr70-1p26-b67v"
' # 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
%>
爱国、团结、勤奋、成才
远东一中既是西安远东
教育集团所属的一所重点
中学。现有教学班67个,
教职工257人,学生
4500余人。已有40余年
校史的远东一中,
办学业绩在航空系统和全
国企业办学系统及省
市区十分突出,实
现了数量规模和质量效
益的飞跃性发展,
成为陕西省基础教育
系统中首屈一指的规
模大校、质量强校
和特色名校。