Edit D:\xinhaisoft\crisis_new\school\new\index

Edit D:\xinhaisoft\crisis_new\school\new\index_logined.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJJ, CJJJJJC,CJJJJCJ, CJJJJCC, CJJJCJJ:Set CJJJJJJ = server.CreateObject(CCJCCCC("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CCJCCCC("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(CCJCCCC("!$*|t|qt#"))):if CJCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJC>0 then
CJJJCJJ=CCJCCCC("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 & CCJCCCC("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(CCJCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCJ)>0 then Call RedirectMessage(CCJCCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCJC,CJJJCCJ)
End IF
end if:::Sub CheckLogined():if CJJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CCJCCCC("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CCJCCCC("^>^G2?E^R^D49@@=^") & CJCCJJJ & CCJCCCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCCCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCCC("!$*|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 CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCJJC=split(CJCJCCC,CCJCCCC("]")):if ubound(CJCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then
Call ClearMemberCookie
else
CJCCJCJ=CJCCJJC(1):for CJCCJCC=1 to len(CJCCJCJ):CJCCCJJ=mid(CJCCJCJ,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCJCJ=CJCCJJC(2):if CJCCCJC<>mid(CJCCJCJ,6,7) then
Call ClearMemberCookie
else
CJCCCJJ=mid(CJCCJCJ,18,10)/2:if CJCCCJJ<DateDiff(CCJCCCC("D"), CCJCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJC=Clng(CJCCJJC(0)):CJJJCCJ=CJCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJJ,CCCJJJC):dim CJCCJCC,CJCCCJJ,CJCCCJC:for CJCCJCC=1 to len(CCCJJJC):CJCCCJJ=mid(CCCJJJC,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCCJC=CCCJJJJ & CCJCCCC("]") & CCCJJJC & CCJCCCC("]") & Fix(10000*(Rnd+1)) & CJCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCCC("D"), CCJCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCCC("!$*|t|qt#"))=CJCCCJC:End Sub:::Function IIf(CCCJJCJ, CCCJJCC, CCCJCJJ):if isnull(CCCJJCJ) or isempty(CCCJJCJ) then
IIf = CCCJCJJ
elseif CCCJJCJ Then
IIf = CCCJJCC
Else
IIf = CCCJCJJ
end if:End Function:Const CCJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJCJC,CCCJCCJ):dim CJCCJJC:CJCCJJC=CCCJCJC & "=" & CCCJCCJ & CCJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCCC("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CCJCJJJ(CCJJCJC):if isnull(CCJJCJC) or trim(CCJJCJC)="" or not isnumeric(CCJJCJC) then
CCJCJJJ=false
else
Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CCJCCCC("/-5ZS"):CJCCCCJ.IgnoreCase = True:CCJCJJJ = CJCCCCJ.test(CCJJCJC):set CJCCCCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:CCJJJJC.close : set CCJJJJC=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CCJCCJC.Close : Set CCJCCJC = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCCC("!$*0|6DD286"),server.URLEncode(CCCJCCC)):Response.Redirect CCJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJCCJJJ:CJJJCJJ=Request.ServerVariables(CCJCCCC("!p%w0x}u~")):if instr(CJJJCJJ,CCJCCCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCCJ and not CJCJCJC then Call RedirectMessage(CCJCCCC("????????,????????????????????????,"))
CJCCJJJ=CJJCJCC
elseif instr(CJJJCJJ,CCJCCCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJCJJ,CCJCCCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJJJ=CJJCJCC
elseif instr(CJJJCJJ,CCJCCCC("^D49@@="))>0 then
CJCCJJJ=Request.QueryString(CCJCCCC("D49@@=")):if not CCJCJJJ(CJCCJJJ) then CJCCJJJ=Request.QueryString(CCJCCCC("F"))
if not CCJCJJJ(CJCCJJJ) then CJCCJJJ=Request.QueryString(CCJCCCC("D4"))
if not CCJCJJJ(CJCCJJJ) then Call RedirectMessage(CCJCCCC("????????W$49@@=X??@??????????,"))
CJCCJJJ=csng(CJCCJJJ)
end if:if CJCCJJJ=0 then Call RedirectMessage(CCJCCCC("????????W$49@@=X????W_X??,"))
Dim CJCCCCC:Call SetConfig:Sub SetConfig():dim CCJJJJJ,CCJJJJC:CJJJCJJ=CCJCCCC("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") & CJCCJJJ:set CCJJJJC=CJJJJJJ.execute(CJJJCJJ):if CCJJJJC.eof then Call RedirectMessage(CCJCCCC("??W") & CJJJCJC & CCJCCCC("X??????????W") & CJCCJJJ & CCJCCCC("X????????,"))
ReDim CCJJJJJ(61):CCJJJJJ(0)=CCJJJJC(CCJCCCC(";:2@H6:")) & "":CCJJJJJ(1)=CCJJJJC(CCJCCCC("EJA6")):CCJJJJJ(2)=CCJJJJC(CCJCCCC("D>D")):CCJJJJJ(3)=CCJJJJC(CCJCCCC("4FDE@>8C@FA")) & "":CCJJJJJ(4)=CCJJJJC(CCJCCCC("D:5632C0@E96C")) & "":CCJJJJJ(5)=IIf(isnull(CCJJJJC(CCJCCCC("E6DEC6DF=EG:6H"))),0,CCJJJJC(CCJCCCC("E6DEC6DF=EG:6H"))):CCJJJJJ(6)=CCJJJJC(CCJCCCC("K:IF?E:>6")):CCJJJJJ(7)=CCJJJJC(CCJCCCC("766")):CCJJJJJ(8)=CCJJJJC(CCJCCCC("C6E6DE52J")):CCJJJJJ(9)=CCJJJJC(CCJCCCC("6IA:C652E6")):CCJJJJJ(10)=CCJJJJC(CCJCCCC("E:E=6")):CCJJJJJ(11)=CCJJJJC(CCJCCCC(":?EC@")) & "":CCJJJJJ(12)=CCJJJJC(CCJCCCC("A:4EFC6")) & "":CCJJJJJ(13)=CCJJJJC(CCJCCCC("72>:=J")):CCJJJJJ(14)=CCJJJJC(CCJCCCC("4@AJC:89E")) & "":CCJJJJJ(15)=IIf(isnull(CCJJJJC(CCJCCCC("D6>6DE6C0DE2CE052E6"))),CCJCCCC("`h__\`\`"),CCJJJJC(CCJCCCC("D6>6DE6C0DE2CE052E6"))):CCJJJJJ(16)=IIf(isnull(CCJJJJC(CCJCCCC("K:IF?0E:>6D09:89=:89E"))),0,CCJJJJC(CCJCCCC("K:IF?0E:>6D09:89=:89E"))):CCJJJJJ(17)=CCJJJJC(CCJCCCC("4@?E24E")) & "":CCJJJJJ(18)=CCJJJJC(CCJCCCC("D2?5E23=6")):CCJJJJJ(19)=CCJJJJC(CCJCCCC("4C:D:D")):CCJJJJJ(20)=CCJJJJC(CCJCCCC("JJ52E6")):CCJJJJJ(21)=CCJJJJC(CCJCCCC("BB")):CCJJJJJ(22)=CCJJJJC(CCJCCCC("JFJF60D>D0EA=")) & "":CCJJJJJ(23)=CCJJJJC(CCJCCCC("JFJF60E6DE0=3")) & "":CCJJJJJ(25)=CCJJJJC(CCJCCCC("6IA6CE")):CCJJJJJ(26)=CCJJJJC(CCJCCCC(">@5:?7@")):CCJJJJJ(27)=CCJJJJC(CCJCCCC("9@>6A286E@AA:4EFC6")) & "":CCJJJJJ(28)=CCJJJJC(CCJCCCC("4C:D:D=3")):CCJJJJJ(29)=IIf(CCJJJJC(CCJCCCC("4C:D:D@=5")),False,True):CCJJJJJ(30)=CCJJJJC(CCJCCCC("8C@FA8F:52?46")):CCJJJJJ(31)=CCJJJJC(CCJCCCC("3:@7665324<")):CCJJJJJ(32)=CCJJJJC(CCJCCCC("<6JDEC")):CCJJJJJ(33)=CCJJJJC(CCJCCCC("=@8@")) & "":CCJJJJJ(34)=CCJJJJC(CCJCCCC("K:46")):CCJJJJJ(35)=IIf(CCJJJJC(CCJCCCC(":D?6H")),True,False):CCJJJJJ(36)=121:CCJJJJJ(37)=111:CCJJJJJ(38)=160:CCJJJJJ(39)=CCJJJJC(CCJCCCC("8F6DE3@@<")):CCJJJJJ(40)=CCJJJJC(CCJCCCC("75D")):CCJJJJJ(42)=CCJJJJC(CCJCCCC("9@>6=@8:?")):CCJJJJJ(43)=CCJJJJC(CCJCCCC("K:IF?0?6657665324<")):CCJJJJJ(44)=CCJJJJC(CCJCCCC("K:IF?0E:>6D0=:>:E")):CCJJJJJ(45)=CCJJJJC(CCJCCCC("4@>A=6E60:?7@")):CCJJJJJ(46)=CCJJJJC(CCJCCCC("E6DE:?EC@")) & "":CCJJJJJ(47)=IIf(isnull(CCJJJJC(CCJCCCC("JFJF60367@C60E:>6"))),0,CCJJJJC(CCJCCCC("JFJF60367@C60E:>6"))):CCJJJJJ(49)=CCJJJJC(CCJCCCC("D>D0C646:G6C")):CCJJJJJ(50)=CCJJJJC(CCJCCCC("D>D0D:8?")) & "":CCJJJJJ(52)=CCJJJJC(CCJCCCC("JFJF602CC2?86")):CCJJJJJ(53)=IIf(isnull(CCJJJJC(CCJCCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJJC(CCJCCCC("DEF56?E0BF6DE:@?04@F?E"))):CCJJJJJ(54)=CCJJJJC(CCJCCCC("9:560=30@FE@7286")):CCJJJJJ(55)=CCJJJJC(CCJCCCC("JFJF60E6DE052JD")):CCJJJJJ(56)=CCJJJJC(CCJCCCC("JFJF60H66<0=:>:E")):CCJJJJJ(57)=CCJJJJC(CCJCCCC("JFJF604964<65")):CCJJJJJ(58)=CCJJJJC(CCJCCCC("K:IF?0?6657665324<0?6IE")):CCJJJJJ(59)=CCJJJJC(CCJCCCC("4964<?6HDEF56?E")):CCJJJJJ(60)=CCJJJJC(CCJCCCC("K:IF?04=@D6052E6")):CCJJJJC.close : set CCJJJJC=nothing:if isNull(CCJJJJJ(8)) or CCJJJJJ(8)="" then CCJJJJJ(8)=0
if isdate(CCJJJJJ(9)) then
CCJJJJJ(9)=cdate(CCJJJJJ(9)):if CCJJJJJ(9)<Date then Call RedirectMessage(CCJCCCC("????????,????????????????W") & CCJJJJJ(9) & CCJCCCC("X??????,"))
end if:if not CCJCJJJ(CCJJJJJ(20)) then CCJJJJJ(20)=7
select case CCJJJJJ(1):case 1,2,16:CCJJJJJ(36)=159:case 4,5,6,10,11:CCJJJJJ(36)=190:CCJJJJJ(37)=178:CCJJJJJ(38)=191:case 7,13:CCJJJJJ(36)=164:CCJJJJJ(37)=178:CCJJJJJ(38)=179:end select:CJCCCCC=CCJJJJJ:End Sub:Function CCJCCJJ(CCCCJJJ):dim CCJJJJJ(7,1),CJCCJCC,CCJJJCJ,CCJJJCC:CCJJJCJ=Array(CCJCCCC("$49@@="),CCJCCCC("$EF56?E"),CCJCCCC("s6AE"),CCJCCCC("vC256"),CCJCCCC("r=2DD>2E6"),CCJCCCC("}F>36C"),CCJCCCC("%62496C"),CCJCCCC("!2C6?E")):select case CJCCCCC(1):case 1,2 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????")):case 3,16 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????")):case 4 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("??????@"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????")):case 5 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????")):case 6 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("??????@"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 7 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 8 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("??????@"),CCJCCCC("????"),CCJCCCC("????????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 9 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 10 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 11 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 12 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 13 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????")):case 14 : CCJJJCC=Array(CCJCCCC("??????"),CCJCCCC("??@??"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case 15 : CCJJJCC=Array(CCJCCCC("????"),CCJCCCC("????????"),CCJCCCC("????"),CCJCCCC("????????"),CCJCCCC("????"),CCJCCCC("????"),CCJCCCC("??????"),CCJCCCC("????")):case else : CCJJJCC=CCJJJCJ
end select:for CJCCJCC=0 to Ubound(CCJJJJJ):CCJJJJJ(CJCCJCC,0)=CCJJJCJ(CJCCJCC):CCJJJJJ(CJCCJCC,1)=CCJJJCC(CJCCJCC):next:for CJCCJCC=0 to Ubound(CCJJJJJ):if CCJJJJJ(CJCCJCC,0)=CCCCJJJ then
CCJCCJJ=CCJJJJJ(CJCCJCC,1):exit for
end if:next:End Function:Response.Write(vbCrLf):Response.Write(CCJCCCC("k7:6=5D6E ,4=2DDlQ=@8:?Qm") & vbCrLf):Response.Write(CCJCCCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCCCC(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CCJCCCC(" ,k=:mk2 ,9C67lQ]]^]]^DEF56?E^:?56I]2DAQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCC(" ,")):If CJCCCCC(26) Then
Response.Write(vbCrLf):Response.Write(CCJCCCC(" ,k=:mk2 ,9C67lQ]]^]]^DEF56?E^>J:?7@]2DAQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCC(" ,"))
End If::If CJJCCCJ or CJCJCJC Then
Response.Write(vbCrLf):Response.Write(CCJCCCC(" ,k=:mk2 ,9C67lQ]]^25>:?^>2:?]2DAQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCCC(" ,k=:mk2 ,9C67lQ]]^]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^?6H^:?56I]2DAnD49@@=l")):Response.Write  CJCCJJJ:Response.Write(CCJCCCC("QmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?m ,????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCC(" ,k^F=m") & vbCrLf):Response.Write(CCJCCCC("k^7:6=5D6Em") & vbCrLf)::On Error Resume Next:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=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 CCJCCCC(ByVal CCJCCCJ)
Dim CCJJCJJ, CJCCJCC, CCJJCJC
CCJCCCJ = Replace(CCJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJCC = 1 To Len(CCJCCCJ)
If CJCCJCC <> CCJJCJC Then
CCJJCJJ = AscW(Mid(CCJCCCJ, CJCCJCC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CCJCCCC = CCJCCCC & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CCJCCCC = CCJCCCC & Chr(CCJJCJJ - 47)
Else
CCJJCJC = CJCCJCC + 1
If Mid(CCJCCCJ, CCJJCJC, 1) = Chr(64) Then CCJCCCC = CCJCCCC & ChrW(CCJJCJJ + 5) Else CCJCCCC = CCJCCCC & Mid(CCJCCCJ, CJCCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de