Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CJJJCJCC("ps~sq]r@??64E:@?")):CJCJJC.open Application(CJJJCJCC("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ:CJJJJJJ=Trim(Request.Cookies(CJJJCJCC("!$*|t|qt#"))):if CJJJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCJ>0 then
CJCCJC=CJJJCJCC("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") & CJCCCC & CJJJCJCC("V ,2?5 ,:5l") & CJCCCJ
set CJCJCC=CJCJJC.execute(CJCCJC):If CJCJCC.EOF Then
Call ClearMemberCookie
Else
CCJJJJ=CJCJCC(2) & "":CCJJJC=CJCJCC(3):CCJJCJ=CJCJCC(5):CCJJCC=CJCJCC(6):CCJCJJ=CJCJCC(9):CCJCJC=CJCJCC(15):CCJCCC=CJCJCC(0):CCCCCJ=CJCJCC(1):CCCCJC=CJCJCC(11) & "":CCCJJJ=CJCJCC(10) & "":CCJCCJ=CJCJCC(12):CCCJJC=CJCJCC(14):CCCJCJ=CJCJCC(13):CCCJCC=CJCJCC(7) & "":CCCCJJ=CJCJCC(4):CCCCCC=CJCJCC(8):if isnull(CCJCJC) then CCJCJC=0
if isnull(CCJCJJ) or CCJCJJ=0 then CCJCJJ=CCJJJC
if isnull(CCCCJJ) then CCCCJJ=0
if isnull(CCJJCJ) then CCJJCJ=0
if instr(CJJJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCCC)>0 then Call RedirectMessage(CJJJCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCJ,CJCCCC)
End IF
end if:Sub CheckRight(CJJJCCJJ):dim CJJJJJC,CJJJJCJ:if CJCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJCC("??????????????,????????????,"))
elseIf not CCCJCCJ(CJJJCCJJ) then
Call RedirectMessage(CJJJCJCC("????W") & CJJJCCJJ & CJJJCJCC("X????????,????????????????????,"))
end if:End Sub:Function CCCJCCJ(CJJJCCJJ):dim CJJJJJC,CJJJJCJ:CJJJJCJ=split(CJJJCCJJ,CJJJCJCC("[")):CCCJCCJ=False:for CJJJJJC=0 to ubound(CJJJJCJ):If Mid(CCJJJJ,CJJJJCJ(CJJJJJC),1)="1" then
CCCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJCC("!$*|t|qt#"))="":CJCCCJ=0:CCJJCC=0:CJCCCC=Empty:CCJJCJ=0:CCJCJC=0:CCJCJJ=0:CCJJJC=0:CCJCCC=False:CCCCCJ=False:CCCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJJJC,CJJJCJC,CJJJCCJ:CJJJJCC=split(CJJJJJJ,CJJJCJCC("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJJJC=1 to len(CJJJCJJ):CJJJCJC=mid(CJJJCJJ,CJJJJJC,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCJ<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCJC=mid(CJJJCJJ,18,10)/2:if CJJJCJC<DateDiff(CJJJCJCC("D"), CJJJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCJ=Clng(CJJJJCC(0)):CJCCCC=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJCCJC):dim CJJJJJC,CJJJCJC,CJJJCCJ:for CJJJJJC=1 to len(CJJJCCJC):CJJJCJC=mid(CJJJCCJC,CJJJJJC,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCCJ=CCCCCCC & CJJJCJCC("]") & CJJJCCJC & CJJJCJCC("]") & Fix(10000*(Rnd+1)) & CJJJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJCC("D"), CJJJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJCC("!$*|t|qt#"))=CJJJCCJ:End Sub:::Function IIf(CJJJCCCJ, CJJJCCCC, CJJCJJJJ):if isnull(CJJJCCCJ) or isempty(CJJJCCCJ) then
IIf = CJJCJJJJ
elseif CJJJCCCJ Then
IIf = CJJJCCCC
Else
IIf = CJJCJJJJ
end if:End Function:Const CCCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJCC("FE7\g"):dim CJJJJJC,CJJJCJC,CJJJCCC:if isarray(str) then
on error resume next:CJJJJJC=ubound(str,2):CJJJCCC=err.number:err.clear:on error goto 0:if CJJJCCC<>0 then
for CJJJJJC=0 to ubound(str):if CJJJJJC>0 then response.Write CJJJCJCC("k3C ,^m")
response.Write CJJJJJC & CJJJCJCC("i ,") & str(CJJJJJC):next
else
response.Write CJJJCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJJC=0 to ubound(str,2):response.Write CJJJCJCC("kE9 ,2=:8?lV=67EVm") & CJJJJJC & CJJJCJCC("k^E9m")
next:response.Write CJJJCJCC("k^ECm"):for CJJJJJC=0 to ubound(str):response.Write CJJJCJCC("kECmkE9m") & CJJJJJC & CJJJCJCC("k^E9m"):for CJJJCJC=0 to ubound(str,2):response.Write CJJJCJCC("kE5m") & str(CJJJJJC,CJJJCJC) & CJJJCJCC("k^E5m"):next:response.Write CJJJCJCC("k^ECm"):next:response.Write CJJJCJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJJC,CJJCJJCJ):dim CJJJJCC:CJJJJCC=CJJCJJJC & CJJJCJCC("l") & CJJCJJCJ & CJJJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJCC("$6E\r@@<:6"),CJJJJCC):End Sub::::::sub ShowMessage(CJJCJJCC):response.Charset="utf-8":Response.Write CJJJCJCC("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") & CJJCJJCC & CJJJCJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJJJ(CJJJCCC):if isnull(CJJJCCC) or trim(CJJJCCC)="" or not isnumeric(CJJJCCC) then
CCCCJJJ=false
else
Dim CJJCJJJ:Set CJJCJJJ = New RegExp:CJJCJJJ.Pattern = CJJJCJCC("/-5ZS"):CJJCJJJ.IgnoreCase = True:CCCCJJJ = CJJCJJJ.test(CJJJCCC):set CJJCJJJ=nothing
end if:End Function:Function CCCCJJC(CJJCJCJJ):dim CJJCJJC,CJJCJCJ:CJJCJJC=CJJJCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJJ & CJJJCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCJ=CJCJJC.execute(CJJCJJC):CCCCJJC = CJJCJCJ(0):if isnull(CCCCJJC) then CCCCJJC=1
CJJCJCJ.close : set CJJCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:CJJCJCJ.close : set CJJCJCJ=nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCJCC.Close : Set CJCJCC=Nothing:CCCCCJC.Close : Set CCCCCJC = Nothing:CJCJJC.Close : Set CJCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJCC("!$*0|6DD286"),server.URLEncode(CJJCJJCC)):Response.Redirect CJJJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJCJC,CJJCJCCJ):dim str,CJJJCCC:str=CJJJCJCC("!$*0") & Ucase(CJJCJCJC):if Session(str)<>"" then
CJJJCCC=DateDiff(CJJJCJCC("D"),Session(str),Time):if CJJJCCC<CJJCJCCJ and CJJJCCC>0 then
Call ConnClose:Call ShowMessage(CJJJCJCC("??????????@?????? ,") & CJJCJCCJ & CJJJCJCC(" ,????,???? ,") & CJJCJCCJ-CJJJCCC & CJJJCJCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCJCCC):dim CJJJJJC,CJJJCJC,CJJCCJJ,CJJCCJC:on error resume next:CJJCCJJ=ubound(CJJCJCCC):CJJCCJC=ubound(CJJCJCCC,2):if err.number<>0 then
err.clear:for CJJJJJC=0 to CJJCCJJ:CJJCJCCC(CJJJJJC)=0:next
else
for CJJJJJC=0 to CJJCCJJ:for CJJJCJC=0 to CJJCCJC:CJJCJCCC(CJJJJJC,CJJJCJC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ
End Sub::Class jTree:Private CJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Private Sub Class_Initialize():CJJCCCC = 0:CJCJJJJ = 0:CJCJCJJ=10:End Sub:Public Property Let Table(CJJCCJJC):if CJJCCJJC="" then Call RedirectMessage(CJJJCJCC("????????,;%C66????????????????????@??????????,"))
CJCJJJC=CJJCCJJC:CJCJJCJ=CJJJCJCC("!$*0") & UCase(CJCJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJC:End Property:::Private Sub GetTreeArray():Dim CJJJJJC, CJJJCJC, CJCJCJC,CJCJCCJ:CJJCCCJ = Application(CJCJJCJ):If Not IsArray(CJJCCCJ) Then
CJCCJC = CJJJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJC:if CJCJJCC<>"" then CJCCJC=CJCCJC & CJJJCJCC(" ,H96C6 ,") & CJCJJCC
set CJCJCJC=CJCJJC.execute(CJCCJC):CJCJCCJ=CJCJCJC(0):if CJCJCCJ=0 then Call RedirectMessage(CJJJCJCC("????W") & CJCJJJC & CJJJCJCC("^") & CJCJJCC & CJJJCJCC("X????????????"))
CJCJJJJ=CJCJCCJ+CJCJCJJ:ReDim CJJCCCJ(CJCJJJJ, 4):CJCCJC = CJJJCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CJJJCJCC(" ,H:E9 ,W?@=@4<X"):if CJCJJCC<>"" then CJCCJC=CJCCJC & CJJJCJCC(" ,H96C6 ,") & CJCJJCC
CJCCJC=CJCCJC & CJJJCJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJC=CJCJJC.execute(CJCCJC):For CJJJJJC = 1 To CJCJCCJ:For CJJJCJC = 0 To 4:CJJCCCJ(CJJJJJC, CJJJCJC) = CJCJCJC(CJJJCJC):if IsNull(CJJCCCJ(CJJJJJC,4)) then CJJCCCJ(CJJJJJC,4)=0
If CJJCCCJ(CJJJJJC,2)="" then CJJCCCJ(CJJJJJC,2)=CJJJCJCC(",??.")
Next:CJCJCJC.MoveNext:Next:CJCJCJC.Close: Set CJCJCJC = Nothing:for CJJJJJC=CJCJJJJ-(CJCJCJJ-1) to CJCJJJJ:CJJCCCJ(CJJJJJC,0)=CJJJJJC:next:Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
else
CJCJJJJ=Ubound(CJJCCCJ)
End If:End Sub::::Public Function GetChild(CCCCCCC):Dim CJJJJJC, Str:CCCCCCC=CLng(CCCCCCC):For CJJJJJC = 1 To CJCJJJJ:If CJJCCCJ(CJJJJJC, 1) = CCCCCCC Then Str = Str & CJJJCJCC("M") & CJJCCCJ(CJJJJJC, 0) & CJJJCJCC("M") & CJJCCCJ(CJJJJJC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCJCC("M")):End Function:Private Function CJJJJJJC(CCCCCCC):dim CJJJJJC,CJCJCCC:CJJJJJJC=0:CJCJCCC=CStr(CCCCCCC):if CJCJCCC<>"0" then
for CJJJJJC=1 to CJCJJJJ:If CStr(CJJCCCJ(CJJJJJC, 0))=CJCJCCC Then
CJJJJJJC = CJJJJJC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCCCCC):if Cstr(CCCCCCC)="0" then
GetCurName=CJJJCJCC("??")
else
Dim CJJJJJC,CJCJCJC:CJJJJJC=CJJJJJJC(CCCCCCC):if CJJJJJC>0 then
GetCurName=CJJCCCJ(CJJJJJC,2):if GetCurName="" then
set CJCJCJC=CJCJJC.execute(CJJJCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CJJJCJCC(" ,H96C6 ,:5l") & CCCCCCC):if CJCJCJC.eof then Call RedirectMessage(CJJJCJCC("xs??,") & CCCCCCC & CJJJCJCC("??,??????"))
GetCurName=CJCJCJC(1):Call UpdateCache(CCCCCCC,CJCJCJC(0),GetCurName,CJCJCJC(2),CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if
else
set CJCJCJC=CJCJJC.execute(CJJJCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CJJJCJCC(" ,H96C6 ,:5l") & CCCCCCC):if CJCJCJC.eof then Call RedirectMessage(CJJJCJCC("xs??,") & CCCCCCC & CJJJCJCC("??,??????"))
GetCurName=CJCJCJC(1):Call UpdateCache(CCCCCCC,CJCJCJC(0),GetCurName,CJCJCJC(2),CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if
end if:End Function:::Public Function CJJJJJCC(CCCCCCC):Dim CJJJJJC,CJCCJJJ:CJJJJJC=CJJJJJJC(CCCCCCC):if CJJJJJC=0 then
CJCCJJJ=CJJJJCJJ(CCCCCCC)
else
CJCCJJJ=CJJCCCJ(CJJJJJC,3):if isnull(CJCCJJJ) or CJCCJJJ="" then
CJCCJJJ=CJJJJCJJ(CCCCCCC)
elseif Mid(CJCCJJJ,instrrev(CJCCJJJ,CJJJCJCC("["))+1)<>CStr(CCCCCCC) then
CJCCJJJ=CJJJJCJJ(CCCCCCC)
elseif Left(CJCCJJJ,1)=CJJJCJCC("[") then
CJCCJJJ=CJJJJCJJ(CCCCCCC)
end if
end if:CJJJJJCC=CJCCJJJ:End Function:Private Function CJJJJCJJ(CCCCCCC):dim CJCJCCC:CJCJCCC=CStr(CCCCCCC):if CJCJCCC="0" then
CJJJJCJJ=""
else
dim CJCJCJC:set CJCJCJC=CJCJJC.execute(CJJJCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CJJJCJCC(" ,H96C6 ,:5l") & CCCCCCC):if CJCJCJC.eof then
Call UpdateCache(CCCCCCC,"","","",""):Call RedirectMessage(CJJJCJCC("??????,xs??,") & CCCCCCC & CJJJCJCC("??,????????,????????????????????,"))
else
if CJCJCJC(0)=0 then
CJJJJCJJ="0," & CCCCCCC
else
CJJJJCJJ=CJJJJJCC(CJCJCJC(0)) & CJJJCJCC("[") & CCCCCCC
end if:if CJCJCJC(2)<>CJJJJCJJ then
CJCJJC.execute CJJJCJCC("FA52E6 ,") & CJCJJJC & CJJJCJCC(" ,D6E ,A2E9lV") & CJJJJCJJ & CJJJCJCC("V ,H96C6 ,:5l") & CCCCCCC
else
CJJJJCJJ=CJCJCJC(2)
end if
end if:Call UpdateCache(CCCCCCC,CJCJCJC(0),CJCJCJC(1),CJJJJCJJ,CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing
end if:End Function::::Public Function IsParent(CJJCCJCJ, CJJCCJCC):IsParent=InStr(CJJJJJCC(CJJCCJCC) & CJJJCJCC("["), CJJJCJCC("[") & CJJCCJCJ & CJJJCJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCCCCC):dim CJCCJJJ:CJCCJJJ=CJJJJJCC(CCCCCCC):Sql_GetChildren = CJCJJJC & CJJJCJCC("0A2E9ZV[V ,=:<6 ,V") & CJCCJJJ & CJJJCJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCJ
End Sub:Public Sub UpdateCache(CCCCCCC,CJJCCCJJ,CJJCCCJC,CJCCJJJ,CJJCCCCJ):dim CJJJJJC,CJJJCJC:CCCCCCC=CLng(CCCCCCC):CJJJJJC=CJJJJJJC(CCCCCCC):if CJJCCCJJ="" and CJJCCCJC="" and CJCCJJJ="" and CJJCCCCJ="" then
if CJJJJJC>0 then
for CJJJCJC=1 to 4:CJJCCCJ(CJJJJJC,CJJJCJC)=Null:next
end if
else
if CJJJJJC=0 then
for CJJJCJC=1 to CJCJJJJ:if CJJCCCJ(CJJJCJC,1) & ""="" then
CJJJJJC=CJJJCJC:exit for
end if:next
end if:if CJJJJJC=0 then
Call ClearCache
else
CJJCCCJ(CJJJJJC,0)=CLng(CCCCCCC):if CJJCCCJJ<>"" then CJJCCCJ(CJJJJJC,1)=CLng(CJJCCCJJ)
if CJJCCCJC<>"" then CJJCCCJ(CJJJJJC,2)=CJJCCCJC
if CJCCJJJ<>"" then CJJCCCJ(CJJJJJC,3)=CJCCJJJ
if CJJCCCCJ<>"" then CJJCCCJ(CJJJJJC,4)=CLng(CJJCCCCJ)
end if
end if:if CJJJJJC>0 then
Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJCC):Call ConnClose:Response.Write CJJCJJCC:Response.End:End Sub:Private Function CCCCJJC():CCCCJJC=CJJJJCCC+1:End Function:Private Function CJJJJCCC():dim CJJCJCJ:set CJJCJCJ=CJCJJC.execute(CJJJCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJC & CJJJCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCCC=CJJCJCJ(0):CJJCJCJ.Close: Set CJJCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CCCJCJJ=106:Const CCCJCJC="???????????????????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCJCC("%6DE0#6A@CE"),15):dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCCCJ=Request.QueryString(CJJJCJCC("$49@@=")):CJCCJJC=Request.QueryString(CJJJCJCC("s6AE")):CJCCJCJ=Request.QueryString(CJJJCJCC("vC256")):CJCCJCC=Request.QueryString(CJJJCJCC("vC@FA")):CJCCCCC=Request.QueryString(CJJJCJCC("E6DEEJA6")):CJCCCJJ=Request.QueryString(CJJJCJCC("E`")):CJCCCJC=Request.QueryString(CJJJCJCC("Ea")):if not CCCCJJJ(CJCCJJC) then Call RedirectMessage(CJJJCJCC("????????,??????????????,"))
dim CJJCCCJ:set CJJCCCJ=new jtree:CJJCCCJ.table=CJJJCJCC(">6>36C0EJA6"):if not CJJCCCJ.IsParent(CCJJJC,CJCCJJC) then Call RedirectMessage(CJJJCJCC("??????W") & CJCCJJC & CJJJCJCC("X??????W") & CCJJJC & CJJJCJCC("X????????????@??,"))
dim CCJJJJJ,CCJJJJC(5):CCJJJJJ=Array(CJJJCJCC("????????"),CJJJCJCC("????????"),CJJJCJCC("????????"),CJJJCJCC("????????"),CJJJCJCC("??????????@??"),CJJJCJCC("????")):CCJJJJC(0)=CJJJCJCC("??????????????????????????????@??????????????????????????@??????????????????,????????????????,??????????????????????????,"):CCJJJJC(1)=CJJJCJCC("????????????????????????????????????????????,????????????????,??@????,??????????@????,????????????????,??????????????????????????,"):CCJJJJC(2)=CJJJCJCC("??????????????????????,????????????????????????????????,"):CCJJJJC(3)=CJJJCJCC("??????????????????????????????????????????????????,"):CCJJJJC(4)=CJJJCJCC("??????????@??????????????????????????????????????????????@????????,"):CCJJJJC(5)=CJJJCJCC("??????????????????????????????,"):dim CCJJJCJ:CCJJJCJ=Array(0.07,0.24,0.38,0.24,0.07):dim CJJJCJJJ:CJJJCJJJ=CJJCCCJ.GetChild(CJCCJJC):if ubound(CJJJCJJJ)<0 then Call RedirectMessage(CJJJCJCC("??????????????????????,"))
CJJJCJJJ=join(CJJJCJJJ,CJJJCJCC("M")) & CJJJCJCC("M_M????"):CJJJCJJJ=split(CJJJCJJJ,CJJJCJCC("M")):dim CCJJJCC:CCJJJCC=CJJCCCJ.GetCurName(CJCCJJC):dim CJJJJJC,CJJJCJC,CJJJCCJ,CCJJCJJ:dim CCJJCJC():redim CCJJCJC((ubound(CJJJCJJJ)-1)/2,22):for CJJJJJC=0 to ubound(CJJJCJJJ)-1 step 2:CJJJCCJ=CJJJJJC/2:CCJJCJC(CJJJCCJ,0)=CJJJCJJJ(CJJJJJC):CCJJCJC(CJJJCCJ,1)=CJJJCJJJ(CJJJJJC+1):for CJJJCJC=2 to ubound(CCJJCJC,2):CCJJCJC(CJJJCCJ,CJJJCJC)=0:next:next:dim CCJJCCJ(1,16):Call ArrayInit(CCJJCCJ):CCJJCCJ(0,0)=CJJJCJCC("??"):CCJJCCJ(1,0)=CJJJCJCC("??"):dim CJJJJCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:CCJCJJC=Date:CCJCJCJ=cdate(CJJJCJCC("a___\`\`")):dim CCJCCJC(5,12):Call ArrayInit(CCJCCJC):CJCCJC=CJJJCJCC("D6=64E ,>6>36C0EJA60A2E9 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld"):if cstr(CJCCJJC)=cstr(CJCCCCJ) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCJ else CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,") & CJJCCCJ.Sql_GetChildren(CJCCJJC)
if CCCCJJJ(CJCCJCJ) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,8C256l") & CJCCJCJ
if CCCCJJJ(CJCCJCC) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCC
set CJCJCC=CJCJCJ.execute(CJCCJC):if CJCJCC.eof then Call RedirectMessage(CJJJCJCC("????????,??????????????,"))
while not CJCJCC.eof:CJJJCJC=ubound(CCJJCJC):for CJJJJJC=0 to CJJJCJC-1:if instr(CJCJCC(0) & CJJJCJCC("["),CJJJCJCC("[") & CCJJCJC(CJJJJJC,0) & CJJJCJCC("["))>0 then
CJJJCJC=CJJJJJC:exit for
end if:next:CJJJJJC=CJJJCJC:CCJJCJC(CJJJJJC,2)=CCJJCJC(CJJJJJC,2)+1:CJCJCC.movenext:wend:CJCCJC=CJJJCJCC("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") & CCCJCJJ & CJJJCJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJJC)=cstr(CJCCCCJ) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCJ else CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,") & CJJCCCJ.Sql_GetChildren(CJCCJJC)
if CCCCJJJ(CJCCJCJ) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,8C256l") & CJCCJCJ
if CCCCJJJ(CJCCJCC) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCC
if CCCCJJJ(CJCCCCC) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,EJA6l") & CJCCCCC
if isdate(CJCCCJJ) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,52E6E:>6mlV") & CJCCCJJ & CJJJCJCC("V")
if isdate(CJCCCJC) then CJCCJC=CJCCJC & CJJJCJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCJC)+1 & CJJJCJCC("V")
set CJCJCC=CJCJJC.execute(CJCCJC):if CJCJCC.eof then Call RedirectMessage(CJJJCJCC("????????,??????????????,"))
while not CJCJCC.eof:if isnull(CJCJCC(4)) then Call RedirectMessage(CJCJCC(6) & CJJJCJCC("W") & CJCJCC(7) & CJJJCJCC("X????????????????????????,??????????????????,"))
CJJJCCJ=CJCJCC(3):if CJJJCCJ<CCJCJJC then CCJCJJC=CJJJCCJ
if CJJJCCJ>CCJCJCJ then CCJCJCJ=CJJJCCJ
CJJJJCJ=split(CJCJCC(4),CJJJCJCC("M")):for CJJJJJC=0 to 5:CJJJCCJ=CJJJJCJ(CJJJJJC):CCJCCJC(CJJJJJC,CJJJCCJ)=CCJCCJC(CJJJJJC,CJJJCCJ)+1:next:CJJJCJC=ubound(CCJJCJC):for CJJJJJC=0 to CJJJCJC-1:if instr(CJCJCC(0) & CJJJCJCC("["),CJJJCJCC("[") & CCJJCJC(CJJJJJC,0) & CJJJCJCC("["))>0 then
CJJJCJC=CJJJJJC:exit for
end if:next:CJJJJJC=CJJJCJC:CCJJCJC(CJJJJJC,3)=CCJJCJC(CJJJJJC,3)+1:CJJJJCJ=split(CJCJCC(5),CJJJCJCC("M")):for CJJJCJC=0 to 5:CJJJCCJ=CJJJCJC+5:CCJJCJC(CJJJJJC,CJJJCCJ)=CCJJCJC(CJJJJJC,CJJJCCJ) + CJJJJCJ(CJJJCJC):CJJJCCJ=CJJJCJC+17:CCJJCJC(CJJJJJC,CJJJCCJ)=CCJJCJC(CJJJJJC,CJJJCCJ) & CJJJCJCC("[") & CJJJJCJ(CJJJCJC):next:for CJJJJJC=0 to 5:CCJCCJC(CJJJJJC,10)=CCJCCJC(CJJJJJC,10) & CJJJCJCC("M") & CJJJJCJ(CJJJJJC):next:if CJCJCC(1) then CJJJCJC=0 else CJJJCJC=1
CCJJCCJ(CJJJCJC,1)=CCJJCCJ(CJJJCJC,1)+1:for CJJJJJC=0 to 4:CJJJCCJ=CJJJJJC+2:CCJJCCJ(CJJJCJC,CJJJCCJ)=CCJJCCJ(CJJJCJC,CJJJCCJ)+CJJJJCJ(CJJJJJC):CJJJCCJ=CJJJJJC+12:CCJJCCJ(CJJJCJC,CJJJCCJ)=CCJJCCJ(CJJJCJC,CJJJCCJ) & CJJJCJCC("[") & CJJJJCJ(CJJJJJC):next:CCJJCCC=CCJJCCC+1:CJCJCC.movenext:wend:for CJJJJJC=0 to ubound(CCJJCJC):if CCJJCJC(CJJJJJC,2)>0 then
CCJJCJC(CJJJJJC,4)=formatpercent(CCJJCJC(CJJJJJC,3)/CCJJCJC(CJJJJJC,2),2,-1):if CCJJCJC(CJJJJJC,3)>0 then
for CJJJCJC=5 to 10:CJJJCCJ=CJJJCJC+6:CCJJCJC(CJJJJJC,CJJJCCJ)=formatnumber(CCJJCJC(CJJJJJC,CJJJCJC)/CCJJCJC(CJJJJJC,3),2,-1):CJJJCCJ=CJJJCJC+12:CCJJCJC(CJJJJJC,CJJJCCJ)=mid(CCJJCJC(CJJJJJC,CJJJCCJ),3):next
end if
else
CCJJCJC(CJJJJJC,4)=CJJJCJCC("\")
end if:next:for CJJJJJC=0 to 5:for CJJJCJC=0 to 4:CJJJCCJ=CJJJCJC+5:CCJCCJC(CJJJJJC,CJJJCCJ)=CCJCCJC(CJJJJJC,CJJJCJC)/CCJJCCC:next:CJJJJCJ=CJJJCJJC(split(Mid(CCJCCJC(CJJJJJC,10),3),CJJJCJCC("M"))):CCJCCJC(CJJJJJC,11)=FormatNumber(CJJJJCJ(0),2,-1):CCJCCJC(CJJJJJC,12)=FormatNumber(CJJJJCJ(1),2,-1):next:for CJJJJJC=0 to 1:for CJJJCJC=0 to 4:if CCJJCCJ(CJJJJJC,1)>0 then
CCJJCCJ(CJJJJJC,CJJJCJC+7)=formatnumber(CCJJCCJ(CJJJJJC,CJJJCJC+2)/CCJJCCJ(CJJJJJC,1),2,-1)
else
CCJJCCJ(CJJJJJC,CJJJCJC+7)=CJJJCJCC("\")
end if:CCJJCCJ(CJJJJJC,CJJJCJC+12)=mid(CCJJCCJ(CJJJJJC,CJJJCJC+12),3):next:next:Response.Write(vbCrLf):Response.Write(CJJJCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJCC("k9625m") & vbCrLf):Response.Write(CJJJCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCJCC("kE:E=6m")):Response.Write  CCJJJCC:Response.Write(CJJJCJCC("\")):Response.Write  CCCJCJC:Response.Write(CJJJCJCC("????????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCJCC("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(CJJJCJCC("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("k^9625m") & vbCrLf):Response.Write(CJJJCJCC("k3@5Jm") & vbCrLf):Response.Write(CJJJCJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJCJCC(" ,k9`mkD>2==m")):Response.Write  CCJJJCC:Response.Write(CJJJCJCC("k^D>2==mk3Cm")):Response.Write  CCCJCJC:Response.Write(CJJJCJCC("????????????k^9`m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??????????????Wpp%X??????????????????????????????????????????????,????????????????,??,??????????????????????????????????????????????????????,??????@??????????????????????????,??????????????????,??????????????????????,??????????@??????????????????????????????,??????????@??????????@??????????????,??????????????????????????????????????????????????????????,????????????????????????????????????????????????????????,??????????????????????????????????????,????????@????????????????????????????????????????????????????????????????????????,????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAmpp%??,????,??????,????????????,??????????????????????????????,????dd????????,??@????????????,??????????,??????????,??????????,??????????@????????????@????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm")):Response.Write  formatdatetime(CCJCJJC,1):Response.Write(CJJJCJCC("??,")):Response.Write  formatdatetime(CCJCJCJ,1):Response.Write(CJJJCJCC("k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m??????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJJJC=0 to ubound(CCJJCJC):if CCJJCJC(CJJJJJC,2)>0 and CCJJCJC(CJJJJJC,3)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,1):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,2):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,3):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,4):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCJCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm??????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm") & vbCrLf):Response.Write(CJJJCJCC(" ,????????????????????????")):Response.Write  CCJCCJC(5,11):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):if CCJCCJC(5,11)<=34 then
Response.Write CJJJCJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJCCJC(5,11)<=44 then
Response.Write CJJJCJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJCCJC(5,11)<=54 then
Response.Write CJJJCJCC("????????????????????????,??????????????????????????????????????????????,")
elseif CCJCCJC(5,11)<=64 then
Response.Write CJJJCJCC("????????????????????????,??????????????????????????????????????????????,")
else
Response.Write CJJJCJCC("????????????????????????,??????????????????????????????????????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm") & vbCrLf):Response.Write(CJJJCJCC(" ,????????")):Response.Write  CCJJCCC:Response.Write(CJJJCJCC("??????,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(5,4):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(5,9),2,-1):Response.Write(CJJJCJCC("??,????????????????????fT??,")):Response.Write  IIf(CCJCCJC(5,9)>=CCJJJCJ(4),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(5,9)-CCJJJCJ(4)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(5,3):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(5,8),2,-1):Response.Write(CJJJCJCC("??,????????????????????acT??,")):Response.Write  IIf(CCJCCJC(5,8)>=CCJJJCJ(3),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(5,8)-CCJJJCJ(3)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(5,2):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(5,7),2,-1):Response.Write(CJJJCJCC("??,??????????????bgT??,")):Response.Write  IIf(CCJCCJC(5,7)>=CCJJJCJ(2),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(5,7)-CCJJJCJ(2)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(5,1):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(5,6),2,-1):Response.Write(CJJJCJCC("??,??????????????acT??,")):Response.Write  IIf(CCJCCJC(5,6)>=CCJJJCJ(1),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(5,6)-CCJJJCJ(1)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(5,0):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(5,5),2,-1):Response.Write(CJJJCJCC("??,??????????????fT??,")):Response.Write  IIf(CCJCCJC(5,5)>=CCJJJCJ(0),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(5,5)-CCJJJCJ(0)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm??????????,???????,?,???????,?,??????????????,??????????,???,?,???????,?,????????????????????,???,?,????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm????????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CJJJCJCC(",V????V[V????????V.")
for CJJJJJC=4 to 0 step -1:CJJJCCJ=CJJJJJC+5:CCJJCJJ=CCJJCJJ & CJJJCJCC("[,") & formatnumber(CCJCCJC(5,CJJJCCJ)*100,2,-1) & CJJJCJCC("[") & CCJJJCJ(CJJJJJC)*100 & CJJJCJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl????M????M????M????M????UGl")):Response.Write  CCJJCJJ:Response.Write(CJJJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJJJC=0 to 4:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k9bm")):Response.Write  CJJJJJC+2 & CJJJCJCC("??,") & CCJJJJJ(CJJJJJC):Response.Write(CJJJCJCC("k^9bm") & vbCrLf):Response.Write(CJJJCJCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm")):Response.Write  CCJJJJC(CJJJJJC):Response.Write(CJJJCJCC("k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm") & vbCrLf):Response.Write(CJJJCJCC(" ,????")):Response.Write  CCJJJJJ(CJJJJJC):Response.Write(CJJJCJCC("????????????????")):Response.Write  CCJCCJC(CJJJJJC,11):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):if CCJCCJC(CJJJJJC,11)<=34 then
Response.Write CJJJCJCC("????????????????????????,????????????") & CCJJJJJ(CJJJJJC) & CJJJCJCC("????????????????????????,")
elseif CCJCCJC(CJJJJJC,11)<=44 then
Response.Write CJJJCJCC("????????????????????????,????????????") & CCJJJJJ(CJJJJJC) & CJJJCJCC("????????????????????????,")
elseif CCJCCJC(CJJJJJC,11)<=54 then
Response.Write CJJJCJCC("????????????????????????,????????????") & CCJJJJJ(CJJJJJC) & CJJJCJCC("????????????????????????,")
elseif CCJCCJC(CJJJJJC,11)<=64 then
Response.Write CJJJCJCC("????????????????????????,????????????") & CCJJJJJ(CJJJJJC) & CJJJCJCC("????????????????????????,")
else
Response.Write CJJJCJCC("????????????????????????,????????????") & CCJJJJJ(CJJJJJC) & CJJJCJCC("????????????????????????,")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm") & vbCrLf):Response.Write(CJJJCJCC(" ,????????")):Response.Write  CCJJCCC:Response.Write(CJJJCJCC("??????,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(CJJJJJC,4):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(CJJJJJC,9),2,-1):Response.Write(CJJJCJCC("??,????????????????????fT??,")):Response.Write  IIf(CCJCCJC(CJJJJJC,9)>=CCJJJCJ(4),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(CJJJJJC,9)-CCJJJCJ(4)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(CJJJJJC,3):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(CJJJJJC,8),2,-1):Response.Write(CJJJCJCC("??,????????????????????acT??,")):Response.Write  IIf(CCJCCJC(CJJJJJC,8)>=CCJJJCJ(3),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(CJJJJJC,8)-CCJJJCJ(3)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(CJJJJJC,2):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(CJJJJJC,7),2,-1):Response.Write(CJJJCJCC("??,??????????????bgT??,")):Response.Write  IIf(CCJCCJC(CJJJJJC,7)>=CCJJJCJ(2),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(CJJJJJC,7)-CCJJJCJ(2)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(CJJJJJC,1):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(CJJJJJC,6),2,-1):Response.Write(CJJJCJCC("??,??????????????acT??,")):Response.Write  IIf(CCJCCJC(CJJJJJC,6)>=CCJJJCJ(1),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(CJJJJJC,6)-CCJJJCJ(1)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Response.Write  CCJCCJC(CJJJJJC,0):Response.Write(CJJJCJCC("????????????????,????")):Response.Write  formatpercent(CCJCCJC(CJJJJJC,5),2,-1):Response.Write(CJJJCJCC("??,??????????????fT??,")):Response.Write  IIf(CCJCCJC(CJJJJJC,5)>=CCJJJCJ(0),CJJJCJCC("????"),CJJJCJCC("????")):Response.Write(CJJJCJCC("??")):Response.Write  formatpercent(Abs(CCJCCJC(CJJJJJC,5)-CCJJJCJ(0)),2,-1):Response.Write(CJJJCJCC("??,") & vbCrLf):Response.Write(CJJJCJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm??????????,?,?,???????,?,??????????????????????,?????,?,??,?,?,??,?,?,????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CJJJCJCC(",V????V[V????????V.")
for CJJJCJC=4 to 0 step -1:CJJJCCJ=CJJJCJC+5:CCJJCJJ=CCJJCJJ & CJJJCJCC("[,") & formatnumber(CCJCCJC(CJJJJJC,CJJJCCJ)*100,2,-1) & CJJJCJCC("[") & CCJJJCJ(CJJJCJC)*100 & CJJJCJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl????M????M????M????M????UGl")):Response.Write  CCJJCJJ:Response.Write(CJJJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am????,??????????????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJJJC=0 to 4:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJJJJ(CJJJJJC):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJCCJC(CJJJJJC,11):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJCCJC(CJJJJJC,12):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CJJJCJCC("LV|Vi,")
for CJJJJJC=0 to 4:if CJJJJJC>0 then CCJJCJJ=CCJJCJJ & CJJJCJCC("[")
CCJJCJJ=CCJJCJJ & CCJCCJC(CJJJJJC,11):next:CCJJCJJ=CCJJCJJ & CJJJCJCC(".[V$sVi,")
for CJJJJJC=0 to 4:if CJJJJJC>0 then CCJJCJJ=CCJJCJJ & CJJJCJCC("[")
CCJJCJJ=CCJJCJJ & CCJCCJC(CJJJJJC,12):next:CCJJCJJ=CCJJCJJ & CJJJCJCC(".N"):Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CUIl????????M????????M????????M????????M??????????@??UGl")):Response.Write  CCJJCJJ:Response.Write(CJJJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????^????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CJJJCJCC(","):CCJCCJJ="":for CJJJJJC=0 to ubound(CCJJCJC):if CCJJCJC(CJJJJJC,3)>0 then
Response.Write CJJJCJCC("kE9m") & CCJJCJC(CJJJJJC,1) & CJJJCJCC("??,") & CCJJCJC(CJJJJJC,3) & CJJJCJCC("????,k^E9m"):CCJCCJJ=CCJCCJJ & CJJJCJCC("[V") & CCJJCJC(CJJJJJC,1) & CJJJCJCC("V")
end if:next:CCJJCJJ=CCJJCJJ & mid(CCJCCJJ,2) & CJJJCJCC("."):Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE9m??????????????,!k_]_d??,k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJJJC=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJJJJ(CJJJJJC):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CCJJCJJ & CJJJCJCC("[,"):CCJCCJJ="":for CJJJCJC=0 to ubound(CCJJCJC):if CCJJCJC(CJJJCJC,3)>0 then
Response.Write CJJJCJCC("kE5m") & CCJJCJC(CJJJCJC,CJJJJJC+11) & CJJJCJCC("k^E5m"):CCJCCJJ=CCJCCJJ & CJJJCJCC("[") & CCJJCJC(CJJJCJC,CJJJJJC+11)
end if:next:CCJJCJJ=CCJJCJJ & mid(CCJCCJJ,2) & CJJJCJCC("."):CCJCCJJ="":for CJJJCJC=0 to ubound(CCJJCJC):if CCJJCJC(CJJJCJC,3)>0 then
CCJCCJJ=CCJCCJJ & CJJJCJCC("M") & CCJJCJC(CJJJCJC,CJJJJJC+17)
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,4=2DDlQA\G2=F6Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  mid(CCJCCJJ,2):Response.Write(CJJJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCC(" ,k3Cm") & vbCrLf):Response.Write(CJJJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UIl????????M????????M????????M????????M??????????@??M????UGl")):Response.Write  CCJJCJJ:Response.Write(CJJJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??,????????????????????????????????????,????????????????????,????????,??,??,??????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm????????????????????????????????,????????,??????????????????????????????????,????????,??????????????????,??????????,??????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??,??????????????????????????????????,??????????????,????????,????????????????????????????????@????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm????????????????????????????,????????,??????????????????????????????????????,????????????,??????????????????,??????????,????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??????????????????@??????????????????,????????,????????????????????????????????????????????@????????,????????????,??????????????????,??????????,??????????????????????????????????????????????@????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,kAm??????????????????????,????????,????????????????????,????????????????????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k9am??,??,??????????????k^9am") & vbCrLf):Response.Write(CJJJCJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJCJCC=true:for CJJJJJC=0 to 1:if CCJJCCJ(CJJJJJC,1)<2 then CCJCJCC=false
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE9m")):Response.Write  CCJJCCJ(CJJJJJC,0):Response.Write(CJJJCJCC("??,")):Response.Write  CCJJCCJ(CJJJJJC,1):Response.Write(CJJJCJCC("????,k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE9m??????????????,!k_]_d??,k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJJJC=0 to 4:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJJJJ(CJJJJJC):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):for CJJJCJC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CCJJCCJ(CJJJCJC,CJJJJJC+7):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,4=2DDlQA\G2=F6Q ,52E2\42=lQ")):Response.Write  CCJCJCC:Response.Write(CJJJCJCC("Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  CCJJCCJ(0,CJJJJJC+12) & CJJJCJCC("M") & CCJJCCJ(1,CJJJJJC+12):Response.Write(CJJJCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCC(" ,")):CCJJCJJ=CJJJCJCC(",V??V[V??V.")
for CJJJJJC=0 to 4:CCJJCJJ=CCJJCJJ & CJJJCJCC("[,") & CCJJCCJ(0,CJJJJJC+7) & CJJJCJCC("[") & CCJJCCJ(1,CJJJJJC+7) & CJJJCJCC("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnIl????????M????????M????????M????????M??????????@??UGl")):Response.Write  CCJJCJJ:Response.Write(CJJJCJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJCJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCJJJCC:Response.Write(CJJJCJCC(" ,U>:55@Ej ,")):Response.Write  CCCJCJC:Response.Write(CJJJCJCC("????????????k^5:Gm") & vbCrLf):Response.Write(CJJJCJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJCJCC(" ,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(CJJJCJCC(" ,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(CJJJCJCC(" ,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(CJJJCJCC(" ,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(CJJJCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJCJCC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJCJCC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJCJCC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJCJCC(" ,E:E=6iV?? ,??V[") & vbCrLf):Response.Write(CJJJCJCC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJCJCC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJCJCC(" ,NX") & vbCrLf):Response.Write(CJJJCJCC(" ,^^ ,????????????") & vbCrLf):Response.Write(CJJJCJCC(" ,SWV]2>\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CJJJCJCC(" ,4@?E6?EiV??????,????????????????????????@??????,??????????,????????(@C5????????????????????,V[") & vbCrLf):Response.Write(CJJJCJCC(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CJJJCJCC(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CJJJCJCC(" ,NX") & vbCrLf):Response.Write(CJJJCJCC(" ,^^ ,????!??") & vbCrLf):Response.Write(CJJJCJCC(" ,G2C ,AC@8C6DD ,l ,S]p|&x]AC@8C6DD") & vbCrLf):Response.Write(CJJJCJCC(" ,SW5@4F>6?EX]2;2I$E2CEW7F?4E:@?WX ,LAC@8C6DD]DE2CEWXNX") & vbCrLf):Response.Write(CJJJCJCC(" ,SW5@4F>6?EX]2;2I$E@AW7F?4E:@?WX ,LAC@8C6DD]5@?6WXNX") & vbCrLf):Response.Write(CJJJCJCC(" ,SWVE5]A\G2=F6VX]92DWV:?AFEVX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJCC(" ,G2C ,SE5lSWE9:DX") & vbCrLf):Response.Write(CJJJCJCC(" ,:7WSE5]52E2WV42=VXlllVu2=D6VXLSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJCJCC(" ,6=D6L") & vbCrLf):Response.Write(CJJJCJCC(" ,G2C ,5lSE5]49:=5C6?WV:?AFEVX]G2=WX") & vbCrLf):Response.Write(CJJJCJCC(" ,S]A@DEWV^2A:^!0'2=F6]2D9IV[L5i5N[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJCJCC(" ,AC@8C6DD]:?4WX") & vbCrLf):Response.Write(CJJJCJCC(" ,:7W;D@?]4@56lll_XLSE5]E6IEW;D@?]52E2k_]_dnV??ViV??VXN") & vbCrLf):Response.Write(CJJJCJCC(" ,6=D6LSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJCJCC(" ,NX") & vbCrLf):Response.Write(CJJJCJCC(" ,N") & vbCrLf):Response.Write(CJJJCJCC(" ,NX") & vbCrLf):Response.Write(CJJJCJCC("NX") & vbCrLf):Response.Write(CJJJCJCC("k^D4C:AEm") & vbCrLf)::Function CJJJCJJC(ByVal CJCJJJJJ):Dim CJJJJJC, CCJCCCJ, CCJCCCC, CCCJJJJ, CCCJJJC, CCCJJCJ:CCJCCCJ = UBound(CJCJJJJJ) + 1:CCJCCCC = 0:For CJJJJJC = 0 To CCJCCCJ - 1:CJCJJJJJ(CJJJJJC) = CDbl(CJCJJJJJ(CJJJJJC)):CCJCCCC = CCJCCCC + CJCJJJJJ(CJJJJJC):Next:CCCJJJJ = CCJCCCC / CCJCCCJ:CCCJJJC = 0:For CJJJJJC = 0 To CCJCCCJ - 1:CCCJJJC = CCCJJJC + (CJCJJJJJ(CJJJJJC) - CCCJJJJ) ^ 2:Next:CCCJJCJ = Sqr(CCCJJJC / CCJCCCJ):CJJJCJJC = Array(CCCJJJJ, CCCJJCJ):End Function:Response.Write(vbCrLf):Response.Write(CJJJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCJ=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJJC.Close:Set CJCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJCC(ByVal CJJJCJCJ)
Dim CCJJCJJ, CJJJJJC, CJJJCCC
CJJJCJCJ = Replace(CJJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJJC = 1 To Len(CJJJCJCJ)
If CJJJJJC <> CJJJCCC Then
CCJJCJJ = AscW(Mid(CJJJCJCJ, CJJJJJC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CJJJCJCC = CJJJCJCC & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CJJJCJCC = CJJJCJCC & Chr(CCJJCJJ - 47)
Else
CJJJCCC = CJJJJJC + 1
If Mid(CJJJCJCJ, CJJJCCC, 1) = Chr(64) Then CJJJCJCC = CJJJCJCC & ChrW(CCJJCJJ + 5) Else CJJJCJCC = CJJJCJCC & Mid(CJJJCJCJ, CJJJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de