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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCJ, CCCJCC,CCCCJJ, CCCCJC, CCCCCJ:Set CCCJCJ = server.CreateObject(CCCJCCJ("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CCCJCCJ("r@??64E:@?$EC:?8")):Set CCCJCC=CCCJCJ::Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC:CJCJJJC=Trim(Request.Cookies(CCCJCCJ("!$*|t|qt#"))):if CJCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCC>0 then
CCCCCJ=CCCJCCJ("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") & CJJJJJJ & CCCJCCJ("V ,2?5 ,:5l") & CCCCCC
set CCCCJJ=CCCJCJ.execute(CCCCCJ):If CCCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJJC=CCCCJJ(2) & "":CJJJJCJ=CCCCJJ(3):CJJJJCC=CCCCJJ(5):CJJJCJJ=CCCCJJ(6):CJJJCJC=CCCCJJ(9):CJJJCCJ=CCCCJJ(15):CJJCJJJ=CCCCJJ(0):CJJCCCC=CCCCJJ(1):CJJCCCJ=CCCCJJ(11) & "":CJJCJJC=CCCCJJ(10) & "":CJJJCCC=CCCCJJ(12):CJJCJCJ=CCCCJJ(14):CJJCJCC=CCCCJJ(13):CJJCCJJ=CCCCJJ(7) & "":CJJCCJC=CCCCJJ(4):CJCJJJJ=CCCCJJ(8):if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CJJJCJC) or CJJJCJC=0 then CJJJCJC=CJJJJCJ
if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJJJCC) then CJJJJCC=0
if instr(CCCJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJJ)>0 then Call RedirectMessage(CCCJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCCC,CJJJJJJ)
End IF
end if:::Sub CheckLogined():if CCCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCJ:CJCJJCJ=trim(request.QueryString(CCCJCCJ("D49@@="))):if isnumeric(CJCJJCJ) then
response.Redirect CCCJCCJ("^>^G2?E^R^D49@@=^") & CJCJJCJ & CCCJCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJCCJ("!$*|t|qt#"))="":CCCCCC=0:CJJJCJJ=0:CJJJJJJ=Empty:CJJJJCC=0:CJJJCCJ=0:CJJJCJC=0:CJJJJCJ=0:CJJCJJJ=False:CJJCCCC=False:CJCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:CJCJJCC=split(CJCJJJC,CCCJCCJ("]")):if ubound(CJCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CJCJJCC(1):for CJCJCJC=1 to len(CJCJCJJ):CJCJCCJ=mid(CJCJCJJ,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCJJ=CJCJJCC(2):if CJCJCCC<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CJCJCCJ=mid(CJCJCJJ,18,10)/2:if CJCJCCJ<DateDiff(CCCJCCJ("D"), CCCJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCC=Clng(CJCJJCC(0)):CJJJJJJ=CJCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCC,CCCJCCC):dim CJCJCJC,CJCJCCJ,CJCJCCC:for CJCJCJC=1 to len(CCCJCCC):CJCJCCJ=mid(CCCJCCC,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCCC=CCJJJCC & CCCJCCJ("]") & CCCJCCC & CCCJCCJ("]") & Fix(10000*(Rnd+1)) & CJCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJCCJ("D"), CCCJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCCJ("!$*|t|qt#"))=CJCJCCC:End Sub:::Function IIf(CCCCJJJ, CCCCJJC, CCCCJCJ):if isnull(CCCCJJJ) or isempty(CCCCJJJ) then
IIf = CCCCJCJ
elseif CCCCJJJ Then
IIf = CCCCJJC
Else
IIf = CCCCJCJ
end if:End Function:Const CCJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJCC,CCCCCJJ):dim CJCJJCC:CJCJJCC=CCCCJCC & "=" & CCCCCJJ & CCCJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCCJ("$6E\r@@<:6"),CJCJJCC):End Sub:::::::Function CCJCCJJ(CCJCJJC):if isnull(CCJCJJC) or trim(CCJCJJC)="" or not isnumeric(CCJCJJC) then
CCJCCJJ=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CCCJCCJ("/-5ZS"):CJCCJJJ.IgnoreCase = True:CCJCCJJ = CJCCJJJ.test(CCJCJJC):set CJCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCCCCC.close : set CJCCCCC=nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCCJ("!$*0|6DD286"),server.URLEncode(CCCCCJC)):Response.Redirect CCCJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCJJCJ(ByVal CCCJJCC,style):if not isdate(CCCJJCC) then
CCCJJCJ=CCCJJCC:exit function
end if:dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:CCCJJCC=cdate(CCCJJCC):CJCCJJC=Year(CCCJJCC):CJCCJCJ=Month(CCCJJCC):CJCCJCC=Day(CCCJJCC):select case style:case 0:CCCJJCJ=CJCCJJC & CCCJCCJ("\") & right(0 & CJCCJCJ,2) & CCCJCCJ("\") & right(0 & CJCCJCC,2):case 1:CCCJJCJ=CJCCJJC & right(0 & CJCCJCJ,2) & right(0 & CJCCJCC,2):case 2:CCCJJCJ=right(CJCCJJC,2) & CCCJCCJ("\") & right(0 & CJCCJCJ,2) & CCCJCCJ("\") & right(0 & CJCCJCC,2):case 3:CCCJJCJ=CJCCJJC & CCCJCCJ("\") & right(0 & CJCCJCJ,2):case 4:CCCJJCJ=right(0 & CJCCJCJ,2) & CCCJCCJ("\") & right(0 & CJCCJCC,2):case 5:CCCJJCJ=right(0 & CJCCJCC,2):case 6:CCCJJCJ=CJCCJJC & CCCJCCJ("??") & right(0 & CJCCJCJ,2) & CCCJCCJ("??") & right(0 & CJCCJCC,2) & CCCJCCJ("??"):case else
CCCJJCJ=CCCJJCC:end select:End Function::::::function CCCJCJJ(CCCCCCJ,CCJJJCC):dim CJCCCJC,CJCJCJC:if isArray(CCCCCCJ) then CJCCCJC=CCCCCCJ else CJCCCJC=split(CCCCCCJ & "",CCCJCCJ("M"))
for CJCJCJC=0 to ubound(CJCCCJC)-1 step 2:if CJCCCJC(CJCJCJC)=cstr(CCJJJCC) then
CCCJCJJ=server.htmlencode(CJCCCJC(CJCJCJC+1)):exit for
end if:next:end function::::::::::::::::dim CJCJJCJ:CCCCCJ=Request.ServerVariables(CCCJCCJ("!p%w0x}u~")):if instr(CCCCCJ,CCCJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJJJ and not CJJCCCC then Call RedirectMessage(CCCJCCJ("????????,????????????????????????,"))
CJCJJCJ=CJJJCJC
elseif instr(CCCCCJ,CCCJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCJ,CCCJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCJ=CJJJCJC
elseif instr(CCCCCJ,CCCJCCJ("^D49@@="))>0 then
CJCJJCJ=Request.QueryString(CCCJCCJ("D49@@=")):if not CCJCCJJ(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCCJCCJ("F"))
if not CCJCCJJ(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCCJCCJ("D4"))
if not CCJCCJJ(CJCJJCJ) then Call RedirectMessage(CCCJCCJ("????????W$49@@=X??@??????????,"))
CJCJJCJ=csng(CJCJJCJ)
end if:if CJCJJCJ=0 then Call RedirectMessage(CCCJCCJ("????????W$49@@=X????W_X??,"))
Dim CJCCCCJ:Call SetConfig:Sub SetConfig():dim CJCCCJC,CJCCCCC:CCCCCJ=CCCJCCJ("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") & CJCJJCJ:set CJCCCCC=CCCJCJ.execute(CCCCCJ):if CJCCCCC.eof then Call RedirectMessage(CCCJCCJ("??W") & CCCCCC & CCCJCCJ("X??????????W") & CJCJJCJ & CCCJCCJ("X????????,"))
ReDim CJCCCJC(61):CJCCCJC(0)=CJCCCCC(CCCJCCJ(";:2@H6:")) & "":CJCCCJC(1)=CJCCCCC(CCCJCCJ("EJA6")):CJCCCJC(2)=CJCCCCC(CCCJCCJ("D>D")):CJCCCJC(3)=CJCCCCC(CCCJCCJ("4FDE@>8C@FA")) & "":CJCCCJC(4)=CJCCCCC(CCCJCCJ("D:5632C0@E96C")) & "":CJCCCJC(5)=IIf(isnull(CJCCCCC(CCCJCCJ("E6DEC6DF=EG:6H"))),0,CJCCCCC(CCCJCCJ("E6DEC6DF=EG:6H"))):CJCCCJC(6)=CJCCCCC(CCCJCCJ("K:IF?E:>6")):CJCCCJC(7)=CJCCCCC(CCCJCCJ("766")):CJCCCJC(8)=CJCCCCC(CCCJCCJ("C6E6DE52J")):CJCCCJC(9)=CJCCCCC(CCCJCCJ("6IA:C652E6")):CJCCCJC(10)=CJCCCCC(CCCJCCJ("E:E=6")):CJCCCJC(11)=CJCCCCC(CCCJCCJ(":?EC@")) & "":CJCCCJC(12)=CJCCCCC(CCCJCCJ("A:4EFC6")) & "":CJCCCJC(13)=CJCCCCC(CCCJCCJ("72>:=J")):CJCCCJC(14)=CJCCCCC(CCCJCCJ("4@AJC:89E")) & "":CJCCCJC(15)=IIf(isnull(CJCCCCC(CCCJCCJ("D6>6DE6C0DE2CE052E6"))),CCCJCCJ("`h__\`\`"),CJCCCCC(CCCJCCJ("D6>6DE6C0DE2CE052E6"))):CJCCCJC(16)=IIf(isnull(CJCCCCC(CCCJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCCCC(CCCJCCJ("K:IF?0E:>6D09:89=:89E"))):CJCCCJC(17)=CJCCCCC(CCCJCCJ("4@?E24E")) & "":CJCCCJC(18)=CJCCCCC(CCCJCCJ("D2?5E23=6")):CJCCCJC(19)=CJCCCCC(CCCJCCJ("4C:D:D")):CJCCCJC(20)=CJCCCCC(CCCJCCJ("JJ52E6")):CJCCCJC(21)=CJCCCCC(CCCJCCJ("BB")):CJCCCJC(22)=CJCCCCC(CCCJCCJ("JFJF60D>D0EA=")) & "":CJCCCJC(23)=CJCCCCC(CCCJCCJ("JFJF60E6DE0=3")) & "":CJCCCJC(25)=CJCCCCC(CCCJCCJ("6IA6CE")):CJCCCJC(26)=CJCCCCC(CCCJCCJ(">@5:?7@")):CJCCCJC(27)=CJCCCCC(CCCJCCJ("9@>6A286E@AA:4EFC6")) & "":CJCCCJC(28)=CJCCCCC(CCCJCCJ("4C:D:D=3")):CJCCCJC(29)=IIf(CJCCCCC(CCCJCCJ("4C:D:D@=5")),False,True):CJCCCJC(30)=CJCCCCC(CCCJCCJ("8C@FA8F:52?46")):CJCCCJC(31)=CJCCCCC(CCCJCCJ("3:@7665324<")):CJCCCJC(32)=CJCCCCC(CCCJCCJ("<6JDEC")):CJCCCJC(33)=CJCCCCC(CCCJCCJ("=@8@")) & "":CJCCCJC(34)=CJCCCCC(CCCJCCJ("K:46")):CJCCCJC(35)=IIf(CJCCCCC(CCCJCCJ(":D?6H")),True,False):CJCCCJC(36)=121:CJCCCJC(37)=111:CJCCCJC(38)=160:CJCCCJC(39)=CJCCCCC(CCCJCCJ("8F6DE3@@<")):CJCCCJC(40)=CJCCCCC(CCCJCCJ("75D")):CJCCCJC(42)=CJCCCCC(CCCJCCJ("9@>6=@8:?")):CJCCCJC(43)=CJCCCCC(CCCJCCJ("K:IF?0?6657665324<")):CJCCCJC(44)=CJCCCCC(CCCJCCJ("K:IF?0E:>6D0=:>:E")):CJCCCJC(45)=CJCCCCC(CCCJCCJ("4@>A=6E60:?7@")):CJCCCJC(46)=CJCCCCC(CCCJCCJ("E6DE:?EC@")) & "":CJCCCJC(47)=IIf(isnull(CJCCCCC(CCCJCCJ("JFJF60367@C60E:>6"))),0,CJCCCCC(CCCJCCJ("JFJF60367@C60E:>6"))):CJCCCJC(49)=CJCCCCC(CCCJCCJ("D>D0C646:G6C")):CJCCCJC(50)=CJCCCCC(CCCJCCJ("D>D0D:8?")) & "":CJCCCJC(52)=CJCCCCC(CCCJCCJ("JFJF602CC2?86")):CJCCCJC(53)=IIf(isnull(CJCCCCC(CCCJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCCC(CCCJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCCJC(54)=CJCCCCC(CCCJCCJ("9:560=30@FE@7286")):CJCCCJC(55)=CJCCCCC(CCCJCCJ("JFJF60E6DE052JD")):CJCCCJC(56)=CJCCCCC(CCCJCCJ("JFJF60H66<0=:>:E")):CJCCCJC(57)=CJCCCCC(CCCJCCJ("JFJF604964<65")):CJCCCJC(58)=CJCCCCC(CCCJCCJ("K:IF?0?6657665324<0?6IE")):CJCCCJC(59)=CJCCCCC(CCCJCCJ("4964<?6HDEF56?E")):CJCCCJC(60)=CJCCCCC(CCCJCCJ("K:IF?04=@D6052E6")):CJCCCCC.close : set CJCCCCC=nothing:if isNull(CJCCCJC(8)) or CJCCCJC(8)="" then CJCCCJC(8)=0
if isdate(CJCCCJC(9)) then
CJCCCJC(9)=cdate(CJCCCJC(9)):if CJCCCJC(9)<Date then Call RedirectMessage(CCCJCCJ("????????,????????????????W") & CJCCCJC(9) & CCCJCCJ("X??????,"))
end if:if not CCJCCJJ(CJCCCJC(20)) then CJCCCJC(20)=7
select case CJCCCJC(1):case 1,2,16:CJCCCJC(36)=159:case 4,5,6,10,11:CJCCCJC(36)=190:CJCCCJC(37)=178:CJCCCJC(38)=191:case 7,13:CJCCCJC(36)=164:CJCCCJC(37)=178:CJCCCJC(38)=179:end select:CJCCCCJ=CJCCCJC:End Sub:Function CCCJJJJ(CCCCCCC):dim CJCCCJC(7,1),CJCJCJC,CCJJJJJ,CCJJJJC:CCJJJJJ=Array(CCCJCCJ("$49@@="),CCCJCCJ("$EF56?E"),CCCJCCJ("s6AE"),CCCJCCJ("vC256"),CCCJCCJ("r=2DD>2E6"),CCCJCCJ("}F>36C"),CCCJCCJ("%62496C"),CCCJCCJ("!2C6?E")):select case CJCCCCJ(1):case 1,2 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????")):case 3,16 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????")):case 4 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("??????@"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????")):case 5 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????")):case 6 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("??????@"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 7 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 8 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("??????@"),CCCJCCJ("????"),CCCJCCJ("????????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 9 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 10 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 11 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 12 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 13 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????")):case 14 : CCJJJJC=Array(CCCJCCJ("??????"),CCCJCCJ("??@??"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case 15 : CCJJJJC=Array(CCCJCCJ("????"),CCCJCCJ("????????"),CCCJCCJ("????"),CCCJCCJ("????????"),CCCJCCJ("????"),CCCJCCJ("????"),CCCJCCJ("??????"),CCCJCCJ("????")):case else : CCJJJJC=CCJJJJJ
end select:for CJCJCJC=0 to Ubound(CJCCCJC):CJCCCJC(CJCJCJC,0)=CCJJJJJ(CJCJCJC):CJCCCJC(CJCJCJC,1)=CCJJJJC(CJCJCJC):next:for CJCJCJC=0 to Ubound(CJCCCJC):if CJCCCJC(CJCJCJC,0)=CCCCCCC then
CCCJJJJ=CJCCCJC(CJCJCJC,1):exit for
end if:next:End Function::if not CJCCCCJ(19) then Call RedirectMessage(CCCJCCJ("????????M????????,??????????????????????,"))
dim CCJJJCJ,CCJJJCC:CCJJJCC=Request.QueryString(CCCJCCJ(":5")):CCJJJCJ=Request.QueryString(CCCJCCJ("DEF56?E:5")):if not CCJCCJJ(CCJJJCJ) then Call RedirectMessage(CCCJCCJ("????????,??????????????,"))
Response.Write(vbCrLf):Response.Write(CCCJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCJCCJ("k9E>=m") & vbCrLf):Response.Write(CCCJCCJ("k9625m") & vbCrLf):Response.Write(CCCJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCCJ("kE:E=6m??????????????k^E:E=6m") & vbCrLf):Response.Write(CCCJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJCCJ("E23=6 ,L ,3@C56C\4@==2AD6i ,4@==2AD6j ,3@C56Ci ,aAI ,D@=:5 ,R___j ,N") & vbCrLf):Response.Write(CCCJCCJ("E23=6 ,E5 ,L ,3@C56Ci ,`AI ,D@=:5 ,R___j ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCCJCCJ("9` ,L ,7@?E\D:K6i ,`gAIj ,7@?E\H6:89Ei ,3@=5j ,E6IE\2=:8?i ,46?E6Cj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CCCJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJCCJ("k^9625m") & vbCrLf):Response.Write(CCCJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCJCCJ("k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCCJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?r=:4<lQ;2G2D4C:AEiD6=7]AC:?EWXjQm") & vbCrLf):Response.Write(CCCJCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ("k9`m??????????????k^9`m") & vbCrLf)::set CCCCJJ=CCCJCJ.execute(CCCJCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCJJJCJ):set CCCCJC=CCCJCJ.execute(CCCJCCJ("D6=64E ,E@A ,` ,Y ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,:5l") & CCJJJCC):Response.Write(vbCrLf):Response.Write(CCCJCCJ("kE23=6 ,H:5E9lQf__Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQcQm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQaQm??????,")):Response.Write  CCCCJJ(CCCJCCJ("C62=?2>6")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????,")):Response.Write  CCCCJJ(CCCJCCJ("D6I?2>6")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQaQm??????,")):Response.Write  CCCCJJ(CCCJCCJ("286")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CCCJJJJ(CCCJCCJ("}F>36C")):Response.Write(CCCJCCJ("??,")):Response.Write  CCCCJJ(CCCJCCJ("?F>36C")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQbQm??????@??????,")):Response.Write  CCCCJJ(CCCJCCJ("255C6DD")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQaQm??????????,")):Response.Write  CCCCJJ(CCCJCCJ("A9@?6")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????,")):Response.Write  CCCCJJ(CCCJCCJ(">@3:=6")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):dim CJCJCJC,CCJJCJJ:CJCJCJC=1:CCJJCJJ=CCCCJJ(CCCJCCJ("2?DH6C")):set CCCCJJ=CCCJCJ.execute(CCCJCCJ("D6=64E ,:5[BF6DE:@? ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l` ,@C56C ,3J ,D@CE")):while not CCCCJJ.eof:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQbQm")):Response.Write  CJCJCJC:Response.Write(CCCJCCJ("??,")):Response.Write  CCCCJJ(1):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQbQm")):Response.Write  CCCJCJJ(CCJJCJJ,CCCCJJ(0)):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):CCCCJJ.movenext:CJCJCJC=CJCJCJC+1:wend:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm????????????????????????????,k3Cm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):Response.Write  replace(CCCCJC(CCCJCCJ("BF6DE:@?")) & "",vbcrlf,CCCJCCJ("k3C ,^m")):Response.Write(CCCJCCJ(" ,k3Cmk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm??????@????????????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQaQmqsx??????,")):Response.Write  CCCCJC(CCCJCCJ("35:")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5mwp|s??????,")):Response.Write  CCCCJC(CCCJCCJ("92>5")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQaQmr%""??????,")):Response.Write  CCCCJC(CCCJCCJ("4EB")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,")):Response.Write  CCCCJC(CCCJCCJ("@E96CE6DE")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm||!x????k3Cm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):dim CJCCCJC,CCJJCJC:CCJJCJC=split(CCCCJC(CCCJCCJ(">>A:")) & CCCJCCJ("[[[["),CCCJCCJ("[")):CJCCCJC=split(CCCJCCJ("""M{MuMzM!5M!2M$4M|2"),CCCJCCJ("M")):response.Write CCCJCCJ("kE23=6 ,H:5E9lV`__TVmkECm")
for CJCJCJC=0 to 7:response.Write CCCJCCJ("kE5m") & CJCCCJC(CJCJCJC) & CCCJCCJ("k^E5m"):next:response.Write CCCJCCJ("k^ECmkECm"):for CJCJCJC=0 to 7:response.Write CCCJCCJ("kE5m") & CCJJCJC(CJCJCJC) & CCCJCCJ("k^E5m"):next:response.Write CCCJCCJ("k^ECmk^E23=6m"):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm????^????????????????,$#p??,k3Cm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,H:5E9lQg_Qm??k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,H:5E9lQg_Qm????,????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,H:5E9lQg_Qm????,????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,H:5E9lQg_Qm????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??,??????????,??????,????????????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):dim CCJJCCJ,CCJJCCC:CCJJCCJ=split(CCCCJC(CCCJCCJ("DC2")),CCCJCCJ("M")):for CJCJCJC=0 to 3:response.Write CCCJCCJ("kE5m") & IIf(CCJJCCJ(0)=cstr(CJCJCJC),CJCJCJC,"") & CCCJCCJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??,??????????????????,??????,????????????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CJCJCJC=0 to 3:response.Write CCCJCCJ("kE5m") & IIf(CCJJCCJ(1)=cstr(CJCJCJC),CJCJCJC,"") & CCCJCCJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??,????????????????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CJCJCJC=0 to 3:response.Write CCCJCCJ("kE5m") & IIf(CCJJCCJ(2)=cstr(CJCJCJC),CJCJCJC,"") & CCCJCCJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??,????????????????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CJCJCJC=2 to 0 step -1:response.Write CCCJCCJ("kE5m") & IIf(CCJJCCJ(3)=cstr(CJCJCJC),CJCJCJC,"") & CCCJCCJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??,????k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CJCJCJC=0 to 2:response.Write CCCJCCJ("kE5m") & IIf(CCJJCCJ(4)=cstr(CJCJCJC),CJCJCJC,"") & CCCJCCJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQcQm")):for CJCJCJC=0 to 4:if CCJCCJJ(CCJJCCJ(CJCJCJC)) then CCJJCCC=CCJJCCC+cint(CCJJCCJ(CJCJCJC))
next:response.Write CCJJCCC & CCCJCCJ("????,??????????,"):if CCJJCCC<=2 then
response.Write CCCJCCJ("????")
elseif CCJJCCC<=5 then
response.Write CCCJCCJ("????")
elseif CCJJCCC<=8 then
response.Write CCCJCCJ("????")
else
response.Write CCCJCCJ("????")
end if:Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm??????????????,k3Cm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):Response.Write  replace(CCCCJC(CCCJCCJ(":?E6CG:6H")) & "",vbcrlf,CCCJCCJ("k3C ,^m")):Response.Write(CCCJCCJ(" ,k3Cmk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):CJCCCJC=split(CCCJCCJ("??????M??????????M????????M????????M????"),CCCJCCJ("M")):Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5_"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5`"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5a"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5b"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5c"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5d"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5e"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5f"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CCCCJC(CCCJCCJ("K5g0?2>6")):Response.Write(CCCJCCJ("??,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCJC(CCCJCCJ("K5g"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m??????????????,k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQdQm")):CJCCCJC=split(CCCJCCJ("????????M????????M????????M??????????M????????M????????M??????????M??????????M????"),CCCJCCJ("M")):response.Write CJCCCJC(CCCCJC(CCCJCCJ("K507:CDE"))):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQeQm??????????,k3Cm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):CJCCCJC=split(CCCJCCJ("????????M??????????,????????,????M??????????,??????????M????????M????????M????????????^????????@??????M????????????@??M????????"),CCCJCCJ("M")):for CJCJCJC=0 to ubound(CJCCCJC):if instr(CCCCJC(CCCJCCJ("562=")),CJCJCJC)>0 then response.Write CCCJCCJ("kDA2? ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5Vm")
response.Write CJCJCJC & CCCJCCJ("] ,") & CJCCCJC(CJCJCJC) & CCCJCCJ("k3C ,^m"):if instr(CCCCJC(CCCJCCJ("562=")),CJCJCJC)>0 then response.Write CCCJCCJ("k^DA2?m")
next:Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQbQm????????,")):Response.Write  CCCCJC(CCCJCCJ("4@?DF=E2?E?2>6")):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4@=DA2?lQbQm??????,")):Response.Write  CCCJJCJ(CCCCJC(CCCJCCJ("52E6E:>6")),0):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ("k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCJ.Close:Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJCCJ(ByVal CCCJCJC)
Dim CCJCJJJ, CJCJCJC, CCJCJJC
CCCJCJC = Replace(CCCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CCCJCJC)
If CJCJCJC <> CCJCJJC Then
CCJCJJJ = AscW(Mid(CCCJCJC, CJCJCJC, 1))
If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then
CCCJCCJ = CCCJCCJ & Chr(CCJCJJJ + 47)
ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then
CCCJCCJ = CCCJCCJ & Chr(CCJCJJJ - 47)
Else
CCJCJJC = CJCJCJC + 1
If Mid(CCCJCJC, CCJCJJC, 1) = Chr(64) Then CCCJCCJ = CCCJCCJ & ChrW(CCJCJJJ + 5) Else CCCJCCJ = CCCJCCJ & Mid(CCCJCJC, 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