Edit D:\xinhaisoft\crisis_new\school\admin\zixun

Edit D:\xinhaisoft\crisis_new\school\admin\zixun_summary.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJJCCJJJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJJCCJJJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CJJCCJJJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
CJJJCJC=CJJCCJJJ("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") & CJJJCCC & CJJCCJJJ("V ,2?5 ,:5l") & CJJJCCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=CJJJJCC(2) & "":CJJCJJC=CJJJJCC(3):CJJCJCJ=CJJJJCC(5):CJJCJCC=CJJJJCC(6):CJJCCJJ=CJJJJCC(9):CJJCCJC=CJJJJCC(15):CJJCCCC=CJJJJCC(0):CJCJCCJ=CJJJJCC(1):CJCJCJC=CJJJJCC(11) & "":CJCJJJJ=CJJJJCC(10) & "":CJJCCCJ=CJJJJCC(12):CJCJJJC=CJJJJCC(14):CJCJJCJ=CJJJJCC(13):CJCJJCC=CJJJJCC(7) & "":CJCJCJJ=CJJJJCC(4):CJCJCCC=CJJJJCC(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CJJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:Sub CheckRight(CCJJCCJ):dim CJCCJJC,CJCCJCJ:if CJJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCJJJ("??????????????,????????????,"))
elseIf not CJJJCCJJ(CCJJCCJ) then
Call RedirectMessage(CJJCCJJJ("????W") & CCJJCCJ & CJJCCJJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJCCJJ(CCJJCCJ):dim CJCCJJC,CJCCJCJ:CJCCJCJ=split(CCJJCCJ,CJJCCJJJ("[")):CJJJCCJJ=False:for CJCCJJC=0 to ubound(CJCCJCJ):If Mid(CJJCJJJ,CJCCJCJ(CJCCJJC),1)="1" then
CJJJCCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CJJCCJJJ("D49@@="))):if isnumeric(CJCCJCC) then
response.Redirect CJJCCJJJ("^>^G2?E^R^D49@@=^") & CJCCJCC & CJJCCJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCJJJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJJ,CJCCCJC,CJCCJJC,CJCCCCJ,CJCCCCC:CJCCCJJ=split(CJCCJJJ,CJJCCJJJ("]")):if ubound(CJCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJJ(0)) or len(CJCCCJJ(1))<>32 or len(CJCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCJC=CJCCCJJ(1):for CJCCJJC=1 to len(CJCCCJC):CJCCCCJ=mid(CJCCCJC,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJC=CJCCCJJ(2):if CJCCCCC<>mid(CJCCCJC,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJC,18,10)/2:if CJCCCCJ<DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCCJJ(0)):CJJJCCC=CJCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJC,CJJCCJCJ):dim CJCCJJC,CJCCCCJ,CJCCCCC:for CJCCJJC=1 to len(CJJCCJCJ):CJCCCCJ=mid(CJJCCJCJ,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CJJCCJJC & CJJCCJJJ("]") & CJJCCJCJ & CJJCCJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJJ("!$*|t|qt#"))=CJCCCCC:End Sub:::Function IIf(CJJCCJCC, CJJCCCJJ, CJJCCCJC):if isnull(CJJCCJCC) or isempty(CJJCCJCC) then
IIf = CJJCCCJC
elseif CJJCCJCC Then
IIf = CJJCCCJJ
Else
IIf = CJJCCCJC
end if:End Function:Const CJJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCCCCJ,CJJCCCCC):dim CJCCCJJ:CJCCCJJ=CJJCCCCJ & "=" & CJJCCCCC & CJJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCJJJ("$6E\r@@<:6"),CJCCCJJ):End Sub::::::sub ShowMessage(CJCJJJJJ):response.Charset=CJJCCJJJ("FE7\g"):Response.Write CJJCCJJJ("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") & CJCJJJJJ & CJJCCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJCCCJ(CCJCJJC):if isnull(CCJCJJC) or trim(CCJCJJC)="" or not isnumeric(CCJCJJC) then
CJJJCCCJ=false
else
Dim CCJJJJJ:Set CCJJJJJ = New RegExp:CCJJJJJ.Pattern = CJJCCJJJ("/-5ZS"):CCJJJJJ.IgnoreCase = True:CJJJCCCJ = CCJJJJJ.test(CCJCJJC):set CCJJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJCJJCC.Close : Set CJJCJJCC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCJJJ("!$*0|6DD286"),server.URLEncode(CJCJJJJJ)):Response.Redirect CJJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCJCJJ(ByVal CJJCJCJC,style):if not isdate(CJJCJCJC) then
CJJCJCJJ=CJJCJCJC:exit function
end if:dim CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CJJCJCJC=cdate(CJJCJCJC):CCJJJJC=Year(CJJCJCJC):CCJJJCJ=Month(CJJCJCJC):CCJJJCC=Day(CJJCJCJC):select case style:case 0:CJJCJCJJ=CCJJJJC & CJJCCJJJ("\") & right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 1:CJJCJCJJ=CCJJJJC & right(0 & CCJJJCJ,2) & right(0 & CCJJJCC,2):case 2:CJJCJCJJ=right(CCJJJJC,2) & CJJCCJJJ("\") & right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 3:CJJCJCJJ=CCJJJJC & CJJCCJJJ("\") & right(0 & CCJJJCJ,2):case 4:CJJCJCJJ=right(0 & CCJJJCJ,2) & CJJCCJJJ("\") & right(0 & CCJJJCC,2):case 5:CJJCJCJJ=right(0 & CCJJJCC,2):case 6:CJJCJCJJ=CCJJJJC & CJJCCJJJ("??") & right(0 & CCJJJCJ,2) & CJJCCJJJ("??") & right(0 & CCJJJCC,2) & CJJCCJJJ("??"):case else
CJJCJCJJ=CJJCJCJC:end select:End Function:Function CJJCJCCJ(CJCJJJJC):Dim CCJJCJC, CCJJCCJ, str(), CJCCJJC,CJCCCCJ,CCJCJJJ:CCJCJJJ=UCase(CJCJJJJC):If Not IsArray(Application(CJJCCJJJ("!$*0") & CCJCJJJ)) Then
CJJJCJC=CJJCCJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJCJJJJC & CJJCCJJJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=server.createobject(CJJCCJJJ("25@53]C64@C5D6E")):CCJJCJC.open CJJJCJC,CJJJJJC,1:CCJJCCJ = CCJJCJC.RecordCount:ReDim str(CCJJCCJ, 2):If CCJJCCJ > 0 Then
For CJCCJJC = 1 To CCJJCCJ:for CJCCCCJ=0 to 2:str(CJCCJJC, CJCCCCJ) = CCJJCJC(CJCCCCJ):next:CCJJCJC.MoveNext:Next
End If:CCJJCJC.Close: Set CCJJCJC = Nothing:Application(CJJCCJJJ("!$*0") & CCJCJJJ) = str
End If:CJJCJCCJ = Application(CJJCCJJJ("!$*0") & CCJCJJJ):End Function:::::::::Sub CheckQueryTime(CJCJJJCJ,CJCJJJCC):dim str,CCJCJJC:str=CJJCCJJJ("!$*0") & Ucase(CJCJJJCJ):if Session(str)<>"" then
CCJCJJC=DateDiff(CJJCCJJJ("D"),Session(str),Time):if CCJCJJC<CJCJJJCC and CCJCJJC>0 then
Call ConnClose:Call ShowMessage(CJJCCJJJ("??????????@?????? ,") & CJCJJJCC & CJJCCJJJ(" ,????,???? ,") & CJCJJJCC-CCJCJJC & CJJCCJJJ(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJJCJJ):dim CJCCJJC,CJCCCCJ,CCJCJCJ,CCJCJCC:on error resume next:CCJCJCJ=ubound(CJCJJCJJ):CCJCJCC=ubound(CJCJJCJJ,2):if err.number<>0 then
err.clear:for CJCCJJC=0 to CCJCJCJ:CJCJJCJJ(CJCCJJC)=0:next
else
for CJCCJJC=0 to CCJCJCJ:for CJCCCCJ=0 to CCJCJCC:CJCJJCJJ(CJCCJJC,CJCCCCJ)=0:next:next
end if:End Sub:::::dim CJCCJCC:CJJJCJC=Request.ServerVariables(CJJCCJJJ("!p%w0x}u~")):if instr(CJJJCJC,CJJCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCCC and not CJCJCCJ then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????,"))
CJCCJCC=CJJCCJJ
elseif instr(CJJJCJC,CJJCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCJC,CJJCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJCC=CJJCCJJ
elseif instr(CJJJCJC,CJJCCJJJ("^D49@@="))>0 then
CJCCJCC=Request.QueryString(CJJCCJJJ("D49@@=")):if not CJJJCCCJ(CJCCJCC) then CJCCJCC=Request.QueryString(CJJCCJJJ("F"))
if not CJJJCCCJ(CJCCJCC) then CJCCJCC=Request.QueryString(CJJCCJJJ("D4"))
if not CJJJCCCJ(CJCCJCC) then Call RedirectMessage(CJJCCJJJ("????????W$49@@=X??@??????????,"))
CJCCJCC=csng(CJCCJCC)
end if:if CJCCJCC=0 then Call RedirectMessage(CJJCCJJJ("????????W$49@@=X????W_X??,"))
Dim CCJCCJJ:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CCJJCJC:CJJJCJC=CJJCCJJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCJCC:set CCJJCJC=CJJJJJC.execute(CJJJCJC):if CCJJCJC.eof then Call RedirectMessage(CJJCCJJJ("??W") & CJJJCCJ & CJJCCJJJ("X??????????W") & CJCCJCC & CJJCCJJJ("X????????,"))
ReDim CJCCJCJ(61):CJCCJCJ(0)=CCJJCJC(CJJCCJJJ(";:2@H6:")) & "":CJCCJCJ(1)=CCJJCJC(CJJCCJJJ("EJA6")):CJCCJCJ(2)=CCJJCJC(CJJCCJJJ("D>D")):CJCCJCJ(3)=CCJJCJC(CJJCCJJJ("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CCJJCJC(CJJCCJJJ("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CCJJCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CCJJCJC(CJJCCJJJ("K:IF?E:>6")):CJCCJCJ(7)=CCJJCJC(CJJCCJJJ("766")):CJCCJCJ(8)=CCJJCJC(CJJCCJJJ("C6E6DE52J")):CJCCJCJ(9)=CCJJCJC(CJJCCJJJ("6IA:C652E6")):CJCCJCJ(10)=CCJJCJC(CJJCCJJJ("E:E=6")):CJCCJCJ(11)=CCJJCJC(CJJCCJJJ(":?EC@")) & "":CJCCJCJ(12)=CCJJCJC(CJJCCJJJ("A:4EFC6")) & "":CJCCJCJ(13)=CCJJCJC(CJJCCJJJ("72>:=J")):CJCCJCJ(14)=CCJJCJC(CJJCCJJJ("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CCJJCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))),CJJCCJJJ("`h__\`\`"),CCJJCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CCJJCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CCJJCJC(CJJCCJJJ("4@?E24E")) & "":CJCCJCJ(18)=CCJJCJC(CJJCCJJJ("D2?5E23=6")):CJCCJCJ(19)=CCJJCJC(CJJCCJJJ("4C:D:D")):CJCCJCJ(20)=CCJJCJC(CJJCCJJJ("JJ52E6")):CJCCJCJ(21)=CCJJCJC(CJJCCJJJ("BB")):CJCCJCJ(22)=CCJJCJC(CJJCCJJJ("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CCJJCJC(CJJCCJJJ("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CCJJCJC(CJJCCJJJ("6IA6CE")):CJCCJCJ(26)=CCJJCJC(CJJCCJJJ(">@5:?7@")):CJCCJCJ(27)=CCJJCJC(CJJCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CCJJCJC(CJJCCJJJ("4C:D:D=3")):CJCCJCJ(29)=IIf(CCJJCJC(CJJCCJJJ("4C:D:D@=5")),False,True):CJCCJCJ(30)=CCJJCJC(CJJCCJJJ("8C@FA8F:52?46")):CJCCJCJ(31)=CCJJCJC(CJJCCJJJ("3:@7665324<")):CJCCJCJ(32)=CCJJCJC(CJJCCJJJ("<6JDEC")):CJCCJCJ(33)=CCJJCJC(CJJCCJJJ("=@8@")) & "":CJCCJCJ(34)=CCJJCJC(CJJCCJJJ("K:46")):CJCCJCJ(35)=IIf(CCJJCJC(CJJCCJJJ(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CCJJCJC(CJJCCJJJ("8F6DE3@@<")):CJCCJCJ(40)=CCJJCJC(CJJCCJJJ("75D")):CJCCJCJ(42)=CCJJCJC(CJJCCJJJ("9@>6=@8:?")):CJCCJCJ(43)=CCJJCJC(CJJCCJJJ("K:IF?0?6657665324<")):CJCCJCJ(44)=CCJJCJC(CJJCCJJJ("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CCJJCJC(CJJCCJJJ("4@>A=6E60:?7@")):CJCCJCJ(46)=CCJJCJC(CJJCCJJJ("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CCJJCJC(CJJCCJJJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CJJCCJJJ("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CCJJCJC(CJJCCJJJ("D>D0C646:G6C")):CJCCJCJ(50)=CCJJCJC(CJJCCJJJ("D>D0D:8?")) & "":CJCCJCJ(52)=CCJJCJC(CJJCCJJJ("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CCJJCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CCJJCJC(CJJCCJJJ("9:560=30@FE@7286")):CJCCJCJ(55)=CCJJCJC(CJJCCJJJ("JFJF60E6DE052JD")):CJCCJCJ(56)=CCJJCJC(CJJCCJJJ("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CCJJCJC(CJJCCJJJ("JFJF604964<65")):CJCCJCJ(58)=CCJJCJC(CJJCCJJJ("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CCJJCJC(CJJCCJJJ("4964<?6HDEF56?E")):CJCCJCJ(60)=CCJJCJC(CJJCCJJJ("K:IF?04=@D6052E6")):CCJJCJC.close : set CCJJCJC=nothing:if isNull(CJCCJCJ(8)) or CJCCJCJ(8)="" then CJCCJCJ(8)=0
if isdate(CJCCJCJ(9)) then
CJCCJCJ(9)=cdate(CJCCJCJ(9)):if CJCCJCJ(9)<Date then Call RedirectMessage(CJJCCJJJ("????????,????????????????W") & CJCCJCJ(9) & CJJCCJJJ("X??????,"))
end if:if not CJJJCCCJ(CJCCJCJ(20)) then CJCCJCJ(20)=7
select case CJCCJCJ(1):case 1,2,16:CJCCJCJ(36)=159:case 4,5,6,10,11:CJCCJCJ(36)=190:CJCCJCJ(37)=178:CJCCJCJ(38)=191:case 7,13:CJCCJCJ(36)=164:CJCCJCJ(37)=178:CJCCJCJ(38)=179:end select:CCJCCJJ=CJCCJCJ:End Sub:Function CJJCJJCJ(CJCJJJCJ):dim CJCCJCJ(7,1),CJCCJJC,CCJCCJC,CCJCCCJ:CCJCCJC=Array(CJJCCJJJ("$49@@="),CJJCCJJJ("$EF56?E"),CJJCCJJJ("s6AE"),CJJCCJJJ("vC256"),CJJCCJJJ("r=2DD>2E6"),CJJCCJJJ("}F>36C"),CJJCCJJJ("%62496C"),CJJCCJJJ("!2C6?E")):select case CCJCCJJ(1):case 1,2 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 3,16 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 4 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 5 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 6 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 7 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 8 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 9 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 10 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 11 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 12 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 13 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 14 : CCJCCCJ=Array(CJJCCJJJ("??????"),CJJCCJJJ("??@??"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 15 : CCJCCCJ=Array(CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case else : CCJCCCJ=CCJCCJC
end select:for CJCCJJC=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCCJJC,0)=CCJCCJC(CJCCJJC):CJCCJCJ(CJCCJJC,1)=CCJCCCJ(CJCCJJC):next:for CJCCJJC=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,0)=CJCJJJCJ then
CJJCJJCJ=CJCCJCJ(CJCCJJC,1):exit for
end if:next:End Function::Call CheckRight(18):dim CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC,CJCCJJC,CJCCJCJ,CCCJCJJ,CCCJCJC,CCCJCCJ:CCCJJCC=Date:CCCJCJC=false:CCCJCCJ=false:CCJCCCC=request.QueryString(CJJCCJJJ("5`")):CCCJJJJ=request.QueryString(CJJCCJJJ("5a")):CCCJJJC=request.QueryString(CJJCCJJJ("8C256")):CCCJJCJ=request.QueryString(CJJCCJJJ("8C@FA")):if CCJCCCC="" then CCJCCCC=CJJCJCJJ(year(CCCJJCC) & CJJCCJJJ("\") & month(CCCJJCC) & "-1",0)
if CCCJJJJ="" then CCCJJJJ=CJJCJCJJ(CCCJJCC,0)
dim CCCJCCC:CJCCJCJ=CJJCJCCJ(CJJCCJJJ(">6>36C08C256")):for CJCCJJC=1 to ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,2)=CJCCJCC then CCCJCCC=CCCJCCC & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,0) & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,1)
next:if CCCJCCC<>"" then CCCJCCC=split(mid(CCCJCCC,2),CJJCCJJJ("M"))
dim CCCCJJJ:CJCCJCJ=CJJCJCCJ(CJJCCJJJ(">6>36C04FDE@>8C@FA")):for CJCCJJC=1 to ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,2)=CJCCJCC then CCCCJJJ=CCCCJJJ & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,0) & CJJCCJJJ("M") & CJCCJCJ(CJCCJJC,1)
next:if CCCCJJJ<>"" then CCCCJJJ=split(mid(CCCCJJJ,2),CJJCCJJJ("M"))
Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCJJJ("k9625m") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCJJJ("kE:E=6m??????@??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("2CE:4=6L>2C8:?\E@AidAIjN") & vbCrLf):Response.Write(CJJCCJJJ("2CE:4=6 ,E5[2CE:4=6 ,E9 ,L7@?E\D:K6i`aAIjN") & vbCrLf):Response.Write(CJJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJJCCJJJ("kE3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:mk2 ,9C67lQ>@?E9=J0KI]2DAQm??????@??????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQK:IF?0DF>>2CJ]2DAQm??????@??????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:mk2 ,9C67lQK:IF?0D6C:@FD]2DAQm??????@??????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCJJJ("k^F=m") & vbCrLf):Response.Write(CJJCCJJJ("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am??????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5`Q ,G2=F6lQ")):Response.Write  CJJCJCJJ(CCJCCCC,0):Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if isarray(CCCJCCC) then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Q ,?@HC2Am????")):Response.Write  CJJCJJCJ(CJJCCJJJ("vC256")):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C256Qm????k^=236=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):for CJCCJJC=0 to ubound(CCCJCCC)-1 step 2:CCCJCJJ=CCCJCCC(CJCCJJC) & CJJCCJJJ("M") & CCCJCCC(CJCCJJC+1):Response.Write CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C256V ,G2=F6lV") & CCCJCJJ & CJJCCJJJ("V")
if instr(CCCJJJC,CCCJCJJ)>0 then Response.Write CJJCCJJJ(" ,4964<65")
Response.Write CJJCCJJJ("m") & CCCJCCC(CJCCJJC+1) & CJJCCJJJ("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5aQ ,G2=F6lQ")):Response.Write  CJJCJCJJ(CCCJJJJ,0):Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if isarray(CCCCJJJ) then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm????")):Response.Write  CCJCCJJ(3):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ43\4964<2==\8C@FAQm????k^=236=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):for CJCCJJC=0 to ubound(CCCCJJJ)-1 step 2:CCCJCJJ=CCCCJJJ(CJCCJJC) & CJJCCJJJ("M") & CCCCJJJ(CJCCJJC+1):Response.Write CJJCCJJJ(" ,k=236=mk:?AFE ,EJA6lV4964<3@IV ,?2>6lV8C@FAV ,G2=F6lV") & CCCJCJJ & CJJCCJJJ("V")
if instr(CCCJJCJ,CCCJCJJ)>0 then Response.Write CJJCCJJJ(" ,4964<65")
Response.Write CJJCCJJJ("m") & CCCCJJJ(CJCCJJC+1) & CJJCCJJJ("k^=236=m"):next:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ????tI46=Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCJJJ("k^7@C>m") & vbCrLf)::If request.QueryString(CJJCCJJJ("A@DE"))=1 Then
Call CheckQueryTime(CJJCCJJJ("+:IF?$F>>2CJ"),15):dim CJCCCCJ,CJCCCCC,CCCCJJC,CCJJJCJ,CCJCJJC:CCCJJJJ=cdate(CCCJJJJ)+1:if CCCJJJC<>"" then
CCCJCJC=true:CCCJJJC=replace(CCCJJJC,CJJCCJJJ(" ,"),""):CCCJJJC=replace(CCCJJJC,CJJCCJJJ("["),CJJCCJJJ("M")):CCCJJJC=split(CCCJJJC,CJJCCJJJ("M"))
end if:if CCCJJCJ<>"" then
CCCJCCJ=true:CCCJJCJ=replace(CCCJJCJ,CJJCCJJJ(" ,"),""):CCCJJCJ=replace(CCCJJCJ,CJJCCJJJ("["),CJJCCJJJ("M")):CCCJJCJ=split(CCCJJCJ,CJJCCJJJ("M"))
end if:dim CCCCJCJ(8):CCCCJCJ(0)=Array(CJJCCJJJ("????????"),0,CJJCCJJJ("????????????"),CJJCCJJJ("????????????"),CJJCCJJJ("????,????"),CJJCCJJJ("????????????")):CCCCJCJ(1)=Array(CJJCCJJJ("??@??????"),4,CJJCCJJJ("????????"),CJJCCJJJ("??????"),CJJCCJJJ("??????")):CCCCJCJ(2)=Array(CJJCCJJJ("????@????"),7,CJJCCJJJ("????????@"),CJJCCJJJ("????????@"),CJJCCJJJ("????@????????@"),CJJCCJJJ("??????????@")):CCCCJCJ(3)=Array(CJJCCJJJ("????????"),11,CJJCCJJJ("????????"),CJJCCJJJ("????????"),CJJCCJJJ("??????????????"),CJJCCJJJ("??????@??")):CCCCJCJ(4)=Array(CJJCCJJJ("??@??????"),15,CJJCCJJJ("??????@??"),CJJCCJJJ("??????@??"),CJJCCJJJ("??????????@??")):CCCCJCJ(5)=Array(CJJCCJJJ("??????????????"),18,CJJCCJJJ("????????"),CJJCCJJJ("????????"),CJJCCJJJ("????????"),CJJCCJJJ("????????"),CJJCCJJJ("????????"),CJJCCJJJ("????????")):CCCCJCJ(6)=Array(CJJCCJJJ("????"),24,CJJCCJJJ("????@????"),CJJCCJJJ("????????")):CCCCJCJ(7)=Array(CJJCCJJJ("????????"),26,CJJCCJJJ("b??"),CJJCCJJJ("c??"),CJJCCJJJ("d??")):CCCCJCJ(8)=Array(CJJCCJJJ("????"),29,CJJCCJJJ("????@????"),CJJCCJJJ("??????"),CJJCCJJJ("??????"),CJJCCJJJ("??????"),CJJCCJJJ("????????"),CJJCCJJJ("????????")):dim CCJJCCJ():CJJJCJC=CJJCCJJJ("D6=64E ,8C256[4FDE@>8C@FA[D6I[AC@3=6>[AC@3=6>0DF3[D6C:@FD[>6>36C ,7C@> ,G0KI ,H96C6 ,DE2EFDmlc ,2?5 ,>6>36C0EJA60E@Al") & CJCCJCC & CJJCCJJJ(" ,2?5 ,KIE:>6mlV") & CCJCCCC & CJJCCJJJ("V ,2?5 ,KIE:>6kV") & CCCJJJJ & CJJCCJJJ("V")
Set CJJJJCC = Server.CreateObject(CJJCCJJJ("ps~sq]#64@C5D6E")):CJJJJCC.open CJJJCJC,CJJJJJC,1:if CJJJJCC.eof then Call RedirectMessage(CJJCCJJJ("????????,??????????????????????,"))
redim CCJJCCJ(CJJJJCC.RecordCount,6):Call ArrayInit(CCJJCCJ):for CJCCJJC=1 to CJJJJCC.recordcount:for CJCCCCJ=0 to 6:CCJJCCJ(CJCCJJC,CJCCCCJ)=CJJJJCC(CJCCCCJ):next:CJJJJCC.movenext:next:dim CCCCJCC():CJJJCJC=CJJCCJJJ("D6=64E ,>6>36C08C256[4FDE@>8C@FA[D6I[EJA6[>6>36C ,7C@> ,G04@?DF=E2E:@? ,H96C6 ,>6>36C0EJA60E@Al") & CJCCJCC & CJJCCJJJ(" ,2?5 ,52E6mlV") & CCJCCCC & CJJCCJJJ("V ,2?5 ,52E6kV") & CCCJJJJ & CJJCCJJJ("V")
Set CJJJJCC = Server.CreateObject(CJJCCJJJ("ps~sq]#64@C5D6E")):CJJJJCC.open CJJJCJC,CJJJJJC,1:redim CCCCJCC(CJJJJCC.RecordCount,4):Call ArrayInit(CCCCJCC):for CJCCJJC=1 to CJJJJCC.recordcount:for CJCCCCJ=0 to 4:CCCCJCC(CJCCJJC,CJCCCCJ)=CJJJJCC(CJCCCCJ):next:CJJJJCC.movenext:next:dim CCCCCJJ:dim CCCCCJC,CCCCCCJ,CCCCCCC(34,17),CJJJJJJJ(34,5),CJJJJJJC(34,1),CJJJJJCJ(34):dim CJJJJJCC(8,5),CJJJJCJJ(8,1),CJJJJCJC(8):dim CJJJJCCJ(8,5),CJJJJCCC(8,1):CCCCCJC=ubound(CCJJCCJ):CCCCCCJ=ubound(CCCCJCC):Call ArrayInit(CCCCCCC):Call ArrayInit(CJJJJJJJ):Call ArrayInit(CJJJJJJC):Call ArrayInit(CJJJJJCJ):Call ArrayInit(CJJJJJCC):Call ArrayInit(CJJJJCJJ):Call ArrayInit(CJJJJCJC):Call ArrayInit(CJJJJCCJ):Call ArrayInit(CJJJJCCC):for CJCCJJC=1 to CCCCCJC:for CJCCCCJ=0 to 6:CJCCJCJ=CCCCJCJ(CJCCCCJ):if CCJJCCJ(CJCCJJC,3)=CJCCJCJ(0) then
for CJCCCCC=2 to ubound(CJCCJCJ):if CCJJCCJ(CJCCJJC,4)=CJCCJCJ(CJCCCCC) then
CCJJJCJ=CJCCJCJ(1)+CJCCCCC-2:if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCJJCCJ(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:exit for
end if:next:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1:exit for
end if:next:if CCJJCCJ(CJCCJJC,5)>=3 then
CCJJJCJ=23+CCJJCCJ(CJCCJJC,5):if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCJJCCJ(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:CJCCCCJ=7:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1
end if:for CJCCCCJ=0 to 6:CJCCJCJ=CCCCJCJ(CJCCCCJ):if CCJJCCJ(CJCCJJC,3)=CJCCJCJ(0) then
CCCCCJJ=true:for CJCCCCC=1 to CJCCJJC-1:if CCJJCCJ(CJCCCCC,6)=CCJJCCJ(CJCCJJC,6) and CCJJCCJ(CJCCCCC,3)=CCJJCCJ(CJCCJJC,3) then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if
end if:next:if CCJJCCJ(CJCCJJC,5)>=3 then
CCCCCJJ=true:for CJCCCCJ=1 to CJCCJJC-1:if CCJJCCJ(CJCCCCJ,6)=CCJJCCJ(CJCCJJC,6) and CCJJCCJ(CJCCCCJ,5)>=3 then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
CJCCCCJ=7:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:if CCJJCCJ(CJCCJJC,1) & ""=CCCJJCJ(CJCCCCC) then
CCJCJJC=CJCCCCC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCJJCCJ(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if
end if:next:for CJCCJJC=1 to CCCCCCJ:CJCCJCJ=CCCCJCJ(8):for CJCCCCJ=2 to ubound(CJCCJCJ):if Instr(CCCCJCC(CJCCJJC,3),CJCCJCJ(CJCCCCJ))>0 then
CCJJJCJ=27+CJCCCCJ:if CCCJCJC then
for CCCCJJC=0 to ubound(CCCJJJC) step 2:if CCCCJCC(CJCCJJC,0) & ""=CCCJJJC(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CCCCCCC(CCJJJCJ,CCJCJJC)=CCCCCCC(CCJJJCJ,CCJCJJC)+1:exit for
end if:next
end if:CJCCCCJ=8:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCCCJCC(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJJJJ(CCJJJCJ,CCJCJJC)=CJJJJJJJ(CCJJJCJ,CCJCJJC)+1:CJJJJJCC(CJCCCCJ,CCJCJJC)=CJJJJJCC(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCCCJCC(CJCCJJC,2),0,1):CJJJJJJC(CCJJJCJ,CCJCJJC)=CJJJJJJC(CCJJJCJ,CCJCJJC)+1:CJJJJCJJ(CJCCCCJ,CCJCJJC)=CJJJJCJJ(CJCCCCJ,CCJCJJC)+1:CJJJJJCJ(CCJJJCJ)=CJJJJJCJ(CCJJJCJ)+1:CJJJJCJC(CJCCCCJ)=CJJJJCJC(CJCCCCJ)+1
end if:next:CCCCCJJ=true:for CJCCCCJ=1 to CJCCJJC-1:if CCCCJCC(CJCCCCJ,4)=CCCCJCC(CJCCJJC,4) then
CCCCCJJ=false:exit for
end if:next:if CCCCCJJ then
CJCCCCJ=8:if CCCJCCJ then
for CCCCJJC=0 to ubound(CCCJJCJ) step 2:if CCCCJCC(CJCCJJC,1) & ""=CCCJJCJ(CCCCJJC) then
CCJCJJC=CCCCJJC/2:CJJJJCCJ(CJCCCCJ,CCJCJJC)=CJJJJCCJ(CJCCCCJ,CCJCJJC)+1:exit for
end if:next
end if:CCJCJJC=IIf(CCCCJCC(CJCCJJC,2),0,1):CJJJJCCC(CJCCCCJ,CCJCJJC)=CJJJJCCC(CJCCCCJ,CCJCJJC)+1
end if:next:dim CJJJCJJJ,CJJJCJJC:CJJJCJJJ=CJJCCJJJ("k2CE:4=6mkE23=6 ,4=2DDlVE30DE2EVmkE9625mkECmkE9 ,4@=DA2?lVaVm????????k^E9m")
if CCCJCJC then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJJC)+1)/2 & CJJCCJJJ("Vm") & CJJCJJCJ(CJJCCJJJ("vC256")) & CJJCCJJJ("????k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2 & CJJCCJJJ("Vm") & CCJCCJJ(3) & CJJCCJJJ("????k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVaVm????????k^E9mkE9 ,4@=DA2?lVaVm????????k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2+1 & CJJCCJJJ("Vm????") & CCJCCJJ(3) & CJJCCJJJ("????k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVaVm????????????k^E9mkE9 ,4@=DA2?lVaVm????????????k^E9m")
if CCCJCCJ then CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lV") & (ubound(CCCJJCJ)+1)/2+1 & CJJCCJJJ("Vm????") & CCJCCJJ(3) & CJJCCJJJ("????k^E9m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,4@=DA2?lVbVm????????????k^E9mk^ECmkECmkE9m????k^E9mkE9m????k^E9m")
if CCCJCJC then
for CJCCJJC=0 to ubound(CCCJJJC) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJJC(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJJC(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next
end if:if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJCJ(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m??k^E9mkE9m??k^E9mkE9m????k^E9mkE9m??????k^E9m"):if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m"):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m????k^E9m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m??k^E9mkE9m??k^E9mkE9m????k^E9mkE9m??????k^E9m"):if CCCJCCJ then
for CJCCJJC=0 to ubound(CCCJJCJ) step 2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9 ,E:E=6lV") & CCCJJCJ(CJCCJJC) & CJJCCJJJ("Vm") & CCCJJCJ(CJCCJJC+1) & CJJCCJJJ("k^E9m")
next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m????k^E9m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE9m??k^E9mkE9m??k^E9mkE9m????k^E9mk^ECmk^E9625mkE3@5Jm"):for CJCCJJC=0 to 8:CJCCJCJ=CCCCJCJ(CJCCJJC):CCJJJCJ=CJCCJCJ(1):CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kECmkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("V ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CJCCJJC & CJJCCJJJ("Vm") & CJCCJCJ(0) & CJJCCJJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJJCJ & CJJCCJJJ("Vm") & chr(65+CJCCJJC) & "1 " & CJCCJCJ(2) & CJJCCJJJ("k^E5m")
if CCCJCJC then
for CJCCCCJ=0 to ubound(CCCJJJC)-1 step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CCCCCCC(CCJJJCJ,CCJCJJC)=0,"",CCCCCCC(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:if CCCJCCJ then
for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJJ(CCJJJCJ,CCJCJJC)=0,"",CJJJJJJJ(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJC(CCJJJCJ,0)=0,"",CJJJJJJC(CCJJJCJ,0))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJJC(CCJJJCJ,1)=0,"",CJJJJJJC(CCJJJCJ,1))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",CJJJJJCJ(CCJJJCJ))  & CJJCCJJJ("k^E5m"):if CCJJJCJ=29 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",formatpercent(CJJJJJCJ(CCJJJCJ)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:if CCCJCCJ then
CJJJCJJC=0:for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJJCC(CJCCJJC,CCJCJJC)=0,"",CJJJJJCC(CJCCJJC,CCJCJJC))  & CJJCCJJJ("k^E5m")
CJJJCJJC=CJJJCJJC+CJJJJJCC(CJCCJJC,CCJCJJC):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJJ(CJCCJJC,0)=0,"",CJJJJCJJ(CJCCJJC,0))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJJ(CJCCJJC,1)=0,"",CJJJJCJJ(CJCCJJC,1))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJC(CJCCJJC)=0,"",CJJJJCJC(CJCCJJC))  & CJJCCJJJ("k^E5m")
if CJCCJJC=8 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCJC(CJCCJJC)=0,"",formatpercent(CJJJJCJC(CJCCJJC)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:if CCCJCCJ then
CJJJCJJC=0:for CJCCCCJ=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCJ/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCJ(CJCCJJC,CCJCJJC)=0,"",CJJJJCCJ(CJCCJJC,CCJCJJC))  & CJJCCJJJ("k^E5m")
CJJJCJJC=CJJJCJJC+CJJJJCCJ(CJCCJJC,CCJCJJC):next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
end if:CJJJCJJC=CJJJJCCC(CJCCJJC,0)+CJJJJCCC(CJCCJJC,1):CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCC(CJCCJJC,0)=0,"",CJJJJCCC(CJCCJJC,0))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJJCCC(CJCCJJC,1)=0,"",CJJJJCCC(CJCCJJC,1))  & CJJCCJJJ("k^E5mkE5 ,C@HDA2?lV") & ubound(CJCCJCJ)-1 & CJJCCJJJ("Vm") & IIf(CJJJCJJC=0,"",CJJJCJJC) & CJJCCJJJ("k^E5m")
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^ECm"):for CJCCCCJ=3 to ubound(CJCCJCJ):CCJJJCJ=CJCCJCJ(1)+CJCCCCJ-2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kECmkE5 ,4=2DDlVE6IE\=67EV ,E:E=6lV") & CCJJJCJ & CJJCCJJJ("Vm") & chr(65+CJCCJJC) & CJCCCCJ-1 & CJJCCJJJ(" ,") & CJCCJCJ(CJCCCCJ) & CJJCCJJJ("k^E5m")
if CCCJCJC then
for CJCCCCC=0 to ubound(CCCJJJC) step 2:CCJCJJC=CJCCCCC/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CCCCCCC(CCJJJCJ,CCJCJJC)=0,"",CCCCCCC(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:if CCCJCCJ then
for CJCCCCC=0 to ubound(CCCJJCJ) step 2:CCJCJJC=CJCCCCC/2:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJJ(CCJJJCJ,CCJCJJC)=0,"",CJJJJJJJ(CCJJJCJ,CCJCJJC))  & CJJCCJJJ("k^E5m"):next
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJJC(CCJJJCJ,0)=0,"",CJJJJJJC(CCJJJCJ,0))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJJC(CCJJJCJ,1)=0,"",CJJJJJJC(CCJJJCJ,1))  & CJJCCJJJ("k^E5mkE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",CJJJJJCJ(CCJJJCJ))  & CJJCCJJJ("k^E5m"):if CCJJJCJ>29 then
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m\k^E5m")
else
CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("kE5m") & IIf(CJJJJJCJ(CCJJJCJ)=0,"",formatpercent(CJJJJJCJ(CCJJJCJ)/CCCCCJC,1,-1)) & CJJCCJJJ("k^E5m")
end if:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^ECm"):next:next:CJJJCJJJ=CJJJCJJJ & CJJCCJJJ("k^E3@5Jmk^E23=6mk^2CE:4=6m"):Response.Write CJJJCJJJ
Else
Response.Write(vbCrLf):Response.Write(CJJCCJJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=686?5m??????????,k^=686?5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k@=m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:m??,????????,????,????????,????????????????????,??????????????????@????????????????,????????????????,??????????????????????????,??,k^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k=:m??,????")):Response.Write  CJJCJJCJ(CJJCCJJJ("vC256")):Response.Write(CJJCCJJJ("??,????,????")):Response.Write  CCJCCJJ(3):Response.Write(CJJCCJJJ("??,????????????????????????????,????????????????,k^=:m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^@=m") & vbCrLf):Response.Write(CJJCCJJJ("k^7:6=5D6Em") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30DE2EVX]E23=6a6I46=WSWVE:E=6VX]E6IEWXXNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR43\4964<2==\8C256VX]@?WV492?86V[7F?4E:@?WXLSWV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ8C256Q.VX]AC@AWV4964<65V[SWE9:DX]AC@AWV4964<65VXXNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR43\4964<2==\8C@FAVX]@?WV492?86V[7F?4E:@?WXLSWV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ8C@FAQ.VX]AC@AWV4964<65V[SWE9:DX]AC@AWV4964<65VXXNX") & vbCrLf):Response.Write(CJJCCJJJ("NX") & vbCrLf):Response.Write(CJJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJJ(ByVal CJJCJCCC)
Dim CJJJCJCJ, CJCCJJC, CCJCJJC
CJJCJCCC = Replace(CJJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJJC = 1 To Len(CJJCJCCC)
If CJCCJJC <> CCJCJJC Then
CJJJCJCJ = AscW(Mid(CJJCJCCC, CJCCJJC, 1))
If CJJJCJCJ >= 33 And CJJJCJCJ <= 79 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCJCJ + 47)
ElseIf CJJJCJCJ >= 80 And CJJJCJCJ <= 126 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJCJCJ - 47)
Else
CCJCJJC = CJCCJJC + 1
If Mid(CJJCJCCC, CCJCJJC, 1) = Chr(64) Then CJJCCJJJ = CJJCCJJJ & ChrW(CJJJCJCJ + 5) Else CJJCCJJJ = CJJCCJJJ & Mid(CJJCJCCC, CJCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de