Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJC, CCJJCJ,CCJJCC, CCJCJJ, CCJCJC:Set CCJJJC = server.CreateObject(CJJJCCCC("ps~sq]r@??64E:@?")):CCJJJC.open Application(CJJJCCCC("r@??64E:@?$EC:?8")):Set CCJJCJ=CCJJJC::Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ:CJJCJJJ=Trim(Request.Cookies(CJJJCCCC("!$*|t|qt#"))):if CJJCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCJ>0 then
CCJCJC=CJJJCCCC("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") & CCJCCC & CJJJCCCC("V ,2?5 ,:5l") & CCJCCJ
set CCJJCC=CCJJJC.execute(CCJCJC):If CCJJCC.EOF Then
Call ClearMemberCookie
Else
CCCJJJ=CCJJCC(2) & "":CCCJJC=CCJJCC(3):CCCJCJ=CCJJCC(5):CCCJCC=CCJJCC(6):CCCCJJ=CCJJCC(9):CCCCJC=CCJJCC(15):CCCCCC=CCJJCC(0):CJJJCCJ=CCJJCC(1):CJJJCJC=CCJJCC(11) & "":CJJJJJJ=CCJJCC(10) & "":CCCCCJ=CCJJCC(12):CJJJJJC=CCJJCC(14):CJJJJCJ=CCJJCC(13):CJJJJCC=CCJJCC(7) & "":CJJJCJJ=CCJJCC(4):CJJJCCC=CCJJCC(8):if isnull(CCCCJC) then CCCCJC=0
if isnull(CCCCJJ) or CCCCJJ=0 then CCCCJJ=CCCJJC
if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CCCJCJ) then CCCJCJ=0
if instr(CJJJCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCC)>0 then Call RedirectMessage(CJJJCCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCCJ,CCJCCC)
End IF
end if:Sub CheckRight(CJJCJJJJ):dim CJJCJJC,CJJCJCJ:if CCJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCCC("??????????????,????????????,"))
elseIf not CCCCJCJ(CJJCJJJJ) then
Call RedirectMessage(CJJJCCCC("????W") & CJJCJJJJ & CJJJCCCC("X????????,????????????????????,"))
end if:End Sub:Function CCCCJCJ(CJJCJJJJ):dim CJJCJJC,CJJCJCJ:CJJCJCJ=split(CJJCJJJJ,CJJJCCCC("[")):CCCCJCJ=False:for CJJCJJC=0 to ubound(CJJCJCJ):If Mid(CCCJJJ,CJJCJCJ(CJJCJJC),1)="1" then
CCCCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCCC("!$*|t|qt#"))="":CCJCCJ=0:CCCJCC=0:CCJCCC=Empty:CCCJCJ=0:CCCCJC=0:CCCCJJ=0:CCCJJC=0:CCCCCC=False:CJJJCCJ=False:CJJJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJCC,CJJCCJJ,CJJCJJC,CJJCCJC,CJJCCCJ:CJJCJCC=split(CJJCJJJ,CJJJCCCC("]")):if ubound(CJJCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJCC(0)) or len(CJJCJCC(1))<>32 or len(CJJCJCC(2))<>32 then
Call ClearMemberCookie
else
CJJCCJJ=CJJCJCC(1):for CJJCJJC=1 to len(CJJCCJJ):CJJCCJC=mid(CJJCCJJ,CJJCJJC,1):if isnumeric(CJJCCJC) then CJJCCCJ=CJJCCCJ & CJJCCJC
if len(CJJCCCJ)=7 then exit for
next:CJJCCJJ=CJJCJCC(2):if CJJCCCJ<>mid(CJJCCJJ,6,7) then
Call ClearMemberCookie
else
CJJCCJC=mid(CJJCCJJ,18,10)/2:if CJJCCJC<DateDiff(CJJJCCCC("D"), CJJJCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCJ=Clng(CJJCJCC(0)):CCJCCC=CJJCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCJ,CJJCJJJC):dim CJJCJJC,CJJCCJC,CJJCCCJ:for CJJCJJC=1 to len(CJJCJJJC):CJJCCJC=mid(CJJCJJJC,CJJCJJC,1):if isnumeric(CJJCCJC) then CJJCCCJ=CJJCCCJ & CJJCCJC
if len(CJJCCCJ)=7 then exit for
next:CJJCCCJ=CJJJJJCJ & CJJJCCCC("]") & CJJCJJJC & CJJJCCCC("]") & Fix(10000*(Rnd+1)) & CJJCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCCC("D"), CJJJCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCCC("!$*|t|qt#"))=CJJCCCJ:End Sub::::Const CCCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCCCC("FE7\g"):dim CJJCJJC,CJJCCJC,CJJCCCC:if isarray(str) then
on error resume next:CJJCJJC=ubound(str,2):CJJCCCC=err.number:err.clear:on error goto 0:if CJJCCCC<>0 then
for CJJCJJC=0 to ubound(str):if CJJCJJC>0 then response.Write CJJJCCCC("k3C ,^m")
response.Write CJJCJJC & CJJJCCCC("i ,") & str(CJJCJJC):next
else
response.Write CJJJCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJJC=0 to ubound(str,2):response.Write CJJJCCCC("kE9 ,2=:8?lV=67EVm") & CJJCJJC & CJJJCCCC("k^E9m")
next:response.Write CJJJCCCC("k^ECm"):for CJJCJJC=0 to ubound(str):response.Write CJJJCCCC("kECmkE9m") & CJJCJJC & CJJJCCCC("k^E9m"):for CJJCCJC=0 to ubound(str,2):response.Write CJJJCCCC("kE5m") & str(CJJCJJC,CJJCCJC) & CJJJCCCC("k^E5m"):next:response.Write CJJJCCCC("k^ECm"):next:response.Write CJJJCCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJCJ,CJJCJJCC):dim CJJCJCC:CJJCJCC=CJJCJJCJ & CJJJCCCC("l") & CJJCJJCC & CJJJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCCC("$6E\r@@<:6"),CJJCJCC):End Sub::::::sub ShowMessage(CJJCJCJJ):response.Charset="utf-8":Response.Write CJJJCCCC("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") & CJJCJCJJ & CJJJCCCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJCC(CJJCCCC):if isnull(CJJCCCC) or trim(CJJCCCC)="" or not isnumeric(CJJCCCC) then
CCCCJCC=false
else
Dim CJCJJJJ:Set CJCJJJJ = New RegExp:CJCJJJJ.Pattern = CJJJCCCC("/-5ZS"):CJCJJJJ.IgnoreCase = True:CCCCJCC = CJCJJJJ.test(CJJCCCC):set CJCJJJJ=nothing
end if:End Function:Function CCCCCJJ(CJJCJCJC):dim CJCJJJC,CJCJJCJ:CJCJJJC=CJJJCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJC & CJJJCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJCJ=CCJJJC.execute(CJCJJJC):CCCCCJJ = CJCJJCJ(0):if isnull(CCCCCJJ) then CCCCCJJ=1
CJCJJCJ.close : set CJCJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJCJJCJ.close : set CJCJJCJ=nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CCJJCC.Close : Set CCJJCC=Nothing:CJJJJJJJ.Close : Set CJJJJJJJ = Nothing:CCJJJC.Close : Set CCJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCCC("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJCCJ,CJJCJCCC):dim str,CJJCCCC:str=CJJJCCCC("!$*0") & Ucase(CJJCJCCJ):if Session(str)<>"" then
CJJCCCC=DateDiff(CJJJCCCC("D"),Session(str),Time):if CJJCCCC<CJJCJCCC and CJJCCCC>0 then
Call ConnClose:Call ShowMessage(CJJJCCCC("??????????@?????? ,") & CJJCJCCC & CJJJCCCC(" ,????,???? ,") & CJJCJCCC-CJJCCCC & CJJJCCCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ
End Sub::Class jTree:Private CCJCJC, CJCJCJJ, CJCJCJC, CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:Private Sub Class_Initialize():CJCJCJC = 0:CJCJCCJ = 0:CJCCJCJ=10:End Sub:Public Property Let Table(CJJCCJJC):if CJJCCJJC="" then Call RedirectMessage(CJJJCCCC("????????,;%C66????????????????????@??????????,"))
CJCJCCC=CJJCCJJC:CJCCJJJ=CJJJCCCC("!$*0") & UCase(CJCJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCCC:End Property:::Private Sub GetTreeArray():Dim CJJCJJC, CJJCCJC, CJCCJCC,CJCCCJJ:CJCJCJJ = Application(CJCCJJJ):If Not IsArray(CJCJCJJ) Then
CCJCJC = CJJJCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCCC:if CJCCJJC<>"" then CCJCJC=CCJCJC & CJJJCCCC(" ,H96C6 ,") & CJCCJJC
set CJCCJCC=CCJJJC.execute(CCJCJC):CJCCCJJ=CJCCJCC(0):if CJCCCJJ=0 then Call RedirectMessage(CJJJCCCC("????W") & CJCJCCC & CJJJCCCC("^") & CJCCJJC & CJJJCCCC("X????????????"))
CJCJCCJ=CJCCCJJ+CJCCJCJ:ReDim CJCJCJJ(CJCJCCJ, 4):CCJCJC = CJJJCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H:E9 ,W?@=@4<X"):if CJCCJJC<>"" then CCJCJC=CCJCJC & CJJJCCCC(" ,H96C6 ,") & CJCCJJC
CCJCJC=CCJCJC & CJJJCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCJCC=CCJJJC.execute(CCJCJC):For CJJCJJC = 1 To CJCCCJJ:For CJJCCJC = 0 To 4:CJCJCJJ(CJJCJJC, CJJCCJC) = CJCCJCC(CJJCCJC):if IsNull(CJCJCJJ(CJJCJJC,4)) then CJCJCJJ(CJJCJJC,4)=0
If CJCJCJJ(CJJCJJC,2)="" then CJCJCJJ(CJJCJJC,2)=CJJJCCCC(",??.")
Next:CJCCJCC.MoveNext:Next:CJCCJCC.Close: Set CJCCJCC = Nothing:for CJJCJJC=CJCJCCJ-(CJCCJCJ-1) to CJCJCCJ:CJCJCJJ(CJJCJJC,0)=CJJCJJC:next:Application.Lock():Application(CJCCJJJ) = CJCJCJJ:Application.UnLock()
else
CJCJCCJ=Ubound(CJCJCJJ)
End If:End Sub::::Public Function GetChild(CJJJJJCJ):Dim CJJCJJC, Str:CJJJJJCJ=CLng(CJJJJJCJ):For CJJCJJC = 1 To CJCJCCJ:If CJCJCJJ(CJJCJJC, 1) = CJJJJJCJ Then Str = Str & CJJJCCCC("M") & CJCJCJJ(CJJCJJC, 0) & CJJJCCCC("M") & CJCJCJJ(CJJCJJC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCCCC("M")):End Function:Private Function CJJJJCJJ(CJJJJJCJ):dim CJJCJJC,CJCCCJC:CJJJJCJJ=0:CJCCCJC=CStr(CJJJJJCJ):if CJCCCJC<>"0" then
for CJJCJJC=1 to CJCJCCJ:If CStr(CJCJCJJ(CJJCJJC, 0))=CJCCCJC Then
CJJJJCJJ = CJJCJJC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJCJ):if Cstr(CJJJJJCJ)="0" then
GetCurName=CJJJCCCC("??")
else
Dim CJJCJJC,CJCCJCC:CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCJJC>0 then
GetCurName=CJCJCJJ(CJJCJJC,2):if GetCurName="" then
set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then Call RedirectMessage(CJJJCCCC("xs??,") & CJJJJJCJ & CJJJCCCC("??,??????"))
GetCurName=CJCCJCC(1):Call UpdateCache(CJJJJJCJ,CJCCJCC(0),GetCurName,CJCCJCC(2),CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing
end if
else
set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then Call RedirectMessage(CJJJCCCC("xs??,") & CJJJJJCJ & CJJJCCCC("??,??????"))
GetCurName=CJCCJCC(1):Call UpdateCache(CJJJJJCJ,CJCCJCC(0),GetCurName,CJCCJCC(2),CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing
end if
end if:End Function:::Public Function CJJJJCCJ(CJJJJJCJ):Dim CJJCJJC,CJCCCCJ:CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCJJC=0 then
CJCCCCJ=CJJJJCCC(CJJJJJCJ)
else
CJCCCCJ=CJCJCJJ(CJJCJJC,3):if isnull(CJCCCCJ) or CJCCCCJ="" then
CJCCCCJ=CJJJJCCC(CJJJJJCJ)
elseif Mid(CJCCCCJ,instrrev(CJCCCCJ,CJJJCCCC("["))+1)<>CStr(CJJJJJCJ) then
CJCCCCJ=CJJJJCCC(CJJJJJCJ)
elseif Left(CJCCCCJ,1)=CJJJCCCC("[") then
CJCCCCJ=CJJJJCCC(CJJJJJCJ)
end if
end if:CJJJJCCJ=CJCCCCJ:End Function:Private Function CJJJJCCC(CJJJJJCJ):dim CJCCCJC:CJCCCJC=CStr(CJJJJJCJ):if CJCCCJC="0" then
CJJJJCCC=""
else
dim CJCCJCC:set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then
Call UpdateCache(CJJJJJCJ,"","","",""):Call RedirectMessage(CJJJCCCC("??????,xs??,") & CJJJJJCJ & CJJJCCCC("??,????????,????????????????????,"))
else
if CJCCJCC(0)=0 then
CJJJJCCC="0," & CJJJJJCJ
else
CJJJJCCC=CJJJJCCJ(CJCCJCC(0)) & CJJJCCCC("[") & CJJJJJCJ
end if:if CJCCJCC(2)<>CJJJJCCC then
CCJJJC.execute CJJJCCCC("FA52E6 ,") & CJCJCCC & CJJJCCCC(" ,D6E ,A2E9lV") & CJJJJCCC & CJJJCCCC("V ,H96C6 ,:5l") & CJJJJJCJ
else
CJJJJCCC=CJCCJCC(2)
end if
end if:Call UpdateCache(CJJJJJCJ,CJCCJCC(0),CJCCJCC(1),CJJJJCCC,CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing
end if:End Function::::Public Function IsParent(CJJCCJCJ, CJJCCJCC):IsParent=InStr(CJJJJCCJ(CJJCCJCC) & CJJJCCCC("["), CJJJCCCC("[") & CJJCCJCJ & CJJJCCCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJCJ):dim CJCCCCJ:CJCCCCJ=CJJJJCCJ(CJJJJJCJ):Sql_GetChildren = CJCJCCC & CJJJCCCC("0A2E9ZV[V ,=:<6 ,V") & CJCCCCJ & CJJJCCCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJJJ
End Sub:Public Sub UpdateCache(CJJJJJCJ,CJJCCCJJ,CJJCCCJC,CJCCCCJ,CJJCCCCJ):dim CJJCJJC,CJJCCJC:CJJJJJCJ=CLng(CJJJJJCJ):CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCCCJJ="" and CJJCCCJC="" and CJCCCCJ="" and CJJCCCCJ="" then
if CJJCJJC>0 then
for CJJCCJC=1 to 4:CJCJCJJ(CJJCJJC,CJJCCJC)=Null:next
end if
else
if CJJCJJC=0 then
for CJJCCJC=1 to CJCJCCJ:if CJCJCJJ(CJJCCJC,1) & ""="" then
CJJCJJC=CJJCCJC:exit for
end if:next
end if:if CJJCJJC=0 then
Call ClearCache
else
CJCJCJJ(CJJCJJC,0)=CLng(CJJJJJCJ):if CJJCCCJJ<>"" then CJCJCJJ(CJJCJJC,1)=CLng(CJJCCCJJ)
if CJJCCCJC<>"" then CJCJCJJ(CJJCJJC,2)=CJJCCCJC
if CJCCCCJ<>"" then CJCJCJJ(CJJCJJC,3)=CJCCCCJ
if CJJCCCCJ<>"" then CJCJCJJ(CJJCJJC,4)=CLng(CJJCCCCJ)
end if
end if:if CJJCJJC>0 then
Application.Lock():Application(CJCCJJJ) = CJCJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCJJ):Call ConnClose:Response.Write CJJCJCJJ:Response.End:End Sub:Private Function CCCCCJJ():CCCCCJJ=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CJCJJCJ:set CJCJJCJ=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CJCJJCJ(0):CJCJJCJ.Close: Set CJCJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJC=155:Call CheckRight("54,81"):Call CheckQueryTime(CJJJCCCC("%6DE0#6A@CE"),15):dim CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:CCJJCJJ=Request.QueryString(CJJJCCCC("$49@@=")):CJCCCCC=Request.QueryString(CJJJCCCC("s6AE")):CCJJJJJ=Request.QueryString(CJJJCCCC("vC256")):CCJJJJC=Request.QueryString(CJJJCCCC("vC@FA")):CCJJCJC=Request.QueryString(CJJJCCCC("E6DEEJA6")):CCJJJCJ=Request.QueryString(CJJJCCCC("E`")):CCJJJCC=Request.QueryString(CJJJCCCC("Ea")):if not CCCCJCC(CJCCCCC) then Call RedirectMessage(CJJJCCCC("????????,??????????????,"))
dim CJCJCJJ:set CJCJCJJ=new jtree:CJCJCJJ.table=CJJJCCCC(">6>36C0EJA6"):if not CJCJCJJ.IsParent(CCCJJC,CJCCCCC) then Call RedirectMessage(CJJJCCCC("??????W") & CJCCCCC & CJJJCCCC("X??????W") & CCCJJC & CJJJCCCC("X????????????@??,"))
dim CJJJCJCC:CJJJCJCC=CJCJCJJ.GetChild(CJCCCCC):if ubound(CJJJCJCC)<0 then Call RedirectMessage(CJJJCCCC("??????????????????????,"))
dim CCJJCCJ:CCJJCCJ=CJCJCJJ.GetCurName(CJCCCCC):dim CJJCJJC,CJJCCJC,CJJCCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:dim CCJCJCJ():redim CCJCJCJ((ubound(CJJJCJCC)-1)/2,10):for CJJCJJC=0 to ubound(CJJJCJCC)-1 step 2:CJJCCCJ=CJJCJJC/2:CCJCJCJ(CJJCCCJ,0)=CJJJCJCC(CJJCJJC):CCJCJCJ(CJJCCCJ,1)=CJJJCJCC(CJJCJJC+1):for CJJCCJC=2 to ubound(CCJCJCJ,2):CCJCJCJ(CJJCCCJ,CJJCCJC)=0:next:CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCCCJ,1):next:CCJJCCC=mid(CCJJCCC,2):dim CCJCJCC(1,1):CCJCJCC(0,0)=CJJJCCCC("??"):CCJCJCC(1,0)=CJJJCCCC("??"):for CJJCJJC=0 to 1:CCJCJCC(CJJCJJC,1)=0:next:dim CJJCJCJ,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:CCJCCCJ=Date:CCJCCCC=cdate(CJJJCCCC("a___\`\`")):dim CCCJJJC(7,7):for CJJCJJC=0 to ubound(CCCJJJC):for CJJCCJC=0 to ubound(CCCJJJC,2):CCCJJJC(CJJCJJC,CJJCCJC)=0:next:next:CCJCJC=CJJJCCCC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJJC & CJJJCCCC(" ,2?5 ,G2=:5l`"):if cstr(CJCCCCC)=cstr(CCJJCJJ) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,>6>36C0EJA60E@Al") & CCJJCJJ else CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,") & CJCJCJJ.Sql_GetChildren(CJCCCCC)
if CCCCJCC(CCJJJJJ) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,8C256l") & CCJJJJJ
if CCCCJCC(CCJJJJC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,4FDE@>8C@FAl") & CCJJJJC
if CCCCJCC(CCJJCJC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,EJA6l") & CCJJCJC
if isdate(CCJJJCJ) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,52E6E:>6mlV") & CCJJJCJ & CJJJCCCC("V")
if isdate(CCJJJCC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,52E6E:>6kV") & cdate(CCJJJCC)+1 & CJJJCCCC("V")
set CCJJCC=CCJJJC.execute(CCJCJC):if CCJJCC.eof then Call RedirectMessage(CJJJCCCC("????????,????????????????,"))
while not CCJJCC.eof:CJJCJCJ=split(CCJJCC(4),CJJJCCCC("M")):for CJJCJJC=0 to 7:CJJCCCJ=CJJCJCJ(CJJCJJC):CCCJJJC(CJJCJJC,CJJCCCJ)=CCCJJJC(CJJCJJC,CJJCCCJ)+1:next:CJJCJCJ=split(CCJJCC(5),CJJJCCCC("M")):for CJJCJJC=0 to 7:CCCJJJC(CJJCJJC,5)=CCCJJJC(CJJCJJC,5) & CJJJCCCC("M") & CJJCJCJ(CJJCJJC):next:for CJJCJJC=0 to ubound(CCJCJCJ):if instr(CCJJCC(0) & CJJJCCCC("["),CJJJCCCC("[") & CCJCJCJ(CJJCJJC,0) & CJJJCCCC("["))>0 then
CCJCJCJ(CJJCJJC,2)=CCJCJCJ(CJJCJJC,2)+1:for CJJCCJC=0 to 7:CJJCCCJ=CJJCCJC+3:CCJCJCJ(CJJCJJC,CJJCCCJ)=CCJCJCJ(CJJCJJC,CJJCCCJ) & CJJJCCCC("M") & CJJCJCJ(CJJCCJC):next:exit for
end if:next:if CCJJCC(1) then CJJCCJC=0 else CJJCCJC=1
CCJCJCC(CJJCCJC,1)=CCJCJCC(CJJCCJC,1)+1:CJJCCCJ=CCJJCC(3):if CJJCCCJ<CCJCCCJ then CCJCCCJ=CJJCCCJ
if CJJCCCJ>CCJCCCC then CCJCCCC=CJJCCCJ
CCCJJJJ=CCCJJJJ & CJJJCCCC("M") & CCJJCC(2):CCJCCJJ=CCJCCJJ+1:CCJJCC.movenext:wend:for CJJCJJC=0 to 7:CJJCJCJ=CJJJCCJC(split(Mid(CCCJJJC(CJJCJJC,5),3),CJJJCCCC("M"))):CCCJJJC(CJJCJJC,6)=FormatNumber(CJJCJCJ(0),2,-1):CCCJJJC(CJJCJJC,7)=FormatNumber(CJJCJCJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCCC("k9625m") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCCC("kE:E=6m")):Response.Write  CCJJCCJ:Response.Write(CJJJCCCC("\??????????????????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("^Y????????Y^") & vbCrLf):Response.Write(CJJJCCCC("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCCCC("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJCCCC("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CJJJCCCC("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCCC("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJCCCC("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCCCC("^Y????????Y^") & vbCrLf):Response.Write(CJJJCCCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("RA286\4@?E6?E ,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(CJJJCCCC("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("k^9625m") & vbCrLf):Response.Write(CJJJCCCC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCJJCCC:Response.Write(CJJJCCCC("Qm") & vbCrLf):Response.Write(CJJJCCCC("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kP\\??@??\\m") & vbCrLf):Response.Write(CJJJCCCC(" ,k9`m")):Response.Write  CCJJCCJ:Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC(" ,??????????????????????k^9`m") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAmpp%??,??????????,????????????,??????????????????????????????,??@????????????,??????????,??????????,??????????,??????????,??????????@????,??????????????????@????,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm")):Response.Write  formatdatetime(CCJCCCJ,1):Response.Write(CJJJCCCC("??,")):Response.Write  formatdatetime(CCJCCCC,1):Response.Write(CJJJCCCC("k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):response.Write CJJJCCCC("??") & CCJCJCC(0,1)+CCJCJCC(1,1) & CJJJCCCC("????,????????") & CCJCJCC(0,1) & CJJJCCCC("????,????") & CCJCJCC(1,1) & CJJJCCCC("????,"):for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then response.Write CCJCJCJ(CJJCJJC,1) & CJJJCCCC("??,") & CCJCJCJ(CJJCJJC,2) & CJJJCCCC("????,")
next:CJJCJCJ=CJJJCCJC(split(Mid(CCCJJJJ,2),CJJJCCCC("M"))):response.Write CJJJCCCC("????????") & formatnumber(CJJCJCJ(0),2,-1) & CJJJCCCC("????,??????") & formatnumber(CJJCJCJ(1),2,-1) & CJJJCCCC("??,??,"):Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????????????,????????????????????")):Response.Write  CCCJJJC(7,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(7,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(7,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(7,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(7,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(7,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(7,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(7,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(7,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(7,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(7,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(7,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm????????????????????????????????????????")):Response.Write  FormatPercent((CCCJJJC(7,3)+CCCJJJC(7,4))/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,????????????????????????????????????,??????????????????????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(7,0) & CJJJCCCC("[") & CCCJJJC(7,1) & CJJJCCCC("[") & CCCJJJC(7,2) & CJJJCCCC("[") & CCCJJJC(7,3) & CJJJCCCC("[") & CCCJJJC(7,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCCJJJC(0,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(0,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(0,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(0,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(0,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(0,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(0,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(0,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(0,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(0,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(0,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(0,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(0,0) & CJJJCCCC("[") & CCCJJJC(0,1) & CJJJCCCC("[") & CCCJJJC(0,2) & CJJJCCCC("[") & CCCJJJC(0,3) & CJJJCCCC("[") & CCCJJJC(0,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCCJJJC(1,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(1,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(1,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(1,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(1,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(1,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(1,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(1,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(1,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(1,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(1,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(1,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(1,0) & CJJJCCCC("[") & CCCJJJC(1,1) & CJJJCCCC("[") & CCCJJJC(1,2) & CJJJCCCC("[") & CCCJJJC(1,3) & CJJJCCCC("[") & CCCJJJC(1,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCCJJJC(2,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(2,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(2,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(2,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(2,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(2,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(2,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(2,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(2,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(2,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(2,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(2,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(2,0) & CJJJCCCC("[") & CCCJJJC(2,1) & CJJJCCCC("[") & CCCJJJC(2,2) & CJJJCCCC("[") & CCCJJJC(2,3) & CJJJCCCC("[") & CCCJJJC(2,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????,????????????????????????????????,????????????????????????")):Response.Write  CCCJJJC(3,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(3,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(3,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(3,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(3,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(3,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(3,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(3,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(3,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(3,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(3,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(3,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(3,0) & CJJJCCCC("[") & CCCJJJC(3,1) & CJJJCCCC("[") & CCCJJJC(3,2) & CJJJCCCC("[") & CCCJJJC(3,3) & CJJJCCCC("[") & CCCJJJC(3,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bme??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????????????????????????????????????????????,????????????????????????")):Response.Write  CCCJJJC(4,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(4,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(4,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(4,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(4,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(4,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(4,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(4,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(4,3):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(4,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(4,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(4,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(4,0) & CJJJCCCC("[") & CCCJJJC(4,1) & CJJJCCCC("[") & CCCJJJC(4,2) & CJJJCCCC("[") & CCCJJJC(4,3) & CJJJCCCC("[") & CCCJJJC(4,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmf??,??????????@??k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??????????@??????????????????????????????????????????????@????????,??????????@??????????????????")):Response.Write  CCCJJJC(5,6):Response.Write(CJJJCCCC("??,????????????????????????@??????")):Response.Write  CJJJCCJJ(CCCJJJC(5,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(5,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(5,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(5,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(5,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(5,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(5,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(5,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(5,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(5,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(5,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(5,0) & CJJJCCCC("[") & CCCJJJC(5,1) & CJJJCCCC("[") & CCCJJJC(5,2) & CJJJCCCC("[") & CCCJJJC(5,3) & CJJJCCCC("[") & CCCJJJC(5,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmg??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm????????????????????????????????????????,????????????????????????")):Response.Write  CCCJJJC(6,6):Response.Write(CJJJCCCC("??,??????????????????????????")):Response.Write  CJJJCCJJ(CCCJJJC(6,6)):Response.Write(CJJJCCCC("??????,??")):Response.Write  CCJCCJJ:Response.Write(CJJJCCCC("??????,????")):Response.Write  CCCJJJC(6,0):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(6,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(6,1):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(6,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(6,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(6,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(6,2):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(6,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,")):Response.Write  CCCJJJC(6,4):Response.Write(CJJJCCCC("????????????????,????")):Response.Write  FormatPercent(CCCJJJC(6,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCCJJJC(6,0) & CJJJCCCC("[") & CCCJJJC(6,1) & CJJJCCCC("[") & CCCJJJC(6,2) & CJJJCCCC("[") & CCCJJJC(6,3) & CJJJCCCC("[") & CCCJJJC(6,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am????,??????????????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(0,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(0,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(1,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(1,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(2,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(2,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(3,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(3,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(4,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(4,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m??????????@??k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(5,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(5,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(6,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCCJJJC(6,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl????????M????????M????????M????????M????????M??????????@??M????????UGl")):Response.Write  CCCJJJC(0,6) & CJJJCCCC("[") & CCCJJJC(1,6) & CJJJCCCC("[") & CCCJJJC(2,6) & CJJJCCCC("[") & CCCJJJC(3,6) & CJJJCCCC("[") & CCCJJJC(4,6) & CJJJCCCC("[") & CCCJJJC(5,6) & CJJJCCCC("[") & CCCJJJC(6,6):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,8),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????,????????????????????????????????????????????????,??????????????????????????????????,??????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,3),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????????,????????,??????????????????????????????????????,??????,??????????????????????????????????????????????,????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,4),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????????,??????????????????????????????????????????,????????????????????????????,??????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,5),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????????,??????????????????????????????????????????,????????????????????????????,??????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,6),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????,??????????????????????????????,????????,????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bme??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,7),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????,????????,??????????????????????????????????????????????,????????????????????????????????,????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmf??,??????????@??k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,8),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,??????????????????@??????????????????????,????????,??????????????????????????????????????@????????????????????,????????????????????????????,??????????????????????????????????????????????@????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmg??,????????k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,9),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write  formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write  mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????,????????,??????????????????????????????????????????,????????????????????????????????,????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCCCC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC("k7@@E6Cm") & vbCrLf):Response.Write(CJJJCCCC(" ,k5:G ,4=2DDlQ=Qm")):Response.Write  CCJJCCJ:Response.Write(CJJJCCCC(" ,U>:55@Ej ,??????????????????????k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\AC:?EQm????????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\H@C5Qm??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\E@AQm??????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCCCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCCCC(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJCCCC("NX") & vbCrLf):Response.Write(CJJJCCCC("k^D4C:AEm") & vbCrLf)::Function CJJJCCJJ(CJJCJJJJ):dim CCCJJCJ,CJJCCCC:CJJCCCC=csng(CJJCJJJJ):if CJJCCCC>=65 then
CCCJJCJ=CJJJCCCC("????")
elseif CJJCCCC>=55 then
CCCJJCJ=CJJJCCCC("????")
elseif CJJCCCC>=45 then
CCCJJCJ=CJJJCCCC("????")
elseif CJJCCCC>=35 then
CCCJJCJ=CJJJCCCC("????")
else
CCCJJCJ=CJJJCCCC("????")
end if:CJJJCCJJ=CCCJJCJ:End Function:Function CJJJCCJC(ByVal CJCJJJJJ):Dim CJJCJJC, CCCJJCC, CCCJCJJ, CCCJCJC, CCCJCCJ, CCCJCCC:CCCJJCC = UBound(CJCJJJJJ) + 1:CCCJCJJ = 0:For CJJCJJC = 0 To CCCJJCC - 1:CJCJJJJJ(CJJCJJC) = CDbl(CJCJJJJJ(CJJCJJC)):CCCJCJJ = CCCJCJJ + CJCJJJJJ(CJJCJJC):Next:CCCJCJC = CCCJCJJ / CCCJJCC:CCCJCCJ = 0:For CJJCJJC = 0 To CCCJJCC - 1:CCCJCCJ = CCCJCCJ + (CJCJJJJJ(CJJCJJC) - CCCJCJC) ^ 2:Next:CCCJCCC = Sqr(CCCJCCJ / CCCJJCC):CJJJCCJC = Array(CCCJCJC, CCCJCCC):End Function:Response.Write(vbCrLf):Response.Write(CJJJCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJJC.Close:Set CCJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCCC(ByVal CJJJCCCJ)
Dim CCJCJJJ, CJJCJJC, CJJCCCC
CJJJCCCJ = Replace(CJJJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJC = 1 To Len(CJJJCCCJ)
If CJJCJJC <> CJJCCCC Then
CCJCJJJ = AscW(Mid(CJJJCCCJ, CJJCJJC, 1))
If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then
CJJJCCCC = CJJJCCCC & Chr(CCJCJJJ + 47)
ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then
CJJJCCCC = CJJJCCCC & Chr(CCJCJJJ - 47)
Else
CJJCCCC = CJJCJJC + 1
If Mid(CJJJCCCJ, CJJCCCC, 1) = Chr(64) Then CJJJCCCC = CJJJCCCC & ChrW(CCJCJJJ + 5) Else CJJJCCCC = CJJJCCCC & Mid(CJJJCCCJ, CJJCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de