Edit D:\xinhaisoft\crisis_new\lb\report

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de