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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJC, CJJJCCJ,CJJJCCC, CJJCJJJ, CJJCJJC:Set CJJJCJC = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CJJJCJC.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CJJJCCJ=CJJJCJC::Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:Dim CJCCJJC,CJCCJCJ,CJCCJCC:Dim CJCCCJJ:CJCCCJJ=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJCJ>0 then
CJJCJJC=CJJJJCCJ("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") & CJJCJCC & CJJJJCCJ("V ,2?5 ,:5l") & CJJCJCJ
set CJJJCCC=CJJJCJC.execute(CJJCJJC):If CJJJCCC.EOF Then
Call ClearMemberCookie
Else
CJJCCJJ=CJJJCCC(2) & "":CJJCCJC=CJJJCCC(3):CJJCCCJ=CJJJCCC(5):CJJCCCC=CJJJCCC(6):CJCJJJJ=CJJJCCC(9):CJCJJJC=CJJJCCC(15):CJCJJCC=CJJJCCC(0):CJCCJCJ=CJJJCCC(1):CJCCJJC=CJJJCCC(11) & "":CJCJCJJ=CJJJCCC(10) & "":CJCJJCJ=CJJJCCC(12):CJCJCJC=CJJJCCC(14):CJCJCCJ=CJJJCCC(13):CJCJCCC=CJJJCCC(7) & "":CJCCJJJ=CJJJCCC(4):CJCCJCC=CJJJCCC(8):if isnull(CJCJJJC) then CJCJJJC=0
if isnull(CJCJJJJ) or CJCJJJJ=0 then CJCJJJJ=CJJCCJC
if isnull(CJCCJJJ) then CJCCJJJ=0
if isnull(CJJCCCJ) then CJJCCCJ=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCC)>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJCJ,CJJCJCC)
End IF
end if:Sub CheckRight(CJJJJCCC):dim CJCCCJC,CJCCCCJ:if CJJCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
elseIf not CCCCJJC(CJJJJCCC) then
Call RedirectMessage(CJJJJCCJ("????W") & CJJJJCCC & CJJJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CCCCJJC(CJJJJCCC):dim CJCCCJC,CJCCCCJ:CJCCCCJ=split(CJJJJCCC,CJJJJCCJ("[")):CCCCJJC=False:for CJCCCJC=0 to ubound(CJCCCCJ):If Mid(CJJCCJJ,CJCCCCJ(CJCCCJC),1)="1" then
CCCCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCCC:CJCCCCC=trim(request.QueryString(CJJJJCCJ("D49@@="))):if isnumeric(CJCCCCC) then
response.Redirect CJJJJCCJ("^>^G2?E^R^D49@@=^") & CJCCCCC & CJJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CCJCJJJ
else
Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CJJCJCJ=0:CJJCCCC=0:CJJCJCC=Empty:CJJCCCJ=0:CJCJJJC=0:CJCJJJJ=0:CJJCCJC=0:CJCJJCC=False:CJCCJCJ=False:CJCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJJJ,CCJJJJC,CJCCCJC,CCJJJCJ,CCJJJCC:CCJJJJJ=split(CJCCCJJ,CJJJJCCJ("]")):if ubound(CCJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJJJ(0)) or len(CCJJJJJ(1))<>32 or len(CCJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CCJJJJC=CCJJJJJ(1):for CJCCCJC=1 to len(CCJJJJC):CCJJJCJ=mid(CCJJJJC,CJCCCJC,1):if isnumeric(CCJJJCJ) then CCJJJCC=CCJJJCC & CCJJJCJ
if len(CCJJJCC)=7 then exit for
next:CCJJJJC=CCJJJJJ(2):if CCJJJCC<>mid(CCJJJJC,6,7) then
Call ClearMemberCookie
else
CCJJJCJ=mid(CCJJJJC,18,10)/2:if CCJJJCJ<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJCJ=Clng(CCJJJJJ(0)):CJJCJCC=CCJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJC,CJJJCJJJ):dim CJCCCJC,CCJJJCJ,CCJJJCC:for CJCCCJC=1 to len(CJJJCJJJ):CCJJJCJ=mid(CJJJCJJJ,CJCCCJC,1):if isnumeric(CCJJJCJ) then CCJJJCC=CCJJJCC & CCJJJCJ
if len(CCJJJCC)=7 then exit for
next:CCJJJCC=CCCJCJC & CJJJJCCJ("]") & CJJJCJJJ & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CCJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CCJJJCC:End Sub::Function CCCCJCJ(CJJJCJJC):Dim str,CCJJCJC:str = Trim(CJJJCJJC):If IsNull(str) Or str = "" Then
CCCCJCJ = ""
else
str=Replace(str, CJJJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCCJ("k:7C2>6"), CJJJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCCJ("kD4C:AE"), CJJJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJCJC=new RegExp:CCJJCJC.Pattern=CJJJJCCJ("@?W,2\K.ZXl"):CCJJCJC.IgnoreCase = True:CCJJCJC.Global=True:str=CCJJCJC.Replace(str,CJJJJCCJ("@?S`U6BF2=Dj")):set CCJJCJC=nothing:CCCCJCJ=str
End If:End Function:Function IIf(CJJJCJCJ, CJJJCJCC, CJJJCCJJ):if isnull(CJJJCJCJ) or isempty(CJJJCJCJ) then
IIf = CJJJCCJJ
elseif CJJJCJCJ Then
IIf = CJJJCJCC
Else
IIf = CJJJCCJJ
end if:End Function:Const CCCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCCCCJJ():dim CCJJCCJ:CCJJCCJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCJJCCJ = "" Then CCJJCCJ = Cstr(Request.ServerVariables(CJJJJCCJ("#t|~%t0pss#")))
if instr(CCJJCCJ,CJJJJCCJ("i"))>0 then
CCJJCCJ=left(CCJJCCJ,instr(CCJJCCJ,CJJJJCCJ("i"))-1)
elseif instr(CCJJCCJ,CJJJJCCJ("["))>0 then
CCJJCCJ=left(CCJJCCJ,instr(CCJJCCJ,CJJJJCCJ("["))-1)
end if:CCCCCJJ=left(CCJJCCJ,15):End Function::Public Function CCCCCJC():Dim CCJJCCC, CCJCJJJ:CCJCJJJ = Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):CCJJCCC = Request.ServerVariables(CJJJJCCJ("""&t#*0$%#x}v")):If CCJJCCC <> Empty Then
if instr(lcase(CCJJCCC),CJJJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJCCC),CJJJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????,??,??,"))
CCJCJJJ = CCJCJJJ & CJJJJCCJ("n") & CCJJCCC
end if:CCCCCJC = CCJCJJJ:End Function:Sub SetHttpOnlyCookie(CJJJCCJC,CJJJCCCJ):dim CCJJJJJ:CCJJJJJ=CJJJCCJC & CJJJJCCJ("l") & CJJJCCCJ & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CCJJJJJ):End Sub::::::sub ShowMessage(CJJJCCCC):response.Charset=CJJJJCCJ("FE7\g"):Response.Write CJJJJCCJ("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") & CJJJCCCC & CJJJJCCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCCJ(CCJCCJC):if isnull(CCJCCJC) or trim(CCJCCJC)="" or not isnumeric(CCJCCJC) then
CCCCCCJ=false
else
Dim CCJJCJC:Set CCJJCJC = New RegExp:CCJJCJC.Pattern = CJJJJCCJ("/-5ZS"):CCJJCJC.IgnoreCase = True:CCCCCCJ = CCJJCJC.test(CCJCCJC):set CCJJCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:CCCJJJJ.close : set CCCJJJJ=nothing:CJJCJJJ.Close : Set CJJCJJJ=Nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJJJCC.Close : Set CJJJJJCC = Nothing:CJJJCJC.Close : Set CJJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CJJCJJJJ,CJJJJCJC):dim CCJCJJC:CCJCJJC=CJJJJCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJCJCJ  & CJJJJCCJ("[V") & CCCCCJJ & CJJJJCCJ("V") & CJJJJCCJ("[V") & CCCCJCJ(CJJJJCJC) & CJJJJCCJ("V") & CJJJJCCJ("[") & CJJCJJJJ  & CJJJJCCJ("[V") & CCCCCJC & CJJJJCCJ("V") & CJJJJCCJ("X")
CJJJCJC.execute CCJCJJC:End Sub::::::::::::::Function CJJJJCJJ(CJJCJJJC,str):dim CJCCCJC,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJJJCC:CCJJJCC=ucase(CJJCJJJC):CCJCCCJ=str:if CCJCCCJ="" then
CCJCCCJ=request.cookies(CCJJJCC):if CCJCCCJ="" then
CJJJJCJJ=""
else
CCJCCCJ=strreverse(CCJCCCJ):CCJCJCJ=len(CCJCCCJ):for CJCCCJC=1 to CCJCJCJ-1 step 2:CCJCCJJ=mid(CCJCCCJ,CJCCCJC,1):CCJCCJC=mid(CCJCCCJ,CJCCCJC+1,1):CCJCJCC=CCJCJCC & CCJCCJC & CCJCCJJ:next:CCJCJCC=replace(CCJCJCC,CJJJJCCJ("L0N"),CJJJJCCJ(" ,")):CCJCJCC=replace(CCJCJCC,CJJJJCCJ("LIN"),CJJJJCCJ("Y")):CCJCJCC=replace(CCJCJCC,CJJJJCCJ("L:N"),CJJJJCCJ("^")):CJJJJCJJ=trim(CCJCJCC)
end if
else
if Len(CCJCCCJ) Mod 2=1 then CCJCCCJ=CCJCCCJ & CJJJJCCJ(" ,")
CCJCCCJ=replace(CCJCCCJ,CJJJJCCJ(" ,"),CJJJJCCJ("L0N")):CCJCCCJ=replace(CCJCCCJ,CJJJJCCJ("Y"),CJJJJCCJ("LIN")):CCJCCCJ=replace(CCJCCCJ,CJJJJCCJ("^"),CJJJJCCJ("L:N")):CCJCJCJ=len(CCJCCCJ):for CJCCCJC=1 to CCJCJCJ-1 step 2:CCJCCJJ=mid(CCJCCCJ,CJCCCJC,1):CCJCCJC=mid(CCJCCCJ,CJCCCJC+1,1):CCJCJCC=CCJCJCC & CCJCCJC & CCJCCJJ:next:CCJCJCC=Trim(strreverse(CCJCJCC)):CJJJJCJJ=CCJCJCC:response.cookies(CCJJJCC)=CCJCJCC
end if:End Function::::dim CJCCCCC:CJJCJJC=Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):if instr(CJJCJJC,CJJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJCC and not CJCCJCJ then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????,"))
CJCCCCC=CJCJJJJ
elseif instr(CJJCJJC,CJJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJC,CJJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCCCC=CJCJJJJ
elseif instr(CJJCJJC,CJJJJCCJ("^D49@@="))>0 then
CJCCCCC=Request.QueryString(CJJJJCCJ("D49@@=")):if not CCCCCCJ(CJCCCCC) then CJCCCCC=Request.QueryString(CJJJJCCJ("F"))
if not CCCCCCJ(CJCCCCC) then CJCCCCC=Request.QueryString(CJJJJCCJ("D4"))
if not CCCCCCJ(CJCCCCC) then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X??@??????????,"))
CJCCCCC=csng(CJCCCCC)
end if:if CJCCCCC=0 then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X????W_X??,"))
Dim CCJCCCC:Call SetConfig:Sub SetConfig():dim CJCCCCJ,CCCJJJJ:CJJCJJC=CJJJJCCJ("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") & CJCCCCC:set CCCJJJJ=CJJJCJC.execute(CJJCJJC):if CCCJJJJ.eof then Call RedirectMessage(CJJJJCCJ("??W") & CJJCJCJ & CJJJJCCJ("X??????????W") & CJCCCCC & CJJJJCCJ("X????????,"))
ReDim CJCCCCJ(61):CJCCCCJ(0)=CCCJJJJ(CJJJJCCJ(";:2@H6:")) & "":CJCCCCJ(1)=CCCJJJJ(CJJJJCCJ("EJA6")):CJCCCCJ(2)=CCCJJJJ(CJJJJCCJ("D>D")):CJCCCCJ(3)=CCCJJJJ(CJJJJCCJ("4FDE@>8C@FA")) & "":CJCCCCJ(4)=CCCJJJJ(CJJJJCCJ("D:5632C0@E96C")) & "":CJCCCCJ(5)=IIf(isnull(CCCJJJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))),0,CCCJJJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))):CJCCCCJ(6)=CCCJJJJ(CJJJJCCJ("K:IF?E:>6")):CJCCCCJ(7)=CCCJJJJ(CJJJJCCJ("766")):CJCCCCJ(8)=CCCJJJJ(CJJJJCCJ("C6E6DE52J")):CJCCCCJ(9)=CCCJJJJ(CJJJJCCJ("6IA:C652E6")):CJCCCCJ(10)=CCCJJJJ(CJJJJCCJ("E:E=6")):CJCCCCJ(11)=CCCJJJJ(CJJJJCCJ(":?EC@")) & "":CJCCCCJ(12)=CCCJJJJ(CJJJJCCJ("A:4EFC6")) & "":CJCCCCJ(13)=CCCJJJJ(CJJJJCCJ("72>:=J")):CJCCCCJ(14)=CCCJJJJ(CJJJJCCJ("4@AJC:89E")) & "":CJCCCCJ(15)=IIf(isnull(CCCJJJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))),CJJJJCCJ("`h__\`\`"),CCCJJJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))):CJCCCCJ(16)=IIf(isnull(CCCJJJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCCJJJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJCCCCJ(17)=CCCJJJJ(CJJJJCCJ("4@?E24E")) & "":CJCCCCJ(18)=CCCJJJJ(CJJJJCCJ("D2?5E23=6")):CJCCCCJ(19)=CCCJJJJ(CJJJJCCJ("4C:D:D")):CJCCCCJ(20)=CCCJJJJ(CJJJJCCJ("JJ52E6")):CJCCCCJ(21)=CCCJJJJ(CJJJJCCJ("BB")):CJCCCCJ(22)=CCCJJJJ(CJJJJCCJ("JFJF60D>D0EA=")) & "":CJCCCCJ(23)=CCCJJJJ(CJJJJCCJ("JFJF60E6DE0=3")) & "":CJCCCCJ(25)=CCCJJJJ(CJJJJCCJ("6IA6CE")):CJCCCCJ(26)=CCCJJJJ(CJJJJCCJ(">@5:?7@")):CJCCCCJ(27)=CCCJJJJ(CJJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJCCCCJ(28)=CCCJJJJ(CJJJJCCJ("4C:D:D=3")):CJCCCCJ(29)=IIf(CCCJJJJ(CJJJJCCJ("4C:D:D@=5")),False,True):CJCCCCJ(30)=CCCJJJJ(CJJJJCCJ("8C@FA8F:52?46")):CJCCCCJ(31)=CCCJJJJ(CJJJJCCJ("3:@7665324<")):CJCCCCJ(32)=CCCJJJJ(CJJJJCCJ("<6JDEC")):CJCCCCJ(33)=CCCJJJJ(CJJJJCCJ("=@8@")) & "":CJCCCCJ(34)=CCCJJJJ(CJJJJCCJ("K:46")):CJCCCCJ(35)=IIf(CCCJJJJ(CJJJJCCJ(":D?6H")),True,False):CJCCCCJ(36)=121:CJCCCCJ(37)=111:CJCCCCJ(38)=160:CJCCCCJ(39)=CCCJJJJ(CJJJJCCJ("8F6DE3@@<")):CJCCCCJ(40)=CCCJJJJ(CJJJJCCJ("75D")):CJCCCCJ(42)=CCCJJJJ(CJJJJCCJ("9@>6=@8:?")):CJCCCCJ(43)=CCCJJJJ(CJJJJCCJ("K:IF?0?6657665324<")):CJCCCCJ(44)=CCCJJJJ(CJJJJCCJ("K:IF?0E:>6D0=:>:E")):CJCCCCJ(45)=CCCJJJJ(CJJJJCCJ("4@>A=6E60:?7@")):CJCCCCJ(46)=CCCJJJJ(CJJJJCCJ("E6DE:?EC@")) & "":CJCCCCJ(47)=IIf(isnull(CCCJJJJ(CJJJJCCJ("JFJF60367@C60E:>6"))),0,CCCJJJJ(CJJJJCCJ("JFJF60367@C60E:>6"))):CJCCCCJ(49)=CCCJJJJ(CJJJJCCJ("D>D0C646:G6C")):CJCCCCJ(50)=CCCJJJJ(CJJJJCCJ("D>D0D:8?")) & "":CJCCCCJ(52)=CCCJJJJ(CJJJJCCJ("JFJF602CC2?86")):CJCCCCJ(53)=IIf(isnull(CCCJJJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJJJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCCCJ(54)=CCCJJJJ(CJJJJCCJ("9:560=30@FE@7286")):CJCCCCJ(55)=CCCJJJJ(CJJJJCCJ("JFJF60E6DE052JD")):CJCCCCJ(56)=CCCJJJJ(CJJJJCCJ("JFJF60H66<0=:>:E")):CJCCCCJ(57)=CCCJJJJ(CJJJJCCJ("JFJF604964<65")):CJCCCCJ(58)=CCCJJJJ(CJJJJCCJ("K:IF?0?6657665324<0?6IE")):CJCCCCJ(59)=CCCJJJJ(CJJJJCCJ("4964<?6HDEF56?E")):CJCCCCJ(60)=CCCJJJJ(CJJJJCCJ("K:IF?04=@D6052E6")):CCCJJJJ.close : set CCCJJJJ=nothing:if isNull(CJCCCCJ(8)) or CJCCCCJ(8)="" then CJCCCCJ(8)=0
if isdate(CJCCCCJ(9)) then
CJCCCCJ(9)=cdate(CJCCCCJ(9)):if CJCCCCJ(9)<Date then Call RedirectMessage(CJJJJCCJ("????????,????????????????W") & CJCCCCJ(9) & CJJJJCCJ("X??????,"))
end if:if not CCCCCCJ(CJCCCCJ(20)) then CJCCCCJ(20)=7
select case CJCCCCJ(1):case 1,2,16:CJCCCCJ(36)=159:case 4,5,6,10,11:CJCCCCJ(36)=190:CJCCCCJ(37)=178:CJCCCCJ(38)=191:case 7,13:CJCCCCJ(36)=164:CJCCCCJ(37)=178:CJCCCCJ(38)=179:end select:CCJCCCC=CJCCCCJ:End Sub:Function CJJJJJCJ(CJJCJJJC):dim CJCCCCJ(7,1),CJCCCJC,CCCJJJC,CCCJJCJ:CCCJJJC=Array(CJJJJCCJ("$49@@="),CJJJJCCJ("$EF56?E"),CJJJJCCJ("s6AE"),CJJJJCCJ("vC256"),CJJJJCCJ("r=2DD>2E6"),CJJJJCCJ("}F>36C"),CJJJJCCJ("%62496C"),CJJJJCCJ("!2C6?E")):select case CCJCCCC(1):case 1,2 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 3,16 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 4 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 5 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 6 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 7 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 8 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 9 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 10 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 11 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 12 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 13 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 14 : CCCJJCJ=Array(CJJJJCCJ("??????"),CJJJJCCJ("??@??"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 15 : CCCJJCJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case else : CCCJJCJ=CCCJJJC
end select:for CJCCCJC=0 to Ubound(CJCCCCJ):CJCCCCJ(CJCCCJC,0)=CCCJJJC(CJCCCJC):CJCCCCJ(CJCCCJC,1)=CCCJJCJ(CJCCCJC):next:for CJCCCJC=0 to Ubound(CJCCCCJ):if CJCCCCJ(CJCCCJC,0)=CJJCJJJC then
CJJJJJCJ=CJCCCCJ(CJCCCJC,1):exit for
end if:next:End Function::Call CheckRight(35):if CCJCCCC(7)<3 then Call RedirectMessage(CJJJJCCJ("????????,??????????????????????,"))
dim CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ:CCCJJCC=Request.QueryString(CJJJJCCJ("DEF56?E:5")):CCCJCJJ=Request.QueryString(CJJJJCCJ("24E")):CCCJCJC=Request.QueryString(CJJJJCCJ(":5")):if CCCJCJJ="" then CCCJCJJ=CJJJJCCJ("255")
if CCCJCJJ=CJJJJCCJ("56=") and CCCCCCJ(CCCJCJC) then
CJJJCJC.execute(CJJJJCCJ("56=6E6 ,7C@> ,C6>2C< ,H96C6 ,:5l") & CCCJCJC)
Call InsertLog(3,CJJJJCCJ("????????W") & CCCJCJC & CJJJJCCJ("X")):Call ConnClose:response.end
end if:If Request.ServerVariables(CJJJJCCJ("#t""&t$%0|t%w~s")) = CJJJJCCJ("!~$%") Then
if CCCJCJJ=CJJJJCCJ("255") then
CJJCJJC=CJJJJCCJ(":?D6CE ,:?E@ ,C6>2C<W>6>36C[4@?E6?E[2FE9@C[EJA6[:A[A6C>:EG:6HX ,G2=F6DW") & CCCJJCC & CJJJJCCJ("[V") & CCCCJCJ(Request.Form(CJJJJCCJ("4@?E6?E"))) & CJJJJCCJ("V[") & CJJCJCJ & CJJJJCCJ("[") & Request.Form(CJJJJCCJ("EJA6")) & CJJJJCCJ("[V") & CCCCCJJ & CJJJJCCJ("V[") & cint(request.Form(CJJJJCCJ("A6C>:EG:6H"))) & CJJJJCCJ("X")
CJJJCJC.execute(CJJCJJC)
elseif CCCJCJJ=CJJJJCCJ(">@5") then
CJJCJJC=CJJJJCCJ("FA52E6 ,C6>2C< ,D6E ,2FE9@Cl") & CJJCJCJ & CJJJJCCJ("[EJA6l") & Request.Form(CJJJJCCJ("D6=64E")) & CJJJJCCJ("[4@?E6?ElV") & CCCCJCJ(Request.Form(CJJJJCCJ("4@?E6?E"))) & CJJJJCCJ("V[:AlV") & CCCCCJJ & CJJJJCCJ("V[A6C>:EG:6Hl") & cint(request.Form(CJJJJCCJ("A6C>:EG:6H"))) & CJJJJCCJ(" ,H96C6 ,:5l") & CCCJCJC
CJJJCJC.execute(CJJCJJC)
end if:Call ConnClose:Response.Redirect CJJJJCJJ(CJJJJCCJ("&#{"),"")
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CCCJCJJ=CJJJJCCJ("255") and CCCCCCJ(CCCJJCC) Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m??????,") & vbCrLf):Response.Write(CJJJJCCJ(" ,kD6=64E ,?2>6lQEJA6Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ_Qm??????????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQbQm??????????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4@=DlQgdQ ,C@HDlQ`dQ ,2FE@7@4FDmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,?2>6lQA6C>:EG:6HQ ,EJA6lQ4964<3@IQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,????")):Response.Write  CJJJJJCJ(CJJJJCCJ("$EF56?E")):Response.Write(CJJJJCCJ("????????@??") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
ElseIf CCCJCJJ=CJJJJCCJ(">@5") and CCCCCCJ(CCCJCJC) Then
set CJJJCCC=CJJJCJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,4@?E6?E[2FE9@C[EJA6[A6C>:EG:6H[>6>36C ,7C@> ,C6>2C< ,H96C6 ,:5l") & CCCJCJC)
if CJJJCCC.eof then
Call ShowMessage(CJJJJCCJ("????????,????????????????,"))
elseif CJJJCCC(1)<>CJJCJCJ and CJJJCCC(2)<>2 then
Call ShowMessage(CJJJJCCJ("????????,????????????????????,"))
else
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE23=6 ,H:5E9lQhdTQ , ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m??????,") & vbCrLf):Response.Write(CJJJJCCJ(" ,kD6=64E ,?2>6lQD6=64EQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CJJJCCC(2)=0,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m")):Response.Write  CJJJJJCJ(CJJJJCCJ("%62496C")):Response.Write(CJJJJCCJ("????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write  IIf(CJJJCCC(2)=3,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m")):Response.Write  CJJJJJCJ(CJJJJCCJ("%62496C")):Response.Write(CJJJJCCJ("????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJCCC(2)=1,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write  IIf(CJJJCCC(2)=2,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m")):Response.Write  CJJJJJCJ(CJJJJCCJ("r=2DD>2E6")):Response.Write(CJJJJCCJ("????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write  IIf(CJJJCCC(2)=4,CJJJJCCJ("D6=64E65"),""):Response.Write(CJJJJCCJ("m")):Response.Write  CJJJJJCJ(CJJJJCCJ("!2C6?E")):Response.Write(CJJJJCCJ("????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4@=DlQgdQ ,C@HDlQ`dQ ,2FE@7@4FDm")):Response.Write  CJJJCCC(0):Response.Write(CJJJJCCJ("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,?2>6lQA6C>:EG:6HQ ,EJA6lQ4964<3@IQ ,G2=F6lQ`Q ,")):If CJJJCCC(3) Then Response.Write(CJJJJCCJ("4964<65"))
Response.Write(CJJJJCCJ("m") & vbCrLf):Response.Write(CJJJJCCJ(" ,????")):Response.Write  CJJJJJCJ(CJJJJCCJ("$EF56?E")):Response.Write(CJJJJCCJ("????????@??") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^=236=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5mk9C ,D:K6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
end if
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:CJJCJJJ.Close:Set CJJCJJJ=Nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCJC.Close:Set CJJJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCJ(ByVal CJJJJCJC)
Dim CCCJCCC, CJCCCJC, CCJCCJC
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJC = 1 To Len(CJJJJCJC)
If CJCCCJC <> CCJCCJC Then
CCCJCCC = AscW(Mid(CJJJJCJC, CJCCCJC, 1))
If CCCJCCC >= 33 And CCCJCCC <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCCC + 47)
ElseIf CCCJCCC >= 80 And CCCJCCC <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCCC - 47)
Else
CCJCCJC = CJCCCJC + 1
If Mid(CJJJJCJC, CCJCCJC, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJCCC + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CJJJJCJC, CJCCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de