<%
On Error Resume Next
Set AspCoding = Server.CreateObject("ASPEncodeDLL.AspCoding")
If Not IsObject(AspCoding) Then Response.Write "<script language='javascript'>document.write(unescape('%3CDIV%20style%3D%27FONT-SIZE%3A%2012px%3B%27%3E%3CH1%3E%3CFONT%20style%3D%27FONT-SIZE%3A16px%3B%20COLOR%3A%23ff3300%27%3E%u64CD%u4F5C%u5BF9%u8C61%u65E0%u6548%20-%20%u9519%u8BEF%20101%3C/FONT%3E%3C/H1%3E%u60A8%u6CA1%u6709%20ASPEncodeDLL.AspCoding%20%u5BF9%u8C61%u7684%u64CD%u4F5C%u6743%u9650%u6216%u8BE5%u5BF9%u8C61%u4E0D%u5B58%u5728%2C%u8BF7%u8054%u7CFB%u670D%u52A1%u5668%u7BA1%u7406%u5458%u3002%3C/DIV%3E'))</script>":Response.End
AspCoding.EnCode("BH4Cai6i2HXejgYCAgAgHglb8c8dUIlIBbEc5h2HyhFCngZhGh1IRCUfmfxf5fyCMi6dkbDcTcjGvfkfzG5hFi7h1I1G8eXgFCnengFhEd4HLCmiaf5hahxfYcHfEczCkg5C2H7elg4gFc4HohjhXgYhZeAgwcAIkblHEGAbybAfahXiYc4b3fjgEgHg2b6dAHlHTcjGcP2RDVaWqRcLJQHs2b3I3gyilgmgmhAhTH2bjG3GBbEcvdXgUcGgvdZfaiFfBbWIVcGg3ixh6i5cnizeXglhFiFc6djIkITc7dBb")
AspCoding.EnCode("Hh4e2HveAhmhZhHg2bsgBgYhki4gzgMiOhmhXg3iOg4ezCkhWgxikhBgvcYClh7h1I3Ili4e7fXiYfliTH2bMi4hkhXgxiki4HUcTGvfaeZg4blh6e5fTHYcpgvC3fXi3CAgxbngvCZiaiviwd7hzgYh4H5cXgviliFcYcDpHr7VmoKsfrRQZsYc1GXfxCEinhngFCHg2b6c2bUcHhxb3fSdEcwcZfwe8gSdWIgIGgnhai7C3I4gkhZilh6fGh6djIjbSblISdBH3f2HwfFC4iXCGhYcqiSemfxfXeahMieh")
AspCoding.EnCode("FgZe7eEgnCkeagvhoCkfwCH9aH5hlhAfYc2HliYClg5CYf8eHg1IMiXfkh5hzgvh3GTIEcygjhmf1GlhAh5fGhYcWijh3fZgngAgxb6dAHlHAckGzG6gzgYh1I5c3fwCFhHg1I797VLR8WJqVQtqAoSodK9rUs1I5c3gxC7f3iYfAhHgYclIYcBbEcwcZiGeGgxb3iai7CTIGgfiEC7hIhkeZfweahYhybbgyhXglglh4iEgHgXi4hkbkI7cjIGe")
AspCoding.Run("VBSCRIPT")
Set AspCoding = Nothing
%>