Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de