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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CJCJCJJ("ps~sq]r@??64E:@?")):CJJJJC.open Application(CJCJCJJ("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(CJCJCJJ("!$*|t|qt#"))):if CCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCCJ>0 then
CJJCJC=CJCJCJJ("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 & CJCJCJJ("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(CJCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCC)>0 then Call RedirectMessage(CJCJCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCCJ,CJJCCC)
End IF
end if:Sub CheckRight(CJCJCJC):dim CCCJJC,CCCJCJ:if CJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCJJ("??????????????,????????????,"))
elseIf not CJJCJCC(CJCJCJC) then
Call RedirectMessage(CJCJCJJ("????W") & CJCJCJC & CJCJCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCJCC(CJCJCJC):dim CCCJJC,CCCJCJ:CCCJCJ=split(CJCJCJC,CJCJCJJ("[")):CJJCJCC=False:for CCCJJC=0 to ubound(CCCJCJ):If Mid(CJCJJJ,CCCJCJ(CCCJJC),1)="1" then
CJJCJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJCC:CCCJCC=trim(request.QueryString(CJCJCJJ("D49@@="))):if isnumeric(CCCJCC) then
response.Redirect CJCJCJJ("^>^G2?E^R^D49@@=^") & CCCJCC & CJCJCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCJJ("!$*|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 CCCCJJ,CCCCJC,CCCJJC,CCCCCJ,CCCCCC:CCCCJJ=split(CCCJJJ,CJCJCJJ("]")):if ubound(CCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJJ(0)) or len(CCCCJJ(1))<>32 or len(CCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CCCCJC=CCCCJJ(1):for CCCJJC=1 to len(CCCCJC):CCCCCJ=mid(CCCCJC,CCCJJC,1):if isnumeric(CCCCCJ) then CCCCCC=CCCCCC & CCCCCJ
if len(CCCCCC)=7 then exit for
next:CCCCJC=CCCCJJ(2):if CCCCCC<>mid(CCCCJC,6,7) then
Call ClearMemberCookie
else
CCCCCJ=mid(CCCCJC,18,10)/2:if CCCCCJ<DateDiff(CJCJCJJ("D"), CJCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCCJ=Clng(CCCCJJ(0)):CJJCCC=CCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCJ,CJCJCCC):dim CCCJJC,CCCCCJ,CCCCCC:for CCCJJC=1 to len(CJCJCCC):CCCCCJ=mid(CJCJCCC,CCCJJC,1):if isnumeric(CCCCCJ) then CCCCCC=CCCCCC & CCCCCJ
if len(CCCCCC)=7 then exit for
next:CCCCCC=CJCJCCJ & CJCJCJJ("]") & CJCJCCC & CJCJCJJ("]") & Fix(10000*(Rnd+1)) & CCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJJ("D"), CJCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJJ("!$*|t|qt#"))=CCCCCC:End Sub:::Function IIf(CJCCJJJ, CJCCJJC, CJCCJCJ):if isnull(CJCCJJJ) or isempty(CJCCJJJ) then
IIf = CJCCJCJ
elseif CJCCJJJ Then
IIf = CJCCJJC
Else
IIf = CJCCJCJ
end if:End Function:Const CJJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJCC,CJCCCJJ):dim CCCCJJ:CCCCJJ=CJCCJCC & "=" & CJCCCJJ & CJCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJJ("$6E\r@@<:6"),CCCCJJ):End Sub:::::::Function CJJCCJC(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CJJCCJC=false
else
Dim CJJJJJJ:Set CJJJJJJ = New RegExp:CJJJJJJ.Pattern = CJCJCJJ("/-5ZS"):CJJJJJJ.IgnoreCase = True:CJJCCJC = CJJJJJJ.test(CJJCJJC):set CJJJJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJCJJCJ.Close : Set CJCJJCJ = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJJ("!$*0|6DD286"),server.URLEncode(CJCCCJC)):Response.Redirect CJCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CJCCCCJ, str):Call ConnClose:Response.Charset=CJCJCJJ("FE7\g"):Response.Buffer = True:Response.Clear:if right(CJCCCCJ,4)=CJCJCJJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJCJCJJ("r@?E6?E\s:DA@D:E:@?"), CJCJCJJ("2EE249>6?Ej ,7:=6?2>6l") & CJCCCCJ:Response.ContentType = CJCJCJJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub:::::::::::::::::::::::::::::::::::::dim CCCJCC:CJJCJC=Request.ServerVariables(CJCJCJJ("!p%w0x}u~")):if instr(CJJCJC,CJCJCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCC and not CCJCCJ then Call RedirectMessage(CJCJCJJ("????????,????????????????????????,"))
CCCJCC=CJCCJJ
elseif instr(CJJCJC,CJCJCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJC,CJCJCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCJCC=CJCCJJ
elseif instr(CJJCJC,CJCJCJJ("^D49@@="))>0 then
CCCJCC=Request.QueryString(CJCJCJJ("D49@@=")):if not CJJCCJC(CCCJCC) then CCCJCC=Request.QueryString(CJCJCJJ("F"))
if not CJJCCJC(CCCJCC) then CCCJCC=Request.QueryString(CJCJCJJ("D4"))
if not CJJCCJC(CCCJCC) then Call RedirectMessage(CJCJCJJ("????????W$49@@=X??@??????????,"))
CCCJCC=csng(CCCJCC)
end if:if CCCJCC=0 then Call RedirectMessage(CJCJCJJ("????????W$49@@=X????W_X??,"))
Dim CJJJJJC:Call SetConfig:Sub SetConfig():dim CCCJCJ,CJJJJCJ:CJJCJC=CJCJCJJ("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") & CCCJCC:set CJJJJCJ=CJJJJC.execute(CJJCJC):if CJJJJCJ.eof then Call RedirectMessage(CJCJCJJ("??W") & CJJCCJ & CJCJCJJ("X??????????W") & CCCJCC & CJCJCJJ("X????????,"))
ReDim CCCJCJ(61):CCCJCJ(0)=CJJJJCJ(CJCJCJJ(";:2@H6:")) & "":CCCJCJ(1)=CJJJJCJ(CJCJCJJ("EJA6")):CCCJCJ(2)=CJJJJCJ(CJCJCJJ("D>D")):CCCJCJ(3)=CJJJJCJ(CJCJCJJ("4FDE@>8C@FA")) & "":CCCJCJ(4)=CJJJJCJ(CJCJCJJ("D:5632C0@E96C")) & "":CCCJCJ(5)=IIf(isnull(CJJJJCJ(CJCJCJJ("E6DEC6DF=EG:6H"))),0,CJJJJCJ(CJCJCJJ("E6DEC6DF=EG:6H"))):CCCJCJ(6)=CJJJJCJ(CJCJCJJ("K:IF?E:>6")):CCCJCJ(7)=CJJJJCJ(CJCJCJJ("766")):CCCJCJ(8)=CJJJJCJ(CJCJCJJ("C6E6DE52J")):CCCJCJ(9)=CJJJJCJ(CJCJCJJ("6IA:C652E6")):CCCJCJ(10)=CJJJJCJ(CJCJCJJ("E:E=6")):CCCJCJ(11)=CJJJJCJ(CJCJCJJ(":?EC@")) & "":CCCJCJ(12)=CJJJJCJ(CJCJCJJ("A:4EFC6")) & "":CCCJCJ(13)=CJJJJCJ(CJCJCJJ("72>:=J")):CCCJCJ(14)=CJJJJCJ(CJCJCJJ("4@AJC:89E")) & "":CCCJCJ(15)=IIf(isnull(CJJJJCJ(CJCJCJJ("D6>6DE6C0DE2CE052E6"))),CJCJCJJ("`h__\`\`"),CJJJJCJ(CJCJCJJ("D6>6DE6C0DE2CE052E6"))):CCCJCJ(16)=IIf(isnull(CJJJJCJ(CJCJCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCJ(CJCJCJJ("K:IF?0E:>6D09:89=:89E"))):CCCJCJ(17)=CJJJJCJ(CJCJCJJ("4@?E24E")) & "":CCCJCJ(18)=CJJJJCJ(CJCJCJJ("D2?5E23=6")):CCCJCJ(19)=CJJJJCJ(CJCJCJJ("4C:D:D")):CCCJCJ(20)=CJJJJCJ(CJCJCJJ("JJ52E6")):CCCJCJ(21)=CJJJJCJ(CJCJCJJ("BB")):CCCJCJ(22)=CJJJJCJ(CJCJCJJ("JFJF60D>D0EA=")) & "":CCCJCJ(23)=CJJJJCJ(CJCJCJJ("JFJF60E6DE0=3")) & "":CCCJCJ(25)=CJJJJCJ(CJCJCJJ("6IA6CE")):CCCJCJ(26)=CJJJJCJ(CJCJCJJ(">@5:?7@")):CCCJCJ(27)=CJJJJCJ(CJCJCJJ("9@>6A286E@AA:4EFC6")) & "":CCCJCJ(28)=CJJJJCJ(CJCJCJJ("4C:D:D=3")):CCCJCJ(29)=IIf(CJJJJCJ(CJCJCJJ("4C:D:D@=5")),False,True):CCCJCJ(30)=CJJJJCJ(CJCJCJJ("8C@FA8F:52?46")):CCCJCJ(31)=CJJJJCJ(CJCJCJJ("3:@7665324<")):CCCJCJ(32)=CJJJJCJ(CJCJCJJ("<6JDEC")):CCCJCJ(33)=CJJJJCJ(CJCJCJJ("=@8@")) & "":CCCJCJ(34)=CJJJJCJ(CJCJCJJ("K:46")):CCCJCJ(35)=IIf(CJJJJCJ(CJCJCJJ(":D?6H")),True,False):CCCJCJ(36)=121:CCCJCJ(37)=111:CCCJCJ(38)=160:CCCJCJ(39)=CJJJJCJ(CJCJCJJ("8F6DE3@@<")):CCCJCJ(40)=CJJJJCJ(CJCJCJJ("75D")):CCCJCJ(42)=CJJJJCJ(CJCJCJJ("9@>6=@8:?")):CCCJCJ(43)=CJJJJCJ(CJCJCJJ("K:IF?0?6657665324<")):CCCJCJ(44)=CJJJJCJ(CJCJCJJ("K:IF?0E:>6D0=:>:E")):CCCJCJ(45)=CJJJJCJ(CJCJCJJ("4@>A=6E60:?7@")):CCCJCJ(46)=CJJJJCJ(CJCJCJJ("E6DE:?EC@")) & "":CCCJCJ(47)=IIf(isnull(CJJJJCJ(CJCJCJJ("JFJF60367@C60E:>6"))),0,CJJJJCJ(CJCJCJJ("JFJF60367@C60E:>6"))):CCCJCJ(49)=CJJJJCJ(CJCJCJJ("D>D0C646:G6C")):CCCJCJ(50)=CJJJJCJ(CJCJCJJ("D>D0D:8?")) & "":CCCJCJ(52)=CJJJJCJ(CJCJCJJ("JFJF602CC2?86")):CCCJCJ(53)=IIf(isnull(CJJJJCJ(CJCJCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCJ(CJCJCJJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJCJ(54)=CJJJJCJ(CJCJCJJ("9:560=30@FE@7286")):CCCJCJ(55)=CJJJJCJ(CJCJCJJ("JFJF60E6DE052JD")):CCCJCJ(56)=CJJJJCJ(CJCJCJJ("JFJF60H66<0=:>:E")):CCCJCJ(57)=CJJJJCJ(CJCJCJJ("JFJF604964<65")):CCCJCJ(58)=CJJJJCJ(CJCJCJJ("K:IF?0?6657665324<0?6IE")):CCCJCJ(59)=CJJJJCJ(CJCJCJJ("4964<?6HDEF56?E")):CCCJCJ(60)=CJJJJCJ(CJCJCJJ("K:IF?04=@D6052E6")):CJJJJCJ.close : set CJJJJCJ=nothing:if isNull(CCCJCJ(8)) or CCCJCJ(8)="" then CCCJCJ(8)=0
if isdate(CCCJCJ(9)) then
CCCJCJ(9)=cdate(CCCJCJ(9)):if CCCJCJ(9)<Date then Call RedirectMessage(CJCJCJJ("????????,????????????????W") & CCCJCJ(9) & CJCJCJJ("X??????,"))
end if:if not CJJCCJC(CCCJCJ(20)) then CCCJCJ(20)=7
select case CCCJCJ(1):case 1,2,16:CCCJCJ(36)=159:case 4,5,6,10,11:CCCJCJ(36)=190:CCCJCJ(37)=178:CCCJCJ(38)=191:case 7,13:CCCJCJ(36)=164:CCCJCJ(37)=178:CCCJCJ(38)=179:end select:CJJJJJC=CCCJCJ:End Sub:Function CJCJJJC(CJCCCCC):dim CCCJCJ(7,1),CCCJJC,CJJJJCC,CJJJCJJ:CJJJJCC=Array(CJCJCJJ("$49@@="),CJCJCJJ("$EF56?E"),CJCJCJJ("s6AE"),CJCJCJJ("vC256"),CJCJCJJ("r=2DD>2E6"),CJCJCJJ("}F>36C"),CJCJCJJ("%62496C"),CJCJCJJ("!2C6?E")):select case CJJJJJC(1):case 1,2 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????")):case 3,16 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????")):case 4 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("??????@"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????")):case 5 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????")):case 6 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("??????@"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 7 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 8 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("??????@"),CJCJCJJ("????"),CJCJCJJ("????????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 9 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 10 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 11 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 12 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 13 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????")):case 14 : CJJJCJJ=Array(CJCJCJJ("??????"),CJCJCJJ("??@??"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case 15 : CJJJCJJ=Array(CJCJCJJ("????"),CJCJCJJ("????????"),CJCJCJJ("????"),CJCJCJJ("????????"),CJCJCJJ("????"),CJCJCJJ("????"),CJCJCJJ("??????"),CJCJCJJ("????")):case else : CJJJCJJ=CJJJJCC
end select:for CCCJJC=0 to Ubound(CCCJCJ):CCCJCJ(CCCJJC,0)=CJJJJCC(CCCJJC):CCCJCJ(CCCJJC,1)=CJJJCJJ(CCCJJC):next:for CCCJJC=0 to Ubound(CCCJCJ):if CCCJCJ(CCCJJC,0)=CJCCCCC then
CJCJJJC=CCCJCJ(CCCJJC,1):exit for
end if:next:End Function::Call CheckRight(107):dim CJJJCJC,str,CCCJJC,CJJJCCC,CCCJCJ:str=CJCJCJJ("k>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6ElFE7\gV ,^mkE23=6 ,3@C56ClV`Vm") & CJCJCJJ("kECmkE9 ,C@HDA2?lVaVm") & CJCJJJC(CJCJCJJ("}F>36C")) & CJCJCJJ("k^E9mkE9 ,C@HDA2?lVaVm????k^E9mkE9 ,C@HDA2?lVaVm????k^E9mkE9 ,C@HDA2?lVaVm????k^E9mkE9 ,C@HDA2?lVaVm") & CJCJJJC(CJCJCJJ("s6AE")) & CJCJCJJ("k^E9mkE9 ,C@HDA2?lVaVm????k^E9mkE9 ,C@HDA2?lVaVm") & CJJJJJC(3) & CJCJCJJ("k^E9mkE9 ,4@=DA2?lVcVm????????????k^E9mkE9 ,4@=DA2?lVbaVm????????k^E9mkE9 ,4@=DA2?lV`_Vm????????????k^E9mkE9 ,4@=DA2?lVhVm||!x??????k^E9mkE9 ,4@=DA2?lVhVm||!x??????k^E9mk^ECm") & CJCJCJJ("kECmkE9m??????k^E9mkE9m????k^E9mkE9m????????k^E9mkE9m????????k^E9m")
for CCCJJC=1 to 32:str=str & CJCJCJJ("kE9m") & CCCJJC & CJCJCJJ("k^E9m"):next:str=str & CJCJCJJ("kE9m????????k^E9mkE9m????????k^E9mkE9m????@??@??k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????????k^E9mkE9m????k^E9mkE9m????k^E9m") & CJCJCJJ("kE9m#\""k^E9mkE9m#\{k^E9mkE9m#\uk^E9mkE9m#\zk^E9mkE9m#\sk^E9mkE9m#\!5k^E9mkE9m#\!2k^E9mkE9m#\$4k^E9mkE9m#\|2k^E9m") & CJCJCJJ("kE9m%\""k^E9mkE9m%\{k^E9mkE9m%\uk^E9mkE9m%\zk^E9mkE9m%\sk^E9mkE9m%\!5k^E9mkE9m%\!2k^E9mkE9m%\$4k^E9mkE9m%\|2k^E9m") & CJCJCJJ("k^ECm"):CJJJCJC = CJCJCJJ("k^E5mkE5m"):CJJCJC=Session(CJCJCJJ("!$*0$B=")):CJJCJC=CJCJCJJ("D6=64E ,DEF56?E?F>[C62=?2>6[D6I?2>6[286[>6>36C0EJA60?2>6[>6>36C08C256[4FDE@>8C@FA[4@?DF=E2?E?2>6[52E6E:>6[K507:CDEZ` ,2D ,K96?5F2?[562=[>6>36C ,7C@> ,G04C:D:D06G2=F2E6 ,") & CJJCJC & CJCJCJJ(" ,@C56C ,3J ,:5 ,56D4"):set CJJJCC=CJJJJC.execute(CJJCJC):while not CJJJCC.eof:str=str & CJCJCJJ("kECm"):for CCCJJC=0 to 10:if CCCJJC=0 then
str=str & CJCJCJJ("kE5 ,DEJ=6lVG?5]>D\6I46=]?F>36C7@C>2EioVm") & CJJJCC(CCCJJC) & CJCJCJJ("k^E5m")
else
str=str & CJCJCJJ("kE5m") & CJJJCC(CCCJJC) & CJCJCJJ("k^E5m")
end if:next:CJJJCCC=CJJJCC(11):set CJJCJJ=CJJJJC.execute(CJCJCJJ("D6=64E ,E@A ,` ,2?DH6C[D4@C60C2H[D4@C60E[C6DF=E ,7C@> ,E6DE ,H96C6 ,=3l`_f ,2?5 ,>6>36Cl") & CJJJCCC & CJCJCJJ(" ,2?5 ,G2=:5l` ,@C56C ,3J ,:5 ,56D4")):if CJJCJJ.eof then
for CCCJJC=1 to 42:str=str & CJCJCJJ("kE5mk^E5m"):next
else
CCCJCJ=split(CJJCJJ(0) & CJCJCJJ("MM"),CJCJCJJ("M")):for CCCJJC=0 to 31:str=str & CJCJCJJ("kE5m") & CCCJCJ(CCCJJC) & CJCJCJJ("k^E5m"):next:CCCJCJ=split(CJJCJJ(1) & CJCJCJJ("M_M_"),CJCJCJJ("M")):for CCCJJC=0 to 7:str=str & CJCJCJJ("kE5m") & CCCJCJ(CCCJJC) & CJCJCJJ("k^E5m"):next:str=str & CJCJCJJ("kE5m") & CJJCJJ(2) & CJCJCJJ("k^E5mkE5m") & CJJCJJ(3) & CJCJCJJ("k^E5m")
end if:set CJJCJJ=CJJJJC.execute(CJCJCJJ("D6=64E ,E@A ,` ,D4@C60C2H[D4@C60E ,7C@> ,E6DE ,H96C6 ,=3l`_h ,2?5 ,G2=:5l` ,2?5 ,>6>36Cl") & CJJJCCC & CJCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):if CJJCJJ.eof then
for CCCJJC=1 to 18:str=str & CJCJCJJ("kE5mk^E5m"):next
else
CCCJCJ=split(CJJCJJ(0),CJCJCJJ("M")):for CCCJJC=0 to 8:str=str & CJCJCJJ("kE5m") & CCCJCJ(CCCJJC) & CJCJCJJ("k^E5m"):next:CCCJCJ=split(CJJCJJ(1),CJCJCJJ("M")):for CCCJJC=0 to 8:str=str & CJCJCJJ("kE5m") & CCCJCJ(CCCJJC) & CJCJCJJ("k^E5m"):next
end if:str=str & CJCJCJJ("k^ECm"):CJJJCC.movenext:wend:str=str & CJCJCJJ("k^E23=6m"):Call StringDown(CJCJCJJ("rC:D:DtG2=F2E6]I=D"),str)::On Error Resume Next:set CJJCCCJ=nothing:set CJJCCCC=nothing:set CJCJJJJ=nothing:set CJCJJJC=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):Response.Write(CJCJCJJ("kE23=6 ,3@C56ClV`Vm") & vbCrLf):Response.Write(CJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,C@HDA2?lVaVm????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,4@=DA2?lVcVm????????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,4@=DA2?lVbaVm????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,4@=DA2?lV`_Vm????????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,4@=DA2?lVhVm||!x??????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9 ,4@=DA2?lVhVm||!x??????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mak^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mbk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mck^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mdk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mek^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mfk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mgk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mhk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`_k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m``k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`ak^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`bk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`ck^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`dk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`ek^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`fk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`gk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m`hk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9ma_k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9ma`k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9maak^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mabk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mack^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9madk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9maek^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mafk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9magk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mahk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mb_k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mb`k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9mbak^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????@??@??k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\""k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\{k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\uk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\zk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\sk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\!5k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\!2k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\$4k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m#\|2k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\""k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\{k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\uk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\zk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\sk^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\!5k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\!2k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\$4k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE9m%\|2k^E9m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJJ("k^E23=6m") & vbCrLf)
Function CJCJCJJ(ByVal CJCJJCC)
Dim CJJCJJJ, CCCJJC, CJJCJJC
CJCJJCC = Replace(CJCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJC = 1 To Len(CJCJJCC)
If CCCJJC <> CJJCJJC Then
CJJCJJJ = AscW(Mid(CJCJJCC, CCCJJC, 1))
If CJJCJJJ >= 33 And CJJCJJJ <= 79 Then
CJCJCJJ = CJCJCJJ & Chr(CJJCJJJ + 47)
ElseIf CJJCJJJ >= 80 And CJJCJJJ <= 126 Then
CJCJCJJ = CJCJCJJ & Chr(CJJCJJJ - 47)
Else
CJJCJJC = CCCJJC + 1
If Mid(CJCJJCC, CJJCJJC, 1) = Chr(64) Then CJCJCJJ = CJCJCJJ & ChrW(CJJCJJJ + 5) Else CJCJCJJ = CJCJCJJ & Mid(CJCJJCC, CCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de