Edit D:\xinhaisoft\crisis_new\lb\report

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCC, CJJCJJ,CJJCJC, CJJCCJ, CJJCCC:Set CJJJCC = server.CreateObject(CJJJJJJC("ps~sq]r@??64E:@?")):CJJJCC.open Application(CJJJJJJC("r@??64E:@?$EC:?8")):Set CJJCJJ=CJJJCC::Dim CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ:Dim CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ:CCCJCJ=Trim(Request.Cookies(CJJJJJJC("!$*|t|qt#"))):if CCCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJJJ>0 then
CJJCCC=CJJJJJJC("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") & CJCJJC & CJJJJJJC("V ,2?5 ,:5l") & CJCJJJ
set CJJCJC=CJJJCC.execute(CJJCCC):If CJJCJC.EOF Then
Call ClearMemberCookie
Else
CJCJCJ=CJJCJC(2) & "":CJCJCC=CJJCJC(3):CJCCJJ=CJJCJC(5):CJCCJC=CJJCJC(6):CJCCCJ=CJJCJC(9):CJCCCC=CJJCJC(15):CCJJJC=CJJCJC(0):CCCJJJ=CJJCJC(1):CCJCCC=CJJCJC(11) & "":CCJJCJ=CJJCJC(10) & "":CCJJJJ=CJJCJC(12):CCJJCC=CJJCJC(14):CCJCJJ=CJJCJC(13):CCJCJC=CJJCJC(7) & "":CCJCCJ=CJJCJC(4):CCCJJC=CJJCJC(8):if isnull(CJCCCC) then CJCCCC=0
if isnull(CJCCCJ) or CJCCCJ=0 then CJCCCJ=CJCJCC
if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CJCCJJ) then CJCCJJ=0
if instr(CJJJJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJC)>0 then Call RedirectMessage(CJJJJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJJJ,CJCJJC)
End IF
end if:Sub CheckRight(CJJJJJCJ):dim CCCJCC,CCCCJJ:if CJCJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJC("??????????????,????????????,"))
elseIf not CCJCCJJ(CJJJJJCJ) then
Call RedirectMessage(CJJJJJJC("????W") & CJJJJJCJ & CJJJJJJC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCJJ(CJJJJJCJ):dim CCCJCC,CCCCJJ:CCCCJJ=split(CJJJJJCJ,CJJJJJJC("[")):CCJCCJJ=False:for CCCJCC=0 to ubound(CCCCJJ):If Mid(CJCJCJ,CCCCJJ(CCCJCC),1)="1" then
CCJCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJJC("!$*|t|qt#"))="":CJCJJJ=0:CJCCJC=0:CJCJJC=Empty:CJCCJJ=0:CJCCCC=0:CJCCCJ=0:CJCJCC=0:CCJJJC=False:CCCJJJ=False:CCCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJC,CCCCCJ,CCCJCC,CCCCCC,CJJJJJJ:CCCCJC=split(CCCJCJ,CJJJJJJC("]")):if ubound(CCCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJC(0)) or len(CCCCJC(1))<>32 or len(CCCCJC(2))<>32 then
Call ClearMemberCookie
else
CCCCCJ=CCCCJC(1):for CCCJCC=1 to len(CCCCCJ):CCCCCC=mid(CCCCCJ,CCCJCC,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC
if len(CJJJJJJ)=7 then exit for
next:CCCCCJ=CCCCJC(2):if CJJJJJJ<>mid(CCCCCJ,6,7) then
Call ClearMemberCookie
else
CCCCCC=mid(CCCCCJ,18,10)/2:if CCCCCC<DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJJJ=Clng(CCCCJC(0)):CJCJJC=CCCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJJ,CJJJJJCC):dim CCCJCC,CCCCCC,CJJJJJJ:for CCCJCC=1 to len(CJJJJJCC):CCCCCC=mid(CJJJJJCC,CCCJCC,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC
if len(CJJJJJJ)=7 then exit for
next:CJJJJJJ=CCCJCJJ & CJJJJJJC("]") & CJJJJJCC & CJJJJJJC("]") & Fix(10000*(Rnd+1)) & CJJJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJC("!$*|t|qt#"))=CJJJJJJ:End Sub::::Const CCJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJJJC("FE7\g"):dim CCCJCC,CCCCCC,CJJJJJC:if isarray(str) then
on error resume next:CCCJCC=ubound(str,2):CJJJJJC=err.number:err.clear:on error goto 0:if CJJJJJC<>0 then
for CCCJCC=0 to ubound(str):if CCCJCC>0 then response.Write CJJJJJJC("k3C ,^m")
response.Write CCCJCC & CJJJJJJC("i ,") & str(CCCJCC):next
else
response.Write CJJJJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJCC=0 to ubound(str,2):response.Write CJJJJJJC("kE9 ,2=:8?lV=67EVm") & CCCJCC & CJJJJJJC("k^E9m")
next:response.Write CJJJJJJC("k^ECm"):for CCCJCC=0 to ubound(str):response.Write CJJJJJJC("kECmkE9m") & CCCJCC & CJJJJJJC("k^E9m"):for CCCCCC=0 to ubound(str,2):response.Write CJJJJJJC("kE5m") & str(CCCJCC,CCCCCC) & CJJJJJJC("k^E5m"):next:response.Write CJJJJJJC("k^ECm"):next:response.Write CJJJJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCJJ,CJJJJCJC):dim CCCCJC:CCCCJC=CJJJJCJJ & CJJJJJJC("l") & CJJJJCJC & CJJJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJC("$6E\r@@<:6"),CCCCJC):End Sub::::::sub ShowMessage(CJJJJCCJ):response.Charset="utf-8":Response.Write CJJJJJJC("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") & CJJJJCCJ & CJJJJJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCCJC(CJJJJJC):if isnull(CJJJJJC) or trim(CJJJJJC)="" or not isnumeric(CJJJJJC) then
CCJCCJC=false
else
Dim CJJJJCJ:Set CJJJJCJ = New RegExp:CJJJJCJ.Pattern = CJJJJJJC("/-5ZS"):CJJJJCJ.IgnoreCase = True:CCJCCJC = CJJJJCJ.test(CJJJJJC):set CJJJJCJ=nothing
end if:End Function:Function CCJCCCJ(CJJJJCCC):dim CJJJJCC,CJJJCJJ:CJJJJCC=CJJJJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJCCC & CJJJJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCJJ=CJJJCC.execute(CJJJJCC):CCJCCCJ = CJJJCJJ(0):if isnull(CCJCCCJ) then CCJCCCJ=1
CJJJCJJ.close : set CJJJCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJJJCJJ.close : set CJJJCJJ=nothing:CJJCCJ.Close : Set CJJCCJ=Nothing:CJJCJC.Close : Set CJJCJC=Nothing:CCCJJCJ.Close : Set CCCJJCJ = Nothing:CJJJCC.Close : Set CJJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJC("!$*0|6DD286"),server.URLEncode(CJJJJCCJ)):Response.Redirect CJJJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJCJJJ,CJJJCJJC):dim str,CJJJJJC:str=CJJJJJJC("!$*0") & Ucase(CJJJCJJJ):if Session(str)<>"" then
CJJJJJC=DateDiff(CJJJJJJC("D"),Session(str),Time):if CJJJJJC<CJJJCJJC and CJJJJJC>0 then
Call ConnClose:Call ShowMessage(CJJJJJJC("??????????@?????? ,") & CJJJCJJC & CJJJJJJC(" ,????,???? ,") & CJJJCJJC-CJJJJJC & CJJJJJJC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJJCJCJ):Application.Contents.Remove CJJJCJCJ
End Sub::Class jTree:Private CJJCCC, CJJJCCJ, CJJJCCC, CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Private Sub Class_Initialize():CJJJCCC = 0:CJJCJJJ = 0:CJJCCJJ=10:End Sub:Public Property Let Table(CJJJCJCC):if CJJJCJCC="" then Call RedirectMessage(CJJJJJJC("????????,;%C66????????????????????@??????????,"))
CJJCJJC=CJJJCJCC:CJJCJCJ=CJJJJJJC("!$*0") & UCase(CJJCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJJC:End Property:::Private Sub GetTreeArray():Dim CCCJCC, CCCCCC, CJJCCJC,CJJCCCJ:CJJJCCJ = Application(CJJCJCJ):If Not IsArray(CJJJCCJ) Then
CJJCCC = CJJJJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJJC:if CJJCJCC<>"" then CJJCCC=CJJCCC & CJJJJJJC(" ,H96C6 ,") & CJJCJCC
set CJJCCJC=CJJJCC.execute(CJJCCC):CJJCCCJ=CJJCCJC(0):if CJJCCCJ=0 then Call RedirectMessage(CJJJJJJC("????W") & CJJCJJC & CJJJJJJC("^") & CJJCJCC & CJJJJJJC("X????????????"))
CJJCJJJ=CJJCCCJ+CJJCCJJ:ReDim CJJJCCJ(CJJCJJJ, 4):CJJCCC = CJJJJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJJC(" ,H:E9 ,W?@=@4<X"):if CJJCJCC<>"" then CJJCCC=CJJCCC & CJJJJJJC(" ,H96C6 ,") & CJJCJCC
CJJCCC=CJJCCC & CJJJJJJC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCJC=CJJJCC.execute(CJJCCC):For CCCJCC = 1 To CJJCCCJ:For CCCCCC = 0 To 4:CJJJCCJ(CCCJCC, CCCCCC) = CJJCCJC(CCCCCC):if IsNull(CJJJCCJ(CCCJCC,4)) then CJJJCCJ(CCCJCC,4)=0
If CJJJCCJ(CCCJCC,2)="" then CJJJCCJ(CCCJCC,2)=CJJJJJJC(",??.")
Next:CJJCCJC.MoveNext:Next:CJJCCJC.Close: Set CJJCCJC = Nothing:for CCCJCC=CJJCJJJ-(CJJCCJJ-1) to CJJCJJJ:CJJJCCJ(CCCJCC,0)=CCCJCC:next:Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock()
else
CJJCJJJ=Ubound(CJJJCCJ)
End If:End Sub::::Public Function GetChild(CCCJCJJ):Dim CCCJCC, Str:CCCJCJJ=CLng(CCCJCJJ):For CCCJCC = 1 To CJJCJJJ:If CJJJCCJ(CCCJCC, 1) = CCCJCJJ Then Str = Str & CJJJJJJC("M") & CJJJCCJ(CCCJCC, 0) & CJJJJJJC("M") & CJJJCCJ(CCCJCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJJJJC("M")):End Function:Private Function CCCJCCJ(CCCJCJJ):dim CCCJCC,CJJCCCC:CCCJCCJ=0:CJJCCCC=CStr(CCCJCJJ):if CJJCCCC<>"0" then
for CCCJCC=1 to CJJCJJJ:If CStr(CJJJCCJ(CCCJCC, 0))=CJJCCCC Then
CCCJCCJ = CCCJCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJCJJ):if Cstr(CCCJCJJ)="0" then
GetCurName=CJJJJJJC("??")
else
Dim CCCJCC,CJJCCJC:CCCJCC=CCCJCCJ(CCCJCJJ):if CCCJCC>0 then
GetCurName=CJJJCCJ(CCCJCC,2):if GetCurName="" then
set CJJCCJC=CJJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCJC.eof then Call RedirectMessage(CJJJJJJC("xs??,") & CCCJCJJ & CJJJJJJC("??,??????"))
GetCurName=CJJCCJC(1):Call UpdateCache(CCCJCJJ,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if
else
set CJJCCJC=CJJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCJC.eof then Call RedirectMessage(CJJJJJJC("xs??,") & CCCJCJJ & CJJJJJJC("??,??????"))
GetCurName=CJJCCJC(1):Call UpdateCache(CCCJCJJ,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if
end if:End Function:::Public Function CCCCJJJ(CCCJCJJ):Dim CCCJCC,CJCJJJJ:CCCJCC=CCCJCCJ(CCCJCJJ):if CCCJCC=0 then
CJCJJJJ=CCCCJJC(CCCJCJJ)
else
CJCJJJJ=CJJJCCJ(CCCJCC,3):if isnull(CJCJJJJ) or CJCJJJJ="" then
CJCJJJJ=CCCCJJC(CCCJCJJ)
elseif Mid(CJCJJJJ,instrrev(CJCJJJJ,CJJJJJJC("["))+1)<>CStr(CCCJCJJ) then
CJCJJJJ=CCCCJJC(CCCJCJJ)
elseif Left(CJCJJJJ,1)=CJJJJJJC("[") then
CJCJJJJ=CCCCJJC(CCCJCJJ)
end if
end if:CCCCJJJ=CJCJJJJ:End Function:Private Function CCCCJJC(CCCJCJJ):dim CJJCCCC:CJJCCCC=CStr(CCCJCJJ):if CJJCCCC="0" then
CCCCJJC=""
else
dim CJJCCJC:set CJJCCJC=CJJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCJC.eof then
Call UpdateCache(CCCJCJJ,"","","",""):Call RedirectMessage(CJJJJJJC("??????,xs??,") & CCCJCJJ & CJJJJJJC("??,????????,????????????????????,"))
else
if CJJCCJC(0)=0 then
CCCCJJC="0," & CCCJCJJ
else
CCCCJJC=CCCCJJJ(CJJCCJC(0)) & CJJJJJJC("[") & CCCJCJJ
end if:if CJJCCJC(2)<>CCCCJJC then
CJJJCC.execute CJJJJJJC("FA52E6 ,") & CJJCJJC & CJJJJJJC(" ,D6E ,A2E9lV") & CCCCJJC & CJJJJJJC("V ,H96C6 ,:5l") & CCCJCJJ
else
CCCCJJC=CJJCCJC(2)
end if
end if:Call UpdateCache(CCCJCJJ,CJJCCJC(0),CJJCCJC(1),CCCCJJC,CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing
end if:End Function::::Public Function IsParent(CJJJCCJJ, CJJJCCJC):IsParent=InStr(CCCCJJJ(CJJJCCJC) & CJJJJJJC("["), CJJJJJJC("[") & CJJJCCJJ & CJJJJJJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJCJJ):dim CJCJJJJ:CJCJJJJ=CCCCJJJ(CCCJCJJ):Sql_GetChildren = CJJCJJC & CJJJJJJC("0A2E9ZV[V ,=:<6 ,V") & CJCJJJJ & CJJJJJJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCJ
End Sub:Public Sub UpdateCache(CCCJCJJ,CJJJCCCJ,CJJJCCCC,CJCJJJJ,CJJCJJJJ):dim CCCJCC,CCCCCC:CCCJCJJ=CLng(CCCJCJJ):CCCJCC=CCCJCCJ(CCCJCJJ):if CJJJCCCJ="" and CJJJCCCC="" and CJCJJJJ="" and CJJCJJJJ="" then
if CCCJCC>0 then
for CCCCCC=1 to 4:CJJJCCJ(CCCJCC,CCCCCC)=Null:next
end if
else
if CCCJCC=0 then
for CCCCCC=1 to CJJCJJJ:if CJJJCCJ(CCCCCC,1) & ""="" then
CCCJCC=CCCCCC:exit for
end if:next
end if:if CCCJCC=0 then
Call ClearCache
else
CJJJCCJ(CCCJCC,0)=CLng(CCCJCJJ):if CJJJCCCJ<>"" then CJJJCCJ(CCCJCC,1)=CLng(CJJJCCCJ)
if CJJJCCCC<>"" then CJJJCCJ(CCCJCC,2)=CJJJCCCC
if CJCJJJJ<>"" then CJJJCCJ(CCCJCC,3)=CJCJJJJ
if CJJCJJJJ<>"" then CJJJCCJ(CCCJCC,4)=CLng(CJJCJJJJ)
end if
end if:if CCCJCC>0 then
Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJCCJ):Call ConnClose:Response.Write CJJJJCCJ:Response.End:End Sub:Private Function CCJCCCJ():CCJCCCJ=CCCCCJJ+1:End Function:Private Function CCCCCJJ():dim CJJJCJJ:set CJJJCJJ=CJJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJJC & CJJJJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCJJ=CJJJCJJ(0):CJJJCJJ.Close: Set CJJJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJCJCC=157:Call CheckRight("54,81"):Call CheckQueryTime(CJJJJJJC("%6DE0#6A@CE"),15):dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:CJCJCCJ=Request.QueryString(CJJJJJJC("$49@@=")):CJCJJJC=Request.QueryString(CJJJJJJC("s6AE")):CJCJJCJ=Request.QueryString(CJJJJJJC("vC256")):CJCJJCC=Request.QueryString(CJJJJJJC("vC@FA")):CJCJCCC=Request.QueryString(CJJJJJJC("E6DEEJA6")):CJCJCJJ=Request.QueryString(CJJJJJJC("E`")):CJCJCJC=Request.QueryString(CJJJJJJC("Ea")):if not CCJCCJC(CJCJJJC) then Call RedirectMessage(CJJJJJJC("????????,??????????????,"))
dim CJJJCCJ:set CJJJCCJ=new jtree:CJJJCCJ.table=CJJJJJJC(">6>36C0EJA6"):if not CJJJCCJ.IsParent(CJCJCC,CJCJJJC) then Call RedirectMessage(CJJJJJJC("??????W") & CJCJJJC & CJJJJJJC("X??????W") & CJCJCC & CJJJJJJC("X????????????@??,"))
dim CCCCCJC:CCCCCJC=CJJJCCJ.GetChild(CJCJJJC):if ubound(CCCCCJC)<0 then Call RedirectMessage(CJJJJJJC("??????????????????????,"))
dim CJCCJJJ:CJCCJJJ=CJJJCCJ.GetCurName(CJCJJJC):dim CCCJCC,CCCCCC,CJJJJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:dim CJCCCJJ():redim CJCCCJJ((ubound(CCCCCJC)-1)/2,7):for CCCJCC=0 to ubound(CCCCCJC)-1 step 2:CJJJJJJ=CCCJCC/2:CJCCCJJ(CJJJJJJ,0)=CCCCCJC(CCCJCC):CJCCCJJ(CJJJJJJ,1)=CCCCCJC(CCCJCC+1):for CCCCCC=2 to ubound(CJCCCJJ,2):CJCCCJJ(CJJJJJJ,CCCCCC)=0:next:CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CJJJJJJ,1):next:CJCCJJC=mid(CJCCJJC,2):dim CJCCCJC(1,1):CJCCCJC(0,0)=CJJJJJJC("??"):CJCCCJC(1,0)=CJJJJJJC("??"):for CCCJCC=0 to 1:CJCCCJC(CCCJCC,1)=0:next:dim CCCCJJ,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:CCJJJJJ=Date:CCJJJJC=cdate(CJJJJJJC("a___\`\`")):dim CCJJJCC(4,7):for CCCJCC=0 to ubound(CCJJJCC):for CCCCCC=0 to ubound(CCJJJCC,2):CCJJJCC(CCCJCC,CCCCCC)=0:next:next:CJJCCC=CJJJJJJC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJCJCC & CJJJJJJC(" ,2?5 ,G2=:5l`"):if cstr(CJCJJJC)=cstr(CJCJCCJ) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJCCJ else CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,") & CJJJCCJ.Sql_GetChildren(CJCJJJC)
if CCJCCJC(CJCJJCJ) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,8C256l") & CJCJJCJ
if CCJCCJC(CJCJJCC) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,4FDE@>8C@FAl") & CJCJJCC
if CCJCCJC(CJCJCCC) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,EJA6l") & CJCJCCC
if isdate(CJCJCJJ) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,52E6E:>6mlV") & CJCJCJJ & CJJJJJJC("V")
if isdate(CJCJCJC) then CJJCCC=CJJCCC & CJJJJJJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCJCJC)+1 & CJJJJJJC("V")
set CJJCJC=CJJJCC.execute(CJJCCC):if CJJCJC.eof then Call RedirectMessage(CJJJJJJC("????????,????????????????,"))
while not CJJCJC.eof:CCCCJJ=split(CJJCJC(4),CJJJJJJC("M")):for CCCJCC=0 to 4:CJJJJJJ=CCCCJJ(CCCJCC):CCJJJCC(CCCJCC,CJJJJJJ)=CCJJJCC(CCCJCC,CJJJJJJ)+1:next:CCCCJJ=split(CJJCJC(5),CJJJJJJC("M")):for CCCJCC=0 to 4:CCJJJCC(CCCJCC,5)=CCJJJCC(CCCJCC,5) & CJJJJJJC("M") & CCCCJJ(CCCJCC):next:for CCCJCC=0 to ubound(CJCCCJJ):if instr(CJJCJC(0) & CJJJJJJC("["),CJJJJJJC("[") & CJCCCJJ(CCCJCC,0) & CJJJJJJC("["))>0 then
CJCCCJJ(CCCJCC,2)=CJCCCJJ(CCCJCC,2)+1:for CCCCCC=0 to 4:CJJJJJJ=CCCCCC+3:CJCCCJJ(CCCJCC,CJJJJJJ)=CJCCCJJ(CCCJCC,CJJJJJJ) & CJJJJJJC("M") & CCCCJJ(CCCCCC):next:exit for
end if:next:if CJJCJC(1) then CCCCCC=0 else CCCCCC=1
CJCCCJC(CCCCCC,1)=CJCCCJC(CCCCCC,1)+1:CJJJJJJ=CJJCJC(3):if CJJJJJJ<CCJJJJJ then CCJJJJJ=CJJJJJJ
if CJJJJJJ>CCJJJJC then CCJJJJC=CJJJJJJ
CCJJJCJ=CCJJJCJ & CJJJJJJC("M") & CJJCJC(2):CJCCCCJ=CJCCCCJ+1:CJJCJC.movenext:wend:for CCCJCC=0 to 4:CCCCJJ=CCCCCCC(split(Mid(CCJJJCC(CCCJCC,5),3),CJJJJJJC("M"))):CCJJJCC(CCCJCC,6)=FormatNumber(CCCCJJ(0),2,-1):CCJJJCC(CCCJCC,7)=FormatNumber(CCCCJJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJC("k9625m") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJC("kE:E=6m")):Response.Write  CJCCJJJ:Response.Write(CJJJJJJC("\??????????????????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("^Y????????Y^") & vbCrLf):Response.Write(CJJJJJJC("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJJJJC("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJJJJC("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CJJJJJJC("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJJJJC("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJJJJC("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CJJJJJJC("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJJJJC("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJJJJC("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJJC("^Y????????Y^") & vbCrLf):Response.Write(CJJJJJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJJJJC("RA286\4@?E6?E ,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(CJJJJJJC("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("k^9625m") & vbCrLf):Response.Write(CJJJJJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CJCCJJC:Response.Write(CJJJJJJC("Qm") & vbCrLf):Response.Write(CJJJJJJC("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kP\\??@??\\m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9`m")):Response.Write  CJCCJJJ:Response.Write(CJJJJJJC("k3Cm") & vbCrLf):Response.Write(CJJJJJJC(" ,??????????????????????k^9`m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am??,??,????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??????????????????W????pp%X??,pp%??????????????????????????????????????????????,????????????????,??,????????????????????????????????????????????????????,??????@??????????????????????????,??????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAmpp%????????????,??????????????????????????????,??@????????????,??????????,??????????,??????????????????@????,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm")):Response.Write  formatdatetime(CCJJJJJ,1):Response.Write(CJJJJJJC("??,")):Response.Write  formatdatetime(CCJJJJC,1):Response.Write(CJJJJJJC("k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am????,????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):response.Write CJJJJJJC("??") & CJCCCJC(0,1)+CJCCCJC(1,1) & CJJJJJJC("????,????????") & CJCCCJC(0,1) & CJJJJJJC("????,????") & CJCCCJC(1,1) & CJJJJJJC("????,"):for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then response.Write CJCCCJJ(CCCJCC,1) & CJJJJJJC("??,") & CJCCCJJ(CCCJCC,2) & CJJJJJJC("????,")
next:CCCCJJ=CCCCCCC(split(Mid(CCJJJCJ,2),CJJJJJJC("M"))):response.Write CJJJJJJC("????????") & formatnumber(CCCCJJ(0),2,-1) & CJJJJJJC("????,??????") & formatnumber(CCCCJJ(1),2,-1) & CJJJJJJC("??,??,"):Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am????,??????????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??????????????????????????????,????????????????????")):Response.Write  CCJJJCC(4,6):Response.Write(CJJJJJJC("??,??????????????????????????")):Response.Write  CCCCCCJ(CCJJJCC(4,6)):Response.Write(CJJJJJJC("??????,??")):Response.Write  CJCCCCJ:Response.Write(CJJJJJJC("??????,????")):Response.Write  CCJJJCC(4,0):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(4,0)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(4,1):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(4,1)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(4,2):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(4,2)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(4,3):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(4,3)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(4,4):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(4,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm????????????????????????????????????????")):Response.Write  FormatPercent((CCJJJCC(4,3)+CCJJJCC(4,4))/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,??????????????????????????????,??????????????????????????????????????????????????????????????????,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJCC(4,0) & CJJJJJJC("[") & CCJJJCC(4,1) & CJJJJJJC("[") & CCJJJCC(4,2) & CJJJJJJC("[") & CCJJJCC(4,3) & CJJJJJJC("[") & CCJJJCC(4,4):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCJJJCC(0,6):Response.Write(CJJJJJJC("??,??????????????????????????")):Response.Write  CCCCCCJ(CCJJJCC(0,6)):Response.Write(CJJJJJJC("??????,??")):Response.Write  CJCCCCJ:Response.Write(CJJJJJJC("??????,????")):Response.Write  CCJJJCC(0,0):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(0,0)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(0,1):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(0,1)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(0,2):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(0,2)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(0,3):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(0,3)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(0,4):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(0,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJCC(0,0) & CJJJJJJC("[") & CCJJJCC(0,1) & CJJJJJJC("[") & CCJJJCC(0,2) & CJJJJJJC("[") & CCJJJCC(0,3) & CJJJJJJC("[") & CCJJJCC(0,4):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??????????????????????,??????????????????????????,????????????????????????")):Response.Write  CCJJJCC(1,6):Response.Write(CJJJJJJC("??,??????????????????????????")):Response.Write  CCCCCCJ(CCJJJCC(1,6)):Response.Write(CJJJJJJC("??????,??")):Response.Write  CJCCCCJ:Response.Write(CJJJJJJC("??????,????")):Response.Write  CCJJJCC(1,0):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(1,0)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(1,1):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(1,1)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(1,2):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(1,2)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(1,3):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(1,3)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(1,4):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(1,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJCC(1,0) & CJJJJJJC("[") & CCJJJCC(1,1) & CJJJJJJC("[") & CCJJJCC(1,2) & CJJJJJJC("[") & CCJJJCC(1,3) & CJJJJJJC("[") & CCJJJCC(1,4):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??????????????????????,??????????????????????????????????????,????????????????????????")):Response.Write  CCJJJCC(2,6):Response.Write(CJJJJJJC("??,??????????????????????????")):Response.Write  CCCCCCJ(CCJJJCC(2,6)):Response.Write(CJJJJJJC("??????,??")):Response.Write  CJCCCCJ:Response.Write(CJJJJJJC("??????,????")):Response.Write  CCJJJCC(2,0):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(2,0)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(2,1):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(2,1)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(2,2):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(2,2)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(2,3):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(2,3)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(2,4):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(2,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJCC(2,0) & CJJJJJJC("[") & CCJJJCC(2,1) & CJJJJJJC("[") & CCJJJCC(2,2) & CJJJJJJC("[") & CCJJJCC(2,3) & CJJJJJJC("[") & CCJJJCC(2,4):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm????????????????????????????????????????,????????????????????????")):Response.Write  CCJJJCC(3,6):Response.Write(CJJJJJJC("??,??????????????????????????")):Response.Write  CCCCCCJ(CCJJJCC(3,6)):Response.Write(CJJJJJJC("??????,??")):Response.Write  CJCCCCJ:Response.Write(CJJJJJJC("??????,????")):Response.Write  CCJJJCC(3,0):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(3,0)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(3,1):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(3,1)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(3,2):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(3,2)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(3,3):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(3,3)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,")):Response.Write  CCJJJCC(3,4):Response.Write(CJJJJJJC("????????????????,????")):Response.Write  FormatPercent(CCJJJCC(3,4)/CJCCCCJ,2,-1):Response.Write(CJJJJJJC("??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl????M????M????M????M????UGl")):Response.Write  CCJJJCC(3,0) & CJJJJJJC("[") & CCJJJCC(3,1) & CJJJJJJC("[") & CCJJJCC(3,2) & CJJJJJJC("[") & CCJJJCC(3,3) & CJJJJJJC("[") & CCJJJCC(3,4):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am????,??????????????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(0,6):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(0,7):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(1,6):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(1,7):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(2,6):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(2,7):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m????????k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(3,6):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CCJJJCC(3,7):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl????????M????????M????????M????????UGl")):Response.Write  CCJJJCC(0,6) & CJJJJJJC("[") & CCJJJCC(1,6) & CJJJJJJC("[") & CCJJJCC(2,6) & CJJJJJJC("[") & CCJJJCC(3,6):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am????,??????????????????????k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm`??,????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC="":CJCCJCJ="":for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):CCCCJJ=CCCCCCC(split(Mid(CJCCCJJ(CCCJCC,7),3),CJJJJJJC("M"))):CJCCCCC=formatnumber(CCCCJJ(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CCCJCC,1):CJCCJCJ=CJCCJCJ & CJJJJJJC("M") & CJCCCCC:response.Write CJCCCCC:Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  formatnumber(CCCCJJ(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl")):Response.Write  mid(CJCCJJC,2):Response.Write(CJJJJJJC("UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????,????????????????????,????????????????,????????????????????????????????????????,????????????????????????,??????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bma??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC="":CJCCJCJ="":for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):CCCCJJ=CCCCCCC(split(Mid(CJCCCJJ(CCCJCC,3),3),CJJJJJJC("M"))):CJCCCCC=formatnumber(CCCCJJ(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CCCJCC,1):CJCCJCJ=CJCCJCJ & CJJJJJJC("M") & CJCCCCC:response.Write CJCCCCC:Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  formatnumber(CCCCJJ(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl")):Response.Write  mid(CJCCJJC,2):Response.Write(CJJJJJJC("UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??,??????????????????,??????????????????,??????,????????,????????????????????????,??????,????????,????????????????????????,??????,????????????????,????????????????,????????,????????????????????????,????????,??????????????????????????,????????????????????????????????????????,????????????,??????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmb??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC="":CJCCJCJ="":for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):CCCCJJ=CCCCCCC(split(Mid(CJCCCJJ(CCCJCC,4),3),CJJJJJJC("M"))):CJCCCCC=formatnumber(CCCCJJ(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CCCJCC,1):CJCCJCJ=CJCCJCJ & CJJJJJJC("M") & CJCCCCC:response.Write CJCCCCC:Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  formatnumber(CCCCJJ(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl")):Response.Write  mid(CJCCJJC,2):Response.Write(CJJJJJJC("UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????????,????????????????????,????????????????,??????????????????????????????????????,????????????????????????,????????????????,??????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmc??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC="":CJCCJCJ="":for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):CCCCJJ=CCCCCCC(split(Mid(CJCCCJJ(CCCJCC,5),3),CJJJJJJC("M"))):CJCCCCC=formatnumber(CCCCJJ(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CCCJCC,1):CJCCJCJ=CJCCJCJ & CJJJJJJC("M") & CJCCCCC:response.Write CJCCCCC:Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  formatnumber(CCCCJJ(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl")):Response.Write  mid(CJCCJJC,2):Response.Write(CJJJJJJC("UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????,??????????????????,????????????????????????????????,??????????????????????????????,??????????????????????????,??????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bmd??,????????k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC="":CJCCJCJ="":for CCCJCC=0 to ubound(CJCCCJJ):if CJCCCJJ(CCCJCC,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  CJCCCJJ(CCCJCC,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):CCCCJJ=CCCCCCC(split(Mid(CJCCCJJ(CCCJCC,6),3),CJJJJJJC("M"))):CJCCCCC=formatnumber(CCCCJJ(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("M") & CJCCCJJ(CCCJCC,1):CJCCJCJ=CJCCJCJ & CJJJJJJC("M") & CJCCCCC:response.Write CJCCCCC:Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write  formatnumber(CCCCJJ(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl")):Response.Write  mid(CJCCJJC,2):Response.Write(CJJJJJJC("UGl")):Response.Write  mid(CJCCJCJ,2):Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm??,??????????????????,??????????????????,????????????????????????????????????,????????????????????,????????????????,??????????????????????????????????????,????????????????????????,????????????????,??????????????????????????????????????????????,??,k^Am") & vbCrLf):Response.Write(CJJJJJJC("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC("k3Cm") & vbCrLf):Response.Write(CJJJJJJC("k3Cm") & vbCrLf):Response.Write(CJJJJJJC("k7@@E6Cm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQ=Qm")):Response.Write  CJCCJJJ:Response.Write(CJJJJJJC(" ,U>:55@Ej ,??????????????????????k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,:5lQ3E?\AC:?EQm????????k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,:5lQ3E?\H@C5Qm??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,:5lQ3E?\E@AQm??????k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJJJJC("NX") & vbCrLf):Response.Write(CJJJJJJC("k^D4C:AEm") & vbCrLf)::Function CCCCCCJ(CJJJJJCJ):dim CCJJCJJ,CJJJJJC:CJJJJJC=csng(CJJJJJCJ):if CJJJJJC>=65 then
CCJJCJJ=CJJJJJJC("????")
elseif CJJJJJC>=55 then
CCJJCJJ=CJJJJJJC("????")
elseif CJJJJJC>=45 then
CCJJCJJ=CJJJJJJC("????")
elseif CJJJJJC>=35 then
CCJJCJJ=CJJJJJJC("????")
else
CCJJCJJ=CJJJJJJC("????")
end if:CCCCCCJ=CCJJCJJ:End Function:Function CCCCCCC(ByVal CJJCJJCJ):Dim CCCJCC, CCJJCJC, CCJJCCJ, CCJJCCC, CCJCJJJ, CCJCJJC:CCJJCJC = UBound(CJJCJJCJ) + 1:CCJJCCJ = 0:For CCCJCC = 0 To CCJJCJC - 1:CJJCJJCJ(CCCJCC) = CDbl(CJJCJJCJ(CCCJCC)):CCJJCCJ = CCJJCCJ + CJJCJJCJ(CCCJCC):Next:CCJJCCC = CCJJCCJ / CCJJCJC:CCJCJJJ = 0:For CCCJCC = 0 To CCJJCJC - 1:CCJCJJJ = CCJCJJJ + (CJJCJJCJ(CCCJCC) - CCJJCCC) ^ 2:Next:CCJCJJC = Sqr(CCJCJJJ / CCJJCJC):CCCCCCC = Array(CCJJCCC, CCJCJJC):End Function:Response.Write(vbCrLf):Response.Write(CJJJJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJJCCJ.Close:Set CJJCCJ=Nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJJCC.Close:Set CJJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJC(ByVal CJJJJJJJ)
Dim CJCCJCJ, CCCJCC, CJJJJJC
CJJJJJJJ = Replace(CJJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJCC = 1 To Len(CJJJJJJJ)
If CCCJCC <> CJJJJJC Then
CJCCJCJ = AscW(Mid(CJJJJJJJ, CCCJCC, 1))
If CJCCJCJ >= 33 And CJCCJCJ <= 79 Then
CJJJJJJC = CJJJJJJC & Chr(CJCCJCJ + 47)
ElseIf CJCCJCJ >= 80 And CJCCJCJ <= 126 Then
CJJJJJJC = CJJJJJJC & Chr(CJCCJCJ - 47)
Else
CJJJJJC = CCCJCC + 1
If Mid(CJJJJJJJ, CJJJJJC, 1) = Chr(64) Then CJJJJJJC = CJJJJJJC & ChrW(CJCCJCJ + 5) Else CJJJJJJC = CJJJJJJC & Mid(CJJJJJJJ, CCCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de