Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CJJJJJCC("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CJJJJJCC("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CJJJJJCC("!$*|t|qt#"))):if CCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJC>0 then
CJJCJJ=CJJJJJCC("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") & CJJCCJ & CJJJJJCC("V ,2?5 ,:5l") & CJJCJC
set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJCCC=CJJJCJ(2) & "":CJCJJJ=CJJJCJ(3):CJCJJC=CJJJCJ(5):CJCJCJ=CJJJCJ(6):CJCJCC=CJJJCJ(9):CJCCJJ=CJJJCJ(15):CJCCCJ=CJJJCJ(0):CCJCJC=CJJJCJ(1):CCJCJJ=CJJJCJ(11) & "":CJCCCC=CJJJCJ(10) & "":CJCCJC=CJJJCJ(12):CCJJJJ=CJJJCJ(14):CCJJJC=CJJJCJ(13):CCJJCJ=CJJJCJ(7) & "":CCJJCC=CJJJCJ(4):CCJCCJ=CJJJCJ(8):if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ
if isnull(CCJJCC) then CCJJCC=0
if isnull(CJCJJC) then CJCJJC=0
if instr(CJJJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CJJJJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJC,CJJCCJ)
End IF
end if:Sub CheckRight(CJJJJCJJ):dim CCCJJJ,CCCJJC:if CJJCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJCC("??????????????,????????????,"))
elseIf not CCJCCCJ(CJJJJCJJ) then
Call RedirectMessage(CJJJJJCC("????W") & CJJJJCJJ & CJJJJJCC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCCJ(CJJJJCJJ):dim CCCJJJ,CCCJJC:CCCJJC=split(CJJJJCJJ,CJJJJJCC("[")):CCJCCCJ=False:for CCCJJJ=0 to ubound(CCCJJC):If Mid(CJJCCC,CCCJJC(CCCJJJ),1)="1" then
CCJCCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJCC("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCJ,CCCJCC,CCCJJJ,CCCCJJ,CCCCJC:CCCJCJ=split(CCJCCC,CJJJJJCC("]")):if ubound(CCCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCJ(0)) or len(CCCJCJ(1))<>32 or len(CCCJCJ(2))<>32 then
Call ClearMemberCookie
else
CCCJCC=CCCJCJ(1):for CCCJJJ=1 to len(CCCJCC):CCCCJJ=mid(CCCJCC,CCCJJJ,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCJCC=CCCJCJ(2):if CCCCJC<>mid(CCCJCC,6,7) then
Call ClearMemberCookie
else
CCCCJJ=mid(CCCJCC,18,10)/2:if CCCCJJ<DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJC=Clng(CCCJCJ(0)):CJJCCJ=CCCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCJ,CJJJJCJC):dim CCCJJJ,CCCCJJ,CCCCJC:for CCCJJJ=1 to len(CJJJJCJC):CCCCJJ=mid(CJJJJCJC,CCCJJJ,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCCJC=CCCJCCJ & CJJJJJCC("]") & CJJJJCJC & CJJJJJCC("]") & Fix(10000*(Rnd+1)) & CCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCC("!$*|t|qt#"))=CCCCJC:End Sub::::Const CCJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJJCC("FE7\g"):dim CCCJJJ,CCCCJJ,CCCCCJ:if isarray(str) then
on error resume next:CCCJJJ=ubound(str,2):CCCCCJ=err.number:err.clear:on error goto 0:if CCCCCJ<>0 then
for CCCJJJ=0 to ubound(str):if CCCJJJ>0 then response.Write CJJJJJCC("k3C ,^m")
response.Write CCCJJJ & CJJJJJCC("i ,") & str(CCCJJJ):next
else
response.Write CJJJJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJJJ=0 to ubound(str,2):response.Write CJJJJJCC("kE9 ,2=:8?lV=67EVm") & CCCJJJ & CJJJJJCC("k^E9m")
next:response.Write CJJJJJCC("k^ECm"):for CCCJJJ=0 to ubound(str):response.Write CJJJJJCC("kECmkE9m") & CCCJJJ & CJJJJJCC("k^E9m"):for CCCCJJ=0 to ubound(str,2):response.Write CJJJJJCC("kE5m") & str(CCCJJJ,CCCCJJ) & CJJJJJCC("k^E5m"):next:response.Write CJJJJJCC("k^ECm"):next:response.Write CJJJJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCCJ,CJJJJCCC):dim CCCJCJ:CCCJCJ=CJJJJCCJ & CJJJJJCC("l") & CJJJJCCC & CJJJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCC("$6E\r@@<:6"),CCCJCJ):End Sub::::::sub ShowMessage(CJJJCJJJ):response.Charset="utf-8":Response.Write CJJJJJCC("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") & CJJJCJJJ & CJJJJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCCCC(CCCCCJ):if isnull(CCCCCJ) or trim(CCCCCJ)="" or not isnumeric(CCCCCJ) then
CCJCCCC=false
else
Dim CCCCCC:Set CCCCCC = New RegExp:CCCCCC.Pattern = CJJJJJCC("/-5ZS"):CCCCCC.IgnoreCase = True:CCJCCCC = CCCCCC.test(CCCCCJ):set CCCCCC=nothing
end if:End Function:Function CCCJJJJ(CJJJCJJC):dim CJJJJJJ,CJJJJJC:CJJJJJJ=CJJJJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJJC & CJJJJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJC=CJJJJJ.execute(CJJJJJJ):CCCJJJJ = CJJJJJC(0):if isnull(CCCJJJJ) then CCCJJJJ=1
CJJJJJC.close : set CJJJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJJJJJC.close : set CJJJJJC=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CCCJCJJ.Close : Set CCCJCJJ = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCC("!$*0|6DD286"),server.URLEncode(CJJJCJJJ)):Response.Redirect CJJJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJCJCJ,CJJJCJCC):dim str,CCCCCJ:str=CJJJJJCC("!$*0") & Ucase(CJJJCJCJ):if Session(str)<>"" then
CCCCCJ=DateDiff(CJJJJJCC("D"),Session(str),Time):if CCCCCJ<CJJJCJCC and CCCCCJ>0 then
Call ConnClose:Call ShowMessage(CJJJJJCC("??????????@?????? ,") & CJJJCJCC & CJJJJJCC(" ,????,???? ,") & CJJJCJCC-CCCCCJ & CJJJJJCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJCCJJ):dim CCCJJJ,CCCCJJ,CJJJJCC,CJJJCJJ:on error resume next:CJJJJCC=ubound(CJJJCCJJ):CJJJCJJ=ubound(CJJJCCJJ,2):if err.number<>0 then
err.clear:for CCCJJJ=0 to CJJJJCC:CJJJCCJJ(CCCJJJ)=0:next
else
for CCCJJJ=0 to CJJJJCC:for CCCCJJ=0 to CJJJCJJ:CJJJCCJJ(CCCJJJ,CCCCJJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJJJCCJC):Application.Contents.Remove CJJJCCJC
End Sub::Class jTree:Private CJJCJJ, CJJJCJC, CJJJCCJ, CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Private Sub Class_Initialize():CJJJCCJ = 0:CJJJCCC = 0:CJJCJCC=10:End Sub:Public Property Let Table(CJJJCCCJ):if CJJJCCCJ="" then Call RedirectMessage(CJJJJJCC("????????,;%C66????????????????????@??????????,"))
CJJCJJJ=CJJJCCCJ:CJJCJJC=CJJJJJCC("!$*0") & UCase(CJJCJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJJJ:End Property:::Private Sub GetTreeArray():Dim CCCJJJ, CCCCJJ, CJJCCJJ,CJJCCJC:CJJJCJC = Application(CJJCJJC):If Not IsArray(CJJJCJC) Then
CJJCJJ = CJJJJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJJJ:if CJJCJCJ<>"" then CJJCJJ=CJJCJJ & CJJJJJCC(" ,H96C6 ,") & CJJCJCJ
set CJJCCJJ=CJJJJJ.execute(CJJCJJ):CJJCCJC=CJJCCJJ(0):if CJJCCJC=0 then Call RedirectMessage(CJJJJJCC("????W") & CJJCJJJ & CJJJJJCC("^") & CJJCJCJ & CJJJJJCC("X????????????"))
CJJJCCC=CJJCCJC+CJJCJCC:ReDim CJJJCJC(CJJJCCC, 4):CJJCJJ = CJJJJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJJ & CJJJJJCC(" ,H:E9 ,W?@=@4<X"):if CJJCJCJ<>"" then CJJCJJ=CJJCJJ & CJJJJJCC(" ,H96C6 ,") & CJJCJCJ
CJJCJJ=CJJCJJ & CJJJJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCJJ=CJJJJJ.execute(CJJCJJ):For CCCJJJ = 1 To CJJCCJC:For CCCCJJ = 0 To 4:CJJJCJC(CCCJJJ, CCCCJJ) = CJJCCJJ(CCCCJJ):if IsNull(CJJJCJC(CCCJJJ,4)) then CJJJCJC(CCCJJJ,4)=0
If CJJJCJC(CCCJJJ,2)="" then CJJJCJC(CCCJJJ,2)=CJJJJJCC(",??.")
Next:CJJCCJJ.MoveNext:Next:CJJCCJJ.Close: Set CJJCCJJ = Nothing:for CCCJJJ=CJJJCCC-(CJJCJCC-1) to CJJJCCC:CJJJCJC(CCCJJJ,0)=CCCJJJ:next:Application.Lock():Application(CJJCJJC) = CJJJCJC:Application.UnLock()
else
CJJJCCC=Ubound(CJJJCJC)
End If:End Sub::::Public Function GetChild(CCCJCCJ):Dim CCCJJJ, Str:CCCJCCJ=CLng(CCCJCCJ):For CCCJJJ = 1 To CJJJCCC:If CJJJCJC(CCCJJJ, 1) = CCCJCCJ Then Str = Str & CJJJJJCC("M") & CJJJCJC(CCCJJJ, 0) & CJJJJJCC("M") & CJJJCJC(CCCJJJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJJJCC("M")):End Function:Private Function CCCCJJJ(CCCJCCJ):dim CCCJJJ,CJJCCCJ:CCCCJJJ=0:CJJCCCJ=CStr(CCCJCCJ):if CJJCCCJ<>"0" then
for CCCJJJ=1 to CJJJCCC:If CStr(CJJJCJC(CCCJJJ, 0))=CJJCCCJ Then
CCCCJJJ = CCCJJJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJCCJ):if Cstr(CCCJCCJ)="0" then
GetCurName=CJJJJJCC("??")
else
Dim CCCJJJ,CJJCCJJ:CCCJJJ=CCCCJJJ(CCCJCCJ):if CCCJJJ>0 then
GetCurName=CJJJCJC(CCCJJJ,2):if GetCurName="" then
set CJJCCJJ=CJJJJJ.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJJ & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCJ):if CJJCCJJ.eof then Call RedirectMessage(CJJJJJCC("xs??,") & CCCJCCJ & CJJJJJCC("??,??????"))
GetCurName=CJJCCJJ(1):Call UpdateCache(CCCJCCJ,CJJCCJJ(0),GetCurName,CJJCCJJ(2),CJJCCJJ(3)):CJJCCJJ.Close: Set CJJCCJJ = Nothing
end if
else
set CJJCCJJ=CJJJJJ.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJJ & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCJ):if CJJCCJJ.eof then Call RedirectMessage(CJJJJJCC("xs??,") & CCCJCCJ & CJJJJJCC("??,??????"))
GetCurName=CJJCCJJ(1):Call UpdateCache(CCCJCCJ,CJJCCJJ(0),GetCurName,CJJCCJJ(2),CJJCCJJ(3)):CJJCCJJ.Close: Set CJJCCJJ = Nothing
end if
end if:End Function:::Public Function CCCCJCJ(CCCJCCJ):Dim CCCJJJ,CJJCCCC:CCCJJJ=CCCCJJJ(CCCJCCJ):if CCCJJJ=0 then
CJJCCCC=CCCCJCC(CCCJCCJ)
else
CJJCCCC=CJJJCJC(CCCJJJ,3):if isnull(CJJCCCC) or CJJCCCC="" then
CJJCCCC=CCCCJCC(CCCJCCJ)
elseif Mid(CJJCCCC,instrrev(CJJCCCC,CJJJJJCC("["))+1)<>CStr(CCCJCCJ) then
CJJCCCC=CCCCJCC(CCCJCCJ)
elseif Left(CJJCCCC,1)=CJJJJJCC("[") then
CJJCCCC=CCCCJCC(CCCJCCJ)
end if
end if:CCCCJCJ=CJJCCCC:End Function:Private Function CCCCJCC(CCCJCCJ):dim CJJCCCJ:CJJCCCJ=CStr(CCCJCCJ):if CJJCCCJ="0" then
CCCCJCC=""
else
dim CJJCCJJ:set CJJCCJJ=CJJJJJ.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJJ & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCJ):if CJJCCJJ.eof then
Call UpdateCache(CCCJCCJ,"","","",""):Call RedirectMessage(CJJJJJCC("??????,xs??,") & CCCJCCJ & CJJJJJCC("??,????????,????????????????????,"))
else
if CJJCCJJ(0)=0 then
CCCCJCC="0," & CCCJCCJ
else
CCCCJCC=CCCCJCJ(CJJCCJJ(0)) & CJJJJJCC("[") & CCCJCCJ
end if:if CJJCCJJ(2)<>CCCCJCC then
CJJJJJ.execute CJJJJJCC("FA52E6 ,") & CJJCJJJ & CJJJJJCC(" ,D6E ,A2E9lV") & CCCCJCC & CJJJJJCC("V ,H96C6 ,:5l") & CCCJCCJ
else
CCCCJCC=CJJCCJJ(2)
end if
end if:Call UpdateCache(CCCJCCJ,CJJCCJJ(0),CJJCCJJ(1),CCCCJCC,CJJCCJJ(3)):CJJCCJJ.Close: Set CJJCCJJ = Nothing
end if:End Function::::Public Function IsParent(CJJJCCCC, CJJCJJJJ):IsParent=InStr(CCCCJCJ(CJJCJJJJ) & CJJJJJCC("["), CJJJJJCC("[") & CJJJCCCC & CJJJJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJCCJ):dim CJJCCCC:CJJCCCC=CCCCJCJ(CCCJCCJ):Sql_GetChildren = CJJCJJJ & CJJJJJCC("0A2E9ZV[V ,=:<6 ,V") & CJJCCCC & CJJJJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJJC
End Sub:Public Sub UpdateCache(CCCJCCJ,CJJCJJJC,CJJCJJCJ,CJJCCCC,CJJCJJCC):dim CCCJJJ,CCCCJJ:CCCJCCJ=CLng(CCCJCCJ):CCCJJJ=CCCCJJJ(CCCJCCJ):if CJJCJJJC="" and CJJCJJCJ="" and CJJCCCC="" and CJJCJJCC="" then
if CCCJJJ>0 then
for CCCCJJ=1 to 4:CJJJCJC(CCCJJJ,CCCCJJ)=Null:next
end if
else
if CCCJJJ=0 then
for CCCCJJ=1 to CJJJCCC:if CJJJCJC(CCCCJJ,1) & ""="" then
CCCJJJ=CCCCJJ:exit for
end if:next
end if:if CCCJJJ=0 then
Call ClearCache
else
CJJJCJC(CCCJJJ,0)=CLng(CCCJCCJ):if CJJCJJJC<>"" then CJJJCJC(CCCJJJ,1)=CLng(CJJCJJJC)
if CJJCJJCJ<>"" then CJJJCJC(CCCJJJ,2)=CJJCJJCJ
if CJJCCCC<>"" then CJJJCJC(CCCJJJ,3)=CJJCCCC
if CJJCJJCC<>"" then CJJJCJC(CCCJJJ,4)=CLng(CJJCJJCC)
end if
end if:if CCCJJJ>0 then
Application.Lock():Application(CJJCJJC) = CJJJCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJJJ):Call ConnClose:Response.Write CJJJCJJJ:Response.End:End Sub:Private Function CCCJJJJ():CCCJJJJ=CCCCCCJ+1:End Function:Private Function CCCCCCJ():dim CJJJJJC:set CJJJJJC=CJJJJJ.execute(CJJJJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJJJ & CJJJJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCJ=CJJJJJC(0):CJJJJJC.Close: Set CJJJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJCCJJ=98:Const CCJCCJC="??????????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJJJJCC("%6DE0#6A@CE"),30):dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:CJCJCJC=Request.QueryString(CJJJJJCC("$49@@=")):CJCJJJJ=Request.QueryString(CJJJJJCC("s6AE")):CJCJJJC=Request.QueryString(CJJJJJCC("vC256")):CJCJJCJ=Request.QueryString(CJJJJJCC("vC@FA")):CJCJJCC=Request.QueryString(CJJJJJCC("E`")):CJCJCJJ=Request.QueryString(CJJJJJCC("Ea")):if not CCJCCCC(CJCJJJJ) then Call RedirectMessage(CJJJJJCC("????????,??????????????,"))
dim CJJJCJC:set CJJJCJC=new jtree:CJJJCJC.table=CJJJJJCC(">6>36C0EJA6"):if not CJJJCJC.IsParent(CJCJJJ,CJCJJJJ) then Call RedirectMessage(CJJJJJCC("??????W") & CJCJJJJ & CJJJJJCC("X??????W") & CJCJJJ & CJJJJJCC("X????????????@??,"))
dim CCCCCCC:CCCCCCC=CJJJCJC.GetChild(CJCJJJJ):if ubound(CCCCCCC)<0 then Call RedirectMessage(CJJJJJCC("??????????????????????,"))
CCCCCCC=join(CCCCCCC,CJJJJJCC("M")) & CJJJJJCC("M_M????"):CCCCCCC=split(CCCCCCC,CJJJJJCC("M")):dim CJCJCCJ:CJCJCCJ=CJJJCJC.GetCurName(CJCJJJJ):dim CJCJCCC,CJCCJJJ(5):CJCJCCC=split(CJJJJJCC("??????????M????????M????????M??????M??????M??????M????????????"),CJJJJJCC("M")):CJCCJJJ(0)=CJJJJJCC("??????????????????,????"):CJCCJJJ(1)=CJJJJJCC("??@??????????,??????????,????????????????"):CJCCJJJ(2)=CJJJJJCC("??????????????,????????????????????????????????????,??????????"):CJCCJJJ(3)=CJJJJJCC("??@??????????,????????????"):CJCCJJJ(4)=CJJJJJCC("??????????@????????,????????"):CJCCJJJ(5)=CJJJJJCC("??@??????????,??????,????????????,????????????"):dim CCCJJJ,CCCCJJ,CCCCJC,CJCCJJC,CJCCJCJ,CJCCJCC:dim CJCCCJJ():redim CJCCCJJ((ubound(CCCCCCC)-1)/2,22):for CCCJJJ=0 to ubound(CCCCCCC)-1 step 2:CCCCJC=CCCJJJ/2:CJCCCJJ(CCCCJC,0)=CCCCCCC(CCCJJJ):CJCCCJJ(CCCCJC,1)=CCCCCCC(CCCJJJ+1):for CCCCJJ=2 to ubound(CJCCCJJ,2):CJCCCJJ(CCCCJC,CCCCJJ)=0:next:next:dim CJCCCJC(1,21):Call ArrayInit(CJCCCJC):CJCCCJC(0,0)=CJJJJJCC("??"):CJCCCJC(1,0)=CJJJJJCC("??"):dim CCCJJC,CJCCCCJ,CJCCCCC,CCJJJJJ:dim CCJJJJC,CCJJJCJ:CCJJJJC=Date:CCJJJCJ=cdate(CJJJJJCC("a___\`\`")):dim CCJJJCC(6,10):Call ArrayInit(CCJJJCC):CJJCJJ=CJJJJJCC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60C2H[C6DF=E[E6DE286[C62=?2>6[?F>36C[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJCCJJ & CJJJJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCJJJJ)=cstr(CJCJCJC) then CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJCJC else CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,") & CJJJCJC.Sql_GetChildren(CJCJJJJ)
if CCJCCCC(CJCJJJC) then CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,8C256l") & CJCJJJC
if CCJCCCC(CJCJJCJ) then CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCJJCJ
if isdate(CJCJJCC) then CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,52E6E:>6mlV") & CJCJJCC & CJJJJJCC("V")
if isdate(CJCJCJJ) then CJJCJJ=CJJCJJ & CJJJJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCJCJJ)+1 & CJJJJJCC("V")
set CJJJCJ=CJJJJJ.execute(CJJCJJ):if CJJJCJ.eof then Call RedirectMessage(CJJJJJCC("????????,??????????????,"))
while not CJJJCJ.eof:CCCCJC=CJJJCJ(1):if CCCCJC<CCJJJJC then CCJJJJC=CCCCJC
if CCCCJC>CCJJJCJ then CCJJJCJ=CCCCJC
if isnull(CJJJCJ(3)) then Call RedirectMessage(CJJJCJ(6) & CJJJJJCC("??,") & CJJJCJ(7) & CJJJJJCC("??,????????????????????????,") & CJJJCJ(8) & CJJJJJCC("??,??,??????????????????,"))
CCCJJC=split(CJJJCJ(3),CJJJJJCC("M")):for CCCJJJ=0 to 5:CCJJJCC(CCCJJJ,0)=CCJJJCC(CCCJJJ,0) & CJJJJJCC("M") & CCCJJC(CCCJJJ):next:CCJJJCC(6,0)=CCJJJCC(6,0) & CJJJJJCC("M") & CCCJJC(7):CCCJJC=split(CJJJCJ(4),CJJJJJCC("M")):for CCCJJJ=0 to 5:CCCCJC=cint(CCCJJC(CCCJJJ))+2:CCJJJCC(CCCJJJ,CCCCJC)=CCJJJCC(CCCJJJ,CCCCJC)+1:next:CCCCJC=cint(CCCJJC(7))+5:CCJJJCC(6,CCCCJC)=CCJJJCC(6,CCCCJC)+1:if CJJJCJ(2) then CCCCJJ=0 else CCCCJJ=1
CJCCCJC(CCCCJJ,1)=CJCCCJC(CCCCJJ,1)+1:CCCJJC=split(CJJJCJ(3),CJJJJJCC("M")):for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+2:CJCCCJC(CCCCJJ,CCCCJC)=CJCCCJC(CCCCJJ,CCCCJC) & CJJJJJCC("M") & CCCJJC(CCCJJJ):next:CJCCCJC(CCCCJJ,8)=CJCCCJC(CCCCJJ,8) & CJJJJJCC("M") & CCCJJC(7):CCCJJC=split(CJJJCJ(4),CJJJJJCC("M")):for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+9:if CCCJJC(CCCJJJ)="2" then CJCCCJC(CCCCJJ,CCCCJC)=CJCCCJC(CCCCJJ,CCCCJC)+1
next:CCJJJJJ=CCJJJJJ+CJJJCJ(5):CCCJJC=split(CJJJCJ(3),CJJJJJCC("M")):CCCCJJ=ubound(CJCCCJJ):for CCCJJJ=0 to CCCCJJ-1:if instr(CJJJCJ(0) & CJJJJJCC("["),CJJJJJCC("[") & CJCCCJJ(CCCJJJ,0) & CJJJJJCC("["))>0 then
CCCCJJ=CCCJJJ:exit for
end if:next:CCCJJJ=CCCCJJ:CJCCCJJ(CCCJJJ,2)=CJCCCJJ(CCCJJJ,2)+1:for CCCCJJ=0 to 5:CCCCJC=CCCCJJ+3:CJCCCJJ(CCCJJJ,CCCCJC)=CJCCCJJ(CCCJJJ,CCCCJC) & CJJJJJCC("M") & CCCJJC(CCCCJJ):next:CJCCCJJ(CCCJJJ,9)=CJCCCJJ(CCCJJJ,9) & CJJJJJCC("M") & CCCJJC(7):CCCJJC=split(CJJJCJ(4),CJJJJJCC("M")):for CCCCJJ=0 to 5:CCCCJC=CCCCJJ+17:if CCCJJC(CCCCJJ)="2" then CJCCCJJ(CCCJJJ,CCCCJC)=CJCCCJJ(CCCJJJ,CCCCJC)+1
next:CJCCCCJ=CJCCCCJ+1:CJJJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJCC("k9625m") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJCC("kE:E=6m")):Response.Write  CJCJCCJ:Response.Write(CJJJJJCC("\")):Response.Write  CCJCCJC:Response.Write(CJJJJJCC("????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJJJCC("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(CJJJJJCC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("k^9625m") & vbCrLf):Response.Write(CJJJJJCC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,k9`mkD>2==m")):Response.Write  CJCJCCJ:Response.Write(CJJJJJCC("k^D>2==mk3Cm")):Response.Write  CCJCCJC:Response.Write(CJJJJJCC("????????????k^9`m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????????????????????,????????????????????????,????????????,????????????????????,????????????????????????????,??????????????,??????????????????????????e????????,??????????????????,??????????,??,????????,??????,??????????@????????,??????????????????????????@??,??????????????????????????@??,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????????,????????,????????,????????????,??????????,????????????,????????,????????,????????,????????,????????????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,k42AE:@?m??` ,????????????????????????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????????k^E5mkE5m??????,??????,??????,??????????????????????,??????????,??@????????,??@??????@????????????,????????????????????????????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m????????k^E5mkE5m????????????????????????????????????????????????????????,??????????????,??@????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????????k^E5mkE5m??????????????,????????@????,??????????????????????????,????????????,??????????????????,????????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????k^E5mkE5m??????@????,??????????????????,??@??????????,????????????,??????????,????????,????????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????k^E5mkE5m??????????,??????,??@????????,??????????,??????,??????@????????@??@????,??????????????,??????????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????k^E5mkE5m????????????,????????????????,????????????????,??????????????,????????????????????,??????????????,??@??????????,????????????,??????????,????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5m??????k^E5mkE5m????????????,????????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECmkE5 ,?@HC2Am????????????k^E5mkE5m??????????????????,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm")):Response.Write  formatdatetime(CCJJJJC,1):Response.Write(CJJJJJCC("??,")):Response.Write  formatdatetime(CCJJJCJ,1):Response.Write(CJJJJJCC("k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m??????, ,????")):Response.Write  CJCCCCJ:Response.Write(CJJJJJCC("????????,????????")):Response.Write  CJCCCJC(0,1):Response.Write(CJJJJJCC("????,????")):Response.Write  CJCCCJC(1,1):Response.Write(CJJJJJCC("????,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m??????, ,????????")):Response.Write  formatnumber(CCJJJJJ/CJCCCCJ,2,-1):Response.Write(CJJJJJCC("????,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m??????,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCCJJ=0:for CCCJJJ=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJJJ,2)>0 then
CCCCJJ=CCCCJJ+1:response.Write CJCCCJJ(CCCJJJ,1) & CJJJJJCC("??,") & CJCCCJJ(CCCJJJ,2) & CJJJJJCC("????,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,????")):Response.Write  CCCCJJ:Response.Write(CJJJJJCC("????????,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm`] ,????????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCCC=(CCJJJCC(6,5)+CCJJJCC(6,6)+CCJJJCC(6,7))/CJCCCCJ*100:if CJCCCCC>=80 then
Response.Write CJJJJJCC("????????????????????????????????????,????????????????????????????,")
elseif CJCCCCC>=60 then
Response.Write CJJJJJCC("????????????????????????????,????,??????????????????????????,")
else
Response.Write CJJJJJCC("????????????????????????????????????,????????????????????????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(5):for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+5:CCCJJC(CCCJJJ)=formatpercent(CCJJJCC(6,CCCCJC)/CJCCCCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,??????????????,??")):Response.Write  CCJJJCC(6,5):Response.Write(CJJJJJCC("????????????????????,??????????")):Response.Write  CCCJJC(0):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,??")):Response.Write  CCJJJCC(6,6):Response.Write(CJJJJJCC("????????????????,??????????")):Response.Write  CCCJJC(1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,??")):Response.Write  CCJJJCC(6,7):Response.Write(CJJJJJCC("????????????????,????,??????????")):Response.Write  CCCJJC(2):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,??")):Response.Write  CCJJJCC(6,8):Response.Write(CJJJJJCC("????????,??????????@????????,??????????")):Response.Write  CCCJJC(3):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,??")):Response.Write  CCJJJCC(6,9):Response.Write(CJJJJJCC("????????????????????????????@??,??????????")):Response.Write  CCCJJC(4):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,??")):Response.Write  CCJJJCC(6,10):Response.Write(CJJJJJCC("????????????????????????????@??,??????????")):Response.Write  CCCJJC(5):Response.Write(CJJJJJCC("??,????????????????????????????????,??????????????????????????,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??a ,????????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??,??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????????????@??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????????????????????????@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????????????????????????@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCJCJ="":for CCCJJJ=5 to 10:Response.Write CJJJJJCC("kE5m") & CCJJJCC(6,CCCJJJ) & CJJJJJCC("k^E5m"):CJCCJCJ=CJCCJCJ & CJJJJJCC("M") & CCJJJCC(6,CCCJJJ):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m????k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 5:Response.Write CJJJJJCC("kE5m") & CCCJJC(CCCJJJ) & CJJJJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CU9lb__UIl????M????????M??,??M????????????@??????M??????????????????????????@M??????????????????????????@UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bma] ,????????????@??k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??b ,????????????@??k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):dim CCJJCJJ,CCJJCJC:for CCCJJJ=0 to 6:CCCJJC=CJJJJJJJ(Split(Mid(CCJJJCC(CCCJJJ,0),3),CJJJJJCC("M"))):CCJJJCC(CCCJJJ,1)=CCCJJC(0):CCJJCJJ=CCJJCJJ & CJJJJJCC("[") & formatnumber(CCCJJC(0),2,-1):CCJJCJC=CCJJCJC & CJJJJJCC("[") & formatnumber(CCCJJC(1),2,-1):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  formatnumber(CCCJJC(0),2,-1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  formatnumber(CCCJJC(1),2,-1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:CJCCJCJ=CJJJJJCC("L|i,") & Mid(CCJJCJJ,2) & CJJJJJCC(".[$si,") & Mid(CCJJCJC,2) & CJJJJJCC(".N"):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CU9lb__UIl??????????M????????M????????M??????M??????M??????UGl")):Response.Write  CJCCJCJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(5,2):for CCCJJJ=0 to 5:CCCJJC(CCCJJJ,0)=CCCJJJ:CCCJJC(CCCJJJ,1)=CJCJCCC(CCCJJJ):CCCJJC(CCCJJJ,2)=CCJJJCC(CCCJJJ,1):next:CCCJJC=CJJJJJJC(CCCJJC,2):Response.Write CJJJJJCC("kAm??????????") & CCCJJC(0,1) & CJJJJJCC("??,") & CCCJJC(1,1) & CJJJJJCC("??,") & CCCJJC(2,1) & CJJJJJCC("????????????????,????????????") & CCCJJC(0,1) & CJJJJJCC("??,") & CCCJJC(1,1) & CJJJJJCC("??,") & CCCJJC(2,1) & CJJJJJCC("??????????????????,??????????????????????,k^AmkF=m"):for CCCJJJ=0 to 2:CCCCJC=CCCJJC(CCCJJJ,0):Response.Write CJJJJJCC("k=:m") & CCCJJC(CCCJJJ,1) & CJJJJJCC("??,") & CJCCJJJ(CCCCJC) & CJJJJJCC("??,k^=:m"):next:Response.Write CJJJJJCC("k^F=m"):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k9bmb] ,??????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??c ,??????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,C@HDA2?lQaQm}l")):Response.Write  CJCCCCJ:Response.Write(CJJJJJCC("k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm??????????@??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(5,2):for CCCJJJ=0 to 5:CCCJJC(CCCJJJ,0)=CCCJJJ:CCCJJC(CCCJJJ,1)=CJCJCCC(CCCJJJ):CCCJJC(CCCJJJ,2)=CCJJJCC(CCCJJJ,4):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CCJJJCC(CCCJJJ,4):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  formatpercent(CCJJJCC(CCCJJJ,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCJJC=CJJJJJJC(CCCJJC,2):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????????????????,??????????????????????")):Response.Write  CCCJJC(0,1):Response.Write(CJJJJJCC("??,")):Response.Write  CCCJJC(1,1):Response.Write(CJJJJJCC("??,")):Response.Write  CCCJJC(2,1):Response.Write(CJJJJJCC("??????????,??????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm")):Response.Write  CCCJJC(0,1):Response.Write(CJJJJJCC("??????????")):Response.Write  CJCCJJJ(CCCJJC(0,0)):Response.Write(CJJJJJCC("??,")):Response.Write  CCCJJC(1,1):Response.Write(CJJJJJCC("??????????")):Response.Write  CJCCJJJ(CCCJJC(1,0)):Response.Write(CJJJJJCC("??,")):Response.Write  CCCJJC(2,1):Response.Write(CJJJJJCC("??????????")):Response.Write  CJCCJJJ(CCCJJC(2,0)):Response.Write(CJJJJJCC("??,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bmc] ,??????????????????@??k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??d ,??????????????????@??k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,C@HDA2?lQaQm}l")):Response.Write  CJCCCCJ:Response.Write(CJJJJJCC("k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(5,2):for CCCJJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCCJJ=0 to 2:CCCCJC=CCCCJJ+2:CCCJJC(CCCJJJ,CCCCJJ)=formatpercent(CCJJJCC(CCCJJJ,CCCCJC)/CJCCCCJ,2,-1):Response.Write CJJJJJCC("kE5m") & CCJJJCC(CCCJJJ,CCCCJC) & CJJJJJCC("k^E5mkE5m") & CCCJJC(CCCJJJ,CCCCJJ) & CJJJJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):dim CCJJCCJ(5):CCJJCCJ(0)=CJJJJJCC("????????????????????????,????????????,"):CCJJCCJ(1)=CJJJJJCC("??????????????????????????,????????????????????????,"):CCJJCCJ(2)=CJJJJJCC("????????????????????????????,????????????????,????????,??????????????,"):CCJJCCJ(3)=CJJJJJCC("??????????????????????????,??????????,????@??????????,????????,??????????????,"):CCJJCCJ(4)=CJJJJJCC("??????????????????????????,??????????????,"):CCJJCCJ(5)=CJJJJJCC("??????????????????????????,??????????,????????????,??????,??@??????????,??????????????,"):for CCCJJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k9cm??,")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("??,k^9cm") & vbCrLf):Response.Write(CJJJJJCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm")):Response.Write  CCJJCCJ(CCCJJJ):Response.Write(CJJJJJCC("k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????,??")):Response.Write  CCJJJCC(CCCJJJ,2):Response.Write(CJJJJJCC("??????????????????????,??????????")):Response.Write  CCCJJC(CCCJJJ,0):Response.Write(CJJJJJCC("??,??")):Response.Write  CCJJJCC(CCCJJJ,3):Response.Write(CJJJJJCC("????????????????????????,??????????")):Response.Write  CCCJJC(CCCJJJ,1):Response.Write(CJJJJJCC("k^DA2?m??,??")):Response.Write  CCJJJCC(CCCJJJ,4):Response.Write(CJJJJJCC("??????????????????????,??????????")):Response.Write  CCCJJC(CCCJJJ,2):Response.Write(CJJJJJCC("??,????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl????M????M????UGl")):Response.Write  CCJJJCC(CCCJJJ,2) & CJJJJJCC("[") & CCJJJCC(CCCJJJ,3) & CJJJJJCC("[") & CCJJJCC(CCCJJJ,4):Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm`] ,????????????????????@??k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??e ,????????????????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQm????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,4@=DA2?lQaQm")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4=2DDlQ@G6C=:?6Qm????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJJJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJJJ,1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCCJJ=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCCJC=CCCCJJ+3:CCCJJC=CJJJJJJJ(split(Mid(CJCCCJJ(CCCJJJ,CCCCJC),3),CJJJJJCC("M"))):CCCCJC=CCCCJJ+10:CJCCCJJ(CCCJJJ,CCCCJC)=CCCJJC(0):response.Write formatnumber(CCCJJC(0),2,-1):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  formatnumber(CCCJJC(1),2,-1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(ubound(CJCCCJJ),2):for CCCJJJ=0 to ubound(CJCCCJJ):CCCJJC(CCCJJJ,0)=CCCJJJ:CCCJJC(CCCJJJ,1)=CJCCCJJ(CCCJJJ,1):CCCJJC(CCCJJJ,2)=CJCCCJJ(CCCJJJ,16):next:CCCJJC=CJJJJJJC(CCCJJC,2):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,??????????,")):Response.Write  CCCJJC(0,1):Response.Write(CJJJJJCC("????????????????@????????????,????????") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCCJJ=CCCJJC(0,0):redim CCCJJC(5,2):for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+10:CCCJJC(CCCJJJ,0)=CCCJJJ:CCCJJC(CCCJJJ,1)=CJCJCCC(CCCJJJ):CCCJJC(CCCJJJ,2)=CJCCCJJ(CCCCJJ,CCCCJC):next:CCCJJC=CJJJJJJC(CCCJJC,2)::Response.Write  CCCJJC(0,1):Response.Write(CJJJJJCC("??,")):Response.Write  CCCJJC(1,1):Response.Write(CJJJJJCC("????????????????????,??????????????????????????????????????????,????????????????????????????,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bma] ,????????????????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??f ,??????????????????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQm????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJJJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJJJ,1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCCJJ=17 to 22:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJJJ,CCCCJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  formatpercent(CJCCCJJ(CCCJJJ,CCCCJJ)/CJCCCCJ,2,-1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm`] ,??????????????????????@??k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??g ,??????????????????????@????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQm????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJJ=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCCJC=CCCJJJ+2:for CCCCJJ=0 to 1:CCCJJC=CJJJJJJJ(split(Mid(CJCCCJC(CCCCJJ,CCCCJC),3),CJJJJJCC("M"))):CCCCJC=CCCJJJ+9:CJCCCJC(CCCCJJ,CCCCJC)=CCCJJC(0):Response.Write CJJJJJCC("kE5m") & formatnumber(CCCJJC(0),2,-1) & CJJJJJCC("k^E5m"):Response.Write CJJJJJCC("kE5m") & formatnumber(CCCJJC(1),2,-1) & CJJJJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCJCJ=CJJJJJCC(",V??V[V??V.")
for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+9:CJCCJCJ=CJCCJCJ & CJJJJJCC("[,") & formatnumber(CJCCCJC(0,CCCCJC),2,-1) & CJJJJJCC("[") & formatnumber(CJCCCJC(1,CCCCJC),2,-1) & CJJJJJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl??????????M????????M????????M??????M??????M??????UGl")):Response.Write  CJCCJCJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):if CJCCCJC(0,15)>=CJCCCJC(1,15) then CCCJJC=Array(CJJJJJCC("????"),CJJJJJCC("????")) else CCCJJC=Array(CJJJJJCC("????"),CJJJJJCC("????"))
Response.Write CJJJJJCC("??????????,") & CCCJJC(0) & CJJJJJCC("????????????????????????,??"):if CCCJJC(0)=CJJJJJCC("????") then
for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+9:if CJCCCJC(0,CCCCJC)>CJCCCJC(1,CCCCJC) then Response.Write CJJJJJCC("??,") & CJCJCCC(CCCJJJ) & CJJJJJCC("??,")
next
else
for CCCJJJ=0 to 5:CCCCJC=CCCJJJ+9:if CJCCCJC(1,CCCCJC)>CJCCCJC(0,CCCCJC) then Response.Write CJJJJJCC("??,") & CJCJCCC(CCCJJJ) & CJJJJJCC("??,")
next
end if:Response.Write CJJJJJCC("??????????????????") & CCCJJC(1) & CJJJJJCC("??,????") & CCCJJC(0) & CJJJJJCC("??????????????????????????,????????????????????????????,"):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bma] ,????????????????????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,k42AE:@?m??h ,????????????????????????k^42AE:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQm????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCCJJC(5,1):for CCCJJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCJCCC(CCCJJJ):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCCCJC=CCCJJJ+16:for CCCCJJ=0 to 1:CCCJJC(CCCJJJ,CCCCJJ)=CJCCCJC(CCCCJJ,CCCCJC)/CJCCCCJ*100:Response.Write CJJJJJCC("kE5m") & CJCCCJC(CCCCJJ,CCCCJC) & CJJJJJCC("k^E5m"):Response.Write CJJJJJCC("kE5m") & formatnumber(CCCJJC(CCCJJJ,CCCCJJ),2,-1) & CJJJJJCC("Tk^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCJCJ=CJJJJJCC(",V??V[V??V.")
for CCCJJJ=0 to 5:CJCCJCJ=CJCCJCJ & CJJJJJCC("[,") & formatnumber(CCCJJC(CCCJJJ,0),2,-1) & CJJJJJCC("[") & formatnumber(CCCJJC(CCCJJJ,1),2,-1) & CJJJJJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl??????????M????????M????????M??????M??????M??????UGl")):Response.Write  CJCCJCJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write CJJJJJCC("????????????????,??????"):for CCCJJJ=0 to 5:if CCCJJC(CCCJJJ,0)>CCCJJC(CCCJJJ,1) then Response.Write CJJJJJCC("??,") & CJCJCCC(CCCJJJ) & CJJJJJCC("??,")
next:Response.Write CJJJJJCC("????????????????????,??????"):for CCCJJJ=0 to 5:if CCCJJC(CCCJJJ,1)>CCCJJC(CCCJJJ,0) then Response.Write CJJJJJCC("??,") & CJCJCCC(CCCJJJ) & CJJJJJCC("??,")
next:Response.Write CJJJJJCC("????????????????????,"):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am??,??,??????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm??,??,??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm`] ,??????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????????????????????,??????????????????????????????????,??????,????????????????????????,??????,??????????????????????????????,????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAma] ,??????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????????????????????????????,????????????????????????????@??????????????????????????????????????,????????????????????????????@????,??@??@??,??,??????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmb] ,??????????????????,??????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????????????????????????????????????,??????????????????????????????????,??????????????????????????????????????,????????????????????????,??????????????????????????,??????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmc] ,??????????????,????@??,????????????????,??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????????????,??????????,??????????@??????????,????????????????????????????????????????,????????????????????????,??????,??????????????????????????????????????????,????????????????????????????????,??????????????????????,????????????????????????,????????????????,??????@??????????,????????????????????????,??????????????????????????????????????????@????,????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmd] ,??????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????????????????????????????????????????????????,??????????????????????????????????,??????????????????????????????????????,??,??????,??????????????,??????????????????????????????????????????????,????,??????,??????????????,????????????????????????,??????????????????????,??????????????????????,????????????????????,??????????????????????????????,????????????????????????????????????????@????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm??,????,????????k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm`] ,??@??????k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??@??????????????????????????,??????@????????????????????????????????????????????????????????????,??,??????????????????????????????????????,??????,??????,??????@????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????@??????????,??????,????????????????i ,??????????????????????????????@????,??????????????????????????????????,??????????????????,????????????,????????????,??????????????????????????????,????????????????????,??????????,??????????,??????????,??????????????????????,??????????,??????????????????????????@????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAma] ,????????????????k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm??????????????????????????????,????????????,??????????????????????????????,??,????????,????????????????????????,????????????????????????,??????????????????????,????????????????????????@??????????????????????????????????,????????????????????????????????????,??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????,??????????,??????????????????,????????@????????,??????????????????,??????@????????,????????????????????,??????????@??????,??????????,??????????,??????,????????????????,??????????????????,??,??????????,????????????,??????????????????????????,??????????@????,??????????????????????????????????????????,????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJJJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCJCCJ:Response.Write(CJJJJJCC(" ,U>:55@Ej ,")):Response.Write  CCJCCJC:Response.Write(CJJJJJCC("????????????k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJJJCC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJJJCC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJJJCC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJJJCC(" ,E:E=6iV?? ,??V[") & vbCrLf):Response.Write(CJJJJJCC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJJJCC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJJJCC(" ,NX") & vbCrLf):Response.Write(CJJJJJCC("NX") & vbCrLf):Response.Write(CJJJJJCC("k^D4C:AEm") & vbCrLf)::Function CJJJJJJJ(ByVal CJJCJCJC):Dim CCCJJJ, CCJJCCC, CCJCJJJ, CCJCJJC, CCJCJCJ, CCJJCJC:CCJJCCC = UBound(CJJCJCJC) + 1:if CCJJCCC=0 then
CJJJJJJJ = Array(0, 0)
else
CCJCJJJ = 0:For CCCJJJ = 0 To CCJJCCC - 1:CJJCJCJC(CCCJJJ) = CDbl(CJJCJCJC(CCCJJJ)):CCJCJJJ = CCJCJJJ + CJJCJCJC(CCCJJJ):Next:CCJCJJC = CCJCJJJ / CCJJCCC:CCJCJCJ = 0:For CCCJJJ = 0 To CCJJCCC - 1:CCJCJCJ = CCJCJCJ + (CJJCJCJC(CCCJJJ) - CCJCJJC) ^ 2:Next:CCJJCJC = Sqr(CCJCJCJ / CCJJCCC):CJJJJJJJ = Array(CCJCJJC, CCJJCJC)
end if:End Function:Function CJJJJJJC(byval CJJJCCJJ,CCCCCJ):dim CCCJJJ,CCCCJJ,CCCCJC,CJJJJCC,CJJJCJJ,CCCJJC(),CJCCCCC:on error resume next:CJJJJCC=ubound(CJJJCCJJ):CJJJCJJ=ubound(CJJJCCJJ,2):on error goto 0:if err.number<>0 then
err.clear:for CCCJJJ=1 to CJJJJCC:for CCCCJJ=CJJJJCC to CCCJJJ step -1:if CJJJCCJJ(CCCCJJ)>CJJJCCJJ(CCCCJJ-1) then
CJCCCCC=CJJJCCJJ(CCCCJJ):CJJJCCJJ(CCCCJJ)=CJJJCCJJ(CCCCJJ-1):CJJJCCJJ(CCCCJJ-1)=CJCCCCC
end if:next:next
else
redim CCCJJC(CJJJCJJ):for CCCJJJ=1 to CJJJJCC:for CCCCJJ=CJJJJCC to CCCJJJ step -1:if CJJJCCJJ(CCCCJJ,CCCCCJ)>CJJJCCJJ(CCCCJJ-1,CCCCCJ) then
for CCCCJC=0 to CJJJCJJ:CCCJJC(CCCCJC)=CJJJCCJJ(CCCCJJ,CCCCJC):CJJJCCJJ(CCCCJJ,CCCCJC)=CJJJCCJJ(CCCCJJ-1,CCCCJC):CJJJCCJJ(CCCCJJ-1,CCCCJC)=CCCJJC(CCCCJC):next
end if:next:next
end if:CJJJJJJC=CJJJCCJJ:End Function:Response.Write(vbCrLf):Response.Write(CJJJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCC(ByVal CJJJJJCJ)
Dim CJCCJCJ, CCCJJJ, CCCCCJ
CJJJJJCJ = Replace(CJJJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJJ = 1 To Len(CJJJJJCJ)
If CCCJJJ <> CCCCCJ Then
CJCCJCJ = AscW(Mid(CJJJJJCJ, CCCJJJ, 1))
If CJCCJCJ >= 33 And CJCCJCJ <= 79 Then
CJJJJJCC = CJJJJJCC & Chr(CJCCJCJ + 47)
ElseIf CJCCJCJ >= 80 And CJCCJCJ <= 126 Then
CJJJJJCC = CJJJJJCC & Chr(CJCCJCJ - 47)
Else
CCCCCJ = CCCJJJ + 1
If Mid(CJJJJJCJ, CCCCCJ, 1) = Chr(64) Then CJJJJJCC = CJJJJJCC & ChrW(CJCCJCJ + 5) Else CJJJJJCC = CJJJJJCC & Mid(CJJJJJCJ, CCCJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de