Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de