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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJC, CCJCJ,CCJCC, CCCJJ, CCCJC:Set CCJJC = server.CreateObject(CJCJCJC("ps~sq]r@??64E:@?")):CCJJC.open Application(CJCJCJC("r@??64E:@?$EC:?8")):Set CCJCJ=CCJJC::Dim CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ:Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ:CCJJJJ=Trim(Request.Cookies(CJCJCJC("!$*|t|qt#"))):if CCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJ>0 then
CCCJC=CJCJCJC("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") & CCCCC & CJCJCJC("V ,2?5 ,:5l") & CCCCJ
set CCJCC=CCJJC.execute(CCCJC):If CCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJ=CCJCC(2) & "":CJJJJC=CCJCC(3):CJJJCJ=CCJCC(5):CJJJCC=CCJCC(6):CJJCJJ=CCJCC(9):CJJCJC=CCJCC(15):CJJCCC=CCJCC(0):CJCCCJ=CCJCC(1):CJCCJC=CCJCC(11) & "":CJCJJJ=CCJCC(10) & "":CJJCCJ=CCJCC(12):CJCJJC=CCJCC(14):CJCJCJ=CCJCC(13):CJCJCC=CCJCC(7) & "":CJCCJJ=CCJCC(4):CJCCCC=CCJCC(8):if isnull(CJJCJC) then CJJCJC=0
if isnull(CJJCJJ) or CJJCJJ=0 then CJJCJJ=CJJJJC
if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJJJCJ) then CJJJCJ=0
if instr(CJCJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCC)>0 then Call RedirectMessage(CJCJCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCJ,CCCCC)
End IF
end if:Sub CheckRight(CJCJCCJ):dim CCJJJC,CCJJCJ:if CCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCJC("??????????????,????????????,"))
elseIf not CJJCJCJ(CJCJCCJ) then
Call RedirectMessage(CJCJCJC("????W") & CJCJCCJ & CJCJCJC("X????????,????????????????????,"))
end if:End Sub:Function CJJCJCJ(CJCJCCJ):dim CCJJJC,CCJJCJ:CCJJCJ=split(CJCJCCJ,CJCJCJC("[")):CJJCJCJ=False:for CCJJJC=0 to ubound(CCJJCJ):If Mid(CJJJJJ,CCJJCJ(CCJJJC),1)="1" then
CJJCJCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJCJCJC("D49@@="))):if isnumeric(CCJJCC) then
response.Redirect CJCJCJC("^>^G2?E^R^D49@@=^") & CCJJCC & CJCJCJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJCJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCJC("!$*|t|qt#"))="":CCCCJ=0:CJJJCC=0:CCCCC=Empty:CJJJCJ=0:CJJCJC=0:CJJCJJ=0:CJJJJC=0:CJJCCC=False:CJCCCJ=False:CJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJJJC,CCJCCJ,CCJCCC:CCJCJJ=split(CCJJJJ,CJCJCJC("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJJJC=1 to len(CCJCJC):CCJCCJ=mid(CCJCJC,CCJJJC,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCJCCC<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCJ=mid(CCJCJC,18,10)/2:if CCJCCJ<DateDiff(CJCJCJC("D"), CJCJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJ=Clng(CCJCJJ(0)):CCCCC=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCC,CJCCJJJ):dim CCJJJC,CCJCCJ,CCJCCC:for CCJJJC=1 to len(CJCCJJJ):CCJCCJ=mid(CJCCJJJ,CCJJJC,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCCC=CJCJCCC & CJCJCJC("]") & CJCCJJJ & CJCJCJC("]") & Fix(10000*(Rnd+1)) & CCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJC("D"), CJCJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJC("!$*|t|qt#"))=CCJCCC:End Sub:::Function IIf(CJCCJJC, CJCCJCJ, CJCCJCC):if isnull(CJCCJJC) or isempty(CJCCJJC) then
IIf = CJCCJCC
elseif CJCCJJC Then
IIf = CJCCJCJ
Else
IIf = CJCCJCC
end if:End Function:Const CJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCJJ,CJCCCJC):dim CCJCJJ:CCJCJJ=CJCCCJJ & "=" & CJCCCJC & CJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJC("$6E\r@@<:6"),CCJCJJ):End Sub:::::::Function CJJCCJJ(CCCCCJ):if isnull(CCCCCJ) or trim(CCCCCJ)="" or not isnumeric(CCCCCJ) then
CJJCCJJ=false
else
Dim CCCJJJ:Set CCCJJJ = New RegExp:CCCJJJ.Pattern = CJCJCJC("/-5ZS"):CCCJJJ.IgnoreCase = True:CJJCCJJ = CCCJJJ.test(CCCCCJ):set CCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:CCCJCJ.close : set CCCJCJ=nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCJCC.Close : Set CCJCC=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CCJJC.Close : Set CCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJC("!$*0|6DD286"),server.URLEncode(CJCCCCJ)):Response.Redirect CJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::function CJCJJCJ(CCJJCC):dim CCCJJC(),CCJJJC,CCCJCJ,CCCJCC:redim CCCJJC(1,0):CCCJJC(0,0)=0:CCCJJC(1,0)=CJCJCJC(",??."):CCCJCC=CJCJCJC("D6=64E ,:5[C62=?2>6 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36C0EJA60E@Al") & CCJJCC & CJCJCJC(" ,2?5 ,DE2E6ld ,2?5 ,:D4@?DF=E2?El`"):if cstr(CCJJCC)<>"1" then CCCJCC=CCCJCC & CJCJCJC(" ,2?5 ,,8C@FA.kd")
CCCJCC=CCCJCC & CJCJCJC(" ,@C56C ,3J ,:5"):set CCCJCJ=CCJJC.execute(CCCJCC):CCJJJC=0:while not CCCJCJ.eof:redim preserve CCCJJC(1,CCJJJC):CCCJJC(0,CCJJJC)=CCCJCJ(0):CCCJJC(1,CCJJJC)=CCCJCJ(1):CCJJJC=CCJJJC+1:CCCJCJ.movenext:wend:CCCJCJ.close : set CCCJCJ=nothing:CJCJJCJ=CCCJJC:end function::::::::::::::::::::Function CJCJJCC(CJCCCCC,str):dim CCJJJC,CCCCJJ,CCCCJC,CCCJJC,CCCCCJ,CCCCCC,CCJCCC:CCJCCC=ucase(CJCCCCC):CCCCCC=str:if CCCCCC="" then
CCCCCC=request.cookies(CCJCCC):if CCCCCC="" then
CJCJJCC=""
else
CCCCCC=strreverse(CCCCCC):CCCCJJ=len(CCCCCC):for CCJJJC=1 to CCCCJJ-1 step 2:CCCJJC=mid(CCCCCC,CCJJJC,1):CCCCCJ=mid(CCCCCC,CCJJJC+1,1):CCCCJC=CCCCJC & CCCCCJ & CCCJJC:next:CCCCJC=replace(CCCCJC,CJCJCJC("L0N"),CJCJCJC(" ,")):CCCCJC=replace(CCCCJC,CJCJCJC("LIN"),CJCJCJC("Y")):CCCCJC=replace(CCCCJC,CJCJCJC("L:N"),CJCJCJC("^")):CJCJJCC=trim(CCCCJC)
end if
else
if Len(CCCCCC) Mod 2=1 then CCCCCC=CCCCCC & CJCJCJC(" ,")
CCCCCC=replace(CCCCCC,CJCJCJC(" ,"),CJCJCJC("L0N")):CCCCCC=replace(CCCCCC,CJCJCJC("Y"),CJCJCJC("LIN")):CCCCCC=replace(CCCCCC,CJCJCJC("^"),CJCJCJC("L:N")):CCCCJJ=len(CCCCCC):for CCJJJC=1 to CCCCJJ-1 step 2:CCCJJC=mid(CCCCCC,CCJJJC,1):CCCCCJ=mid(CCCCCC,CCJJJC+1,1):CCCCJC=CCCCJC & CCCCCJ & CCCJJC:next:CCCCJC=Trim(strreverse(CCCCJC)):CJCJJCC=CCCCJC:response.cookies(CCJCCC)=CCCCJC
end if:End Function::::dim CCJJCC:CCCJC=Request.ServerVariables(CJCJCJC("!p%w0x}u~")):if instr(CCCJC,CJCJCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCC and not CJCCCJ then Call RedirectMessage(CJCJCJC("????????,????????????????????????,"))
CCJJCC=CJJCJJ
elseif instr(CCCJC,CJCJCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJC,CJCJCJC("^DEF56?E^"))>0 then
Call CheckLogined:CCJJCC=CJJCJJ
elseif instr(CCCJC,CJCJCJC("^D49@@="))>0 then
CCJJCC=Request.QueryString(CJCJCJC("D49@@=")):if not CJJCCJJ(CCJJCC) then CCJJCC=Request.QueryString(CJCJCJC("F"))
if not CJJCCJJ(CCJJCC) then CCJJCC=Request.QueryString(CJCJCJC("D4"))
if not CJJCCJJ(CCJJCC) then Call RedirectMessage(CJCJCJC("????????W$49@@=X??@??????????,"))
CCJJCC=csng(CCJJCC)
end if:if CCJJCC=0 then Call RedirectMessage(CJCJCJC("????????W$49@@=X????W_X??,"))
Dim CJJJJJJ:Call SetConfig:Sub SetConfig():dim CCJJCJ,CCCJCJ:CCCJC=CJCJCJC("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") & CCJJCC:set CCCJCJ=CCJJC.execute(CCCJC):if CCCJCJ.eof then Call RedirectMessage(CJCJCJC("??W") & CCCCJ & CJCJCJC("X??????????W") & CCJJCC & CJCJCJC("X????????,"))
ReDim CCJJCJ(61):CCJJCJ(0)=CCCJCJ(CJCJCJC(";:2@H6:")) & "":CCJJCJ(1)=CCCJCJ(CJCJCJC("EJA6")):CCJJCJ(2)=CCCJCJ(CJCJCJC("D>D")):CCJJCJ(3)=CCCJCJ(CJCJCJC("4FDE@>8C@FA")) & "":CCJJCJ(4)=CCCJCJ(CJCJCJC("D:5632C0@E96C")) & "":CCJJCJ(5)=IIf(isnull(CCCJCJ(CJCJCJC("E6DEC6DF=EG:6H"))),0,CCCJCJ(CJCJCJC("E6DEC6DF=EG:6H"))):CCJJCJ(6)=CCCJCJ(CJCJCJC("K:IF?E:>6")):CCJJCJ(7)=CCCJCJ(CJCJCJC("766")):CCJJCJ(8)=CCCJCJ(CJCJCJC("C6E6DE52J")):CCJJCJ(9)=CCCJCJ(CJCJCJC("6IA:C652E6")):CCJJCJ(10)=CCCJCJ(CJCJCJC("E:E=6")):CCJJCJ(11)=CCCJCJ(CJCJCJC(":?EC@")) & "":CCJJCJ(12)=CCCJCJ(CJCJCJC("A:4EFC6")) & "":CCJJCJ(13)=CCCJCJ(CJCJCJC("72>:=J")):CCJJCJ(14)=CCCJCJ(CJCJCJC("4@AJC:89E")) & "":CCJJCJ(15)=IIf(isnull(CCCJCJ(CJCJCJC("D6>6DE6C0DE2CE052E6"))),CJCJCJC("`h__\`\`"),CCCJCJ(CJCJCJC("D6>6DE6C0DE2CE052E6"))):CCJJCJ(16)=IIf(isnull(CCCJCJ(CJCJCJC("K:IF?0E:>6D09:89=:89E"))),0,CCCJCJ(CJCJCJC("K:IF?0E:>6D09:89=:89E"))):CCJJCJ(17)=CCCJCJ(CJCJCJC("4@?E24E")) & "":CCJJCJ(18)=CCCJCJ(CJCJCJC("D2?5E23=6")):CCJJCJ(19)=CCCJCJ(CJCJCJC("4C:D:D")):CCJJCJ(20)=CCCJCJ(CJCJCJC("JJ52E6")):CCJJCJ(21)=CCCJCJ(CJCJCJC("BB")):CCJJCJ(22)=CCCJCJ(CJCJCJC("JFJF60D>D0EA=")) & "":CCJJCJ(23)=CCCJCJ(CJCJCJC("JFJF60E6DE0=3")) & "":CCJJCJ(25)=CCCJCJ(CJCJCJC("6IA6CE")):CCJJCJ(26)=CCCJCJ(CJCJCJC(">@5:?7@")):CCJJCJ(27)=CCCJCJ(CJCJCJC("9@>6A286E@AA:4EFC6")) & "":CCJJCJ(28)=CCCJCJ(CJCJCJC("4C:D:D=3")):CCJJCJ(29)=IIf(CCCJCJ(CJCJCJC("4C:D:D@=5")),False,True):CCJJCJ(30)=CCCJCJ(CJCJCJC("8C@FA8F:52?46")):CCJJCJ(31)=CCCJCJ(CJCJCJC("3:@7665324<")):CCJJCJ(32)=CCCJCJ(CJCJCJC("<6JDEC")):CCJJCJ(33)=CCCJCJ(CJCJCJC("=@8@")) & "":CCJJCJ(34)=CCCJCJ(CJCJCJC("K:46")):CCJJCJ(35)=IIf(CCCJCJ(CJCJCJC(":D?6H")),True,False):CCJJCJ(36)=121:CCJJCJ(37)=111:CCJJCJ(38)=160:CCJJCJ(39)=CCCJCJ(CJCJCJC("8F6DE3@@<")):CCJJCJ(40)=CCCJCJ(CJCJCJC("75D")):CCJJCJ(42)=CCCJCJ(CJCJCJC("9@>6=@8:?")):CCJJCJ(43)=CCCJCJ(CJCJCJC("K:IF?0?6657665324<")):CCJJCJ(44)=CCCJCJ(CJCJCJC("K:IF?0E:>6D0=:>:E")):CCJJCJ(45)=CCCJCJ(CJCJCJC("4@>A=6E60:?7@")):CCJJCJ(46)=CCCJCJ(CJCJCJC("E6DE:?EC@")) & "":CCJJCJ(47)=IIf(isnull(CCCJCJ(CJCJCJC("JFJF60367@C60E:>6"))),0,CCCJCJ(CJCJCJC("JFJF60367@C60E:>6"))):CCJJCJ(49)=CCCJCJ(CJCJCJC("D>D0C646:G6C")):CCJJCJ(50)=CCCJCJ(CJCJCJC("D>D0D:8?")) & "":CCJJCJ(52)=CCCJCJ(CJCJCJC("JFJF602CC2?86")):CCJJCJ(53)=IIf(isnull(CCCJCJ(CJCJCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJCJ(CJCJCJC("DEF56?E0BF6DE:@?04@F?E"))):CCJJCJ(54)=CCCJCJ(CJCJCJC("9:560=30@FE@7286")):CCJJCJ(55)=CCCJCJ(CJCJCJC("JFJF60E6DE052JD")):CCJJCJ(56)=CCCJCJ(CJCJCJC("JFJF60H66<0=:>:E")):CCJJCJ(57)=CCCJCJ(CJCJCJC("JFJF604964<65")):CCJJCJ(58)=CCCJCJ(CJCJCJC("K:IF?0?6657665324<0?6IE")):CCJJCJ(59)=CCCJCJ(CJCJCJC("4964<?6HDEF56?E")):CCJJCJ(60)=CCCJCJ(CJCJCJC("K:IF?04=@D6052E6")):CCCJCJ.close : set CCCJCJ=nothing:if isNull(CCJJCJ(8)) or CCJJCJ(8)="" then CCJJCJ(8)=0
if isdate(CCJJCJ(9)) then
CCJJCJ(9)=cdate(CCJJCJ(9)):if CCJJCJ(9)<Date then Call RedirectMessage(CJCJCJC("????????,????????????????W") & CCJJCJ(9) & CJCJCJC("X??????,"))
end if:if not CJJCCJJ(CCJJCJ(20)) then CCJJCJ(20)=7
select case CCJJCJ(1):case 1,2,16:CCJJCJ(36)=159:case 4,5,6,10,11:CCJJCJ(36)=190:CCJJCJ(37)=178:CCJJCJ(38)=191:case 7,13:CCJJCJ(36)=164:CCJJCJ(37)=178:CCJJCJ(38)=179:end select:CJJJJJJ=CCJJCJ:End Sub:Function CJCJJJJ(CJCCCCC):dim CCJJCJ(7,1),CCJJJC,CJJJJJC,CJJJJCJ:CJJJJJC=Array(CJCJCJC("$49@@="),CJCJCJC("$EF56?E"),CJCJCJC("s6AE"),CJCJCJC("vC256"),CJCJCJC("r=2DD>2E6"),CJCJCJC("}F>36C"),CJCJCJC("%62496C"),CJCJCJC("!2C6?E")):select case CJJJJJJ(1):case 1,2 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????")):case 3,16 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????")):case 4 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("??????@"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????")):case 5 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????")):case 6 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("??????@"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 7 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 8 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("??????@"),CJCJCJC("????"),CJCJCJC("????????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 9 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 10 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 11 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 12 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 13 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????")):case 14 : CJJJJCJ=Array(CJCJCJC("??????"),CJCJCJC("??@??"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case 15 : CJJJJCJ=Array(CJCJCJC("????"),CJCJCJC("????????"),CJCJCJC("????"),CJCJCJC("????????"),CJCJCJC("????"),CJCJCJC("????"),CJCJCJC("??????"),CJCJCJC("????")):case else : CJJJJCJ=CJJJJJC
end select:for CCJJJC=0 to Ubound(CCJJCJ):CCJJCJ(CCJJJC,0)=CJJJJJC(CCJJJC):CCJJCJ(CCJJJC,1)=CJJJJCJ(CCJJJC):next:for CCJJJC=0 to Ubound(CCJJCJ):if CCJJCJ(CCJJJC,0)=CJCCCCC then
CJCJJJJ=CCJJCJ(CCJJJC,1):exit for
end if:next:End Function::Call CheckRight(6):Const CJJCJJJ="??":Const CJJCJJC="?":Response.Write(vbCrLf):Response.Write("<!DOCTYPE html>" & vbCrLf):Response.Write(CJCJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCJC("k9625m") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJCJC("kE:E=6m????????????k^E:E=6m") & vbCrLf):Response.Write(CJCJCJC("kDEJ=6m") & vbCrLf):Response.Write(CJCJCJC("3@5JL>2C8:?i_jN") & vbCrLf):Response.Write(CJCJCJC("]3E?DL324<8C@F?5\4@=@CiR7`7`7`j ,3@C56C\3@EE@>i`AI ,D@=:5 ,R444j ,A255:?8idAI ,`_AIj@G6C7=@Hi9:556?jN") & vbCrLf):Response.Write(CJCJCJC("R3E?\AC:?EL7=@2Ei=67EjN") & vbCrLf):Response.Write(CJCJCJC("R3E?\H@C5[R3E?\6I46=L7=@2EiC:89Ej>2C8:?\=67EidAIjN") & vbCrLf):Response.Write(CJCJCJC(">2:?L>2C8:?i`_AIjN") & vbCrLf):Response.Write(CJCJCJC("9`L7@?E\D:K6i`cAIjE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CJCJCJC("E9[E5L7@?E\D:K6i`aAIjN") & vbCrLf):Response.Write(CJCJCJC(",4@?E6?E65:E23=6. ,L4@=@CiRa3gd6cjN") & vbCrLf):Response.Write(CJCJCJC("^Y ,???????? ,Y^") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,L ,3@C56C\E@Ai ,aAI ,D@=:5 ,Reeej ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,3@C56C\4@==2AD6i ,4@==2AD6j ,H:5E9i ,`__Tj ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E9[ ,]E30DE2E ,E5 ,L ,3@C56Ci ,`AI ,D@=:5 ,Reeej ,A255:?8i ,bAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E9 ,L ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E9i7:CDE\49:=5[ ,]E30DE2E ,E5i7:CDE\49:=5 ,L ,3@C56C\=67Ei ,?@?6j ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E9i=2DE\49:=5[ ,]E30DE2E ,E5i=2DE\49:=5 ,L ,3@C56C\C:89Ei ,?@?6j ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E5]E6IE\=67E ,L ,E6IE\2=:8?i ,=67Ej ,N") & vbCrLf):Response.Write(CJCJCJC("]E30DE2E ,E5]E6IE\C:89E ,L ,E6IE\2=:8?i ,C:89Ej ,N") & vbCrLf):Response.Write(CJCJCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCJCJC("]3E?DL5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCJCJC(">2:?iL>2C8:?i_jN") & vbCrLf):Response.Write(CJCJCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJC("k^9625m") & vbCrLf):Response.Write(CJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k5:G ,4=2DDlQ3E?DQm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\AC:?EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ??????tI46=Q ,E:E=6lQ????,????????????????????????????????????,????????????????????????,??????Qm") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\H@C5Q ,G2=F6lQ????(@C5Qm") & vbCrLf):Response.Write(CJCJCJC("k^5:Gm") & vbCrLf):Response.Write(CJCJCJC("k>2:?m") & vbCrLf):Response.Write(CJCJCJC(" ,k9` ,4@?E6?E65:E23=6m????????????k^9`m") & vbCrLf):Response.Write(CJCJCJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE9 ,C@HDA2?lQaQmRk^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9 ,C@HDA2?lQaQm??????k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,")):dim CCJJCJ,CCJJJC:CCJJCJ=split(CJCJCJC("????????M????????M????????????????????M??????????M????????????"),CJCJCJC("M")):for CCJJJC=0 to 4:Response.Write CJCJCJC("kE9 ,4@=DA2?lVdV ,4@?E6?E65:E23=6m") & (CCJJJC+1) & CJCJCJC("] ,") & CCJJCJ(CCJJJC) & CJCJCJC("k^E9m")
next:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,")):CCJJCJ=split(CJCJCJC("????????M??????M??????,??M??????M??????M??????M????M??????M????M??????M????M??????M??????M??????M??????M??,??M??????M??????M??????M????M??@??????????M????????????M????????????M??????????M??????????"),CJCJCJC("M")):for CCJJJC=0 to 24:Response.Write CJCJCJC("kE9 ,4@?E6?E65:E23=6m") & CCJJCJ(CCJJJC) & CJCJCJC("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJCJC(" ,")):dim CCCJJC,CJJJJCC(),CCJCCJ:CCCJJC=CJCJJCJ(CCJJCC):redim CJJJJCC(ubound(CCCJJC,2),26):for CCJJJC=0 to ubound(CJJJJCC):CJJJJCC(CCJJJC,0)=CCCJJC(0,CCJJJC):CJJJJCC(CCJJJC,1)=CCCJJC(1,CCJJJC):for CCJCCJ=2 to 26:CJJJJCC(CCJJJC,CCJCCJ)=0:next:next:dim CJJJCJJ,CCJCCC:CCCJC=CJCJJCC(CJCJCJC("$""{"),""):if CCCJC="" then Call RedirectMessage(CJCJCJC("????????,????????W$""{X????"))
CCCJC=CJCJCJC("D6=64E ,DE2EFD[4@?DF=E2?E[7665324< ,7C@> ,G0KI ,H:E9 ,W?@=@4<X ,") & CCCJC:set CCJCC=CCJJC.execute(CCCJC):while not CCJCC.eof:if CCJCC(0)=6 and trim(CCJCC(2)) & ""<>"" then
for CCJJJC=0 to ubound(CJJJJCC):if CJJJJCC(CCJJJC,0)=CCJCC(1) then
CJJJCJJ=split(CCJCC(2),CJCJCJC("M")):for CCJCCJ=0 to 4:if not CJJCCJJ(CJJJCJJ(CCJCCJ)) then CJJJCJJ(CCJCCJ)=1
CCJCCC=CCJCCJ*5+CJJJCJJ(CCJCCJ)+1:CJJJJCC(CCJJJC,CCJCCC)=CJJJJCC(CCJJJC,CCJCCC)+1:next:exit for
end if:next
end if:CCJCC.movenext:wend:dim CJJJCJC(24):for CCJJJC=0 to ubound(CJJJJCC):Response.Write CJCJCJC("kECmkE5m") & (CCJJJC+1) & CJCJCJC("k^E5mkE5m") & CJJJJCC(CCJJJC,1) & CJCJCJC("k^E5m"):for CCJCCJ=2 to 26:CJJJCJC(CCJCCJ-2)=CJJJCJC(CCJCCJ-2)+CJJJJCC(CCJJJC,CCJCCJ):Response.Write CJCJCJC("kE5m") & IIf(CJJJJCC(CCJJJC,CCJCCJ)=0,"",CJJJJCC(CCJJJC,CCJCCJ)) & CJCJCJC("k^E5m"):next:Response.Write CJCJCJC("k^ECm"):next:Response.Write CJCJCJC("kECmkE5 ,4@=DA2?lVaVm????k^E5m")
for CCJJJC=0 to 24:Response.Write CJCJCJC("kE5m") & IIf(CJJJCJC(CCJJJC)=0,"",CJJJCJC(CCJJJC)) & CJCJCJC("k^E5m"):next:Response.Write CJCJCJC("k^ECm"):Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJC("k^>2:?m") & vbCrLf):Response.Write(CJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJC("SW7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJCJC(" ,SWV,4@?E6?E65:E23=6.VX]2EECWVE:E=6V[V??????????????????????????VX") & vbCrLf):Response.Write(CJCJCJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLD6=7]AC:?EWXNX") & vbCrLf):Response.Write(CJCJCJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV>2:?VX]9E>=a5@4IWSWV9`VX]E6IEWXXNX") & vbCrLf):Response.Write(CJCJCJC(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30DE2EVX]E23=6a6I46=WSWV9`VX]E6IEWXXNX") & vbCrLf):Response.Write(CJCJCJC("NX") & vbCrLf):Response.Write(CJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCC.Close:Set CCJCC=Nothing:CCJJC.Close:Set CCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCJC(ByVal CJCJCJJ)
Dim CJJJCCJ, CCJJJC, CCCCCJ
CJCJCJJ = Replace(CJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJJC = 1 To Len(CJCJCJJ)
If CCJJJC <> CCCCCJ Then
CJJJCCJ = AscW(Mid(CJCJCJJ, CCJJJC, 1))
If CJJJCCJ >= 33 And CJJJCCJ <= 79 Then
CJCJCJC = CJCJCJC & Chr(CJJJCCJ + 47)
ElseIf CJJJCCJ >= 80 And CJJJCCJ <= 126 Then
CJCJCJC = CJCJCJC & Chr(CJJJCCJ - 47)
Else
CCCCCJ = CCJJJC + 1
If Mid(CJCJCJJ, CCCCCJ, 1) = Chr(64) Then CJCJCJC = CJCJCJC & ChrW(CJJJCCJ + 5) Else CJCJCJC = CJCJCJC & Mid(CJCJCJJ, CCJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de