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

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de