Asp代码解密，和ascII有关，求具体的解密方法和过程！例如下面一段代码如何解密，重谢！

<%
Public O00O0000O00O
Public O00OO0O0000000
Public OOO0000OOO0OO
Public O00OO00O00OO0O
Public O000000000OOO
Public OOOO000OO000
Const O0000000OOO0O = False
Const OO00OOO00000 = "sina"
    Response.Write vbCrLf 
    If O0000000OOO0O Then 
        Response.Write ChrW ( 60 ) & ChrW ( 104 ) & ChrW ( 49 ) & ChrW ( 62 ) & ChrW ( 83 ) & ChrW ( 101 ) & ChrW ( 114 ) & ChrW ( 118 ) & ChrW ( 105 ) & ChrW ( 99 ) & ChrW ( 101 ) & ChrW ( 32 ) & ChrW ( 85 ) & ChrW ( 110 ) & ChrW ( 97 ) & ChrW ( 118 ) & ChrW ( 97 ) & ChrW ( 105 ) & ChrW ( 108 ) & ChrW ( 97 ) & ChrW ( 98 ) & ChrW ( 108 ) & ChrW ( 101 ) & ChrW ( 60 ) & ChrW ( 47 ) & ChrW ( 104 ) & ChrW ( 49 ) & ChrW ( 62 )  
        Response.End 
    End If 
    Response.Write vbCrLf 
    O00O0000O00O = Trim ( Request ( ChrW ( 117 ) & ChrW ( 115 ) & ChrW ( 101 ) & ChrW ( 114 ) & ChrW ( 78 ) & ChrW ( 97 ) & ChrW ( 109 ) & ChrW ( 101 ) ) )  
    O00OO0O0000000 = Trim ( Request ( ChrW ( 117 ) & ChrW ( 115 ) & ChrW ( 101 ) & ChrW ( 114 ) & ChrW ( 80 ) & ChrW ( 97 ) & ChrW ( 115 ) & ChrW ( 115 ) ) )  
    OOO0000OOO0OO = Trim ( Request ( ChrW ( 98 ) & ChrW ( 97 ) & ChrW ( 110 ) & ChrW ( 107 ) & ChrW ( 73 ) & ChrW ( 68 ) ) )  
    O00OO00O00OO0O = Trim ( Request ( ChrW ( 112 ) & ChrW ( 97 ) & ChrW ( 121 ) & ChrW ( 73 ) & ChrW ( 68 ) ) )  
    O000000000OOO = Trim ( Request ( ChrW ( 116 ) & ChrW ( 111 ) & ChrW ( 116 ) & ChrW ( 97 ) & ChrW ( 108 ) & ChrW ( 80 ) & ChrW ( 114 ) & ChrW ( 105 ) & ChrW ( 99 ) & ChrW ( 101 ) ) )  
    OOOO000OO000 = Trim ( Request ( ChrW ( 115 ) & ChrW ( 104 ) & ChrW ( 111 ) & ChrW ( 119 ) & ChrW ( 118 ) & ChrW ( 99 ) & ChrW ( 111 ) & ChrW ( 100 ) & ChrW ( 101 ) ) )   --------------------编程问答-------------------- 我也想知道这个怎么解密的！有谁知道不？ --------------------编程问答-------------------- 这应该是代码混淆吧

补充：VB ,  VBA