Edit D:\xinhaisoft\crisis_new\lb\report_dept\tqc

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de