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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCC, CCCCJJ,CCCCJC, CCCCCJ, CCCCCC:Set CCCJCC = server.CreateObject(CCCJJJC("ps~sq]r@??64E:@?")):CCCJCC.open Application(CCCJJJC("r@??64E:@?$EC:?8")):Set CCCCJJ=CCCJCC:::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 CJJJJJJ:CJJJJJJ=CCCJCJC & "=" & CCCJCCJ & CCCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJJC("$6E\r@@<:6"),CJJJJJJ):End Sub::::::sub ShowMessage(CCJCJJC):response.Charset=CCCJJJC("FE7\g"):Response.Write CCCJJJC("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") & CCJCJJC & CCCJJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCJJJ(CCJJCJC):if isnull(CCJJCJC) or trim(CCJJCJC)="" or not isnumeric(CCJJCJC) then
CCJCJJJ=false
else
Dim CJJJJJC:Set CJJJJJC = New RegExp:CJJJJJC.Pattern = CCCJJJC("/-5ZS"):CJJJJJC.IgnoreCase = True:CCJCJJJ = CJJJJJC.test(CCJJCJC):set CJJJJJC=nothing
end if:End Function:::sub Alert(ByVal CCJCJJC):Call ConnClose:CCJCJJC=replace(CCJCJJC,vbcrlf,CCCJJJC("-?")):CCJCJJC=replace(CCJCJJC,CCCJJJC("V"),CCCJJJC("-V"))
response.Charset=CCCJJJC("FE7\g"):response.write CCCJJJC("kD4C:AEm2=6CEWV") & CCJCJJC & CCCJJJC("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCJCCCJ.Close : Set CCJCCCJ = Nothing:CCCJCC.Close : Set CCCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJJC("!$*0|6DD286"),server.URLEncode(CCJCJJC)):Response.Redirect CCCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CCCJCCC, str):Call ConnClose:Response.Charset=CCCJJJC("FE7\g"):Response.Buffer = True:Response.Clear:if right(CCCJCCC,4)=CCCJJJC("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CCCJJJC("r@?E6?E\s:DA@D:E:@?"), CCCJJJC("2EE249>6?Ej ,7:=6?2>6l") & CCCJCCC:Response.ContentType = CCCJJJC("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub:::::::::::::::::::::::::::::::::::::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CCCJJJC("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
CCCCCC=CCCJJJC("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") & CJJJJCC & CCCJJJC("V ,2?5 ,:5l") & CJJJJCJ
set CCCCJC=CCCJCC.execute(CCCCCC):If CCCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=CCCCJC(2) & "":CJJJCJC=CCCCJC(3):CJJJCCJ=CCCCJC(5):CJJJCCC=CCCCJC(6):CJJCJJJ=CCCCJC(9):CJJCJJC=CCCCJC(15):CJJCJCC=CCCCJC(0):CJCJJCJ=CCCCJC(1):CJCJJJC=CCCCJC(11) & "":CJJCCJJ=CCCCJC(10) & "":CJJCJCJ=CCCCJC(12):CJJCCJC=CCCCJC(14):CJJCCCJ=CCCCJC(13):CJJCCCC=CCCCJC(7) & "":CJCJJJJ=CCCCJC(4):CJCJJCC=CCCCJC(8):if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CJJCJJJ) or CJJCJJJ=0 then CJJCJJJ=CJJJCJC
if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJJCCJ) then CJJJCCJ=0
if instr(CCCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CCCJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if:Sub CheckRight(CCCCJJJ):dim CJCJCJC,CJCJCCJ:if CJJJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJJC("??????????????,????????????,"))
elseIf not CCJCCCC(CCCCJJJ) then
Call RedirectMessage(CCCJJJC("????W") & CCCCJJJ & CCCJJJC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCCC(CCCCJJJ):dim CJCJCJC,CJCJCCJ:CJCJCCJ=split(CCCCJJJ,CCCJJJC("[")):CCJCCCC=False:for CJCJCJC=0 to ubound(CJCJCCJ):If Mid(CJJJCJJ,CJCJCCJ(CJCJCJC),1)="1" then
CCJCCCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCCC:CJCJCCC=trim(request.QueryString(CCCJJJC("D49@@="))):if isnumeric(CJCJCCC) then
response.Redirect CCCJJJC("^>^G2?E^R^D49@@=^") & CJCJCCC & CCCJJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJJJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJJC("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJCCJJJ,CJCJCJC,CJCCJJC,CJCCJCJ:CJJJJJJ=split(CJCJCJJ,CCCJJJC("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJJJ=CJJJJJJ(1):for CJCJCJC=1 to len(CJCCJJJ):CJCCJJC=mid(CJCCJJJ,CJCJCJC,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJJJ=CJJJJJJ(2):if CJCCJCJ<>mid(CJCCJJJ,6,7) then
Call ClearMemberCookie
else
CJCCJJC=mid(CJCCJJJ,18,10)/2:if CJCCJJC<DateDiff(CCCJJJC("D"), CCCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCJ=Clng(CJJJJJJ(0)):CJJJJCC=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJJC,CCCCJCJ):dim CJCJCJC,CJCCJJC,CJCCJCJ:for CJCJCJC=1 to len(CCCCJCJ):CJCCJJC=mid(CCCCJCJ,CJCJCJC,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJCJ=CCCCJJC & CCCJJJC("]") & CCCCJCJ & CCCJJJC("]") & Fix(10000*(Rnd+1)) & CJCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJJJC("D"), CCCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJJC("!$*|t|qt#"))=CJCCJCJ:End Sub::dim CJCJCCC:CCCCCC=Request.ServerVariables(CCCJJJC("!p%w0x}u~")):if instr(CCCCCC,CCCJJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJCC and not CJCJJCJ then Call RedirectMessage(CCCJJJC("????????,????????????????????????,"))
CJCJCCC=CJJCJJJ
elseif instr(CCCCCC,CCCJJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCC,CCCJJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCCC=CJJCJJJ
elseif instr(CCCCCC,CCCJJJC("^D49@@="))>0 then
CJCJCCC=Request.QueryString(CCCJJJC("D49@@=")):if not CCJCJJJ(CJCJCCC) then CJCJCCC=Request.QueryString(CCCJJJC("F"))
if not CCJCJJJ(CJCJCCC) then CJCJCCC=Request.QueryString(CCCJJJC("D4"))
if not CCJCJJJ(CJCJCCC) then Call RedirectMessage(CCCJJJC("????????W$49@@=X??@??????????,"))
CJCJCCC=csng(CJCJCCC)
end if:if CJCJCCC=0 then Call RedirectMessage(CCCJJJC("????????W$49@@=X????W_X??,"))
Dim CJCCJCC:Call SetConfig:Sub SetConfig():dim CJCJCCJ,CJCCCJJ:CCCCCC=CCCJJJC("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") & CJCJCCC:set CJCCCJJ=CCCJCC.execute(CCCCCC):if CJCCCJJ.eof then Call RedirectMessage(CCCJJJC("??W") & CJJJJCJ & CCCJJJC("X??????????W") & CJCJCCC & CCCJJJC("X????????,"))
ReDim CJCJCCJ(61):CJCJCCJ(0)=CJCCCJJ(CCCJJJC(";:2@H6:")) & "":CJCJCCJ(1)=CJCCCJJ(CCCJJJC("EJA6")):CJCJCCJ(2)=CJCCCJJ(CCCJJJC("D>D")):CJCJCCJ(3)=CJCCCJJ(CCCJJJC("4FDE@>8C@FA")) & "":CJCJCCJ(4)=CJCCCJJ(CCCJJJC("D:5632C0@E96C")) & "":CJCJCCJ(5)=IIf(isnull(CJCCCJJ(CCCJJJC("E6DEC6DF=EG:6H"))),0,CJCCCJJ(CCCJJJC("E6DEC6DF=EG:6H"))):CJCJCCJ(6)=CJCCCJJ(CCCJJJC("K:IF?E:>6")):CJCJCCJ(7)=CJCCCJJ(CCCJJJC("766")):CJCJCCJ(8)=CJCCCJJ(CCCJJJC("C6E6DE52J")):CJCJCCJ(9)=CJCCCJJ(CCCJJJC("6IA:C652E6")):CJCJCCJ(10)=CJCCCJJ(CCCJJJC("E:E=6")):CJCJCCJ(11)=CJCCCJJ(CCCJJJC(":?EC@")) & "":CJCJCCJ(12)=CJCCCJJ(CCCJJJC("A:4EFC6")) & "":CJCJCCJ(13)=CJCCCJJ(CCCJJJC("72>:=J")):CJCJCCJ(14)=CJCCCJJ(CCCJJJC("4@AJC:89E")) & "":CJCJCCJ(15)=IIf(isnull(CJCCCJJ(CCCJJJC("D6>6DE6C0DE2CE052E6"))),CCCJJJC("`h__\`\`"),CJCCCJJ(CCCJJJC("D6>6DE6C0DE2CE052E6"))):CJCJCCJ(16)=IIf(isnull(CJCCCJJ(CCCJJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCCCJJ(CCCJJJC("K:IF?0E:>6D09:89=:89E"))):CJCJCCJ(17)=CJCCCJJ(CCCJJJC("4@?E24E")) & "":CJCJCCJ(18)=CJCCCJJ(CCCJJJC("D2?5E23=6")):CJCJCCJ(19)=CJCCCJJ(CCCJJJC("4C:D:D")):CJCJCCJ(20)=CJCCCJJ(CCCJJJC("JJ52E6")):CJCJCCJ(21)=CJCCCJJ(CCCJJJC("BB")):CJCJCCJ(22)=CJCCCJJ(CCCJJJC("JFJF60D>D0EA=")) & "":CJCJCCJ(23)=CJCCCJJ(CCCJJJC("JFJF60E6DE0=3")) & "":CJCJCCJ(25)=CJCCCJJ(CCCJJJC("6IA6CE")):CJCJCCJ(26)=CJCCCJJ(CCCJJJC(">@5:?7@")):CJCJCCJ(27)=CJCCCJJ(CCCJJJC("9@>6A286E@AA:4EFC6")) & "":CJCJCCJ(28)=CJCCCJJ(CCCJJJC("4C:D:D=3")):CJCJCCJ(29)=IIf(CJCCCJJ(CCCJJJC("4C:D:D@=5")),False,True):CJCJCCJ(30)=CJCCCJJ(CCCJJJC("8C@FA8F:52?46")):CJCJCCJ(31)=CJCCCJJ(CCCJJJC("3:@7665324<")):CJCJCCJ(32)=CJCCCJJ(CCCJJJC("<6JDEC")):CJCJCCJ(33)=CJCCCJJ(CCCJJJC("=@8@")) & "":CJCJCCJ(34)=CJCCCJJ(CCCJJJC("K:46")):CJCJCCJ(35)=IIf(CJCCCJJ(CCCJJJC(":D?6H")),True,False):CJCJCCJ(36)=121:CJCJCCJ(37)=111:CJCJCCJ(38)=160:CJCJCCJ(39)=CJCCCJJ(CCCJJJC("8F6DE3@@<")):CJCJCCJ(40)=CJCCCJJ(CCCJJJC("75D")):CJCJCCJ(42)=CJCCCJJ(CCCJJJC("9@>6=@8:?")):CJCJCCJ(43)=CJCCCJJ(CCCJJJC("K:IF?0?6657665324<")):CJCJCCJ(44)=CJCCCJJ(CCCJJJC("K:IF?0E:>6D0=:>:E")):CJCJCCJ(45)=CJCCCJJ(CCCJJJC("4@>A=6E60:?7@")):CJCJCCJ(46)=CJCCCJJ(CCCJJJC("E6DE:?EC@")) & "":CJCJCCJ(47)=IIf(isnull(CJCCCJJ(CCCJJJC("JFJF60367@C60E:>6"))),0,CJCCCJJ(CCCJJJC("JFJF60367@C60E:>6"))):CJCJCCJ(49)=CJCCCJJ(CCCJJJC("D>D0C646:G6C")):CJCJCCJ(50)=CJCCCJJ(CCCJJJC("D>D0D:8?")) & "":CJCJCCJ(52)=CJCCCJJ(CCCJJJC("JFJF602CC2?86")):CJCJCCJ(53)=IIf(isnull(CJCCCJJ(CCCJJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCJJ(CCCJJJC("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCJ(54)=CJCCCJJ(CCCJJJC("9:560=30@FE@7286")):CJCJCCJ(55)=CJCCCJJ(CCCJJJC("JFJF60E6DE052JD")):CJCJCCJ(56)=CJCCCJJ(CCCJJJC("JFJF60H66<0=:>:E")):CJCJCCJ(57)=CJCCCJJ(CCCJJJC("JFJF604964<65")):CJCJCCJ(58)=CJCCCJJ(CCCJJJC("K:IF?0?6657665324<0?6IE")):CJCJCCJ(59)=CJCCCJJ(CCCJJJC("4964<?6HDEF56?E")):CJCJCCJ(60)=CJCCCJJ(CCCJJJC("K:IF?04=@D6052E6")):CJCCCJJ.close : set CJCCCJJ=nothing:if isNull(CJCJCCJ(8)) or CJCJCCJ(8)="" then CJCJCCJ(8)=0
if isdate(CJCJCCJ(9)) then
CJCJCCJ(9)=cdate(CJCJCCJ(9)):if CJCJCCJ(9)<Date then Call RedirectMessage(CCCJJJC("????????,????????????????W") & CJCJCCJ(9) & CCCJJJC("X??????,"))
end if:if not CCJCJJJ(CJCJCCJ(20)) then CJCJCCJ(20)=7
select case CJCJCCJ(1):case 1,2,16:CJCJCCJ(36)=159:case 4,5,6,10,11:CJCJCCJ(36)=190:CJCJCCJ(37)=178:CJCJCCJ(38)=191:case 7,13:CJCJCCJ(36)=164:CJCJCCJ(37)=178:CJCJCCJ(38)=179:end select:CJCCJCC=CJCJCCJ:End Sub:Function CCJCCJC(CCCCJCC):dim CJCJCCJ(7,1),CJCJCJC,CJCCCJC,CJCCCCJ:CJCCCJC=Array(CCCJJJC("$49@@="),CCCJJJC("$EF56?E"),CCCJJJC("s6AE"),CCCJJJC("vC256"),CCCJJJC("r=2DD>2E6"),CCCJJJC("}F>36C"),CCCJJJC("%62496C"),CCCJJJC("!2C6?E")):select case CJCCJCC(1):case 1,2 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????")):case 3,16 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????")):case 4 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("??????@"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????")):case 5 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????")):case 6 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("??????@"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 7 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 8 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("??????@"),CCCJJJC("????"),CCCJJJC("????????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 9 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 10 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 11 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 12 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 13 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????")):case 14 : CJCCCCJ=Array(CCCJJJC("??????"),CCCJJJC("??@??"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case 15 : CJCCCCJ=Array(CCCJJJC("????"),CCCJJJC("????????"),CCCJJJC("????"),CCCJJJC("????????"),CCCJJJC("????"),CCCJJJC("????"),CCCJJJC("??????"),CCCJJJC("????")):case else : CJCCCCJ=CJCCCJC
end select:for CJCJCJC=0 to Ubound(CJCJCCJ):CJCJCCJ(CJCJCJC,0)=CJCCCJC(CJCJCJC):CJCJCCJ(CJCJCJC,1)=CJCCCCJ(CJCJCJC):next:for CJCJCJC=0 to Ubound(CJCJCCJ):if CJCJCCJ(CJCJCJC,0)=CCCCJCC then
CCJCCJC=CJCJCCJ(CJCJCJC,1):exit for
end if:next:End Function::Call CheckRight(105):dim CJCCCCC:CJCCCCC=Request.QueryString(CCCJJJC("24E")):CCCCCC="":if CJCCCCC=CCCJJJC("4964<65") then
dim CCJJJJJ:CCJJJJJ=Trim(Request.Form(CCCJJJC(":5=:DE"))):CCJJJJJ=replace(CCJJJJJ,CCCJJJC(" ,"),""):if CCJJJJJ<>"" then CCCCCC=CCCJJJC("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[286[EJA6?2>6[8C256[4FDE@>8C@FA[>@3:=6[6>2:=[52E6E:>6[8ED4@C6[5ED4@C6[DF>[>>A:=6G6=[=6G6= ,7C@> ,G04C:D:D ,H96C6 ,:5 ,:? ,W") & CCJJJJJ & CCCJJJC("X ,@C56C ,3J ,:5")
elseif CJCCCCC=CCCJJJC("2==") then
dim CCJJJJC:CCJJJJC=Session(CCCJJJC("!$*0$B=")):if CCJJJJC<>"" then CCCCCC=CCCJJJC("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[286[EJA6?2>6[8C256[4FDE@>8C@FA[>@3:=6[6>2:=[52E6E:>6[8ED4@C6[5ED4@C6[DF>[>>A:=6G6=[=6G6= ,7C@> ,G04C:D:D ,") & CCJJJJC
end if:if CCCCCC="" then
Call Alert(CCCJJJC("????????,??????????????????????@??????????,"))
else
set CCCCJC=CCCJCC.execute(CCCCCC):if CCCCJC.eof then
Call ShowMessage(CCCJJJC("????????,??????????????????,"))
else
dim CCJJJCJ,str,CJCJCJC:CCJJJCJ = CCCJJJC("k^E5mkE5m"):str=CCCJJJC("k>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6ElFE7\gV ,^mkE23=6 ,3@C56ClV`Vm")
str=str & CCCJJJC("kECmkE9m") & CCJCCJC(CCCJJJC("}F>36C")) & CCCJJJC("k^E9mkE9m????k^E9mkE9m????k^E9mkE9m????k^E9mkE9m") & CCJCCJC(CCCJJJC("s6AE")) & CCCJJJC("k^E9mkE9m????k^E9mkE9m") & CJCCJCC(3) & CCCJJJC("k^E9mkE9m????k^E9mkE9mt>2:=k^E9mkE9m????k^E9mkE9m????k^E9mkE9m????k^E9mkE9m????k^E9mkE9mr%k^E9mkE9m????k^E9mk^ECm"):while not CCCCJC.eof:str=str & CCCJJJC("kECmkE5 ,DEJ=6lVG?5]>D\6I46=]?F>36C7@C>2EioVm")
for CJCJCJC=0 to 14:if CJCJCJC>0 then str=str & CCJJJCJ
str=str & CCCCJC(CJCJCJC):next:str=str & CCCJJJC("k^E5mk^ECm"):CCCCJC.movenext:wend:str=str & CCCJJJC("k^E23=6m"):Call StringDown(CCCJJJC("rC:D:D]I=D"),str)
end if
end if::On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCJCC.Close:Set CCCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJJC(ByVal CCCJJJJ)
Dim CCJJCJJ, CJCJCJC, CCJJCJC
CCCJJJJ = Replace(CCCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CCCJJJJ)
If CJCJCJC <> CCJJCJC Then
CCJJCJJ = AscW(Mid(CCCJJJJ, CJCJCJC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CCCJJJC = CCCJJJC & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CCCJJJC = CCCJJJC & Chr(CCJJCJJ - 47)
Else
CCJJCJC = CJCJCJC + 1
If Mid(CCCJJJJ, CCJJCJC, 1) = Chr(64) Then CCCJJJC = CCCJJJC & ChrW(CCJJCJJ + 5) Else CCCJJJC = CCCJJJC & Mid(CCCJJJJ, CJCJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de