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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJCCCCJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJCCCCJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJCCCCJ("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
CCJCC=CJCCCCJ("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") & CCCJC & CJCCCCJ("V ,2?5 ,:5l") & CCCJJ
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJCCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJCCCCC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCCJ("??????????????,????????????,"))
elseIf not CJCJJJJ(CJCCCCC) then
Call RedirectMessage(CJCCCCJ("????W") & CJCCCCC & CJCCCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJJJ(CJCCCCC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJCCCCC,CJCCCCJ("[")):CJCJJJJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CJCJJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJJC:CCJJJC=trim(request.QueryString(CJCCCCJ("D49@@="))):if isnumeric(CCJJJC) then
response.Redirect CJCCCCJ("^>^G2?E^R^D49@@=^") & CCJJJC & CJCCCCJ("^DEF56?E^=@8:?nC65:C64El") & CCCJCJ
else
Call RedirectMessage(CJCCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCCJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CCJJCC,CJCCCC,CCJCJJ,CCJCJC:CCJJCJ=split(CJCCCJ,CJCCCCJ("]")):if ubound(CCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJCJ(0)) or len(CCJJCJ(1))<>32 or len(CCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CCJJCC=CCJJCJ(1):for CJCCCC=1 to len(CCJJCC):CCJCJJ=mid(CCJJCC,CJCCCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ
if len(CCJCJC)=7 then exit for
next:CCJJCC=CCJJCJ(2):if CCJCJC<>mid(CCJJCC,6,7) then
Call ClearMemberCookie
else
CCJCJJ=mid(CCJJCC,18,10)/2:if CCJCJJ<DateDiff(CJCCCCJ("D"), CJCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJCJ(0)):CCCJC=CCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJJ,CCJJJJC):dim CJCCCC,CCJCJJ,CCJCJC:for CJCCCC=1 to len(CCJJJJC):CCJCJJ=mid(CCJJJJC,CJCCCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ
if len(CCJCJC)=7 then exit for
next:CCJCJC=CCJJJJJ & CJCCCCJ("]") & CCJJJJC & CJCCCCJ("]") & Fix(10000*(Rnd+1)) & CCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCJ("D"), CJCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCJ("!$*|t|qt#"))=CCJCJC:End Sub::Function CJCJJJC(CCJJJCJ):Dim str,CCJCCC:str = Trim(CCJJJCJ):If IsNull(str) Or str = "" Then
CJCJJJC = ""
else
str=Replace(str, CJCCCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCCJ("k:7C2>6"), CJCCCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCCJ("kD4C:AE"), CJCCCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCCC=new RegExp:CCJCCC.Pattern=CJCCCCJ("@?W,2\K.ZXl"):CCJCCC.IgnoreCase = True:CCJCCC.Global=True:str=CCJCCC.Replace(str,CJCCCCJ("@?S`U6BF2=Dj")):set CCJCCC=nothing:CJCJJJC=str
End If:End Function:Function IIf(CCJJJCC, CCJJCJJ, CCJJCJC):if isnull(CCJJJCC) or isempty(CCJJJCC) then
IIf = CCJJCJC
elseif CCJJJCC Then
IIf = CCJJCJJ
Else
IIf = CCJJCJC
end if:End Function:Const CJJCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCJJCC():dim CCCJJJ:CCCJJJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCCJJJ = "" Then CCCJJJ = Cstr(Request.ServerVariables(CJCCCCJ("#t|~%t0pss#")))
if instr(CCCJJJ,CJCCCCJ("i"))>0 then
CCCJJJ=left(CCCJJJ,instr(CCCJJJ,CJCCCCJ("i"))-1)
elseif instr(CCCJJJ,CJCCCCJ("["))>0 then
CCCJJJ=left(CCCJJJ,instr(CCCJJJ,CJCCCCJ("["))-1)
end if:CJCJJCC=left(CCCJJJ,15):End Function::Public Function CJCJCJJ():Dim CCCJJC, CCCJCJ:CCCJCJ = Request.ServerVariables(CJCCCCJ("!p%w0x}u~")):CCCJJC = Request.ServerVariables(CJCCCCJ("""&t#*0$%#x}v")):If CCCJJC <> Empty Then
if instr(lcase(CCCJJC),CJCCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCCJJC),CJCCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCCJ("????????,????????????????????????,??,??,"))
CCCJCJ = CCCJCJ & CJCCCCJ("n") & CCCJJC
end if:CJCJCJJ = CCCJCJ:End Function:Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CCJJCJ:CCJJCJ=CCJJCCJ & CJCCCCJ("l") & CCJJCCC & CJCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCJ("$6E\r@@<:6"),CCJJCJ):End Sub:::::Sub CheckValidPost():dim CCCJCC:CCCJCC=false:Dim CCCCJJ : CCCCJJ=lcase(Request.ServerVariables(CJCCCCJ("w%%!0#tut#t#"))):if(instr(CCCCJJ,Application(CJCCCCJ("s@>2:?(9:E6{:DE")))>0) then
CCCJCC=true
else
Dim CCCCJC : CCCCJC=lcase(Request.ServerVariables(CJCCCCJ("$t#'t#0}p|t"))):Dim CCCCCJ : CCCCCJ=Request.ServerVariables(CJCCCCJ("{~rp{0pss#")):if Mid(CCCCJJ,8,Len(CCCCJC))=CCCCJC or Mid(CCCCJJ,9,Len(CCCCJC))=CCCCJC or CCCCJC=CCCCCJ then CCCJCC=true
end if:if not CCCJCC then Call RedirectMessage(CJCCCCJ("????????,??????????????????????????,"))
end sub::Function CJCJCJC(CJJJJCC):if isnull(CJJJJCC) or trim(CJJJJCC)="" or not isnumeric(CJJJJCC) then
CJCJCJC=false
else
Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CJCCCCJ("/-5ZS"):CCJCCC.IgnoreCase = True:CJCJCJC = CCJCCC.test(CJJJJCC):set CCJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCJ("!$*0|6DD286"),server.URLEncode(CJJCJCC)):Response.Redirect CJCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CCJCJJJ,CJCCCJC):dim CCCCCC:CCCCCC=CJCCCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCJJ  & CJCCCCJ("[V") & CJCJJCC & CJCCCCJ("V") & CJCCCCJ("[V") & CJCJJJC(CJCCCJC) & CJCCCCJ("V") & CJCCCCJ("[") & CCJCJJJ  & CJCCCCJ("[V") & CJCJCJJ & CJCCCCJ("V") & CJCCCCJ("X")
CJCCC.execute CCCCCC:End Sub::::::::::::::Function CJCCJCC(CCJCJJC,str):dim CJCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CCJCJC:CCJCJC=ucase(CCJCJJC):CJJJCJJ=str:if CJJJCJJ="" then
CJJJCJJ=request.cookies(CCJCJC):if CJJJCJJ="" then
CJCCJCC=""
else
CJJJCJJ=strreverse(CJJJCJJ):CJJJJJJ=len(CJJJCJJ):for CJCCCC=1 to CJJJJJJ-1 step 2:CJJJJCJ=mid(CJJJCJJ,CJCCCC,1):CJJJJCC=mid(CJJJCJJ,CJCCCC+1,1):CJJJJJC=CJJJJJC & CJJJJCC & CJJJJCJ:next:CJJJJJC=replace(CJJJJJC,CJCCCCJ("L0N"),CJCCCCJ(" ,")):CJJJJJC=replace(CJJJJJC,CJCCCCJ("LIN"),CJCCCCJ("Y")):CJJJJJC=replace(CJJJJJC,CJCCCCJ("L:N"),CJCCCCJ("^")):CJCCJCC=trim(CJJJJJC)
end if
else
if Len(CJJJCJJ) Mod 2=1 then CJJJCJJ=CJJJCJJ & CJCCCCJ(" ,")
CJJJCJJ=replace(CJJJCJJ,CJCCCCJ(" ,"),CJCCCCJ("L0N")):CJJJCJJ=replace(CJJJCJJ,CJCCCCJ("Y"),CJCCCCJ("LIN")):CJJJCJJ=replace(CJJJCJJ,CJCCCCJ("^"),CJCCCCJ("L:N")):CJJJJJJ=len(CJJJCJJ):for CJCCCC=1 to CJJJJJJ-1 step 2:CJJJJCJ=mid(CJJJCJJ,CJCCCC,1):CJJJJCC=mid(CJJJCJJ,CJCCCC+1,1):CJJJJJC=CJJJJJC & CJJJJCC & CJJJJCJ:next:CJJJJJC=Trim(strreverse(CJJJJJC)):CJCCJCC=CJJJJJC:response.cookies(CCJCJC)=CJJJJJC
end if:End Function:Function CJCCCJJ(str,CCJCJCJ):if isnull(str) or str="" or CCJCJCJ="" then
CJCCCJJ=False:exit function
end if:Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CCJCJCJ:CCJCCC.IgnoreCase = True:CJCCCJJ = CCJCCC.test(str):set CCJCCC=nothing:End Function:::dim CCJJJC:CCJCC=Request.ServerVariables(CJCCCCJ("!p%w0x}u~")):if instr(CCJCC,CJCCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJC and not CJCCJJ then Call RedirectMessage(CJCCCCJ("????????,????????????????????????,"))
CCJJJC=CJJJCJ
elseif instr(CCJCC,CJCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCC,CJCCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJJJC=CJJJCJ
elseif instr(CCJCC,CJCCCCJ("^D49@@="))>0 then
CCJJJC=Request.QueryString(CJCCCCJ("D49@@=")):if not CJCJCJC(CCJJJC) then CCJJJC=Request.QueryString(CJCCCCJ("F"))
if not CJCJCJC(CCJJJC) then CCJJJC=Request.QueryString(CJCCCCJ("D4"))
if not CJCJCJC(CCJJJC) then Call RedirectMessage(CJCCCCJ("????????W$49@@=X??@??????????,"))
CCJJJC=csng(CCJJJC)
end if:if CCJJJC=0 then Call RedirectMessage(CJCCCCJ("????????W$49@@=X????W_X??,"))
Dim CJJJCJC:Call SetConfig:Sub SetConfig():dim CCJJJJ,CJJJCCJ:CCJCC=CJCCCCJ("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") & CCJJJC:set CJJJCCJ=CJCCC.execute(CCJCC):if CJJJCCJ.eof then Call RedirectMessage(CJCCCCJ("??W") & CCCJJ & CJCCCCJ("X??????????W") & CCJJJC & CJCCCCJ("X????????,"))
ReDim CCJJJJ(61):CCJJJJ(0)=CJJJCCJ(CJCCCCJ(";:2@H6:")) & "":CCJJJJ(1)=CJJJCCJ(CJCCCCJ("EJA6")):CCJJJJ(2)=CJJJCCJ(CJCCCCJ("D>D")):CCJJJJ(3)=CJJJCCJ(CJCCCCJ("4FDE@>8C@FA")) & "":CCJJJJ(4)=CJJJCCJ(CJCCCCJ("D:5632C0@E96C")) & "":CCJJJJ(5)=IIf(isnull(CJJJCCJ(CJCCCCJ("E6DEC6DF=EG:6H"))),0,CJJJCCJ(CJCCCCJ("E6DEC6DF=EG:6H"))):CCJJJJ(6)=CJJJCCJ(CJCCCCJ("K:IF?E:>6")):CCJJJJ(7)=CJJJCCJ(CJCCCCJ("766")):CCJJJJ(8)=CJJJCCJ(CJCCCCJ("C6E6DE52J")):CCJJJJ(9)=CJJJCCJ(CJCCCCJ("6IA:C652E6")):CCJJJJ(10)=CJJJCCJ(CJCCCCJ("E:E=6")):CCJJJJ(11)=CJJJCCJ(CJCCCCJ(":?EC@")) & "":CCJJJJ(12)=CJJJCCJ(CJCCCCJ("A:4EFC6")) & "":CCJJJJ(13)=CJJJCCJ(CJCCCCJ("72>:=J")):CCJJJJ(14)=CJJJCCJ(CJCCCCJ("4@AJC:89E")) & "":CCJJJJ(15)=IIf(isnull(CJJJCCJ(CJCCCCJ("D6>6DE6C0DE2CE052E6"))),CJCCCCJ("`h__\`\`"),CJJJCCJ(CJCCCCJ("D6>6DE6C0DE2CE052E6"))):CCJJJJ(16)=IIf(isnull(CJJJCCJ(CJCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCJ(CJCCCCJ("K:IF?0E:>6D09:89=:89E"))):CCJJJJ(17)=CJJJCCJ(CJCCCCJ("4@?E24E")) & "":CCJJJJ(18)=CJJJCCJ(CJCCCCJ("D2?5E23=6")):CCJJJJ(19)=CJJJCCJ(CJCCCCJ("4C:D:D")):CCJJJJ(20)=CJJJCCJ(CJCCCCJ("JJ52E6")):CCJJJJ(21)=CJJJCCJ(CJCCCCJ("BB")):CCJJJJ(22)=CJJJCCJ(CJCCCCJ("JFJF60D>D0EA=")) & "":CCJJJJ(23)=CJJJCCJ(CJCCCCJ("JFJF60E6DE0=3")) & "":CCJJJJ(25)=CJJJCCJ(CJCCCCJ("6IA6CE")):CCJJJJ(26)=CJJJCCJ(CJCCCCJ(">@5:?7@")):CCJJJJ(27)=CJJJCCJ(CJCCCCJ("9@>6A286E@AA:4EFC6")) & "":CCJJJJ(28)=CJJJCCJ(CJCCCCJ("4C:D:D=3")):CCJJJJ(29)=IIf(CJJJCCJ(CJCCCCJ("4C:D:D@=5")),False,True):CCJJJJ(30)=CJJJCCJ(CJCCCCJ("8C@FA8F:52?46")):CCJJJJ(31)=CJJJCCJ(CJCCCCJ("3:@7665324<")):CCJJJJ(32)=CJJJCCJ(CJCCCCJ("<6JDEC")):CCJJJJ(33)=CJJJCCJ(CJCCCCJ("=@8@")) & "":CCJJJJ(34)=CJJJCCJ(CJCCCCJ("K:46")):CCJJJJ(35)=IIf(CJJJCCJ(CJCCCCJ(":D?6H")),True,False):CCJJJJ(36)=121:CCJJJJ(37)=111:CCJJJJ(38)=160:CCJJJJ(39)=CJJJCCJ(CJCCCCJ("8F6DE3@@<")):CCJJJJ(40)=CJJJCCJ(CJCCCCJ("75D")):CCJJJJ(42)=CJJJCCJ(CJCCCCJ("9@>6=@8:?")):CCJJJJ(43)=CJJJCCJ(CJCCCCJ("K:IF?0?6657665324<")):CCJJJJ(44)=CJJJCCJ(CJCCCCJ("K:IF?0E:>6D0=:>:E")):CCJJJJ(45)=CJJJCCJ(CJCCCCJ("4@>A=6E60:?7@")):CCJJJJ(46)=CJJJCCJ(CJCCCCJ("E6DE:?EC@")) & "":CCJJJJ(47)=IIf(isnull(CJJJCCJ(CJCCCCJ("JFJF60367@C60E:>6"))),0,CJJJCCJ(CJCCCCJ("JFJF60367@C60E:>6"))):CCJJJJ(49)=CJJJCCJ(CJCCCCJ("D>D0C646:G6C")):CCJJJJ(50)=CJJJCCJ(CJCCCCJ("D>D0D:8?")) & "":CCJJJJ(52)=CJJJCCJ(CJCCCCJ("JFJF602CC2?86")):CCJJJJ(53)=IIf(isnull(CJJJCCJ(CJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCCJ(CJCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJJJ(54)=CJJJCCJ(CJCCCCJ("9:560=30@FE@7286")):CCJJJJ(55)=CJJJCCJ(CJCCCCJ("JFJF60E6DE052JD")):CCJJJJ(56)=CJJJCCJ(CJCCCCJ("JFJF60H66<0=:>:E")):CCJJJJ(57)=CJJJCCJ(CJCCCCJ("JFJF604964<65")):CCJJJJ(58)=CJJJCCJ(CJCCCCJ("K:IF?0?6657665324<0?6IE")):CCJJJJ(59)=CJJJCCJ(CJCCCCJ("4964<?6HDEF56?E")):CCJJJJ(60)=CJJJCCJ(CJCCCCJ("K:IF?04=@D6052E6")):CJJJCCJ.close : set CJJJCCJ=nothing:if isNull(CCJJJJ(8)) or CCJJJJ(8)="" then CCJJJJ(8)=0
if isdate(CCJJJJ(9)) then
CCJJJJ(9)=cdate(CCJJJJ(9)):if CCJJJJ(9)<Date then Call RedirectMessage(CJCCCCJ("????????,????????????????W") & CCJJJJ(9) & CJCCCCJ("X??????,"))
end if:if not CJCJCJC(CCJJJJ(20)) then CCJJJJ(20)=7
select case CCJJJJ(1):case 1,2,16:CCJJJJ(36)=159:case 4,5,6,10,11:CCJJJJ(36)=190:CCJJJJ(37)=178:CCJJJJ(38)=191:case 7,13:CCJJJJ(36)=164:CCJJJJ(37)=178:CCJJJJ(38)=179:end select:CJJJCJC=CCJJJJ:End Sub:Function CJCCJJC(CCJCJJC):dim CCJJJJ(7,1),CJCCCC,CJJJCCC,CJJCJJJ:CJJJCCC=Array(CJCCCCJ("$49@@="),CJCCCCJ("$EF56?E"),CJCCCCJ("s6AE"),CJCCCCJ("vC256"),CJCCCCJ("r=2DD>2E6"),CJCCCCJ("}F>36C"),CJCCCCJ("%62496C"),CJCCCCJ("!2C6?E")):select case CJJJCJC(1):case 1,2 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????")):case 3,16 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????")):case 4 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("??????@"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????")):case 5 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????")):case 6 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("??????@"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 7 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 8 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("??????@"),CJCCCCJ("????"),CJCCCCJ("????????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 9 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 10 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 11 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 12 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 13 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????")):case 14 : CJJCJJJ=Array(CJCCCCJ("??????"),CJCCCCJ("??@??"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case 15 : CJJCJJJ=Array(CJCCCCJ("????"),CJCCCCJ("????????"),CJCCCCJ("????"),CJCCCCJ("????????"),CJCCCCJ("????"),CJCCCCJ("????"),CJCCCCJ("??????"),CJCCCCJ("????")):case else : CJJCJJJ=CJJJCCC
end select:for CJCCCC=0 to Ubound(CCJJJJ):CCJJJJ(CJCCCC,0)=CJJJCCC(CJCCCC):CCJJJJ(CJCCCC,1)=CJJCJJJ(CJCCCC):next:for CJCCCC=0 to Ubound(CCJJJJ):if CCJJJJ(CJCCCC,0)=CCJCJJC then
CJCCJJC=CCJJJJ(CJCCCC,1):exit for
end if:next:End Function::Call CheckValidPost:Call CheckRight(70):dim CJJCJJC,CJCCCC,CJJCJCJ,CJJCJCC:CJJCJJC=Trim(Request.querystring(CJCCCCJ(":5=:DE"))):if CJJCJJC="" then CJJCJJC=Trim(Request.Form(CJCCCCJ(":5=:DE")))
CJJCJJC=replace(CJJCJJC,CJCCCCJ(" ,"),""):if not CJCCCJJ(CJJCJJC,CJCCCCJ("/W,`\h.-5Y[XY,`\h.-5YS")) then
CJJCJCC=CJCCCCJ("????????,????????????????????,")
else
if instr(CJCCCCJ("[") & CJJCJJC & CJCCCCJ("["),CJCCCCJ("[") & CCCJJ & CJCCCCJ("["))>0 then
CJJCJCC=CJCCCCJ("????????,??????????????????,")
else
CJJCJJC=split(CJJCJJC,CJCCCCJ("[")):for CJCCCC=0 to ubound(CJJCJJC):Call DeleteMember(CJJCJJC(CJCCCC)):next:Call InsertLog(3,CJCCCCJ("????????????W") & join(CJJCJJC,CJCCCCJ("[")) & CJCCCCJ("X")):Call ConnClose
end if
end if:dim CJJCCJJ:CJJCCJJ=Request.QueryString(CJCCCCJ("2;2I")):if CJJCCJJ="1" then
Response.Write CJJCJCC
elseif CJJCJCC<>"" then
Call RedirectMessage(CJJCJCC)
else
dim redirect:redirect=Request.QueryString(CJCCCCJ("C65:C64E")):if redirect="" then redirect=Request.Form(CJCCCCJ("C65:C64E"))
if redirect="" then redirect=CJCCJCC(CJCCCCJ("&#{"),"")
if redirect="" then
Response.Redirect CJCCCCJ("DEF56?ED]2DA")
elseif redirect=CJCCCCJ("6?5") then
Response.End
else
Response.Redirect redirect
end if
end if:Sub DeleteMember(CCJJJJJ):CCJCC="" & CJCCCCJ("56=6E6 ,7C@> ,2CE:4=6 ,H96C6 ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,3:@7665324<03C2:?H2G6 ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,3:@7665324<0962CEC2E6 ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,3F==6E:? ,H96C6 ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D042D60K9F:K@?8 ,H96C6 ,>6>36C ,:? ,WD6=64E ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,4C:D:D06G2=F2E6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,4@?DF=E2?El") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,8C@H ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,8C@HC6A@CE ,H96C6 ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,4@?DF=E2?El") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,:?E6CG:6H0:?G:E6 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,:?E6CG:6H ,:? ,WD6=64E ,:5 ,7C@> ,:?E6CG:6H ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,E6DE ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,=3 ,:? ,WD6=64E ,:5 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ("X") & CJCCCCJ("j56=6E6 ,7C@> ,=3 ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,=:?< ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,,=@8. ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,>6DD286 ,H96C6 ,D6?56Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,C646:G6Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,C6>2C< ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJJJJJ & CJCCCCJ(" ,@C ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,KI ,H96C6 ,>6>36Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,KI083@@< ,H96C6 ,2FE9@Cl") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,KI0E:>6 ,H96C6 ,4@?DF=E2?El") & CCJJJJJ  & CJCCCCJ("j56=6E6 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCJJJJJ  & ""
CJCCC.execute CCJCC:End Sub::On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCCJ(ByVal CJCCCJC)
Dim CJJCCCJ, CJCCCC, CJJJJCC
CJCCCJC = Replace(CJCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CJCCCJC)
If CJCCCC <> CJJJJCC Then
CJJCCCJ = AscW(Mid(CJCCCJC, CJCCCC, 1))
If CJJCCCJ >= 33 And CJJCCCJ <= 79 Then
CJCCCCJ = CJCCCCJ & Chr(CJJCCCJ + 47)
ElseIf CJJCCCJ >= 80 And CJJCCCJ <= 126 Then
CJCCCCJ = CJCCCCJ & Chr(CJJCCCJ - 47)
Else
CJJJJCC = CJCCCC + 1
If Mid(CJCCCJC, CJJJJCC, 1) = Chr(64) Then CJCCCCJ = CJCCCCJ & ChrW(CJJCCCJ + 5) Else CJCCCCJ = CJCCCCJ & Mid(CJCCCJC, CJCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de