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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CJCCJJJ("ps~sq]r@??64E:@?")):CJJJJC.open Application(CJCCJJJ("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC::Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ:CCCJJJ=Trim(Request.Cookies(CJCCJJJ("!$*|t|qt#"))):if CCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCCJ>0 then
CJJCJC=CJCCJJJ("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") & CJJCCC & CJCCJJJ("V ,2?5 ,:5l") & CJJCCJ
set CJJJCC=CJJJJC.execute(CJJCJC):If CJJJCC.EOF Then
Call ClearMemberCookie
Else
CJCJJJ=CJJJCC(2) & "":CJCJJC=CJJJCC(3):CJCJCJ=CJJJCC(5):CJCJCC=CJJJCC(6):CJCCJJ=CJJJCC(9):CJCCJC=CJJJCC(15):CJCCCC=CJJJCC(0):CCJCCJ=CJJJCC(1):CCJCJC=CJJJCC(11) & "":CCJJJJ=CJJJCC(10) & "":CJCCCJ=CJJJCC(12):CCJJJC=CJJJCC(14):CCJJCJ=CJJJCC(13):CCJJCC=CJJJCC(7) & "":CCJCJJ=CJJJCC(4):CCJCCC=CJJJCC(8):if isnull(CJCCJC) then CJCCJC=0
if isnull(CJCCJJ) or CJCCJJ=0 then CJCCJJ=CJCJJC
if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CJCJCJ) then CJCJCJ=0
if instr(CJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCC)>0 then Call RedirectMessage(CJCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCCJ,CJJCCC)
End IF
end if:::Sub CheckLogined():if CJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJJC:CCCJJC=trim(request.QueryString(CJCCJJJ("D49@@="))):if isnumeric(CCCJJC) then
response.Redirect CJCCJJJ("^>^G2?E^R^D49@@=^") & CCCJJC & CJCCJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJJJ("!$*|t|qt#"))="":CJJCCJ=0:CJCJCC=0:CJJCCC=Empty:CJCJCJ=0:CJCCJC=0:CJCCJJ=0:CJCJJC=0:CJCCCC=False:CCJCCJ=False:CCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:CCCJCJ=split(CCCJJJ,CJCCJJJ("]")):if ubound(CCCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCJ(0)) or len(CCCJCJ(1))<>32 or len(CCCJCJ(2))<>32 then
Call ClearMemberCookie
else
CCCJCC=CCCJCJ(1):for CCCCJJ=1 to len(CCCJCC):CCCCJC=mid(CCCJCC,CCCCJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCJCC=CCCJCJ(2):if CCCCCJ<>mid(CCCJCC,6,7) then
Call ClearMemberCookie
else
CCCCJC=mid(CCCJCC,18,10)/2:if CCCCJC<DateDiff(CJCCJJJ("D"), CJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCCJ=Clng(CCCJCJ(0)):CJJCCC=CCCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJC,CJCCJJC):dim CCCCJJ,CCCCJC,CCCCCJ:for CCCCJJ=1 to len(CJCCJJC):CCCCJC=mid(CJCCJJC,CCCCJJ,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC
if len(CCCCCJ)=7 then exit for
next:CCCCCJ=CJJCJJC & CJCCJJJ("]") & CJCCJJC & CJCCJJJ("]") & Fix(10000*(Rnd+1)) & CCCCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJJ("D"), CJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJJ("!$*|t|qt#"))=CCCCCJ:End Sub:::Function IIf(CJCCJCJ, CJCCJCC, CJCCCJJ):if isnull(CJCCJCJ) or isempty(CJCCJCJ) then
IIf = CJCCCJJ
elseif CJCCJCJ Then
IIf = CJCCJCC
Else
IIf = CJCCCJJ
end if:End Function:Const CJJCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCJC,CJCCCCJ):dim CCCJCJ:CCCJCJ=CJCCCJC & "=" & CJCCCCJ & CJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJJ("$6E\r@@<:6"),CCCJCJ):End Sub:::::::Function CJJCCCC(CJJCCJJ):if isnull(CJJCCJJ) or trim(CJJCCJJ)="" or not isnumeric(CJJCCJJ) then
CJJCCCC=false
else
Dim CCCCCC:Set CCCCCC = New RegExp:CCCCCC.Pattern = CJCCJJJ("/-5ZS"):CCCCCC.IgnoreCase = True:CJJCCCC = CCCCCC.test(CJJCCJJ):set CCCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJCJCJJ.Close : Set CJCJCJJ = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJJ("!$*0|6DD286"),server.URLEncode(CJCCCCC)):Response.Redirect CJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJCJC(ByVal CJCJCCJ,style):if not isdate(CJCJCCJ) then
CJCJCJC=CJCJCCJ:exit function
end if:dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CJCJCCJ=cdate(CJCJCCJ):CJJJJJJ=Year(CJCJCCJ):CJJJJJC=Month(CJCJCCJ):CJJJJCJ=Day(CJCJCCJ):select case style:case 0:CJCJCJC=CJJJJJJ & CJCCJJJ("\") & right(0 & CJJJJJC,2) & CJCCJJJ("\") & right(0 & CJJJJCJ,2):case 1:CJCJCJC=CJJJJJJ & right(0 & CJJJJJC,2) & right(0 & CJJJJCJ,2):case 2:CJCJCJC=right(CJJJJJJ,2) & CJCCJJJ("\") & right(0 & CJJJJJC,2) & CJCCJJJ("\") & right(0 & CJJJJCJ,2):case 3:CJCJCJC=CJJJJJJ & CJCCJJJ("\") & right(0 & CJJJJJC,2):case 4:CJCJCJC=right(0 & CJJJJJC,2) & CJCCJJJ("\") & right(0 & CJJJJCJ,2):case 5:CJCJCJC=right(0 & CJJJJCJ,2):case 6:CJCJCJC=CJJJJJJ & CJCCJJJ("??") & right(0 & CJJJJJC,2) & CJCCJJJ("??") & right(0 & CJJJJCJ,2) & CJCCJJJ("??"):case else
CJCJCJC=CJCJCCJ:end select:End Function::::::::::::::::::::::dim CCCJJC:CJJCJC=Request.ServerVariables(CJCCJJJ("!p%w0x}u~")):if instr(CJJCJC,CJCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCC and not CCJCCJ then Call RedirectMessage(CJCCJJJ("????????,????????????????????????,"))
CCCJJC=CJCCJJ
elseif instr(CJJCJC,CJCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJC,CJCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCJJC=CJCCJJ
elseif instr(CJJCJC,CJCCJJJ("^D49@@="))>0 then
CCCJJC=Request.QueryString(CJCCJJJ("D49@@=")):if not CJJCCCC(CCCJJC) then CCCJJC=Request.QueryString(CJCCJJJ("F"))
if not CJJCCCC(CCCJJC) then CCCJJC=Request.QueryString(CJCCJJJ("D4"))
if not CJJCCCC(CCCJJC) then Call RedirectMessage(CJCCJJJ("????????W$49@@=X??@??????????,"))
CCCJJC=csng(CCCJJC)
end if:if CCCJJC=0 then Call RedirectMessage(CJCCJJJ("????????W$49@@=X????W_X??,"))
Dim CJJJCJJ:Call SetConfig:Sub SetConfig():dim CJJJCJC,CJJJCCJ:CJJCJC=CJCCJJJ("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") & CCCJJC:set CJJJCCJ=CJJJJC.execute(CJJCJC):if CJJJCCJ.eof then Call RedirectMessage(CJCCJJJ("??W") & CJJCCJ & CJCCJJJ("X??????????W") & CCCJJC & CJCCJJJ("X????????,"))
ReDim CJJJCJC(61):CJJJCJC(0)=CJJJCCJ(CJCCJJJ(";:2@H6:")) & "":CJJJCJC(1)=CJJJCCJ(CJCCJJJ("EJA6")):CJJJCJC(2)=CJJJCCJ(CJCCJJJ("D>D")):CJJJCJC(3)=CJJJCCJ(CJCCJJJ("4FDE@>8C@FA")) & "":CJJJCJC(4)=CJJJCCJ(CJCCJJJ("D:5632C0@E96C")) & "":CJJJCJC(5)=IIf(isnull(CJJJCCJ(CJCCJJJ("E6DEC6DF=EG:6H"))),0,CJJJCCJ(CJCCJJJ("E6DEC6DF=EG:6H"))):CJJJCJC(6)=CJJJCCJ(CJCCJJJ("K:IF?E:>6")):CJJJCJC(7)=CJJJCCJ(CJCCJJJ("766")):CJJJCJC(8)=CJJJCCJ(CJCCJJJ("C6E6DE52J")):CJJJCJC(9)=CJJJCCJ(CJCCJJJ("6IA:C652E6")):CJJJCJC(10)=CJJJCCJ(CJCCJJJ("E:E=6")):CJJJCJC(11)=CJJJCCJ(CJCCJJJ(":?EC@")) & "":CJJJCJC(12)=CJJJCCJ(CJCCJJJ("A:4EFC6")) & "":CJJJCJC(13)=CJJJCCJ(CJCCJJJ("72>:=J")):CJJJCJC(14)=CJJJCCJ(CJCCJJJ("4@AJC:89E")) & "":CJJJCJC(15)=IIf(isnull(CJJJCCJ(CJCCJJJ("D6>6DE6C0DE2CE052E6"))),CJCCJJJ("`h__\`\`"),CJJJCCJ(CJCCJJJ("D6>6DE6C0DE2CE052E6"))):CJJJCJC(16)=IIf(isnull(CJJJCCJ(CJCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCJ(CJCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJJJCJC(17)=CJJJCCJ(CJCCJJJ("4@?E24E")) & "":CJJJCJC(18)=CJJJCCJ(CJCCJJJ("D2?5E23=6")):CJJJCJC(19)=CJJJCCJ(CJCCJJJ("4C:D:D")):CJJJCJC(20)=CJJJCCJ(CJCCJJJ("JJ52E6")):CJJJCJC(21)=CJJJCCJ(CJCCJJJ("BB")):CJJJCJC(22)=CJJJCCJ(CJCCJJJ("JFJF60D>D0EA=")) & "":CJJJCJC(23)=CJJJCCJ(CJCCJJJ("JFJF60E6DE0=3")) & "":CJJJCJC(25)=CJJJCCJ(CJCCJJJ("6IA6CE")):CJJJCJC(26)=CJJJCCJ(CJCCJJJ(">@5:?7@")):CJJJCJC(27)=CJJJCCJ(CJCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJJJCJC(28)=CJJJCCJ(CJCCJJJ("4C:D:D=3")):CJJJCJC(29)=IIf(CJJJCCJ(CJCCJJJ("4C:D:D@=5")),False,True):CJJJCJC(30)=CJJJCCJ(CJCCJJJ("8C@FA8F:52?46")):CJJJCJC(31)=CJJJCCJ(CJCCJJJ("3:@7665324<")):CJJJCJC(32)=CJJJCCJ(CJCCJJJ("<6JDEC")):CJJJCJC(33)=CJJJCCJ(CJCCJJJ("=@8@")) & "":CJJJCJC(34)=CJJJCCJ(CJCCJJJ("K:46")):CJJJCJC(35)=IIf(CJJJCCJ(CJCCJJJ(":D?6H")),True,False):CJJJCJC(36)=121:CJJJCJC(37)=111:CJJJCJC(38)=160:CJJJCJC(39)=CJJJCCJ(CJCCJJJ("8F6DE3@@<")):CJJJCJC(40)=CJJJCCJ(CJCCJJJ("75D")):CJJJCJC(42)=CJJJCCJ(CJCCJJJ("9@>6=@8:?")):CJJJCJC(43)=CJJJCCJ(CJCCJJJ("K:IF?0?6657665324<")):CJJJCJC(44)=CJJJCCJ(CJCCJJJ("K:IF?0E:>6D0=:>:E")):CJJJCJC(45)=CJJJCCJ(CJCCJJJ("4@>A=6E60:?7@")):CJJJCJC(46)=CJJJCCJ(CJCCJJJ("E6DE:?EC@")) & "":CJJJCJC(47)=IIf(isnull(CJJJCCJ(CJCCJJJ("JFJF60367@C60E:>6"))),0,CJJJCCJ(CJCCJJJ("JFJF60367@C60E:>6"))):CJJJCJC(49)=CJJJCCJ(CJCCJJJ("D>D0C646:G6C")):CJJJCJC(50)=CJJJCCJ(CJCCJJJ("D>D0D:8?")) & "":CJJJCJC(52)=CJJJCCJ(CJCCJJJ("JFJF602CC2?86")):CJJJCJC(53)=IIf(isnull(CJJJCCJ(CJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCCJ(CJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJCJC(54)=CJJJCCJ(CJCCJJJ("9:560=30@FE@7286")):CJJJCJC(55)=CJJJCCJ(CJCCJJJ("JFJF60E6DE052JD")):CJJJCJC(56)=CJJJCCJ(CJCCJJJ("JFJF60H66<0=:>:E")):CJJJCJC(57)=CJJJCCJ(CJCCJJJ("JFJF604964<65")):CJJJCJC(58)=CJJJCCJ(CJCCJJJ("K:IF?0?6657665324<0?6IE")):CJJJCJC(59)=CJJJCCJ(CJCCJJJ("4964<?6HDEF56?E")):CJJJCJC(60)=CJJJCCJ(CJCCJJJ("K:IF?04=@D6052E6")):CJJJCCJ.close : set CJJJCCJ=nothing:if isNull(CJJJCJC(8)) or CJJJCJC(8)="" then CJJJCJC(8)=0
if isdate(CJJJCJC(9)) then
CJJJCJC(9)=cdate(CJJJCJC(9)):if CJJJCJC(9)<Date then Call RedirectMessage(CJCCJJJ("????????,????????????????W") & CJJJCJC(9) & CJCCJJJ("X??????,"))
end if:if not CJJCCCC(CJJJCJC(20)) then CJJJCJC(20)=7
select case CJJJCJC(1):case 1,2,16:CJJJCJC(36)=159:case 4,5,6,10,11:CJJJCJC(36)=190:CJJJCJC(37)=178:CJJJCJC(38)=191:case 7,13:CJJJCJC(36)=164:CJJJCJC(37)=178:CJJJCJC(38)=179:end select:CJJJCJJ=CJJJCJC:End Sub:Function CJCJJCC(CCJJJJJ):dim CJJJCJC(7,1),CCCCJJ,CJJJCCC,CJJCJJJ:CJJJCCC=Array(CJCCJJJ("$49@@="),CJCCJJJ("$EF56?E"),CJCCJJJ("s6AE"),CJCCJJJ("vC256"),CJCCJJJ("r=2DD>2E6"),CJCCJJJ("}F>36C"),CJCCJJJ("%62496C"),CJCCJJJ("!2C6?E")):select case CJJJCJJ(1):case 1,2 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????")):case 3,16 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????")):case 4 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("??????@"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????")):case 5 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????")):case 6 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("??????@"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 7 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 8 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("??????@"),CJCCJJJ("????"),CJCCJJJ("????????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 9 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 10 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 11 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 12 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 13 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????")):case 14 : CJJCJJJ=Array(CJCCJJJ("??????"),CJCCJJJ("??@??"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case 15 : CJJCJJJ=Array(CJCCJJJ("????"),CJCCJJJ("????????"),CJCCJJJ("????"),CJCCJJJ("????????"),CJCCJJJ("????"),CJCCJJJ("????"),CJCCJJJ("??????"),CJCCJJJ("????")):case else : CJJCJJJ=CJJJCCC
end select:for CCCCJJ=0 to Ubound(CJJJCJC):CJJJCJC(CCCCJJ,0)=CJJJCCC(CCCCJJ):CJJJCJC(CCCCJJ,1)=CJJCJJJ(CCCCJJ):next:for CCCCJJ=0 to Ubound(CJJJCJC):if CJJJCJC(CCCCJJ,0)=CCJJJJJ then
CJCJJCC=CJJJCJC(CCCCJJ,1):exit for
end if:next:End Function::dim CJJCJJC:CJJCJJC=Request.QueryString(CJCCJJJ(":5")):if not CJJCCCC(CJJCJJC) then Call RedirectMessage(CJCCJJJ("????????,??????????,xs??,??????,"))
Response.Write(vbCrLf):Response.Write(CJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJJ("k9625m") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJJ("kE:E=6m????????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCCJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJJ("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCCJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCCJJJ(" ,k9`m????????????k^9`m") & vbCrLf):Response.Write(CJCCJJJ(" ,")):dim CJJCJCJ:set CJJJCC=CJJJJC.execute(CJCCJJJ("D6=64E ,E@A ,` ,JFJF6=:46?D6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCJJC):CJJCJCJ=CJJJCC(0) & "":Response.Write CJCCJJJ("kAm") & replace(CJJCJCJ,vbcrlf,CJCCJJJ("k^AmkAm")) & CJCCJJJ("k^Am"):set CJJJCC=CJJJJC.execute(CJCCJJJ("D6=64E ,E@A ,` ,>6>36C[D:8?2EFC6[52E6E:>6 ,7C@> ,KI ,H96C6 ,:5l") & CJJCJJC):if not CJJJCC.eof then
Response.Write CJCCJJJ("kAm??????@??????,k:>8 ,DC4lV") & CJJJCC(1) & CJCCJJJ("V ,DEJ=6lVG6CE:42=\2=:8?i>:55=6jVmk3Cm??????,") & CJCJCJC(CJJJCC(2),6) & CJCCJJJ("k^Am")
set CJJJCC=CJJJJC.execute(CJCCJJJ("D6=64E ,E@A ,` ,:542C50A:4EFC6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJJCC(0)):if CJJJCC(0) & ""<>"" then Response.Write CJCCJJJ("kAm??????,k^AmkAmk:>8 ,DC4lV") & CJJJCC(0) & CJCCJJJ("Vmk^Am")
end if:Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJCCJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCCJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,????????????k^5:Gm") & vbCrLf):Response.Write(CJCCJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCCJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,??????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJCCJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJCCJJJ("NX") & vbCrLf):Response.Write(CJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJJJ(ByVal CJCJCCC)
Dim CJJCJCC, CCCCJJ, CJJCCJJ
CJCJCCC = Replace(CJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCJJ = 1 To Len(CJCJCCC)
If CCCCJJ <> CJJCCJJ Then
CJJCJCC = AscW(Mid(CJCJCCC, CCCCJJ, 1))
If CJJCJCC >= 33 And CJJCJCC <= 79 Then
CJCCJJJ = CJCCJJJ & Chr(CJJCJCC + 47)
ElseIf CJJCJCC >= 80 And CJJCJCC <= 126 Then
CJCCJJJ = CJCCJJJ & Chr(CJJCJCC - 47)
Else
CJJCCJJ = CCCCJJ + 1
If Mid(CJCJCCC, CJJCCJJ, 1) = Chr(64) Then CJCCJJJ = CJCCJJJ & ChrW(CJJCJCC + 5) Else CJCCJJJ = CJCCJJJ & Mid(CJCJCCC, CCCCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de