Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de