Edit D:\xinhaisoft\crisis_new\lb\report

Edit D:\xinhaisoft\crisis_new\lb\report_class\scl90.asp

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de