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

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de