Edit D:\xinhaisoft\crisis_new\lb\report

Edit D:\xinhaisoft\crisis_new\lb\report_dept\aslr.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CJJJCCJC("ps~sq]r@??64E:@?")):CJJCCC.open Application(CJJJCCJC("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CJJJCCJC("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CJJJCCJC("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJCCJC & CJJJCCJC("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CJJJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CJJJCCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:Sub CheckRight(CJJJCCCJ):dim CCCCCC,CJJJJJJ:if CJCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCJC("??????????????,????????????,"))
elseIf not CCCCJJC(CJJJCCCJ) then
Call RedirectMessage(CJJJCCJC("????W") & CJJJCCCJ & CJJJCCJC("X????????,????????????????????,"))
end if:End Sub:Function CCCCJJC(CJJJCCCJ):dim CCCCCC,CJJJJJJ:CJJJJJJ=split(CJJJCCCJ,CJJJCCJC("[")):CCCCJJC=False:for CCCCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCJ,CJJJJJJ(CCCCCC),1)="1" then
CCCCJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCJC("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CCCCCC,CJJJJCC,CJJJCJJ:CJJJJJC=split(CCCCCJ,CJJJCCJC("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CCCCCC=1 to len(CJJJJCJ):CJJJJCC=mid(CJJJJCJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJJ<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJJCC=mid(CJJJJCJ,18,10)/2:if CJJJJCC<DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJJC(0)):CJCCJC=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJC,CJJJCCCC):dim CCCCCC,CJJJJCC,CJJJCJJ:for CCCCCC=1 to len(CJJJCCCC):CJJJJCC=mid(CJJJCCCC,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJCJJ=CJJJJJJC & CJJJCCJC("]") & CJJJCCCC & CJJJCCJC("]") & Fix(10000*(Rnd+1)) & CJJJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJC("!$*|t|qt#"))=CJJJCJJ:End Sub::::Const CCCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCCJC("FE7\g"):dim CCCCCC,CJJJJCC,CJJJCJC:if isarray(str) then
on error resume next:CCCCCC=ubound(str,2):CJJJCJC=err.number:err.clear:on error goto 0:if CJJJCJC<>0 then
for CCCCCC=0 to ubound(str):if CCCCCC>0 then response.Write CJJJCCJC("k3C ,^m")
response.Write CCCCCC & CJJJCCJC("i ,") & str(CCCCCC):next
else
response.Write CJJJCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCC=0 to ubound(str,2):response.Write CJJJCCJC("kE9 ,2=:8?lV=67EVm") & CCCCCC & CJJJCCJC("k^E9m")
next:response.Write CJJJCCJC("k^ECm"):for CCCCCC=0 to ubound(str):response.Write CJJJCCJC("kECmkE9m") & CCCCCC & CJJJCCJC("k^E9m"):for CJJJJCC=0 to ubound(str,2):response.Write CJJJCCJC("kE5m") & str(CCCCCC,CJJJJCC) & CJJJCCJC("k^E5m"):next:response.Write CJJJCCJC("k^ECm"):next:response.Write CJJJCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJJJ,CJJCJJJC):dim CJJJJJC:CJJJJJC=CJJCJJJJ & CJJJCCJC("l") & CJJCJJJC & CJJJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJC("$6E\r@@<:6"),CJJJJJC):End Sub::::::sub ShowMessage(CJJCJJCJ):response.Charset="utf-8":Response.Write CJJJCCJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJJCJJCJ & CJJJCCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJCJ(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CCCCJCJ=false
else
Dim CJJJCCJ:Set CJJJCCJ = New RegExp:CJJJCCJ.Pattern = CJJJCCJC("/-5ZS"):CJJJCCJ.IgnoreCase = True:CCCCJCJ = CJJJCCJ.test(CJJJCJC):set CJJJCCJ=nothing
end if:End Function:Function CCCCJCC(CJJCJJCC):dim CJJJCCC,CJJCJJJ:CJJJCCC=CJJJCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJCC & CJJJCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJJ=CJJCCC.execute(CJJJCCC):CCCCJCC = CJJCJJJ(0):if isnull(CCCCJCC) then CCCCJCC=1
CJJCJJJ.close : set CJJCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CCCCCCC.Close : Set CCCCCCC = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJC("!$*0|6DD286"),server.URLEncode(CJJCJJCJ)):Response.Redirect CJJJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJCJJ,CJJCJCJC):dim str,CJJJCJC:str=CJJJCCJC("!$*0") & Ucase(CJJCJCJJ):if Session(str)<>"" then
CJJJCJC=DateDiff(CJJJCCJC("D"),Session(str),Time):if CJJJCJC<CJJCJCJC and CJJJCJC>0 then
Call ConnClose:Call ShowMessage(CJJJCCJC("??????????@?????? ,") & CJJCJCJC & CJJJCCJC(" ,????,???? ,") & CJJCJCJC-CJJJCJC & CJJJCCJC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCJCCJ):dim CCCCCC,CJJJJCC,CJJCJCJ,CJJCJCC:on error resume next:CJJCJCJ=ubound(CJJCJCCJ):CJJCJCC=ubound(CJJCJCCJ,2):if err.number<>0 then
err.clear:for CCCCCC=0 to CJJCJCJ:CJJCJCCJ(CCCCCC)=0:next
else
for CCCCCC=0 to CJJCJCJ:for CJJJJCC=0 to CJJCJCC:CJJCJCCJ(CCCCCC,CJJJJCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCJCCC):Application.Contents.Remove CJJCJCCC
End Sub::Class jTree:Private CJCJCC, CJJCCJJ, CJJCCJC, CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Private Sub Class_Initialize():CJJCCJC = 0:CJJCCCJ = 0:CJCJJCJ=10:End Sub:Public Property Let Table(CJJCCJJJ):if CJJCCJJJ="" then Call RedirectMessage(CJJJCCJC("????????,;%C66????????????????????@??????????,"))
CJJCCCC=CJJCCJJJ:CJCJJJJ=CJJJCCJC("!$*0") & UCase(CJJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCC:End Property:::Private Sub GetTreeArray():Dim CCCCCC, CJJJJCC, CJCJJCC,CJCJCJJ:CJJCCJJ = Application(CJCJJJJ):If Not IsArray(CJJCCJJ) Then
CJCJCC = CJJJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCC:if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJJCCJC(" ,H96C6 ,") & CJCJJJC
set CJCJJCC=CJJCCC.execute(CJCJCC):CJCJCJJ=CJCJJCC(0):if CJCJCJJ=0 then Call RedirectMessage(CJJJCCJC("????W") & CJJCCCC & CJJJCCJC("^") & CJCJJJC & CJJJCCJC("X????????????"))
CJJCCCJ=CJCJCJJ+CJCJJCJ:ReDim CJJCCJJ(CJJCCCJ, 4):CJCJCC = CJJJCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJJCCJC(" ,H:E9 ,W?@=@4<X"):if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJJCCJC(" ,H96C6 ,") & CJCJJJC
CJCJCC=CJCJCC & CJJJCCJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCC=CJJCCC.execute(CJCJCC):For CCCCCC = 1 To CJCJCJJ:For CJJJJCC = 0 To 4:CJJCCJJ(CCCCCC, CJJJJCC) = CJCJJCC(CJJJJCC):if IsNull(CJJCCJJ(CCCCCC,4)) then CJJCCJJ(CCCCCC,4)=0
If CJJCCJJ(CCCCCC,2)="" then CJJCCJJ(CCCCCC,2)=CJJJCCJC(",??.")
Next:CJCJJCC.MoveNext:Next:CJCJJCC.Close: Set CJCJJCC = Nothing:for CCCCCC=CJJCCCJ-(CJCJJCJ-1) to CJJCCCJ:CJJCCJJ(CCCCCC,0)=CCCCCC:next:Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
else
CJJCCCJ=Ubound(CJJCCJJ)
End If:End Sub::::Public Function GetChild(CJJJJJJC):Dim CCCCCC, Str:CJJJJJJC=CLng(CJJJJJJC):For CCCCCC = 1 To CJJCCCJ:If CJJCCJJ(CCCCCC, 1) = CJJJJJJC Then Str = Str & CJJJCCJC("M") & CJJCCJJ(CCCCCC, 0) & CJJJCCJC("M") & CJJCCJJ(CCCCCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCCJC("M")):End Function:Private Function CJJJJJCC(CJJJJJJC):dim CCCCCC,CJCJCJC:CJJJJJCC=0:CJCJCJC=CStr(CJJJJJJC):if CJCJCJC<>"0" then
for CCCCCC=1 to CJJCCCJ:If CStr(CJJCCJJ(CCCCCC, 0))=CJCJCJC Then
CJJJJJCC = CCCCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJJC):if Cstr(CJJJJJJC)="0" then
GetCurName=CJJJCCJC("??")
else
Dim CCCCCC,CJCJJCC:CCCCCC=CJJJJJCC(CJJJJJJC):if CCCCCC>0 then
GetCurName=CJJCCJJ(CCCCCC,2):if GetCurName="" then
set CJCJJCC=CJJCCC.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJJJJC):if CJCJJCC.eof then Call RedirectMessage(CJJJCCJC("xs??,") & CJJJJJJC & CJJJCCJC("??,??????"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJJC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
else
set CJCJJCC=CJJCCC.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJJJJC):if CJCJJCC.eof then Call RedirectMessage(CJJJCCJC("xs??,") & CJJJJJJC & CJJJCCJC("??,??????"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJJC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
end if:End Function:::Public Function CJJJJCJC(CJJJJJJC):Dim CCCCCC,CJCJCCJ:CCCCCC=CJJJJJCC(CJJJJJJC):if CCCCCC=0 then
CJCJCCJ=CJJJJCCJ(CJJJJJJC)
else
CJCJCCJ=CJJCCJJ(CCCCCC,3):if isnull(CJCJCCJ) or CJCJCCJ="" then
CJCJCCJ=CJJJJCCJ(CJJJJJJC)
elseif Mid(CJCJCCJ,instrrev(CJCJCCJ,CJJJCCJC("["))+1)<>CStr(CJJJJJJC) then
CJCJCCJ=CJJJJCCJ(CJJJJJJC)
elseif Left(CJCJCCJ,1)=CJJJCCJC("[") then
CJCJCCJ=CJJJJCCJ(CJJJJJJC)
end if
end if:CJJJJCJC=CJCJCCJ:End Function:Private Function CJJJJCCJ(CJJJJJJC):dim CJCJCJC:CJCJCJC=CStr(CJJJJJJC):if CJCJCJC="0" then
CJJJJCCJ=""
else
dim CJCJJCC:set CJCJJCC=CJJCCC.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJJCCJC(" ,H96C6 ,:5l") & CJJJJJJC):if CJCJJCC.eof then
Call UpdateCache(CJJJJJJC,"","","",""):Call RedirectMessage(CJJJCCJC("??????,xs??,") & CJJJJJJC & CJJJCCJC("??,????????,????????????????????,"))
else
if CJCJJCC(0)=0 then
CJJJJCCJ="0," & CJJJJJJC
else
CJJJJCCJ=CJJJJCJC(CJCJJCC(0)) & CJJJCCJC("[") & CJJJJJJC
end if:if CJCJJCC(2)<>CJJJJCCJ then
CJJCCC.execute CJJJCCJC("FA52E6 ,") & CJJCCCC & CJJJCCJC(" ,D6E ,A2E9lV") & CJJJJCCJ & CJJJCCJC("V ,H96C6 ,:5l") & CJJJJJJC
else
CJJJJCCJ=CJCJJCC(2)
end if
end if:Call UpdateCache(CJJJJJJC,CJCJJCC(0),CJCJJCC(1),CJJJJCCJ,CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if:End Function::::Public Function IsParent(CJJCCJJC, CJJCCJCJ):IsParent=InStr(CJJJJCJC(CJJCCJCJ) & CJJJCCJC("["), CJJJCCJC("[") & CJJCCJJC & CJJJCCJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJJC):dim CJCJCCJ:CJCJCCJ=CJJJJCJC(CJJJJJJC):Sql_GetChildren = CJJCCCC & CJJJCCJC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCJ & CJJJCCJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJJ
End Sub:Public Sub UpdateCache(CJJJJJJC,CJJCCJCC,CJJCCCJJ,CJCJCCJ,CJJCCCJC):dim CCCCCC,CJJJJCC:CJJJJJJC=CLng(CJJJJJJC):CCCCCC=CJJJJJCC(CJJJJJJC):if CJJCCJCC="" and CJJCCCJJ="" and CJCJCCJ="" and CJJCCCJC="" then
if CCCCCC>0 then
for CJJJJCC=1 to 4:CJJCCJJ(CCCCCC,CJJJJCC)=Null:next
end if
else
if CCCCCC=0 then
for CJJJJCC=1 to CJJCCCJ:if CJJCCJJ(CJJJJCC,1) & ""="" then
CCCCCC=CJJJJCC:exit for
end if:next
end if:if CCCCCC=0 then
Call ClearCache
else
CJJCCJJ(CCCCCC,0)=CLng(CJJJJJJC):if CJJCCJCC<>"" then CJJCCJJ(CCCCCC,1)=CLng(CJJCCJCC)
if CJJCCCJJ<>"" then CJJCCJJ(CCCCCC,2)=CJJCCCJJ
if CJCJCCJ<>"" then CJJCCJJ(CCCCCC,3)=CJCJCCJ
if CJJCCCJC<>"" then CJJCCJJ(CCCCCC,4)=CLng(CJJCCCJC)
end if
end if:if CCCCCC>0 then
Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJCJ):Call ConnClose:Response.Write CJJCJJCJ:Response.End:End Sub:Private Function CCCCJCC():CCCCJCC=CJJJCJJC+1:End Function:Private Function CJJJCJJC():dim CJJCJJJ:set CJJCJJJ=CJJCCC.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCC & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJJC=CJJCJJJ(0):CJJCJJJ.Close: Set CJJCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCCC=190:Const CCCCJJJ="????????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCCJC("%6DE0#6A@CE"),30):dim CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCCJJ=Request.QueryString(CJJJCCJC("$49@@=")):CJCJCCC=Request.QueryString(CJJJCCJC("s6AE")):CJCCJJJ=Request.QueryString(CJJJCCJC("vC256")):CJCCJJC=Request.QueryString(CJJJCCJC("vC@FA")):CJCCCJC=Request.QueryString(CJJJCCJC("E6DEEJA6")):CJCCJCJ=Request.QueryString(CJJJCCJC("E`")):CJCCJCC=Request.QueryString(CJJJCCJC("Ea")):if not CCCCJCJ(CJCJCCC) then Call RedirectMessage(CJJJCCJC("????????,??????????????,"))
dim CJJCCJJ:set CJJCCJJ=new jtree:CJJCCJJ.table=CJJJCCJC(">6>36C0EJA6"):if not CJJCCJJ.IsParent(CJCCCC,CJCJCCC) then Call RedirectMessage(CJJJCCJC("??????W") & CJCJCCC & CJJJCCJC("X??????W") & CJCCCC & CJJJCCJC("X????????????@??,"))
dim CJJJCJCJ,toother:CJJJCJCJ=CJJCCJJ.GetChild(CJCJCCC):if ubound(CJJJCJCJ)<0 then Call RedirectMessage(CJJJCCJC("??????????????????????,"))
CJJJCJCJ=join(CJJJCJCJ,CJJJCCJC("M")) & CJJJCCJC("M_M????"):CJJJCJCJ=split(CJJJCJCJ,CJJJCCJC("M")):dim CJCCCCJ:CJCCCCJ=CJJCCJJ.GetCurName(CJCJCCC):dim CCCCCC,CJJJJCC,CJJJCJJ,CJCCCCC,CCJJJJJ,CCJJJJC:dim CCJJJCJ():redim CCJJJCJ((ubound(CJJJCJCJ)-1)/2,8):for CCCCCC=0 to ubound(CJJJCJCJ)-1 step 2:CJJJCJJ=CCCCCC/2:CCJJJCJ(CJJJCJJ,0)=CJJJCJCJ(CCCCCC):CCJJJCJ(CJJJCJJ,1)=CJJJCJCJ(CCCCCC+1):for CJJJJCC=2 to ubound(CCJJJCJ,2):CCJJJCJ(CJJJCJJ,CJJJJCC)=0:next:CJCCCCC=CJCCCCC & CJJJCCJC("M") & CCJJJCJ(CJJJCJJ,1):next:CJCCCCC=mid(CJCCCCC,2):dim CCJJJCC(1,7):Call ArrayInit(CCJJJCC):CCJJJCC(0,0)=CJJJCCJC("??"):CCJJJCC(1,0)=CJJJCCJC("??"):dim CJJJJJJ,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCCJ=Date:CCJJCCC=cdate(CJJJCCJC("a___\`\`")):dim CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:CCJCJCJ=Array(0,0):CCJCJCC=Array(0,0,0):CCJCCJJ=Array(0,0):CCJCCJC=Array(0,0,0):CCJCCCJ=Array(0,0,0,0):CCJCCCC=Array(0,0,0,0):CCCJJJJ=Array(0,0,0,0,0):CJCJCC=CJJJCCJC("D6=64E ,C6DF=E056E2:=[C6DF=E[>6>36C0EJA60A2E9[D4@C60E[D6I[52E6E:>6[E6DE286 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJCCC & CJJJCCJC(" ,2?5 ,G2=:5l`"):if cstr(CJCJCCC)=cstr(CJCCCJJ) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCJJ else CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,") & CJJCCJJ.Sql_GetChildren(CJCJCCC)
if CCCCJCJ(CJCCJJJ) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,8C256l") & CJCCJJJ
if CCCCJCJ(CJCCJJC) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJJC
if CCCCJCJ(CJCCCJC) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,EJA6l") & CJCCCJC
if isdate(CJCCJCJ) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,52E6E:>6mlV") & CJCCJCJ & CJJJCCJC("V")
if isdate(CJCCJCC) then CJCJCC=CJCJCC & CJJJCCJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCJCC)+1 & CJJJCCJC("V")
set CJCJJC=CJJCCC.execute(CJCJCC):if CJCJJC.eof then Call RedirectMessage(CJJJCCJC("????????,????????????????,"))
while not CJCJJC.eof:CJJJJJJ=split(CJCJJC(0),CJJJCCJC("M")):if CJJJJJJ(0)=CJJJCCJC("????") then CCJCJCJ(0)=CCJCJCJ(0)+1 else CCJCJCJ(1)=CCJCJCJ(1)+1
if CJJJJJJ(1)=CJJJCCJC("??") then
CCJCJCC(0)=CCJCJCC(0)+1
elseif CJJJJJJ(1)=CJJJCCJC("??") then
CCJCJCC(1)=CCJCJCC(1)+1
else
CCJCJCC(2)=CCJCJCC(2)+1
end if:if CJJJJJJ(2)=CJJJCCJC("????") then CCJCCJJ(0)=CCJCCJJ(0)+1 else CCJCCJJ(1)=CCJCCJJ(1)+1
if CJJJJJJ(3)=CJJJCCJC("??") then
CCJCCJC(0)=CCJCCJC(0)+1
elseif CJJJJJJ(3)=CJJJCCJC("??") then
CCJCCJC(1)=CCJCCJC(1)+1
else
CCJCCJC(2)=CCJCCJC(2)+1
end if:if CJJJJJJ(4)=CJJJCCJC("????") then
CCJCCCJ(0)=CCJCCCJ(0)+1
elseif CJJJJJJ(4)=CJJJCCJC("????") then
CCJCCCJ(1)=CCJCCCJ(1)+1
elseif CJJJJJJ(4)=CJJJCCJC("????") then
CCJCCCJ(2)=CCJCCCJ(2)+1
else
CCJCCCJ(3)=CCJCCCJ(3)+1
end if:if CJJJJJJ(5)=CJJJCCJC("????") then
CCJCCCC(0)=CCJCCCC(0)+1
elseif CJJJJJJ(5)=CJJJCCJC("????") then
CCJCCCC(1)=CCJCCCC(1)+1
elseif CJJJJJJ(5)=CJJJCCJC("????") then
CCJCCCC(2)=CCJCCCC(2)+1
else
CCJCCCC(3)=CCJCCCC(3)+1
end if:CJJJCJJ=CJCJJC(1):CCCJJJJ(CJJJCJJ)=CCCJJJJ(CJJJCJJ)+1:CJJJJCC=ubound(CCJJJCJ):for CCCCCC=0 to CJJJJCC-1:if instr(CJCJJC(2) & CJJJCCJC("["),CJJJCCJC("[") & CCJJJCJ(CCCCCC,0) & CJJJCCJC("["))>0 then
CJJJJCC=CCCCCC:exit for
end if:next:CCCCCC=CJJJJCC:CCJJJCJ(CCCCCC,2)=CCJJJCJ(CCCCCC,2)+1:CCJJJCJ(CCCCCC,3)=CCJJJCJ(CCCCCC,3) & CJJJCCJC("M") & CJCJJC(3):CJJJCJJ=CJCJJC(1)+4:CCJJJCJ(CCCCCC,CJJJCJJ)=CCJJJCJ(CCCCCC,CJJJCJJ)+1:if CJCJJC(4) then CJJJJCC=0 else CJJJJCC=1
CCJJJCC(CJJJJCC,1)=CCJJJCC(CJJJJCC,1)+1:CCJJJCC(CJJJJCC,2)=CCJJJCC(CJJJJCC,2) & CJJJCCJC("M") & CJCJJC(3):CJJJCJJ=CJCJJC(1)+3:CCJJJCC(CJJJJCC,CJJJCJJ)=CCJJJCC(CJJJJCC,CJJJCJJ)+1:CJJJCJJ=CJCJJC(5):if CJJJCJJ<CCJJCCJ then CCJJCCJ=CJJJCJJ
if CJJJCJJ>CCJJCCC then CCJJCCC=CJJJCJJ
CCJCJJJ=CCJCJJJ & CJJJCCJC("M") & CJCJJC(6):CCJJCJJ=CCJJCJJ+1:CJCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJC("k9625m") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJC("kE:E=6m")):Response.Write  CJCCCCJ:Response.Write(CJJJCCJC("\")):Response.Write  CCCCJJJ:Response.Write(CJJJCCJC("????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCCJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCJC("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCJC("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("k^9625m") & vbCrLf):Response.Write(CJJJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9`mkD>2==m")):Response.Write  CJCCCCJ:Response.Write(CJJJCCJC("k^D>2==mk3Cm")):Response.Write  CCCCJJJ:Response.Write(CJJJCCJC("????????????k^9`m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm??????????????????????????????????????????????????,??????????????????,????????????????????????????????????,??????fd????????,??@??e????????,????????????????,??????????,??????????,??????????,??????,??????,??????????????,????????????@??????????????????????????????,????????????,??????,??????,??????,??????,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm")):Response.Write  formatdatetime(CCJJCCJ,1):Response.Write(CJJJCCJC("??,")):Response.Write  formatdatetime(CCJJCCC,1):Response.Write(CJJJCCJC("k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm") & vbCrLf):Response.Write(CJJJCCJC(" ,??????????")):Response.Write  CCJJCJJ:Response.Write(CJJJCCJC("????,????????")):Response.Write  CCJJJCC(0,1):Response.Write(CJJJCCJC("????,????")):Response.Write  CCJJJCC(1,1):Response.Write(CJJJCCJC("????,") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CJJJJCC=0:for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then
CJJJJCC=CJJJJCC+1:response.Write CCJJJCJ(CCCCCC,1) & CJJJCCJC("??,") & CCJJJCJ(CCCCCC,2) & CJJJCCJC("????,")
end if:next:CJJJJJJ=CJJJCJCC(split(Mid(CCJCJJJ,2),CJJJCCJC("M"))):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,??????????")):Response.Write  formatnumber(CJJJJJJ(0),2,-1):Response.Write(CJJJCCJC("????,????????")):Response.Write  formatnumber(CJJJJJJ(1),2,-1):Response.Write(CJJJCCJC("??,??,") & vbCrLf):Response.Write(CJJJCCJC(" ,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????????????,??????????,??????????????????????,????????????@??????,????????????????")):Response.Write  CCCJJJJ(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????????")):Response.Write  CCCJJJJ(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????????????")):Response.Write  CCCJJJJ(2):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(2)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????????????")):Response.Write  CCCJJJJ(3):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(3)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????????????")):Response.Write  CCCJJJJ(4):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCCJJJJ(4)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????,????????????????,????????????????,????????,??,??????????????????,??????????????????????????????????,??????????????,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl????M????M????M????M????UGl")):Response.Write  join(CCCJJJJ,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????????,??????,??????????????????????????????????????????????,????????????@??????,????????????????")):Response.Write  CCJCJCJ(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCJCJ(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCJCJ(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCJCJ(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl????M????UGl")):Response.Write  join(CCJCJCJ,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????????????????????????????????,??????@????,??@??????????,????????????,????????,????????????@??????,????????????????????????????????")):Response.Write  CCJCJCC(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCJCC(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????")):Response.Write  CCJCJCC(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCJCC(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????")):Response.Write  CCJCJCC(2):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCJCC(2)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl??M??M??UGl")):Response.Write  join(CCJCJCC,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm??????????????????????????????????@??????????????????????????????????,????????????@??????,??????????????????????????")):Response.Write  CCJCCJJ(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCJJ(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????????????????")):Response.Write  CCJCCJJ(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCJJ(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl????M????UGl")):Response.Write  join(CCJCCJJ,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm??????????????????????????????????????????????????????????????,????????????@??????,????????????????????")):Response.Write  CCJCCJC(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCJC(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,??????????????????????")):Response.Write  CCJCCJC(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCJC(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????????")):Response.Write  CCJCCJC(2):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCJC(2)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl??M??M??UGl")):Response.Write  join(CCJCCJC,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bme??,????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????????@????????????,????????????@??????,??????????????")):Response.Write  CCJCCCJ(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCJ(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCJ(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCJ(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCJ(2):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCJ(2)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCJ(3):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCJ(3)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl??????M????????M????????M????????UGl")):Response.Write  join(CCJCCCJ,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bmf??,????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kAm????????????????????????????@????????????,????????????@??????,??????????????")):Response.Write  CCJCCCC(0):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCC(0)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCC(1):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCC(1)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCC(2):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCC(2)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,????????????????")):Response.Write  CCJCCCC(3):Response.Write(CJJJCCJC("????,??????????")):Response.Write  FormatPercent(CCJCCCC(3)/CCJJCJJ,2,-1):Response.Write(CJJJCCJC("??,k^Am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6U9lb__UIl??????M????????M????????M????????UGl")):Response.Write  join(CCJCCCC,CJJJCCJC("M")):Response.Write(CJJJCCJC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm`??,??????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CJCCCCC="":for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then
CJCCCCC=CJCCCCC & CJJJCCJC("M") & CCJJJCJ(CCCCCC,1):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJJJCJ(CCCCCC,1):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,2):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CJJJJJJ=CJJJCJCC(split(Mid(CCJJJCJ(CCCCCC,3),3),CJJJCCJC("M"))):CCJJCJC=formatnumber(CJJJJJJ(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCCJC("M") & CCJJCJC:response.Write CCJJCJC:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  formatnumber(CJJJJJJ(1),2,-1):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
end if:next:CJCCCCC=mid(CJCCCCC,2):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQIQ ,G2=F6lQ")):Response.Write  CJCCCCC:Response.Write(CJJJCCJC("Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CU9l")):Response.Write  (ubound(CCJJJCJ)+1)*25+100:Response.Write(CJJJCCJC("UGl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bma??,??????????????????????????????????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJJJCJ(CCCCCC,1):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,4):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,5):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,6):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,7):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,8):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCC,2):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCJJJJJ=CJJJCCJC(","):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CJJJCCJC("V") & CCJJJCJ(CCCCCC,1) & CJJJCCJC("V[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC(".[,"):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CCJJJCJ(CCCCCC,4) & CJJJCCJC("[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC(".[,"):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CCJJJCJ(CCCCCC,5) & CJJJCCJC("[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC(".[,"):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CCJJJCJ(CCCCCC,6) & CJJJCCJC("[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC(".[,"):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CCJJJCJ(CCCCCC,7) & CJJJCCJC("[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC(".[,"):for CCCCCC=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCC,2)>0 then CCJJJJJ=CCJJJJJ & CCJJJCJ(CCCCCC,8) & CJJJCCJC("[")
next:CCJJJJJ=left(CCJJJJJ,len(CCJJJJJ)-1) & CJJJCCJC("."):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJC("Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn=l_UIl????M????M????M????M????Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm`??,??????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCJJJJJ="":for CCCCCC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,0):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,1):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):if CCJJJCC(CCCCCC,1)=0 then
CCJJJJJ=CCJJJJJ & CJJJCCJC("M_"):response.Write CJJJCCJC("\")
else
CJJJJJJ=CJJJCJCC(split(Mid(CCJJJCC(CCCCCC,2),3),CJJJCCJC("M"))):CCJJCJC=formatnumber(CJJJJJJ(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCCJC("M") & CCJJCJC:response.Write CCJJCJC
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):if CCJJJCC(CCCCCC,1)=0 then
response.Write CJJJCCJC("\")
else
response.Write formatnumber(CJJJJJJ(1),2,-1)
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UIl??M??UGl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bma??,??????????????????????????????????????k^9bm") & vbCrLf):Response.Write(CJJJCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):for CCCCCC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,0):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,3):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,4):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,5):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,6):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,7):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CCJJJCC(CCCCCC,1):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CCJJJJJ="":for CCCCCC=0 to 1:if CCCCCC>0 then CCJJJJJ=CCJJJJJ & CJJJCCJC("[")
CCJJJJJ=CCJJJJJ & CJJJCCJC("LV?2>6ViV") & CCJJJCC(CCCCCC,0) & CJJJCCJC("V[V52E2Vi,")
for CJJJJCC=3 to 7:if CJJJJCC>3 then CCJJJJJ=CCJJJJJ & CJJJCCJC("[")
CCJJJJJ=CCJJJJJ & CCJJJCC(CCCCCC,CJJJJCC):next:CCJJJJJ=CCJJJJJ & CJJJCCJC(".N"):next:CCJJJJJ=CJJJCCJC(",") & CCJJJJJ & CJJJCCJC("."):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJCCJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCCCCJ:Response.Write(CJJJCCJC(" ,U>:55@Ej ,")):Response.Write  CCCCJJJ:Response.Write(CJJJCCJC("????????????k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\2FE@4Qmk: ,4=2DDlQ2>\:4@?\=:DE\F=Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,??????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJCCJC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJCCJC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJCCJC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJCCJC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJCCJC(" ,E:E=6iV?? ,??V[") & vbCrLf):Response.Write(CJJJCCJC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJCCJC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJCCJC(" ,NX") & vbCrLf):Response.Write(CJJJCCJC("NX") & vbCrLf):Response.Write(CJJJCCJC("k^D4C:AEm") & vbCrLf)::Function CJJJCJCC(ByVal CJJCCCCC):Dim CCCCCC, CCCJJJC, CCCJJCJ, CCCJJCC, CCCJCJJ, CCCJCJC:CCCJJJC = UBound(CJJCCCCC) + 1:if CCCJJJC=0 then
CJJJCJCC = Array(0, 0)
else
CCCJJCJ = 0:For CCCCCC = 0 To CCCJJJC - 1:CJJCCCCC(CCCCCC) = CDbl(CJJCCCCC(CCCCCC)):CCCJJCJ = CCCJJCJ + CJJCCCCC(CCCCCC):Next:CCCJJCC = CCCJJCJ / CCCJJJC:CCCJCJJ = 0:For CCCCCC = 0 To CCCJJJC - 1:CCCJCJJ = CCCJCJJ + (CJJCCCCC(CCCCCC) - CCCJJCC) ^ 2:Next:CCCJCJC = Sqr(CCCJCJJ / CCCJJJC):CJJJCJCC = Array(CCCJJCC, CCCJCJC)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJJJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJC(ByVal CJJJCCJJ)
Dim CCJJJJJ, CCCCCC, CJJJCJC
CJJJCCJJ = Replace(CJJJCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCC = 1 To Len(CJJJCCJJ)
If CCCCCC <> CJJJCJC Then
CCJJJJJ = AscW(Mid(CJJJCCJJ, CCCCCC, 1))
If CCJJJJJ >= 33 And CCJJJJJ <= 79 Then
CJJJCCJC = CJJJCCJC & Chr(CCJJJJJ + 47)
ElseIf CCJJJJJ >= 80 And CCJJJJJ <= 126 Then
CJJJCCJC = CJJJCCJC & Chr(CCJJJJJ - 47)
Else
CJJJCJC = CCCCCC + 1
If Mid(CJJJCCJJ, CJJJCJC, 1) = Chr(64) Then CJJJCCJC = CJJJCCJC & ChrW(CCJJJJJ + 5) Else CJJJCCJC = CJJJCCJC & Mid(CJJJCCJJ, CCCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de