Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CJJJJJCC("ps~sq]r@??64E:@?")):CJJJJC.open Application(CJJJJJCC("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC::Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ:CCCJJJ=Trim(Request.Cookies(CJJJJJCC("!$*|t|qt#"))):if CCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCCJ>0 then
CJJCJC=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") & CJJCCC & CJJJJJCC("V ,2?5 ,:5l") & CJJCCJ
set CJJJCC=CJJJJC.execute(CJJCJC):If CJJJCC.EOF Then
Call ClearMemberCookie
Else
CJCJJJ=CJJJCC(2) & "":CJCJJC=CJJJCC(3):CJCJCJ=CJJJCC(5):CJCJCC=CJJJCC(6):CJCCJJ=CJJJCC(9):CJCCJC=CJJJCC(15):CJCCCC=CJJJCC(0):CCJCCJ=CJJJCC(1):CCJCJC=CJJJCC(11) & "":CCJJJJ=CJJJCC(10) & "":CJCCCJ=CJJJCC(12):CCJJJC=CJJJCC(14):CCJJCJ=CJJJCC(13):CCJJCC=CJJJCC(7) & "":CCJCJJ=CJJJCC(4):CCJCCC=CJJJCC(8):if isnull(CJCCJC) then CJCCJC=0
if isnull(CJCCJJ) or CJCCJJ=0 then CJCCJJ=CJCJJC
if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CJCJCJ) then CJCJCJ=0
if instr(CJJJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCC)>0 then Call RedirectMessage(CJJJJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCCJ,CJJCCC)
End IF
end if:Sub CheckRight(CJJJJCJJ):dim CCCJJC,CCCJCJ:if CJJCCJ=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 CCCJJC,CCCJCJ:CCCJCJ=split(CJJJJCJJ,CJJJJJCC("[")):CCJCCCJ=False:for CCCJJC=0 to ubound(CCCJCJ):If Mid(CJCJJJ,CCCJCJ(CCCJJC),1)="1" then
CCJCCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJCC("!$*|t|qt#"))="":CJJCCJ=0:CJCJCC=0:CJJCCC=Empty:CJCJCJ=0:CJCCJC=0:CJCCJJ=0:CJCJJC=0:CJCCCC=False:CCJCCJ=False:CCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCC,CCCCJJ,CCCJJC,CCCCJC,CCCCCJ:CCCJCC=split(CCCJJJ,CJJJJJCC("]")):if ubound(CCCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCC(0)) or len(CCCJCC(1))<>32 or len(CCCJCC(2))<>32 then
Call ClearMemberCookie
else
CCCCJJ=CCCJCC(1):for CCCJJC=1 to len(CCCCJJ):CCCCJC=mid(CCCCJJ,CCCJJC,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCJJ=CCCJCC(2):if CCCCCJ<>mid(CCCCJJ,6,7) then
Call ClearMemberCookie
else
CCCCJC=mid(CCCCJJ,18,10)/2:if CCCCJC<DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCCJ=Clng(CCCJCC(0)):CJJCCC=CCCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCC,CJJJJCJC):dim CCCJJC,CCCCJC,CCCCCJ:for CCCJJC=1 to len(CJJJJCJC):CCCCJC=mid(CJJJJCJC,CCCJJC,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCCJ=CCCJCCC & CJJJJJCC("]") & CJJJJCJC & CJJJJJCC("]") & Fix(10000*(Rnd+1)) & CCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCC("!$*|t|qt#"))=CCCCCJ:End Sub:::Function IIf(CJJJJCCJ, CJJJJCCC, CJJJCJJJ):if isnull(CJJJJCCJ) or isempty(CJJJJCCJ) then
IIf = CJJJCJJJ
elseif CJJJJCCJ Then
IIf = CJJJJCCC
Else
IIf = CJJJCJJJ
end if:End Function: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 CCCJJC,CCCCJC,CCCCCC:if isarray(str) then
on error resume next:CCCJJC=ubound(str,2):CCCCCC=err.number:err.clear:on error goto 0:if CCCCCC<>0 then
for CCCJJC=0 to ubound(str):if CCCJJC>0 then response.Write CJJJJJCC("k3C ,^m")
response.Write CCCJJC & CJJJJJCC("i ,") & str(CCCJJC):next
else
response.Write CJJJJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJJC=0 to ubound(str,2):response.Write CJJJJJCC("kE9 ,2=:8?lV=67EVm") & CCCJJC & CJJJJJCC("k^E9m")
next:response.Write CJJJJJCC("k^ECm"):for CCCJJC=0 to ubound(str):response.Write CJJJJJCC("kECmkE9m") & CCCJJC & CJJJJJCC("k^E9m"):for CCCCJC=0 to ubound(str,2):response.Write CJJJJJCC("kE5m") & str(CCCJJC,CCCCJC) & 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(CJJJCJJC,CJJJCJCJ):dim CCCJCC:CCCJCC=CJJJCJJC & CJJJJJCC("l") & CJJJCJCJ & CJJJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCC("$6E\r@@<:6"),CCCJCC):End Sub::::::sub ShowMessage(CJJJCJCC):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") & CJJJCJCC & CJJJJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJJJJ(CCCCCC):if isnull(CCCCCC) or trim(CCCCCC)="" or not isnumeric(CCCCCC) then
CCCJJJJ=false
else
Dim CJJJJJJ:Set CJJJJJJ = New RegExp:CJJJJJJ.Pattern = CJJJJJCC("/-5ZS"):CJJJJJJ.IgnoreCase = True:CCCJJJJ = CJJJJJJ.test(CCCCCC):set CJJJJJJ=nothing
end if:End Function:Function CCCJJJC(CJJJCCJJ):dim CJJJJJC,CJJJJCJ:CJJJJJC=CJJJJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCJJ & CJJJJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCJ=CJJJJC.execute(CJJJJJC):CCCJJJC = CJJJJCJ(0):if isnull(CCCJJJC) then CCCJJJC=1
CJJJJCJ.close : set CJJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCJ=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CCCJCJC.Close : Set CCCJCJC = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCC("!$*0|6DD286"),server.URLEncode(CJJJCJCC)):Response.Redirect CJJJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJCCJC,CJJJCCCJ):dim str,CCCCCC:str=CJJJJJCC("!$*0") & Ucase(CJJJCCJC):if Session(str)<>"" then
CCCCCC=DateDiff(CJJJJJCC("D"),Session(str),Time):if CCCCCC<CJJJCCCJ and CCCCCC>0 then
Call ConnClose:Call ShowMessage(CJJJJJCC("??????????@?????? ,") & CJJJCCCJ & CJJJJJCC(" ,????,???? ,") & CJJJCCCJ-CCCCCC & CJJJJJCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJCCCC):dim CCCJJC,CCCCJC,CJJJCJJ,CJJJCJC:on error resume next:CJJJCJJ=ubound(CJJJCCCC):CJJJCJC=ubound(CJJJCCCC,2):if err.number<>0 then
err.clear:for CCCJJC=0 to CJJJCJJ:CJJJCCCC(CCCJJC)=0:next
else
for CCCJJC=0 to CJJJCJJ:for CCCCJC=0 to CJJJCJC:CJJJCCCC(CCCJJC,CCCCJC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCJJJJ):Application.Contents.Remove CJJCJJJJ
End Sub::Class jTree:Private CJJCJC, CJJJCCJ, CJJJCCC, CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Private Sub Class_Initialize():CJJJCCC = 0:CJJCJJJ = 0:CJJCCJJ=10:End Sub:Public Property Let Table(CJJCJJJC):if CJJCJJJC="" then Call RedirectMessage(CJJJJJCC("????????,;%C66????????????????????@??????????,"))
CJJCJJC=CJJCJJJC:CJJCJCJ=CJJJJJCC("!$*0") & UCase(CJJCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJJC:End Property:::Private Sub GetTreeArray():Dim CCCJJC, CCCCJC, CJJCCJC,CJJCCCJ:CJJJCCJ = Application(CJJCJCJ):If Not IsArray(CJJJCCJ) Then
CJJCJC = CJJJJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJJC:if CJJCJCC<>"" then CJJCJC=CJJCJC & CJJJJJCC(" ,H96C6 ,") & CJJCJCC
set CJJCCJC=CJJJJC.execute(CJJCJC):CJJCCCJ=CJJCCJC(0):if CJJCCCJ=0 then Call RedirectMessage(CJJJJJCC("????W") & CJJCJJC & CJJJJJCC("^") & CJJCJCC & CJJJJJCC("X????????????"))
CJJCJJJ=CJJCCCJ+CJJCCJJ:ReDim CJJJCCJ(CJJCJJJ, 4):CJJCJC = CJJJJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJCC(" ,H:E9 ,W?@=@4<X"):if CJJCJCC<>"" then CJJCJC=CJJCJC & CJJJJJCC(" ,H96C6 ,") & CJJCJCC
CJJCJC=CJJCJC & CJJJJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCJC=CJJJJC.execute(CJJCJC):For CCCJJC = 1 To CJJCCCJ:For CCCCJC = 0 To 4:CJJJCCJ(CCCJJC, CCCCJC) = CJJCCJC(CCCCJC):if IsNull(CJJJCCJ(CCCJJC,4)) then CJJJCCJ(CCCJJC,4)=0
If CJJJCCJ(CCCJJC,2)="" then CJJJCCJ(CCCJJC,2)=CJJJJJCC(",??.")
Next:CJJCCJC.MoveNext:Next:CJJCCJC.Close: Set CJJCCJC = Nothing:for CCCJJC=CJJCJJJ-(CJJCCJJ-1) to CJJCJJJ:CJJJCCJ(CCCJJC,0)=CCCJJC:next:Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock()
else
CJJCJJJ=Ubound(CJJJCCJ)
End If:End Sub::::Public Function GetChild(CCCJCCC):Dim CCCJJC, Str:CCCJCCC=CLng(CCCJCCC):For CCCJJC = 1 To CJJCJJJ:If CJJJCCJ(CCCJJC, 1) = CCCJCCC Then Str = Str & CJJJJJCC("M") & CJJJCCJ(CCCJJC, 0) & CJJJJJCC("M") & CJJJCCJ(CCCJJC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJJJCC("M")):End Function:Private Function CCCCJJC(CCCJCCC):dim CCCJJC,CJJCCCC:CCCCJJC=0:CJJCCCC=CStr(CCCJCCC):if CJJCCCC<>"0" then
for CCCJJC=1 to CJJCJJJ:If CStr(CJJJCCJ(CCCJJC, 0))=CJJCCCC Then
CCCCJJC = CCCJJC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJCCC):if Cstr(CCCJCCC)="0" then
GetCurName=CJJJJJCC("??")
else
Dim CCCJJC,CJJCCJC:CCCJJC=CCCCJJC(CCCJCCC):if CCCJJC>0 then
GetCurName=CJJJCCJ(CCCJJC,2):if GetCurName="" then
set CJJCCJC=CJJJJC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCC):if CJJCCJC.eof then Call RedirectMessage(CJJJJJCC("xs??,") & CCCJCCC & CJJJJJCC("??,??????"))
GetCurName=CJJCCJC(1):Call UpdateCache(CCCJCCC,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if
else
set CJJCCJC=CJJJJC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCC):if CJJCCJC.eof then Call RedirectMessage(CJJJJJCC("xs??,") & CCCJCCC & CJJJJJCC("??,??????"))
GetCurName=CJJCCJC(1):Call UpdateCache(CCCJCCC,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if
end if:End Function:::Public Function CCCCJCC(CCCJCCC):Dim CCCJJC,CJCJJJJ:CCCJJC=CCCCJJC(CCCJCCC):if CCCJJC=0 then
CJCJJJJ=CCCCCJJ(CCCJCCC)
else
CJCJJJJ=CJJJCCJ(CCCJJC,3):if isnull(CJCJJJJ) or CJCJJJJ="" then
CJCJJJJ=CCCCCJJ(CCCJCCC)
elseif Mid(CJCJJJJ,instrrev(CJCJJJJ,CJJJJJCC("["))+1)<>CStr(CCCJCCC) then
CJCJJJJ=CCCCCJJ(CCCJCCC)
elseif Left(CJCJJJJ,1)=CJJJJJCC("[") then
CJCJJJJ=CCCCCJJ(CCCJCCC)
end if
end if:CCCCJCC=CJCJJJJ:End Function:Private Function CCCCCJJ(CCCJCCC):dim CJJCCCC:CJJCCCC=CStr(CCCJCCC):if CJJCCCC="0" then
CCCCCJJ=""
else
dim CJJCCJC:set CJJCCJC=CJJJJC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJCCC):if CJJCCJC.eof then
Call UpdateCache(CCCJCCC,"","","",""):Call RedirectMessage(CJJJJJCC("??????,xs??,") & CCCJCCC & CJJJJJCC("??,????????,????????????????????,"))
else
if CJJCCJC(0)=0 then
CCCCCJJ="0," & CCCJCCC
else
CCCCCJJ=CCCCJCC(CJJCCJC(0)) & CJJJJJCC("[") & CCCJCCC
end if:if CJJCCJC(2)<>CCCCCJJ then
CJJJJC.execute CJJJJJCC("FA52E6 ,") & CJJCJJC & CJJJJJCC(" ,D6E ,A2E9lV") & CCCCCJJ & CJJJJJCC("V ,H96C6 ,:5l") & CCCJCCC
else
CCCCCJJ=CJJCCJC(2)
end if
end if:Call UpdateCache(CCCJCCC,CJJCCJC(0),CJJCCJC(1),CCCCCJJ,CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if:End Function::::Public Function IsParent(CJJCJJCJ, CJJCJJCC):IsParent=InStr(CCCCJCC(CJJCJJCC) & CJJJJJCC("["), CJJJJJCC("[") & CJJCJJCJ & CJJJJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJCCC):dim CJCJJJJ:CJCJJJJ=CCCCJCC(CCCJCCC):Sql_GetChildren = CJJCJJC & CJJJJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCJJJJ & CJJJJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCJ
End Sub:Public Sub UpdateCache(CCCJCCC,CJJCJCJJ,CJJCJCJC,CJCJJJJ,CJJCJCCJ):dim CCCJJC,CCCCJC:CCCJCCC=CLng(CCCJCCC):CCCJJC=CCCCJJC(CCCJCCC):if CJJCJCJJ="" and CJJCJCJC="" and CJCJJJJ="" and CJJCJCCJ="" then
if CCCJJC>0 then
for CCCCJC=1 to 4:CJJJCCJ(CCCJJC,CCCCJC)=Null:next
end if
else
if CCCJJC=0 then
for CCCCJC=1 to CJJCJJJ:if CJJJCCJ(CCCCJC,1) & ""="" then
CCCJJC=CCCCJC:exit for
end if:next
end if:if CCCJJC=0 then
Call ClearCache
else
CJJJCCJ(CCCJJC,0)=CLng(CCCJCCC):if CJJCJCJJ<>"" then CJJJCCJ(CCCJJC,1)=CLng(CJJCJCJJ)
if CJJCJCJC<>"" then CJJJCCJ(CCCJJC,2)=CJJCJCJC
if CJCJJJJ<>"" then CJJJCCJ(CCCJJC,3)=CJCJJJJ
if CJJCJCCJ<>"" then CJJJCCJ(CCCJJC,4)=CLng(CJJCJCCJ)
end if
end if:if CCCJJC>0 then
Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJCC):Call ConnClose:Response.Write CJJJCJCC:Response.End:End Sub:Private Function CCCJJJC():CCCJJJC=CCCCCCC+1:End Function:Private Function CCCCCCC():dim CJJJJCJ:set CJJJJCJ=CJJJJC.execute(CJJJJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJJC & CJJJJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCC=CJJJJCJ(0):CJJJJCJ.Close: Set CJJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CCJCCJJ=83:Const CCJCCJC="???????????????????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJJJJCC("%6DE0#6A@CE"),15):dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:CJCJCCJ=Request.QueryString(CJJJJJCC("$49@@=")):CJCJJJC=Request.QueryString(CJJJJJCC("s6AE")):CJCJJCJ=Request.QueryString(CJJJJJCC("vC256")):CJCJJCC=Request.QueryString(CJJJJJCC("vC@FA")):CJCJCCC=Request.QueryString(CJJJJJCC("E6DEEJA6")):CJCJCJJ=Request.QueryString(CJJJJJCC("E`")):CJCJCJC=Request.QueryString(CJJJJJCC("Ea")):if not CCCJJJJ(CJCJJJC) then Call RedirectMessage(CJJJJJCC("????????,??????????????,"))
dim CJJJCCJ:set CJJJCCJ=new jtree:CJJJCCJ.table=CJJJJJCC(">6>36C0EJA6"):if not CJJJCCJ.IsParent(CJCJJC,CJCJJJC) then Call RedirectMessage(CJJJJJCC("??????W") & CJCJJJC & CJJJJJCC("X??????W") & CJCJJC & CJJJJJCC("X????????????@??,"))
dim CJCCJJJ,CJCCJJC(7):CJCCJJJ=Array(CJJJJJCC("????????"),CJJJJJCC("????????"),CJJJJJCC("????????"),CJJJJJCC("????????"),CJJJJJCC("????????"),CJJJJJCC("??????????@??"),CJJJJJCC("????????"),CJJJJJCC("????")):CJCCJJC(0)=CJJJJJCC("??????????????????????,??????????????????????????,"):CJCCJJC(1)=CJJJJJCC("??????????????????????,??????????????????????????,"):CJCCJJC(2)=CJJJJJCC("??????????????????????,??????????????????????????,"):CJCCJJC(3)=CJJJJJCC("??????????????????????,????????????????????????????????,"):CJCCJJC(4)=CJJJJJCC("??????????????????????????????????????????????????,"):CJCCJJC(5)=CJJJJJCC("??????????@??????????????????????????????????????????????@????????,"):CJCCJJC(6)=CJJJJJCC("????????????????????????????????????????,"):CJCCJJC(7)=CJJJJJCC("??????????????????????????????,"):dim CJCCJCJ:CJCCJCJ=Array(0.07,0.24,0.38,0.24,0.07):dim CJJJJJJJ:CJJJJJJJ=CJJJCCJ.GetChild(CJCJJJC):if ubound(CJJJJJJJ)<0 then Call RedirectMessage(CJJJJJCC("??????????????????????,"))
CJJJJJJJ=join(CJJJJJJJ,CJJJJJCC("M")) & CJJJJJCC("M_M????"):CJJJJJJJ=split(CJJJJJJJ,CJJJJJCC("M")):dim CJCCJCC:CJCCJCC=CJJJCCJ.GetCurName(CJCJJJC):dim CCCJJC,CCCCJC,CCCCCJ,CJCCCJJ:dim CJCCCJC():redim CJCCCJC((ubound(CJJJJJJJ)-1)/2,28):for CCCJJC=0 to ubound(CJJJJJJJ)-1 step 2:CCCCCJ=CCCJJC/2:CJCCCJC(CCCCCJ,0)=CJJJJJJJ(CCCJJC):CJCCCJC(CCCCCJ,1)=CJJJJJJJ(CCCJJC+1):for CCCCJC=2 to ubound(CJCCCJC,2):CJCCCJC(CCCCCJ,CCCCJC)=0:next:next:dim CJCCCCJ(1,22):Call ArrayInit(CJCCCCJ):CJCCCCJ(0,0)=CJJJJJCC("??"):CJCCCCJ(1,0)=CJJJJJCC("??"):dim CCCJCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CCJJJJC=Date:CCJJJCJ=cdate(CJJJJJCC("a___\`\`")):dim CCJJCJC(7,12):Call ArrayInit(CCJJCJC):CJJCJC=CJJJJJCC("D6=64E ,>6>36C0EJA60A2E9 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld"):if cstr(CJCJJJC)=cstr(CJCJCCJ) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJCCJ else CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,") & CJJJCCJ.Sql_GetChildren(CJCJJJC)
if CCCJJJJ(CJCJJCJ) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,8C256l") & CJCJJCJ
if CCCJJJJ(CJCJJCC) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCJJCC
set CJJJCC=CJJJCJ.execute(CJJCJC):if CJJJCC.eof then Call RedirectMessage(CJJJJJCC("????????,??????????????,"))
while not CJJJCC.eof:CCCCJC=ubound(CJCCCJC):for CCCJJC=0 to CCCCJC-1:if instr(CJJJCC(0) & CJJJJJCC("["),CJJJJJCC("[") & CJCCCJC(CCCJJC,0) & CJJJJJCC("["))>0 then
CCCCJC=CCCJJC:exit for
end if:next:CCCJJC=CCCCJC:CJCCCJC(CCCJJC,2)=CJCCCJC(CCCJJC,2)+1:CJJJCC.movenext:wend:CJJCJC=CJJJJJCC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E[C62=?2>6[?F>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJCCJJ & CJJJJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCJJJC)=cstr(CJCJCCJ) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJCCJ else CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,") & CJJJCCJ.Sql_GetChildren(CJCJJJC)
if CCCJJJJ(CJCJJCJ) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,8C256l") & CJCJJCJ
if CCCJJJJ(CJCJJCC) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCJJCC
if CCCJJJJ(CJCJCCC) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,EJA6l") & CJCJCCC
if isdate(CJCJCJJ) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,52E6E:>6mlV") & CJCJCJJ & CJJJJJCC("V")
if isdate(CJCJCJC) then CJJCJC=CJJCJC & CJJJJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCJCJC)+1 & CJJJJJCC("V")
set CJJJCC=CJJJJC.execute(CJJCJC):if CJJJCC.eof then Call RedirectMessage(CJJJJJCC("????????,??????????????,"))
while not CJJJCC.eof:if isnull(CJJJCC(4)) then Call RedirectMessage(CJJJCC(6) & CJJJJJCC("W") & CJJJCC(7) & CJJJJJCC("X????????????????????????,??????????????????,"))
CCCCCJ=CJJJCC(3):if CCCCCJ<CCJJJJC then CCJJJJC=CCCCCJ
if CCCCCJ>CCJJJCJ then CCJJJCJ=CCCCCJ
CCCJCJ=split(CJJJCC(4),CJJJJJCC("M")):for CCCJJC=0 to 7:CCCCCJ=CCCJCJ(CCCJJC):CCJJCJC(CCCJJC,CCCCCJ)=CCJJCJC(CCCJJC,CCCCCJ)+1:next:CCCCJC=ubound(CJCCCJC):for CCCJJC=0 to CCCCJC-1:if instr(CJJJCC(0) & CJJJJJCC("["),CJJJJJCC("[") & CJCCCJC(CCCJJC,0) & CJJJJJCC("["))>0 then
CCCCJC=CCCJJC:exit for
end if:next:CCCJJC=CCCCJC:CJCCCJC(CCCJJC,3)=CJCCCJC(CCCJJC,3)+1:CCCJCJ=split(CJJJCC(5),CJJJJJCC("M")):for CCCCJC=0 to 7:CCCCCJ=CCCCJC+5:CJCCCJC(CCCJJC,CCCCCJ)=CJCCCJC(CCCJJC,CCCCCJ) + CCCJCJ(CCCCJC):CCCCCJ=CCCCJC+21:CJCCCJC(CCCJJC,CCCCCJ)=CJCCCJC(CCCJJC,CCCCCJ) & CJJJJJCC("[") & CCCJCJ(CCCCJC):next:for CCCJJC=0 to 7:CCJJCJC(CCCJJC,10)=CCJJCJC(CCCJJC,10) & CJJJJJCC("M") & CCCJCJ(CCCJJC):next:if CJJJCC(1) then CCCCJC=0 else CCCCJC=1
CJCCCCJ(CCCCJC,1)=CJCCCCJ(CCCCJC,1)+1:for CCCJJC=0 to 6:CCCCCJ=CCCJJC+2:CJCCCCJ(CCCCJC,CCCCCJ)=CJCCCCJ(CCCCJC,CCCCCJ)+CCCJCJ(CCCJJC):CCCCCJ=CCCJJC+16:CJCCCCJ(CCCCJC,CCCCCJ)=CJCCCCJ(CCCCJC,CCCCCJ) & CJJJJJCC("[") & CCCJCJ(CCCJJC):next:CJCCCCC=CJCCCCC+1:CJJJCC.movenext:wend:for CCCJJC=0 to ubound(CJCCCJC):if CJCCCJC(CCCJJC,2)>0 then
CJCCCJC(CCCJJC,4)=formatpercent(CJCCCJC(CCCJJC,3)/CJCCCJC(CCCJJC,2),2,-1):if CJCCCJC(CCCJJC,3)>0 then
for CCCCJC=5 to 12:CCCCCJ=CCCCJC+8:CJCCCJC(CCCJJC,CCCCCJ)=formatnumber(CJCCCJC(CCCJJC,CCCCJC)/CJCCCJC(CCCJJC,3),2,-1):CCCCCJ=CCCCJC+16:CJCCCJC(CCCJJC,CCCCCJ)=mid(CJCCCJC(CCCJJC,CCCCCJ),3):next
end if
else
CJCCCJC(CCCJJC,4)=CJJJJJCC("\")
end if:next:for CCCJJC=0 to 7:for CCCCJC=0 to 4:CCCCCJ=CCCCJC+5:CCJJCJC(CCCJJC,CCCCCJ)=CCJJCJC(CCCJJC,CCCCJC)/CJCCCCC:next:CCCJCJ=CJJJJJJC(split(Mid(CCJJCJC(CCCJJC,10),3),CJJJJJCC("M"))):CCJJCJC(CCCJJC,11)=FormatNumber(CCCJCJ(0),2,-1):CCJJCJC(CCCJJC,12)=FormatNumber(CCCJCJ(1),2,-1):next:for CCCJJC=0 to 1:for CCCCJC=0 to 6:if CJCCCCJ(CCCJJC,1)>0 then
CJCCCCJ(CCCJJC,CCCCJC+9)=formatnumber(CJCCCCJ(CCCJJC,CCCCJC+2)/CJCCCCJ(CCCJJC,1),2,-1)
else
CJCCCCJ(CCCJJC,CCCCJC+9)=CJJJJJCC("\")
end if:CJCCCCJ(CCCJJC,CCCCJC+16)=mid(CJCCCCJ(CCCJJC,CCCCJC+16),3):next:next: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  CJCCJCC: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 ,9C67lQDEJ=6]4DDQm") & 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[]2FE@4;D[]?@\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  CJCCJCC: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??????????????Wpp%X??????????????????????????????????????????????,????????????????,??,??????????????????????????????????????????????????????,??????@??????????????????????????,??????????????????,??????????????????????,??????????@??????????????????????????????,??????????@??????????@??????????????,??????????????????????????????????????????????????????????,????????????????????????????????????????????????????????,??????????????????????????????????????,????????@????????????????????????????????????????????????????????????????????????,????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmpp%??,??????????,????????????,??????????????????????????????,??@????????????,??????????,??????????,??????????,??????????,??????????@????,??????????????????@????,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(" ,kAm")):Response.Write  formatdatetime(CCJJJJC,1):Response.Write(CJJJJJCC("??,")):Response.Write  formatdatetime(CCJJJCJ,1):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(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & 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(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJC=0 to ubound(CJCCCJC):if CJCCCJC(CCCJJC,2)>0 and CJCCCJC(CCCJJC,3)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJC(CCCJJC,1):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJC(CCCJJC,2):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJC(CCCJJC,3):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCJC(CCCJJC,4):Response.Write(CJJJJJCC("k^E5m") & 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(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,????????????????????????")):Response.Write  CCJJCJC(7,11):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):if CCJJCJC(7,11)<=34 then
Response.Write CJJJJJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJJCJC(7,11)<=44 then
Response.Write CJJJJJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJJCJC(7,11)<=54 then
Response.Write CJJJJJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJJCJC(7,11)<=64 then
Response.Write CJJJJJCC("????????????????????????,??????????????????????????????????????????????,")
else
Response.Write CJJJJJCC("????????????????????????,??????????????????????????????????????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm????????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCJJ=CJJJJJCC(",V????V[V????????V.")
for CCCJJC=4 to 0 step -1:CCCCCJ=CCCJJC+5:CJCCCJJ=CJCCCJJ & CJJJJJCC("[,") & formatnumber(CCJJCJC(7,CCCCCJ)*100,2,-1) & CJJJJJCC("[") & CJCCJCJ(CCCJJC)*100 & CJJJJJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl????M????M????M????M????UGl")):Response.Write  CJCCCJJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,????????")):Response.Write  CJCCCCC:Response.Write(CJJJJJCC("??????,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(7,4):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(7,9),2,-1):Response.Write(CJJJJJCC("??,????????????????????fT??,")):Response.Write  IIf(CCJJCJC(7,9)>=CJCCJCJ(4),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(7,9)-CJCCJCJ(4)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(7,3):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(7,8),2,-1):Response.Write(CJJJJJCC("??,????????????????????acT??,")):Response.Write  IIf(CCJJCJC(7,8)>=CJCCJCJ(3),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(7,8)-CJCCJCJ(3)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(7,2):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(7,7),2,-1):Response.Write(CJJJJJCC("??,??????????????bgT??,")):Response.Write  IIf(CCJJCJC(7,7)>=CJCCJCJ(2),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(7,7)-CJCCJCJ(2)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(7,1):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(7,6),2,-1):Response.Write(CJJJJJCC("??,??????????????acT??,")):Response.Write  IIf(CCJJCJC(7,6)>=CJCCJCJ(1),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(7,6)-CJCCJCJ(1)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(7,0):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(7,5),2,-1):Response.Write(CJJJJJCC("??,??????????????fT??,")):Response.Write  IIf(CCJJCJC(7,5)>=CJCCJCJ(0),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(7,5)-CJCCJCJ(0)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJC=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k9bm")):Response.Write  CCCJJC+2 & CJJJJJCC("??,") & CJCCJJJ(CCCJJC):Response.Write(CJJJJJCC("k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm")):Response.Write  CJCCJJC(CCCJJC):Response.Write(CJJJJJCC("k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,????")):Response.Write  CJCCJJJ(CCCJJC):Response.Write(CJJJJJCC("????????????????")):Response.Write  CCJJCJC(CCCJJC,11):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):if CCJJCJC(CCCJJC,11)<=34 then
Response.Write CJJJJJCC("????????????????????????,????????????") & CJCCJJJ(CCCJJC) & CJJJJJCC("????????????????????????,")
elseif CCJJCJC(CCCJJC,11)<=44 then
Response.Write CJJJJJCC("????????????????????????,????????????") & CJCCJJJ(CCCJJC) & CJJJJJCC("????????????????????????,")
elseif CCJJCJC(CCCJJC,11)<=54 then
Response.Write CJJJJJCC("????????????????????????,????????????") & CJCCJJJ(CCCJJC) & CJJJJJCC("????????????????????????,")
elseif CCJJCJC(CCCJJC,11)<=64 then
Response.Write CJJJJJCC("????????????????????????,????????????") & CJCCJJJ(CCCJJC) & CJJJJJCC("????????????????????????,")
else
Response.Write CJJJJJCC("????????????????????????,????????????") & CJCCJJJ(CCCJJC) & CJJJJJCC("????????????????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,????????")):Response.Write  CJCCCCC:Response.Write(CJJJJJCC("??????,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(CCCJJC,4):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(CCCJJC,9),2,-1):Response.Write(CJJJJJCC("??,????????????????????fT??,")):Response.Write  IIf(CCJJCJC(CCCJJC,9)>=CJCCJCJ(4),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(CCCJJC,9)-CJCCJCJ(4)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(CCCJJC,3):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(CCCJJC,8),2,-1):Response.Write(CJJJJJCC("??,????????????????????acT??,")):Response.Write  IIf(CCJJCJC(CCCJJC,8)>=CJCCJCJ(3),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(CCCJJC,8)-CJCCJCJ(3)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(CCCJJC,2):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(CCCJJC,7),2,-1):Response.Write(CJJJJJCC("??,??????????????bgT??,")):Response.Write  IIf(CCJJCJC(CCCJJC,7)>=CJCCJCJ(2),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(CCCJJC,7)-CJCCJCJ(2)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(CCCJJC,1):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(CCCJJC,6),2,-1):Response.Write(CJJJJJCC("??,??????????????acT??,")):Response.Write  IIf(CCJJCJC(CCCJJC,6)>=CJCCJCJ(1),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(CCCJJC,6)-CJCCJCJ(1)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):Response.Write  CCJJCJC(CCCJJC,0):Response.Write(CJJJJJCC("????????????????,????")):Response.Write  formatpercent(CCJJCJC(CCCJJC,5),2,-1):Response.Write(CJJJJJCC("??,??????????????fT??,")):Response.Write  IIf(CCJJCJC(CCCJJC,5)>=CJCCJCJ(0),CJJJJJCC("????"),CJJJJJCC("????")):Response.Write(CJJJJJCC("??")):Response.Write  formatpercent(Abs(CCJJCJC(CCCJJC,5)-CJCCJCJ(0)),2,-1):Response.Write(CJJJJJCC("??,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCJJ=CJJJJJCC(",V????V[V????????V.")
for CCCCJC=4 to 0 step -1:CCCCCJ=CCCCJC+5:CJCCCJJ=CJCCCJJ & CJJJJJCC("[,") & formatnumber(CCJJCJC(CCCJJC,CCCCCJ)*100,2,-1) & CJJJJJCC("[") & CJCCJCJ(CCCCJC)*100 & CJJJJJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl????M????M????M????M????UGl")):Response.Write  CJCCCJJ: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(" ,kAm??????????????????????????@??f????????,??????????,??????????,??????????,??????????,??????????,??????????@????,??????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm????????????????????????????,????????????????,??????????????,?,?,??????????????????,?,?,???,?,??????,?,?,???,?,??????,???,?, ,??????,?,?, ,?????????????,?,??,?,?, ,?????????????,?,??,?,?, ,?????????????,?,??,??????????????,???????????????,?, ,??????????????????????,?,?,???,?,??????,???,?,??????????????,??????????????????????????????,??????????,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & 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(" ,")):for CCCJJC=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCJJJ(CCCJJC):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CCJJCJC(CCCJJC,11):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CCJJCJC(CCCJJC,12):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCJJ=CJJJJJCC("LV|Vi,")
for CCCJJC=0 to 6:if CCCJJC>0 then CJCCCJJ=CJCCCJJ & CJJJJJCC("[")
CJCCCJJ=CJCCCJJ & CCJJCJC(CCCJJC,11):next:CJCCCJJ=CJCCCJJ & CJJJJJCC(".[V$sVi,")
for CCCJJC=0 to 6:if CCCJJC>0 then CJCCCJJ=CJCCCJJ & CJJJJJCC("[")
CJCCCJJ=CJCCCJJ & CCJJCJC(CCCJJC,12):next:CJCCCJJ=CJCCCJJ & CJJJJJCC(".N"):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CUIl????????M????????M????????M????????M????????M??????????@??M????????UGl")):Response.Write  CJCCCJJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCJJ=CJJJJJCC(","):CCJJCJJ="":for CCCJJC=0 to ubound(CJCCCJC):if CJCCCJC(CCCJJC,3)>0 then
Response.Write CJJJJJCC("kE9m") & CJCCCJC(CCCJJC,1) & CJJJJJCC("??,") & CJCCCJC(CCCJJC,3) & CJJJJJCC("????,k^E9m"):CCJJCJJ=CCJJCJJ & CJJJJJCC("[V") & CJCCCJC(CCCJJC,1) & CJJJJJCC("V")
end if:next:CJCCCJJ=CJCCCJJ & mid(CCJJCJJ,2) & CJJJJJCC("."):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????????????,!k_]_d??,k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCJJC=0 to 7:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCJJJ(CCCJJC):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCCJJ=CJCCCJJ & CJJJJJCC("[,"):CCJJCJJ="":for CCCCJC=0 to ubound(CJCCCJC):if CJCCCJC(CCCCJC,3)>0 then
Response.Write CJJJJJCC("kE5m") & CJCCCJC(CCCCJC,CCCJJC+13) & CJJJJJCC("k^E5m"):CCJJCJJ=CCJJCJJ & CJJJJJCC("[") & CJCCCJC(CCCCJC,CCCJJC+13)
end if:next:CJCCCJJ=CJCCCJJ & mid(CCJJCJJ,2) & CJJJJJCC("."):CCJJCJJ="":for CCCCJC=0 to ubound(CJCCCJC):if CJCCCJC(CCCCJC,3)>0 then
CCJJCJJ=CCJJCJJ & CJJJJJCC("M") & CJCCCJC(CCCCJC,CCCJJC+21)
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE5 ,4=2DDlQA\G2=F6Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  mid(CCJJCJJ,2):Response.Write(CJJJJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k3Cm") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UIl????????M????????M????????M????????M????????M??????????@??M????????M????UGl")):Response.Write  CJCCCJJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am??,??,??????????????k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCJJJCC=true:for CCCJJC=0 to 1:if CJCCCCJ(CCCJJC,1)<2 then CCJJJCC=false
Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9m")):Response.Write  CJCCCCJ(CCCJJC,0):Response.Write(CJJJJJCC("??,")):Response.Write  CJCCCCJ(CCCJJC,1):Response.Write(CJJJJJCC("????,k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9m??????????????,!k_]_d??,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 CCCJJC=0 to 6:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCJJJ(CCCJJC):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CCCCJC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE5m")):Response.Write  CJCCCCJ(CCCCJC,CCCJJC+9):Response.Write(CJJJJJCC("k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE5 ,4=2DDlQA\G2=F6Q ,52E2\42=lQ")):Response.Write  CCJJJCC:Response.Write(CJJJJJCC("Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  CJCCCCJ(0,CCCJJC+16) & CJJJJJCC("M") & CJCCCCJ(1,CCCJJC+16):Response.Write(CJJJJJCC("Qmk^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(" ,")):CJCCCJJ=CJJJJJCC(",V??V[V??V.")
for CCCJJC=0 to 6:CJCCCJJ=CJCCCJJ & CJJJJJCC("[,") & CJCCCCJ(0,CCCJJC+9) & CJJJJJCC("[") & CJCCCCJ(1,CCCJJC+9) & CJJJJJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnIl????????M????????M????????M????????M????????M??????????@??M????????UGl")):Response.Write  CJCCCJJ:Response.Write(CJJJJJCC("Qmk^D4C:AEm") & 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  CJCCJCC: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(" ,^^ ,????????????") & vbCrLf):Response.Write(CJJJJJCC(" ,SWV]2>\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CJJJJJCC(" ,4@?E6?EiV??????,????????????????????????@??????,??????????,????????(@C5????????????????????,V[") & vbCrLf):Response.Write(CJJJJJCC(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CJJJJJCC(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CJJJJJCC(" ,NX") & vbCrLf):Response.Write(CJJJJJCC(" ,^^ ,????!??") & vbCrLf):Response.Write(CJJJJJCC(" ,G2C ,AC@8C6DD ,l ,S]p|&x]AC@8C6DD") & vbCrLf):Response.Write(CJJJJJCC(" ,SW5@4F>6?EX]2;2I$E2CEW7F?4E:@?WX ,LAC@8C6DD]DE2CEWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SW5@4F>6?EX]2;2I$E@AW7F?4E:@?WX ,LAC@8C6DD]5@?6WXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVE5]A\G2=F6VX]92DWV:?AFEVX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCC(" ,G2C ,SE5lSWE9:DX") & vbCrLf):Response.Write(CJJJJJCC(" ,:7WSE5]52E2WV42=VXlllVu2=D6VXLSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJJJCC(" ,6=D6L") & vbCrLf):Response.Write(CJJJJJCC(" ,G2C ,5lSE5]49:=5C6?WV:?AFEVX]G2=WX") & vbCrLf):Response.Write(CJJJJJCC(" ,S]A@DEWV^2A:^!0'2=F6]2D9IV[L5i5N[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJJJCC(" ,AC@8C6DD]:?4WX") & vbCrLf):Response.Write(CJJJJJCC(" ,:7W;D@?]4@56lll_XLSE5]E6IEW;D@?]52E2k_]_dnV??ViV??VXN") & vbCrLf):Response.Write(CJJJJJCC(" ,6=D6LSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJJJCC(" ,NX") & vbCrLf):Response.Write(CJJJJJCC(" ,N") & vbCrLf):Response.Write(CJJJJJCC(" ,NX") & vbCrLf):Response.Write(CJJJJJCC("NX") & vbCrLf):Response.Write(CJJJJJCC("k^D4C:AEm") & vbCrLf)::Function CJJJJJJC(ByVal CJJCCJJJ):Dim CCCJJC, CCJJCCJ, CCJJCCC, CCJCJJJ, CCJCJJC, CCJCJCJ:CCJJCCJ = UBound(CJJCCJJJ) + 1:CCJJCCC = 0:For CCCJJC = 0 To CCJJCCJ - 1:CJJCCJJJ(CCCJJC) = CDbl(CJJCCJJJ(CCCJJC)):CCJJCCC = CCJJCCC + CJJCCJJJ(CCCJJC):Next:CCJCJJJ = CCJJCCC / CCJJCCJ:CCJCJJC = 0:For CCCJJC = 0 To CCJJCCJ - 1:CCJCJJC = CCJCJJC + (CJJCCJJJ(CCCJJC) - CCJCJJJ) ^ 2:Next:CCJCJCJ = Sqr(CCJCJJC / CCJJCCJ):CJJJJJJC = Array(CCJCJJJ, CCJCJCJ):End Function:Response.Write(vbCrLf):Response.Write(CJJJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCJ=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCC(ByVal CJJJJJCJ)
Dim CJCCCJJ, CCCJJC, CCCCCC
CJJJJJCJ = Replace(CJJJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJC = 1 To Len(CJJJJJCJ)
If CCCJJC <> CCCCCC Then
CJCCCJJ = AscW(Mid(CJJJJJCJ, CCCJJC, 1))
If CJCCCJJ >= 33 And CJCCCJJ <= 79 Then
CJJJJJCC = CJJJJJCC & Chr(CJCCCJJ + 47)
ElseIf CJCCCJJ >= 80 And CJCCCJJ <= 126 Then
CJJJJJCC = CJJJJJCC & Chr(CJCCCJJ - 47)
Else
CCCCCC = CCCJJC + 1
If Mid(CJJJJJCJ, CCCCCC, 1) = Chr(64) Then CJJJJJCC = CJJJJJCC & ChrW(CJCCCJJ + 5) Else CJJJJJCC = CJJJJJCC & Mid(CJJJJJCJ, CCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de