Edit D:\xinhaisoft\crisis_new\school\admin\GroupGuidance\list.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCC>0 then
CCCJCJ=CCCJJCC("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") & CCCCJJ & CCCJJCC("V ,2?5 ,:5l") & CCCJCC
set CCCJJJ=CCJCCJ.execute(CCCJCJ):If CCCJJJ.EOF Then
Call ClearMemberCookie
Else
CCCCJC=CCCJJJ(2) & "":CCCCCJ=CCCJJJ(3):CCCCCC=CCCJJJ(5):CJJJJJJ=CCCJJJ(6):CJJJJJC=CCCJJJ(9):CJJJJCJ=CCCJJJ(15):CJJJCJJ=CCCJJJ(0):CJJCJCC=CCCJJJ(1):CJJCJCJ=CCCJJJ(11) & "":CJJJCJC=CCCJJJ(10) & "":CJJJJCC=CCCJJJ(12):CJJJCCJ=CCCJJJ(14):CJJJCCC=CCCJJJ(13):CJJCJJJ=CCCJJJ(7) & "":CJJCJJC=CCCJJJ(4):CJJCCJJ=CCCJJJ(8):if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ
if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CCCCCC) then CCCCCC=0
if instr(CCCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CCCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJCC,CCCCJJ)
End IF
end if:::Sub CheckLogined():if CCCJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCCJ:CJJCCCJ=trim(request.QueryString(CCCJJCC("D49@@="))):if isnumeric(CJJCCCJ) then
response.Redirect CCCJJCC("^>^G2?E^R^D49@@=^") & CJJCCCJ & CCCJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJJCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:CJJCCCC=split(CJJCCJC,CCCJJCC("]")):if ubound(CJJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCCC(0)) or len(CJJCCCC(1))<>32 or len(CJJCCCC(2))<>32 then
Call ClearMemberCookie
else
CJCJJJJ=CJJCCCC(1):for CJCJJJC=1 to len(CJCJJJJ):CJCJJCJ=mid(CJCJJJJ,CJCJJJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJJJ=CJJCCCC(2):if CJCJJCC<>mid(CJCJJJJ,6,7) then
Call ClearMemberCookie
else
CJCJJCJ=mid(CJCJJJJ,18,10)/2:if CJCJJCJ<DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCC=Clng(CJJCCCC(0)):CCCCJJ=CJJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CCCJCJJ):dim CJCJJJC,CJCJJCJ,CJCJJCC:for CJCJJJC=1 to len(CCCJCJJ):CJCJJCJ=mid(CCCJCJJ,CJCJJJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJCC=CCJJCJC & CCCJJCC("]") & CCCJCJJ & CCCJJCC("]") & Fix(10000*(Rnd+1)) & CJCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCC("!$*|t|qt#"))=CJCJJCC:End Sub:::Function IIf(CCCJCJC, CCCJCCJ, CCCJCCC):if isnull(CCCJCJC) or isempty(CCCJCJC) then
IIf = CCCJCCC
elseif CCCJCJC Then
IIf = CCCJCCJ
Else
IIf = CCCJCCC
end if:End Function:Const CCJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJJJ,CCCCJJC):dim CJJCCCC:CJJCCCC=CCCCJJJ & "=" & CCCCJJC & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CJJCCCC):End Sub:::::::Function CCJCJCJ(CCJJCCC):if isnull(CCJJCCC) or trim(CCJJCCC)="" or not isnumeric(CCJJCCC) then
CCJCJCJ=false
else
Dim CJCJCJJ:Set CJCJCJJ = New RegExp:CJCJCJJ.Pattern = CCCJJCC("/-5ZS"):CJCJCJJ.IgnoreCase = True:CCJCJCJ = CJCJCJJ.test(CCJJCCC):set CJCJCJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CJCCJCC.close : set CJCCJCC=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CCJCCCC.Close : Set CCJCCCC = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCJCJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCJJJJ(ByVal CCCJJJC,style):if not isdate(CCCJJJC) then
CCCJJJJ=CCCJJJC:exit function
end if:dim CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CCCJJJC=cdate(CCCJJJC):CJCJCJC=Year(CCCJJJC):CJCJCCJ=Month(CCCJJJC):CJCJCCC=Day(CCCJJJC):select case style:case 0:CCCJJJJ=CJCJCJC & CCCJJCC("\") & right(0 & CJCJCCJ,2) & CCCJJCC("\") & right(0 & CJCJCCC,2):case 1:CCCJJJJ=CJCJCJC & right(0 & CJCJCCJ,2) & right(0 & CJCJCCC,2):case 2:CCCJJJJ=right(CJCJCJC,2) & CCCJJCC("\") & right(0 & CJCJCCJ,2) & CCCJJCC("\") & right(0 & CJCJCCC,2):case 3:CCCJJJJ=CJCJCJC & CCCJJCC("\") & right(0 & CJCJCCJ,2):case 4:CCCJJJJ=right(0 & CJCJCCJ,2) & CCCJJCC("\") & right(0 & CJCJCCC,2):case 5:CCCJJJJ=right(0 & CJCJCCC,2):case 6:CCCJJJJ=CJCJCJC & CCCJJCC("??") & right(0 & CJCJCCJ,2) & CCCJJCC("??") & right(0 & CJCJCCC,2) & CCCJJCC("??"):case else
CCCJJJJ=CCCJJJC:end select:End Function::::::::::::::::::::::dim CJJCCCJ:CCCJCJ=Request.ServerVariables(CCCJJCC("!p%w0x}u~")):if instr(CCCJCJ,CCCJJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCJJ and not CJJCJCC then Call RedirectMessage(CCCJJCC("????????,????????????????????????,"))
CJJCCCJ=CJJJJJC
elseif instr(CCCJCJ,CCCJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJCJ,CCCJJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCCJ=CJJJJJC
elseif instr(CCCJCJ,CCCJJCC("^D49@@="))>0 then
CJJCCCJ=Request.QueryString(CCCJJCC("D49@@=")):if not CCJCJCJ(CJJCCCJ) then CJJCCCJ=Request.QueryString(CCCJJCC("F"))
if not CCJCJCJ(CJJCCCJ) then CJJCCCJ=Request.QueryString(CCCJJCC("D4"))
if not CCJCJCJ(CJJCCCJ) then Call RedirectMessage(CCCJJCC("????????W$49@@=X??@??????????,"))
CJJCCCJ=csng(CJJCCCJ)
end if:if CJJCCCJ=0 then Call RedirectMessage(CCCJJCC("????????W$49@@=X????W_X??,"))
Dim CJCCJJC:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CJCCJCC:CCCJCJ=CCCJJCC("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") & CJJCCCJ:set CJCCJCC=CCJCCJ.execute(CCCJCJ):if CJCCJCC.eof then Call RedirectMessage(CCCJJCC("??W") & CCCJCC & CCCJJCC("X??????????W") & CJJCCCJ & CCCJJCC("X????????,"))
ReDim CJCCJCJ(61):CJCCJCJ(0)=CJCCJCC(CCCJJCC(";:2@H6:")) & "":CJCCJCJ(1)=CJCCJCC(CCCJJCC("EJA6")):CJCCJCJ(2)=CJCCJCC(CCCJJCC("D>D")):CJCCJCJ(3)=CJCCJCC(CCCJJCC("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CJCCJCC(CCCJJCC("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CJCCJCC(CCCJJCC("E6DEC6DF=EG:6H"))),0,CJCCJCC(CCCJJCC("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CJCCJCC(CCCJJCC("K:IF?E:>6")):CJCCJCJ(7)=CJCCJCC(CCCJJCC("766")):CJCCJCJ(8)=CJCCJCC(CCCJJCC("C6E6DE52J")):CJCCJCJ(9)=CJCCJCC(CCCJJCC("6IA:C652E6")):CJCCJCJ(10)=CJCCJCC(CCCJJCC("E:E=6")):CJCCJCJ(11)=CJCCJCC(CCCJJCC(":?EC@")) & "":CJCCJCJ(12)=CJCCJCC(CCCJJCC("A:4EFC6")) & "":CJCCJCJ(13)=CJCCJCC(CCCJJCC("72>:=J")):CJCCJCJ(14)=CJCCJCC(CCCJJCC("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CJCCJCC(CCCJJCC("D6>6DE6C0DE2CE052E6"))),CCCJJCC("`h__\`\`"),CJCCJCC(CCCJJCC("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CJCCJCC(CCCJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCC(CCCJJCC("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CJCCJCC(CCCJJCC("4@?E24E")) & "":CJCCJCJ(18)=CJCCJCC(CCCJJCC("D2?5E23=6")):CJCCJCJ(19)=CJCCJCC(CCCJJCC("4C:D:D")):CJCCJCJ(20)=CJCCJCC(CCCJJCC("JJ52E6")):CJCCJCJ(21)=CJCCJCC(CCCJJCC("BB")):CJCCJCJ(22)=CJCCJCC(CCCJJCC("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CJCCJCC(CCCJJCC("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CJCCJCC(CCCJJCC("6IA6CE")):CJCCJCJ(26)=CJCCJCC(CCCJJCC(">@5:?7@")):CJCCJCJ(27)=CJCCJCC(CCCJJCC("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CJCCJCC(CCCJJCC("4C:D:D=3")):CJCCJCJ(29)=IIf(CJCCJCC(CCCJJCC("4C:D:D@=5")),False,True):CJCCJCJ(30)=CJCCJCC(CCCJJCC("8C@FA8F:52?46")):CJCCJCJ(31)=CJCCJCC(CCCJJCC("3:@7665324<")):CJCCJCJ(32)=CJCCJCC(CCCJJCC("<6JDEC")):CJCCJCJ(33)=CJCCJCC(CCCJJCC("=@8@")) & "":CJCCJCJ(34)=CJCCJCC(CCCJJCC("K:46")):CJCCJCJ(35)=IIf(CJCCJCC(CCCJJCC(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CJCCJCC(CCCJJCC("8F6DE3@@<")):CJCCJCJ(40)=CJCCJCC(CCCJJCC("75D")):CJCCJCJ(42)=CJCCJCC(CCCJJCC("9@>6=@8:?")):CJCCJCJ(43)=CJCCJCC(CCCJJCC("K:IF?0?6657665324<")):CJCCJCJ(44)=CJCCJCC(CCCJJCC("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CJCCJCC(CCCJJCC("4@>A=6E60:?7@")):CJCCJCJ(46)=CJCCJCC(CCCJJCC("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CJCCJCC(CCCJJCC("JFJF60367@C60E:>6"))),0,CJCCJCC(CCCJJCC("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CJCCJCC(CCCJJCC("D>D0C646:G6C")):CJCCJCJ(50)=CJCCJCC(CCCJJCC("D>D0D:8?")) & "":CJCCJCJ(52)=CJCCJCC(CCCJJCC("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CJCCJCC(CCCJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCC(CCCJJCC("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CJCCJCC(CCCJJCC("9:560=30@FE@7286")):CJCCJCJ(55)=CJCCJCC(CCCJJCC("JFJF60E6DE052JD")):CJCCJCJ(56)=CJCCJCC(CCCJJCC("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CJCCJCC(CCCJJCC("JFJF604964<65")):CJCCJCJ(58)=CJCCJCC(CCCJJCC("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CJCCJCC(CCCJJCC("4964<?6HDEF56?E")):CJCCJCJ(60)=CJCCJCC(CCCJJCC("K:IF?04=@D6052E6")):CJCCJCC.close : set CJCCJCC=nothing:if isNull(CJCCJCJ(8)) or CJCCJCJ(8)="" then CJCCJCJ(8)=0
if isdate(CJCCJCJ(9)) then
CJCCJCJ(9)=cdate(CJCCJCJ(9)):if CJCCJCJ(9)<Date then Call RedirectMessage(CCCJJCC("????????,????????????????W") & CJCCJCJ(9) & CCCJJCC("X??????,"))
end if:if not CCJCJCJ(CJCCJCJ(20)) then CJCCJCJ(20)=7
select case CJCCJCJ(1):case 1,2,16:CJCCJCJ(36)=159:case 4,5,6,10,11:CJCCJCJ(36)=190:CJCCJCJ(37)=178:CJCCJCJ(38)=191:case 7,13:CJCCJCJ(36)=164:CJCCJCJ(37)=178:CJCCJCJ(38)=179:end select:CJCCJJC=CJCCJCJ:End Sub:Function CCJCCCJ(CCCCJCC):dim CJCCJCJ(7,1),CJCJJJC,CJCCCJJ,CJCCCJC:CJCCCJJ=Array(CCCJJCC("$49@@="),CCCJJCC("$EF56?E"),CCCJJCC("s6AE"),CCCJJCC("vC256"),CCCJJCC("r=2DD>2E6"),CCCJJCC("}F>36C"),CCCJJCC("%62496C"),CCCJJCC("!2C6?E")):select case CJCCJJC(1):case 1,2 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 3,16 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 4 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 5 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 6 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 7 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 8 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 9 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 10 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 11 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 12 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 13 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 14 : CJCCCJC=Array(CCCJJCC("??????"),CCCJJCC("??@??"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 15 : CJCCCJC=Array(CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case else : CJCCCJC=CJCCCJJ
end select:for CJCJJJC=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCJJJC,0)=CJCCCJJ(CJCJJJC):CJCCJCJ(CJCJJJC,1)=CJCCCJC(CJCJJJC):next:for CJCJJJC=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCJJJC,0)=CCCCJCC then
CCJCCCJ=CJCCJCJ(CJCJJJC,1):exit for
end if:next:End Function::if not CJCCJJC(30) then
Call ConnClose:Call response.redirect(CCCJJCC("]]^A:4EFC6^??????@??????^??????????@??^????@??????];A8"))
end if:dim CJCCCCJ,CJCCCCC:CJCCCCJ=request.QueryString(CCCJJCC("24E")):CJCCCCC=request.QueryString(CCCJJCC("D")):dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CCJJJJJ=request.querystring(CCCJJCC("?2>6")):CCJJJJC=request.querystring(CCCJJCC("E96EJA6")):CCJJJCJ=request.querystring(CCCJJCC("2FE9@C")):CCJJJCC=request.querystring(CCCJJCC("5E`")):CCJJCJJ=request.querystring(CCCJJCC("5Ea")):if not CCJCJCJ(CJCCCCC) then
CJCCCCC=0
else
CJCCCCC=cint(CJCCCCC):if CJCCCCC<0 or CJCCCCC>2 then CJCCCCC=0
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CCCJJCC("R3E?\DF3>:E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCCJJCC("k^9625m") & vbCrLf):Response.Write(CCCJJCC("k3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ?2>6Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CCCJJCC("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m") & vbCrLf):Response.Write(CCCJJCC(" ,kD6=64E ,?2>6lQE96EJA6Q ,52E2\G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCCJJCC(" ,")):if CJCCJJC(41)<>"" then
CCCJCJ=CCCJJCC("D6=64E ,:5[?2>6 ,7C@> ,8C@FA8F:52?460EJA6"):if CJJCCCJ<>1 then CCCJCJ=CCCJCJ & CCCJJCC(" ,H96C6 ,:5 ,:? ,WD6=64E ,EJA6 ,7C@> ,8C@FA8F:52?46 ,H96C6 ,:5 ,:? ,W") & CJCCJJC(41) & CCCJJCC("XX")
CCCJCJ=CCCJCJ & CCCJJCC(" ,@C56C ,3J ,D@CE"):set CCCJJC=CCJCCJ.execute(CCCJCJ):while not CCCJJC.eof:response.Write CCCJJCC("k@AE:@? ,G2=F6lV") & CCCJJC(0) & CCCJJCC("Vm") & CCCJJC(1) & CCCJJCC("k^@AE:@?m")
CCCJJC.movenext:wend
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm??@????,??^??????k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ2FE9@CQ ,D:K6lQgQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CCCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,4=2DDlQ=236=Qm????????k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQ52E6Q ,?2>6lQ5E`QmOk:?AFE ,EJA6lQ52E6Q ,?2>6lQ5EaQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnDl")):Response.Write  CJCCCCC:Response.Write(CCCJJCC("Qm?? ,??k^2m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQDQ ,G2=F6lQ")):Response.Write  CJCCCCC:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCJ<>CCCJJCC("255") Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQn24El255UDl")):Response.Write  CJCCCCC:Response.Write(CCCJJCC("Qm?? ,??k^2m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6IA@CEQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf):Response.Write(CCCJJCC("k7@C> ,>6E9@5lQA@DEQ ,24E:@?lQ=:DE024E]2DAn24El255Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9 ,E:E=6lQ??????????????????QmRk^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE9m??@????,??^??????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9 ,4=2DDlQ?@\I=DQm????k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):if CJCCCCJ=CCCJJCC("255") then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQ9:556?Q ,?2>6lQ:5Q ,G2=F6lQ_Qmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kD6=64E ,?2>6lQ?2>6:5Q ,C6BF:C65m") & vbCrLf):Response.Write(CCCJJCC(" ,")):set CCCJJC=CCJCCJ.execute(CCCJJCC("D6=64E ,:5[?2>6 ,7C@> ,vC@FAvF:52?46 ,H96C6 ,WW>6>36CEJA6l_ ,@C ,>6>36CEJA6l") & CJJCCCJ & CCCJJCC("X ,2?5 ,DE2EFDl`X ,@C ,:5 ,:? ,WD6=64E ,:5 ,7C@> ,vC@FAvF:52?460u2G@C:E6 ,H96C6 ,>6>36CEJA6l") & CJJCCCJ & CCCJJCC("X ,@C56C ,3J ,52E6E:>6 ,56D4")):while not CCCJJC.eof:response.Write CCCJJCC("k@AE:@? ,G2=F6lV") & CCCJJC(0) & CCCJJCC("Vm") & CCCJJC(1) & CCCJJCC("k^@AE:@?m")
CCCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQ?2>6Q ,D:K6lQc_Q ,C6BF:C65m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC<2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kD6=64E ,?2>6lQEJA6Q ,C6BF:C65m") & vbCrLf):Response.Write(CCCJJCC(" ,")):CCCJCJ=CCCJJCC("D6=64E ,:5[?2>6 ,7C@> ,8C@FA8F:52?460EJA6"):if CJJCCCJ<>"1" then CCCJCJ=CCCJCJ & CCCJJCC(" ,H96C6 ,:5 ,:? ,WD6=64E ,EJA6 ,7C@> ,8C@FA8F:52?46 ,H96C6 ,:5 ,:? ,W") & CJCCJJC(41) & CCCJJCC("XX")
CCCJCJ=CCCJCJ & CCCJJCC(" ,@C56C ,3J ,D@CE"):set CCCJJC=CCJCCJ.execute(CCCJCJ):while not CCCJJC.eof:response.Write CCCJJCC("k@AE:@? ,G2=F6lV") & CCCJJC(0) & CCCJJCC("Vm") & CCCJJC(1) & CCCJJCC("k^@AE:@?m")
CCCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJJJ(Date,0):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQE:>6Q ,>2I=6?8E9lQd_Q ,E:E=6lQ??????????????,????????????????????????????Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQA=246Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQ?F>36CQ ,?2>6lQ>6>36C4@F?EQ ,>:?lQ`Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ2FE9@CQ ,G2=F6lQ")):Response.Write  CJJJCCC:Response.Write(CCCJJCC("Q ,D:K6lQ`_Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQC:89EQ ,4=2DDlQ?@\I=DQm") & vbCrLf):Response.Write(CCCJJCC(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]4=:4<WXjQm????k^2m") & vbCrLf):Response.Write(CCCJJCC(" ,k2 ,9C67lQnDl")):Response.Write  CJCCCCC:Response.Write(CCCJJCC("Qm????k^2m") & vbCrLf):Response.Write(CCCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,"))
elseif CJCCCCC=0 and CJCCJJC(41)="" and CJJCCCJ<>"1" then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECmkE5 ,4@=DA2?lQfQm??????@??k^E5mk^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,"))
else
dim CJCJJJC,CCJJCJC:CJCJJJC=1:CCCJCJ=CCCJJCC("D6=64E ,:5[?2>6[52E6E:>6[A=246[>6>36C4@F?E[2FE9@C[EJA6?2>6[DE2EFD[>6>36CEJA6[,E:>6. ,7C@> ,G0vC@FAvF:52?46 ,H96C6"):if CJCCCCC=0 then
CCCJCJ=CCCJCJ & CCCJJCC(" ,DE2EFDl_"):if CJJCCCJ<>"1" then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,:5 ,:? ,W") & CJCCJJC(41) & CCCJJCC("X")
elseif CJCCCCC=1 then
CCCJCJ=CCCJCJ & CCCJJCC(" ,WWDE2EFDl` ,2?5 ,>6>36CEJA6l") & CJJCCCJ & CCCJJCC("X ,@C ,:5 ,:? ,WD6=64E ,:5 ,7C@> ,vC@FAvF:52?460u2G@C:E6 ,H96C6 ,>6>36CEJA6l") & CJJCCCJ & CCCJJCC("XX")
else
CCCJCJ=CCCJCJ & CCCJJCC(" ,DE2EFDla ,2?5 ,>6>36CEJA6l") & CJJCCCJ
end if:if CCJJJJJ<>"" then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,?2>6 ,=:<6 ,VT") & CCJJJJJ & CCCJJCC("TV")
if CCJCJCJ(CCJJJJC) then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,EJA6l") & CCJJJJC
if CCJJJCJ<>"" then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,2FE9@C ,=:<6 ,VT") & CCJJJCJ & CCCJJCC("TV")
if isdate(CCJJJCC) then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,52E6E:>6mlV") & CCJJJCC & CCCJJCC("V")
if isdate(CCJJCJJ) then CCCJCJ=CCCJCJ & CCCJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CCJJCJJ)+1 & CCCJJCC("V")
CCCJCJ=CCCJCJ & CCCJJCC(" ,@C56C ,3J ,52E6E:>6 ,56D4"):set CCCJJJ=CCJCCJ.execute(CCCJCJ):do while not CCCJJJ.eof:CCJJCJC=CCCJJJ(0):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCJJJC:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk2 ,9C67lQG:6H]2DAn:5l")):Response.Write  CCJJCJC:Response.Write(CCCJJCC("Q ,E2C86ElQ03=2?<Qm")):Response.Write  CCCJJJ(1):Response.Write(CCCJJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(6):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=2 Then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Q ,?@HC2Am")):Response.Write  CCCJJJJ(CCCJJJ(2),0):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(9):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write  CCCJJJ(3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJJ(4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJJ(5):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJCJC:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQC:89EQ ,4=2DDlQ?@\I=DQ ,?@HC2Am") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCCCCC=0 Then
set CCCJJC=CCJCCJ.execute(CCCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,vC@FAvF:52?460u2G@C:E6 ,H96C6 ,:5l") & CCJJCJC & CCCJJCC(" ,2?5 ,>6>36CEJA6l") & CJJCCCJ):if CCCJJC.eof then
response.write CCCJJCC("k2 ,4=2DDlV2\72GV ,9C67lV=:DE024E]2DAnDl_U24El25572GU:5l") & CCJJCJC & CCCJJCC("Vm????????k^2m ,")
end if
End If:if CCCJJJ(8)=CJJCCCJ then
if CJCCCCC=2 then
Response.Write CCCJJCC("k2 ,9C67lV^>^G2?E^R^D49@@=^DEF56?E^EF2?7FnD49@@=l") & CJJCCCJ & CCCJJCC("U:5l") & CCJJCJC & CCCJJCC("V ,E2C86ElV03=2?<V ,E:E=6lV????\????????????Vm????k^2m ,")
response.write CCCJJCC("k2 ,9C67lV>6>36C]2DAn4@FCD6:5l") & CCJJCJC & CCCJJCC("Vm????k^2m ,")
response.write CCCJJCC("k2 ,9C67lV=:DE024E]2DAnDlaU:5l") & CCJJCJC & CCCJJCC("Vm????k^2m ,")
else
response.write CCCJJCC("k2 ,9C67lV=:DE024E]2DAnDl") & CJCCCCC & CCCJJCC("U:5l") & CCJJCJC & CCCJJCC("Vm????k^2m ,")
end if:response.write CCCJJCC("k2 ,9C67lV=:DE024E]2DAnDl") & CJCCCCC & CCCJJCC("U:5l") & CCJJCJC & CCCJJCC("U24El56=Vm????k^2m")
else
response.write CCCJJCC("k2 ,4=2DDlV2\72GV ,9C67lV=:DE024E]2DAnDl") & CJCCCCC & CCCJJCC("U:5l") & CCJJCJC & CCCJJCC("U24El56=72GVm????????k^2m ,")
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CCCJJJ.movenext:CJCJJJC=CJCJJJC+1:loop
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQDQ ,G2=F6lQ")):Response.Write  CJCCCCC:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,????") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?\6IA@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVE23=6]E30=:DEVX]E23=6a6I46=WV????@VX") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,??????@????") & vbCrLf):Response.Write(CCCJJCC(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CCCJJCC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CCCJJCC(" ,:7W4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXXLS]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NXNXN") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,????^????????") & vbCrLf):Response.Write(CCCJJCC(" ,SWV2]2\72GVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CCCJJCC(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXL=2J6C]>D8WV????^????????????V[L:4@?i`N[7F?4E:@?WXLS2]C6>@G6WXNXNX") & vbCrLf):Response.Write(CCCJJCC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,????????$6=64E") & vbCrLf):Response.Write(CCCJJCC(" ,SWVD6=64E,52E2\G2=F6.VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,SE9:DlSWE9:DX") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,GlSE9:D]52E2WVG2=F6VX") & vbCrLf):Response.Write(CCCJJCC(" ,:7WGPllVVXL") & vbCrLf):Response.Write(CCCJJCC(" ,:7WE9:D]92DpEEC:3FE6WV>F=E:A=6VXXLSE9:D]G2=WG]DA=:EWV[VXXN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6LSE9:D]G2=WGXN") & vbCrLf):Response.Write(CCCJJCC(" ,SE9:D]EC:886CWV492?865]D6=64E65]2>F:VX") & vbCrLf):Response.Write(CCCJJCC(" ,:7WEJA6@7W49@D6?XPllVF?567:?65VXLSE9:D]EC:886CWV49@D6?iFA52E65VXN") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC("NX") & vbCrLf):Response.Write(CCCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCC(ByVal CCCJJCJ)
Dim CCJJCCJ, CJCJJJC, CCJJCCC
CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJC = 1 To Len(CCCJJCJ)
If CJCJJJC <> CCJJCCC Then
CCJJCCJ = AscW(Mid(CCCJJCJ, CJCJJJC, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CCCJJCC = CCCJJCC & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CCCJJCC = CCCJJCC & Chr(CCJJCCJ - 47)
Else
CCJJCCC = CJCJJJC + 1
If Mid(CCCJJCJ, CCJJCCC, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CCJJCCJ + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJCJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de