Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de