<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
测试文档
<%
Dim Enkey
Enkey="1eSbetpojD5hX4PqLpXkdXUdTPDs2Pmepr2gxEqnamX"
Dim cls
Set cls=new ClassCryptoAES
cls.EncodingAESKey=Enkey
'Response.Write Cls.Decode(Cls.encode(enkey+"="))
Response.Write Cls.encode("123")&"
"
Response.Write Cls.Decode(Cls.encode(enkey+"="))
%>