Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de