Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJJJCJJC("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJJJCJJC("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJJJCJJC("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJJJCJJC("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") & CCJJJJ & CJJJCJJC("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJJJCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJJJCJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:Sub CheckRight(CJJJCJCJ):dim CJJJJCJ,CJJJJCC:if CJCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJJC("??????????????,????????????,"))
elseIf not CCCJCJJ(CJJJCJCJ) then
Call RedirectMessage(CJJJCJJC("????W") & CJJJCJCJ & CJJJCJJC("X????????,????????????????????,"))
end if:End Sub:Function CCCJCJJ(CJJJCJCJ):dim CJJJJCJ,CJJJJCC:CJJJJCC=split(CJJJCJCJ,CJJJCJJC("[")):CCCJCJJ=False:for CJJJJCJ=0 to ubound(CJJJJCC):If Mid(CCJJJC,CJJJJCC(CJJJJCJ),1)="1" then
CCCJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJJC("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJJ,CJJJCJC,CJJJJCJ,CJJJCCJ,CJJJCCC:CJJJCJJ=split(CJJJJJC,CJJJCJJC("]")):if ubound(CJJJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJJ(0)) or len(CJJJCJJ(1))<>32 or len(CJJJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCJC=CJJJCJJ(1):for CJJJJCJ=1 to len(CJJJCJC):CJJJCCJ=mid(CJJJCJC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJC=CJJJCJJ(2):if CJJJCCC<>mid(CJJJCJC,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJC,18,10)/2:if CJJJCCJ<DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJCJJ(0)):CCJJJJ=CJJJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCJJ,CJJJCJCC):dim CJJJJCJ,CJJJCCJ,CJJJCCC:for CJJJJCJ=1 to len(CJJJCJCC):CJJJCCJ=mid(CJJJCJCC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCCCCJJ & CJJJCJJC("]") & CJJJCJCC & CJJJCJJC("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJJC("!$*|t|qt#"))=CJJJCCC:End Sub::::Const CCCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJJC("FE7\g"):dim CJJJJCJ,CJJJCCJ,CJJCJJJ:if isarray(str) then
on error resume next:CJJJJCJ=ubound(str,2):CJJCJJJ=err.number:err.clear:on error goto 0:if CJJCJJJ<>0 then
for CJJJJCJ=0 to ubound(str):if CJJJJCJ>0 then response.Write CJJJCJJC("k3C ,^m")
response.Write CJJJJCJ & CJJJCJJC("i ,") & str(CJJJJCJ):next
else
response.Write CJJJCJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCJ=0 to ubound(str,2):response.Write CJJJCJJC("kE9 ,2=:8?lV=67EVm") & CJJJJCJ & CJJJCJJC("k^E9m")
next:response.Write CJJJCJJC("k^ECm"):for CJJJJCJ=0 to ubound(str):response.Write CJJJCJJC("kECmkE9m") & CJJJJCJ & CJJJCJJC("k^E9m"):for CJJJCCJ=0 to ubound(str,2):response.Write CJJJCJJC("kE5m") & str(CJJJJCJ,CJJJCCJ) & CJJJCJJC("k^E5m"):next:response.Write CJJJCJJC("k^ECm"):next:response.Write CJJJCJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCJJ,CJJJCCJC):dim CJJJCJJ:CJJJCJJ=CJJJCCJJ & CJJJCJJC("l") & CJJJCCJC & CJJJCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJJC("$6E\r@@<:6"),CJJJCJJ):End Sub::::::sub ShowMessage(CJJJCCCJ):response.Charset="utf-8":Response.Write CJJJCJJC("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") & CJJJCCCJ & CJJJCJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJCJC(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then
CCCJCJC=false
else
Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CJJJCJJC("/-5ZS"):CJJCJJC.IgnoreCase = True:CCCJCJC = CJJCJJC.test(CJJCJJJ):set CJJCJJC=nothing
end if:End Function:Function CCCJCCJ(CJJJCCCC):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CJJJCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCC & CJJJCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJCJ.execute(CJJCJCJ):CCCJCCJ = CJJCJCC(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJJCJCC.close : set CJJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJJC("!$*0|6DD286"),server.URLEncode(CJJJCCCJ)):Response.Redirect CJJJCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJJJ,CJJCJJJC):dim str,CJJCJJJ:str=CJJJCJJC("!$*0") & Ucase(CJJCJJJJ):if Session(str)<>"" then
CJJCJJJ=DateDiff(CJJJCJJC("D"),Session(str),Time):if CJJCJJJ<CJJCJJJC and CJJCJJJ>0 then
Call ConnClose:Call ShowMessage(CJJJCJJC("??????????@?????? ,") & CJJCJJJC & CJJJCJJC(" ,????,???? ,") & CJJCJJJC-CJJCJJJ & CJJJCJJC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCJJCJ):Application.Contents.Remove CJJCJJCJ
End Sub::Class jTree:Private CJCCCJ, CJJCCJC, CJJCCCJ, CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Private Sub Class_Initialize():CJJCCCJ = 0:CJJCCCC = 0:CJCJJCC=10:End Sub:Public Property Let Table(CJJCJJCC):if CJJCJJCC="" then Call RedirectMessage(CJJJCJJC("????????,;%C66????????????????????@??????????,"))
CJCJJJJ=CJJCJJCC:CJCJJJC=CJJJCJJC("!$*0") & UCase(CJCJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJJ:End Property:::Private Sub GetTreeArray():Dim CJJJJCJ, CJJJCCJ, CJCJCJJ,CJCJCJC:CJJCCJC = Application(CJCJJJC):If Not IsArray(CJJCCJC) Then
CJCCCJ = CJJJCJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJJ:if CJCJJCJ<>"" then CJCCCJ=CJCCCJ & CJJJCJJC(" ,H96C6 ,") & CJCJJCJ
set CJCJCJJ=CJCJCJ.execute(CJCCCJ):CJCJCJC=CJCJCJJ(0):if CJCJCJC=0 then Call RedirectMessage(CJJJCJJC("????W") & CJCJJJJ & CJJJCJJC("^") & CJCJJCJ & CJJJCJJC("X????????????"))
CJJCCCC=CJCJCJC+CJCJJCC:ReDim CJJCCJC(CJJCCCC, 4):CJCCCJ = CJJJCJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H:E9 ,W?@=@4<X"):if CJCJJCJ<>"" then CJCCCJ=CJCCCJ & CJJJCJJC(" ,H96C6 ,") & CJCJJCJ
CJCCCJ=CJCCCJ & CJJJCJJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=CJCJCJ.execute(CJCCCJ):For CJJJJCJ = 1 To CJCJCJC:For CJJJCCJ = 0 To 4:CJJCCJC(CJJJJCJ, CJJJCCJ) = CJCJCJJ(CJJJCCJ):if IsNull(CJJCCJC(CJJJJCJ,4)) then CJJCCJC(CJJJJCJ,4)=0
If CJJCCJC(CJJJJCJ,2)="" then CJJCCJC(CJJJJCJ,2)=CJJJCJJC(",??.")
Next:CJCJCJJ.MoveNext:Next:CJCJCJJ.Close: Set CJCJCJJ = Nothing:for CJJJJCJ=CJJCCCC-(CJCJJCC-1) to CJJCCCC:CJJCCJC(CJJJJCJ,0)=CJJJJCJ:next:Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
else
CJJCCCC=Ubound(CJJCCJC)
End If:End Sub::::Public Function GetChild(CCCCCJJ):Dim CJJJJCJ, Str:CCCCCJJ=CLng(CCCCCJJ):For CJJJJCJ = 1 To CJJCCCC:If CJJCCJC(CJJJJCJ, 1) = CCCCCJJ Then Str = Str & CJJJCJJC("M") & CJJCCJC(CJJJJCJ, 0) & CJJJCJJC("M") & CJJCCJC(CJJJJCJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCJJC("M")):End Function:Private Function CCCCCCJ(CCCCCJJ):dim CJJJJCJ,CJCJCCJ:CCCCCCJ=0:CJCJCCJ=CStr(CCCCCJJ):if CJCJCCJ<>"0" then
for CJJJJCJ=1 to CJJCCCC:If CStr(CJJCCJC(CJJJJCJ, 0))=CJCJCCJ Then
CCCCCCJ = CJJJJCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCCCJJ):if Cstr(CCCCCJJ)="0" then
GetCurName=CJJJCJJC("??")
else
Dim CJJJJCJ,CJCJCJJ:CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJJJCJ>0 then
GetCurName=CJJCCJC(CJJJJCJ,2):if GetCurName="" then
set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then Call RedirectMessage(CJJJCJJC("xs??,") & CCCCCJJ & CJJJCJJC("??,??????"))
GetCurName=CJCJCJJ(1):Call UpdateCache(CCCCCJJ,CJCJCJJ(0),GetCurName,CJCJCJJ(2),CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if
else
set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then Call RedirectMessage(CJJJCJJC("xs??,") & CCCCCJJ & CJJJCJJC("??,??????"))
GetCurName=CJCJCJJ(1):Call UpdateCache(CCCCCJJ,CJCJCJJ(0),GetCurName,CJCJCJJ(2),CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if
end if:End Function:::Public Function CJJJJJJJ(CCCCCJJ):Dim CJJJJCJ,CJCJCCC:CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJJJCJ=0 then
CJCJCCC=CJJJJJJC(CCCCCJJ)
else
CJCJCCC=CJJCCJC(CJJJJCJ,3):if isnull(CJCJCCC) or CJCJCCC="" then
CJCJCCC=CJJJJJJC(CCCCCJJ)
elseif Mid(CJCJCCC,instrrev(CJCJCCC,CJJJCJJC("["))+1)<>CStr(CCCCCJJ) then
CJCJCCC=CJJJJJJC(CCCCCJJ)
elseif Left(CJCJCCC,1)=CJJJCJJC("[") then
CJCJCCC=CJJJJJJC(CCCCCJJ)
end if
end if:CJJJJJJJ=CJCJCCC:End Function:Private Function CJJJJJJC(CCCCCJJ):dim CJCJCCJ:CJCJCCJ=CStr(CCCCCJJ):if CJCJCCJ="0" then
CJJJJJJC=""
else
dim CJCJCJJ:set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then
Call UpdateCache(CCCCCJJ,"","","",""):Call RedirectMessage(CJJJCJJC("??????,xs??,") & CCCCCJJ & CJJJCJJC("??,????????,????????????????????,"))
else
if CJCJCJJ(0)=0 then
CJJJJJJC="0," & CCCCCJJ
else
CJJJJJJC=CJJJJJJJ(CJCJCJJ(0)) & CJJJCJJC("[") & CCCCCJJ
end if:if CJCJCJJ(2)<>CJJJJJJC then
CJCJCJ.execute CJJJCJJC("FA52E6 ,") & CJCJJJJ & CJJJCJJC(" ,D6E ,A2E9lV") & CJJJJJJC & CJJJCJJC("V ,H96C6 ,:5l") & CCCCCJJ
else
CJJJJJJC=CJCJCJJ(2)
end if
end if:Call UpdateCache(CCCCCJJ,CJCJCJJ(0),CJCJCJJ(1),CJJJJJJC,CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if:End Function::::Public Function IsParent(CJJCJCJJ, CJJCJCJC):IsParent=InStr(CJJJJJJJ(CJJCJCJC) & CJJJCJJC("["), CJJJCJJC("[") & CJJCJCJJ & CJJJCJJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCCCJJ):dim CJCJCCC:CJCJCCC=CJJJJJJJ(CCCCCJJ):Sql_GetChildren = CJCJJJJ & CJJJCJJC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCC & CJJJCJJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJC
End Sub:Public Sub UpdateCache(CCCCCJJ,CJJCJCCJ,CJJCJCCC,CJCJCCC,CJJCCJJJ):dim CJJJJCJ,CJJJCCJ:CCCCCJJ=CLng(CCCCCJJ):CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJCJCCJ="" and CJJCJCCC="" and CJCJCCC="" and CJJCCJJJ="" then
if CJJJJCJ>0 then
for CJJJCCJ=1 to 4:CJJCCJC(CJJJJCJ,CJJJCCJ)=Null:next
end if
else
if CJJJJCJ=0 then
for CJJJCCJ=1 to CJJCCCC:if CJJCCJC(CJJJCCJ,1) & ""="" then
CJJJJCJ=CJJJCCJ:exit for
end if:next
end if:if CJJJJCJ=0 then
Call ClearCache
else
CJJCCJC(CJJJJCJ,0)=CLng(CCCCCJJ):if CJJCJCCJ<>"" then CJJCCJC(CJJJJCJ,1)=CLng(CJJCJCCJ)
if CJJCJCCC<>"" then CJJCCJC(CJJJJCJ,2)=CJJCJCCC
if CJCJCCC<>"" then CJJCCJC(CJJJJCJ,3)=CJCJCCC
if CJJCCJJJ<>"" then CJJCCJC(CJJJJCJ,4)=CLng(CJJCCJJJ)
end if
end if:if CJJJJCJ>0 then
Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCJ):Call ConnClose:Response.Write CJJJCCCJ:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CJJCJCC:set CJJCJCC=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CJJCJCC(0):CJJCJCC.Close: Set CJJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJJCJ=154:Const CCCJJCC="???????????":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCJJC("%6DE0#6A@CE"),15):dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:CJCCCJC=Request.QueryString(CJJJCJJC("$49@@=")):CJCCJJJ=Request.QueryString(CJJJCJJC("s6AE")):CJCCJJC=Request.QueryString(CJJJCJJC("vC256")):CJCCJCJ=Request.QueryString(CJJJCJJC("vC@FA")):CJCCCCJ=Request.QueryString(CJJJCJJC("E6DEEJA6")):CJCCJCC=Request.QueryString(CJJJCJJC("E`")):CJCCCJJ=Request.QueryString(CJJJCJJC("Ea")):if not CCCJCJC(CJCCJJJ) then Call RedirectMessage(CJJJCJJC("????????,??????????????,"))
dim CJJCCJC:set CJJCCJC=new jtree:CJJCCJC.table=CJJJCJJC(">6>36C0EJA6"):if not CJJCCJC.IsParent(CCJJCJ,CJCCJJJ) then Call RedirectMessage(CJJJCJJC("??????W") & CJCCJJJ & CJJJCJJC("X??????W") & CCJJCJ & CJJJCJJC("X????????????@??,"))
dim CJJJJCJC:CJJJJCJC=CJJCCJC.GetChild(CJCCJJJ):if ubound(CJJJJCJC)<0 then Call RedirectMessage(CJJJCJJC("??????????????????????,"))
dim CJCCCCC:CJCCCCC=CJJCCJC.GetCurName(CJCCJJJ):dim CJJJJCJ,CJJJCCJ,CJJJCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:dim CCJJJCC():redim CCJJJCC((ubound(CJJJJCJC)-1)/2,8):for CJJJJCJ=0 to ubound(CJJJJCJC)-1 step 2:CJJJCCC=CJJJJCJ/2:CCJJJCC(CJJJCCC,0)=CJJJJCJC(CJJJJCJ):CCJJJCC(CJJJCCC,1)=CJJJJCJC(CJJJJCJ+1):for CJJJCCJ=2 to ubound(CCJJJCC,2):CCJJJCC(CJJJCCC,CJJJCCJ)=0:next:CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJCCC,1):next:CCJJJJJ=mid(CCJJJJJ,2):dim CCJJCJJ(1,1):CCJJCJJ(0,0)=CJJJCJJC("??"):CCJJCJJ(1,0)=CJJJCJJC("??"):for CJJJJCJ=0 to 1:CCJJCJJ(CJJJJCJ,1)=0:next:dim CJJJJCC,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCCC=Date:CCJCJJJ=cdate(CJJJCJJC("a___\`\`")):dim CCJCJCJ(5,7):for CJJJJCJ=0 to ubound(CCJCJCJ):for CJJJCCJ=0 to ubound(CCJCJCJ,2):CCJCJCJ(CJJJJCJ,CJJJCCJ)=0:next:next:CJCCCJ=CJJJCJJC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJJCJ & CJJJCJJC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJJJ)=cstr(CJCCCJC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCJC else CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,") & CJJCCJC.Sql_GetChildren(CJCCJJJ)
if CCCJCJC(CJCCJJC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,8C256l") & CJCCJJC
if CCCJCJC(CJCCJCJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCJ
if CCCJCJC(CJCCCCJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,EJA6l") & CJCCCCJ
if isdate(CJCCJCC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,52E6E:>6mlV") & CJCCJCC & CJJJCJJC("V")
if isdate(CJCCCJJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCJJ)+1 & CJJJCJJC("V")
set CJCCJJ=CJCJCJ.execute(CJCCCJ):if CJCCJJ.eof then Call RedirectMessage(CJJJCJJC("????????,????????????????,"))
while not CJCCJJ.eof:CJJJJCC=split(CJCCJJ(4),CJJJCJJC("M")):for CJJJJCJ=0 to 5:CJJJCCC=CJJJJCC(CJJJJCJ):CCJCJCJ(CJJJJCJ,CJJJCCC)=CCJCJCJ(CJJJJCJ,CJJJCCC)+1:next:CJJJJCC=split(CJCCJJ(5),CJJJCJJC("M")):for CJJJJCJ=0 to 5:CCJCJCJ(CJJJJCJ,5)=CCJCJCJ(CJJJJCJ,5) & CJJJCJJC("M") & CJJJJCC(CJJJJCJ):next:for CJJJJCJ=0 to ubound(CCJJJCC):if instr(CJCCJJ(0) & CJJJCJJC("["),CJJJCJJC("[") & CCJJJCC(CJJJJCJ,0) & CJJJCJJC("["))>0 then
CCJJJCC(CJJJJCJ,2)=CCJJJCC(CJJJJCJ,2)+1:for CJJJCCJ=0 to 5:CJJJCCC=CJJJCCJ+3:CCJJJCC(CJJJJCJ,CJJJCCC)=CCJJJCC(CJJJJCJ,CJJJCCC) & CJJJCJJC("M") & CJJJJCC(CJJJCCJ):next:exit for
end if:next:if CJCCJJ(1) then CJJJCCJ=0 else CJJJCCJ=1
CCJJCJJ(CJJJCCJ,1)=CCJJCJJ(CJJJCCJ,1)+1:CJJJCCC=CJCCJJ(3):if CJJJCCC<CCJJCCC then CCJJCCC=CJJJCCC
if CJJJCCC>CCJCJJJ then CCJCJJJ=CJJJCCC
CCJCJJC=CCJCJJC & CJJJCJJC("M") & CJCCJJ(2):CCJJCJC=CCJJCJC+1:CJCCJJ.movenext:wend:for CJJJJCJ=0 to 5:CJJJJCC=CJJJJCCC(split(Mid(CCJCJCJ(CJJJJCJ,5),3),CJJJCJJC("M"))):CCJCJCJ(CJJJJCJ,6)=FormatNumber(CJJJJCC(0),2,-1):CCJCJCJ(CJJJJCJ,7)=FormatNumber(CJJJJCC(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJJC("k9625m") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJJC("kE:E=6m")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC("\")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("^Y????????Y^") & vbCrLf):Response.Write(CJJJCJJC("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCJJC("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJCJJC("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CJJJCJJC("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCJJC("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJCJJC("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CJJJCJJC("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCJJC("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCJJC("^Y????????Y^") & vbCrLf):Response.Write(CJJJCJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("RA286\4@?E6?E ,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(CJJJCJJC("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("k^9625m") & vbCrLf):Response.Write(CJJJCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CJJJCJJC("Qm") & vbCrLf):Response.Write(CJJJCJJC("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9`m")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC("k3Cm")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("????????k^9`m") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????W????pp%X??,pp%??????????????????????????????????????????????,????????????????,??,????????????????????????????????????????????????????,??????@??????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAmpp%??,????,??????,????????????,??????????????????????????????,??@????????????,??????????,??????????,??????????,??????????@????????????@????,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm")):Response.Write  formatdatetime(CCJJCCC,1):Response.Write(CJJJCJJC("??,")):Response.Write  formatdatetime(CCJCJJJ,1):Response.Write(CJJJCJJC("k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):response.Write CJJJCJJC("??") & CCJJCJJ(0,1)+CCJJCJJ(1,1) & CJJJCJJC("????,????????") & CCJJCJJ(0,1) & CJJJCJJC("????,????") & CCJJCJJ(1,1) & CJJJCJJC("????,"):for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then response.Write CCJJJCC(CJJJJCJ,1) & CJJJCJJC("??,") & CCJJJCC(CJJJJCJ,2) & CJJJCJJC("????,")
next:CJJJJCC=CJJJJCCC(split(Mid(CCJCJJC,2),CJJJCJJC("M"))):response.Write CJJJCJJC("????????") & formatnumber(CJJJJCC(0),2,-1) & CJJJCJJC("????,??????") & formatnumber(CJJJJCC(1),2,-1) & CJJJCJJC("??,??,"):Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????????????????,????????????????????")):Response.Write  CCJCJCJ(5,6):Response.Write(CJJJCJJC("??,??????????????????????????")):Response.Write  CJJJJCCJ(CCJCJCJ(5,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(5,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(5,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(5,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(5,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(5,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(5,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(5,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(5,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(5,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(5,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm????????????????????????????????????????")):Response.Write  FormatPercent((CCJCJCJ(5,1)+CCJCJCJ(5,0))/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,????????????????????????????????????,??????????????????????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(5,0) & CJJJCJJC("[") & CCJCJCJ(5,1) & CJJJCJJC("[") & CCJCJCJ(5,2) & CJJJCJJC("[") & CCJCJCJ(5,3) & CJJJCJJC("[") & CCJCJCJ(5,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCJCJCJ(0,6):Response.Write(CJJJCJJC("??,??????????????????????????")):Response.Write  CJJJJCCJ(CCJCJCJ(0,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(0,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(0,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(0,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(0,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(0,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(0,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(0,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(0,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(0,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(0,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(0,0) & CJJJCJJC("[") & CCJCJCJ(0,1) & CJJJCJJC("[") & CCJCJCJ(0,2) & CJJJCJJC("[") & CCJCJCJ(0,3) & CJJJCJJC("[") & CCJCJCJ(0,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCJCJCJ(1,6):Response.Write(CJJJCJJC("??,??????????????????????????")):Response.Write  CJJJJCCJ(CCJCJCJ(1,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(1,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(1,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(1,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(1,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(1,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(1,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(1,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(1,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(1,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(1,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(1,0) & CJJJCJJC("[") & CCJCJCJ(1,1) & CJJJCJJC("[") & CCJCJCJ(1,2) & CJJJCJJC("[") & CCJCJCJ(1,3) & CJJJCJJC("[") & CCJCJCJ(1,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????????,????????????????????????????????,????????????????????????")):Response.Write  CCJCJCJ(2,6):Response.Write(CJJJCJJC("??,??????????????????????????")):Response.Write  CJJJJCCJ(CCJCJCJ(2,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(2,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(2,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(2,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(2,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(2,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(2,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(2,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(2,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(2,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(2,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(2,0) & CJJJCJJC("[") & CCJCJCJ(2,1) & CJJJCJJC("[") & CCJCJCJ(2,2) & CJJJCJJC("[") & CCJCJCJ(2,3) & CJJJCJJC("[") & CCJCJCJ(2,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????????????????????????????????????????????,????????????????????????")):Response.Write  CCJCJCJ(3,6):Response.Write(CJJJCJJC("??,??????????????????????????")):Response.Write  CJJJJCCJ(CCJCJCJ(3,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(3,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(3,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(3,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(3,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(3,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(3,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(3,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(3,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(3,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(3,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(3,0) & CJJJCJJC("[") & CCJCJCJ(3,1) & CJJJCJJC("[") & CCJCJCJ(3,2) & CJJJCJJC("[") & CCJCJCJ(3,3) & CJJJCJJC("[") & CCJCJCJ(3,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bme??,??????????@??k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??????????@??????????????????????????????????????????????@????????,??????????@??????????????????")):Response.Write  CCJCJCJ(4,6):Response.Write(CJJJCJJC("??,????????????????????????@??????")):Response.Write  CJJJJCCJ(CCJCJCJ(4,6)):Response.Write(CJJJCJJC("??????,??")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("??????,????")):Response.Write  CCJCJCJ(4,4):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(4,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(4,3):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(4,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(4,2):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(4,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(4,1):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(4,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,")):Response.Write  CCJCJCJ(4,0):Response.Write(CJJJCJJC("????????????????,????")):Response.Write  FormatPercent(CCJCJCJ(4,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJCJCJ(4,0) & CJJJCJJC("[") & CCJCJCJ(4,1) & CJJJCJJC("[") & CCJCJCJ(4,2) & CJJJCJJC("[") & CCJCJCJ(4,3) & CJJJCJJC("[") & CCJCJCJ(4,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am????,??????????????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(0,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(0,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(1,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(1,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(2,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(2,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(3,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(3,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m??????????@??k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(4,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(4,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl????????M????????M????????M????????M??????????@??UGl")):Response.Write  CCJCJCJ(0,6) & CJJJCJJC("[") & CCJCJCJ(1,6) & CJJJCJJC("[") & CCJCJCJ(2,6) & CJJJCJJC("[") & CCJCJCJ(3,6) & CJJJCJJC("[") & CCJCJCJ(4,6):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,8),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,??????????????????????,????????,????????????????????,????????????????????????????????????????,??????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,3),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,??,????????????????????????????????????,????????????????????,????????,??,??,??????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,4),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????,????????,??????????????????????????????????,????????,??????????????????,??????????,??????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,5),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,??,??????????????????????????????????,??????????????,????????,????????????????????????????????@????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,6),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????,????????,??????????????????????????????????????,????????????,??????????????????,??????????,????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bme??,??????????@??k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,7),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm??,??????????????????,??????????????????,??????????????????@??????????????????,????????,????????????????????????????????????????????@????????,????????????,??????????????????,??????????,??????????????????????????????????????????????@????,??,k^Am") & vbCrLf):Response.Write(CJJJCJJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k3Cm") & vbCrLf):Response.Write(CJJJCJJC("k3Cm") & vbCrLf):Response.Write(CJJJCJJC("k7@@E6Cm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ=Qm")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC(" ,U>:55@Ej ,")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("????????k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\AC:?EQm????????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\H@C5Qm??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\E@AQm??????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJCJJC("NX") & vbCrLf):Response.Write(CJJJCJJC("k^D4C:AEm") & vbCrLf)::Function CJJJJCCJ(CJJJCJCJ):dim CCJCJCC,CJJCJJJ:CJJCJJJ=csng(CJJJCJCJ):if CJJCJJJ<=34 then
CCJCJCC=CJJJCJJC("????")
elseif CJJCJJJ<=44 then
CCJCJCC=CJJJCJJC("????")
elseif CJJCJJJ<=54 then
CCJCJCC=CJJJCJJC("????")
elseif CJJCJJJ<=64 then
CCJCJCC=CJJJCJJC("????")
else
CCJCJCC=CJJJCJJC("????")
end if:CJJJJCCJ=CCJCJCC:End Function:Function CJJJJCCC(ByVal CJJCCJCJ):Dim CJJJJCJ, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCCCC, CCCJJJJ:CCJCCJJ = UBound(CJJCCJCJ) + 1:CCJCCJC = 0:For CJJJJCJ = 0 To CCJCCJJ - 1:CJJCCJCJ(CJJJJCJ) = CDbl(CJJCCJCJ(CJJJJCJ)):CCJCCJC = CCJCCJC + CJJCCJCJ(CJJJJCJ):Next:CCJCCCJ = CCJCCJC / CCJCCJJ:CCJCCCC = 0:For CJJJJCJ = 0 To CCJCCJJ - 1:CCJCCCC = CCJCCCC + (CJJCCJCJ(CJJJJCJ) - CCJCCCJ) ^ 2:Next:CCCJJJJ = Sqr(CCJCCCC / CCJCCJJ):CJJJJCCC = Array(CCJCCCJ, CCCJJJJ):End Function:Response.Write(vbCrLf):Response.Write(CJJJCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJJC(ByVal CJJJCJJJ)
Dim CCJJJJC, CJJJJCJ, CJJCJJJ
CJJJCJJJ = Replace(CJJJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCJ = 1 To Len(CJJJCJJJ)
If CJJJJCJ <> CJJCJJJ Then
CCJJJJC = AscW(Mid(CJJJCJJJ, CJJJJCJ, 1))
If CCJJJJC >= 33 And CCJJJJC <= 79 Then
CJJJCJJC = CJJJCJJC & Chr(CCJJJJC + 47)
ElseIf CCJJJJC >= 80 And CCJJJJC <= 126 Then
CJJJCJJC = CJJJCJJC & Chr(CCJJJJC - 47)
Else
CJJCJJJ = CJJJJCJ + 1
If Mid(CJJJCJJJ, CJJCJJJ, 1) = Chr(64) Then CJJJCJJC = CJJJCJJC & ChrW(CCJJJJC + 5) Else CJJJCJJC = CJJJCJJC & Mid(CJJJCJJJ, CJJJJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de