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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJCCCJJ("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJCCCJJ("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJCCCJJ("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJCCCJJ("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") & CCJJJJ & CJCCCJJ("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJCCCJJ("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJJJJCJ=split(CJJJJJC,CJCCCJJ("]")):if ubound(CJJJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCJ(0)) or len(CJJJJCJ(1))<>32 or len(CJJJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJCC=CJJJJCJ(1):for CJJJCJJ=1 to len(CJJJJCC):CJJJCJC=mid(CJJJJCC,CJJJCJJ,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJJCC=CJJJJCJ(2):if CJJJCCJ<>mid(CJJJJCC,6,7) then
Call ClearMemberCookie
else
CJJJCJC=mid(CJJJJCC,18,10)/2:if CJJJCJC<DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJJCJ(0)):CCJJJJ=CJJJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJ,CJCCCJC):dim CJJJCJJ,CJJJCJC,CJJJCCJ:for CJJJCJJ=1 to len(CJCCCJC):CJJJCJC=mid(CJCCCJC,CJJJCJJ,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCCJ=CJJCCJJ & CJCCCJJ("]") & CJCCCJC & CJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJJ("!$*|t|qt#"))=CJJJCCJ:End Sub::::Const CJCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCJ,CJCCCCC):dim CJJJJCJ:CJJJJCJ=CJCCCCJ & "=" & CJCCCCC & CJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJJ("$6E\r@@<:6"),CJJJJCJ):End Sub:::::::Function CJCJJCJ(CJCJJJJ):if isnull(CJCJJJJ) or trim(CJCJJJJ)="" or not isnumeric(CJCJJJJ) then
CJCJJCJ=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CJCCCJJ("/-5ZS"):CJJJCCC.IgnoreCase = True:CJCJJCJ = CJJJCCC.test(CJCJJJJ):set CJJJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:set CJCJCCJ=nothing:CJCJCCC.close : set CJCJCCC=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCCJJJ.Close : Set CJCCJJJ = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJJJJ)):Response.Redirect CJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCCJJC(ByVal CJCCJCJ,style):if not isdate(CJCCJCJ) then
CJCCJJC=CJCCJCJ:exit function
end if:dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:CJCCJCJ=cdate(CJCCJCJ):CJJCJJJ=Year(CJCCJCJ):CJJCJJC=Month(CJCCJCJ):CJJCJCJ=Day(CJCCJCJ):select case style:case 0:CJCCJJC=CJJCJJJ & CJCCCJJ("\") & right(0 & CJJCJJC,2) & CJCCCJJ("\") & right(0 & CJJCJCJ,2):case 1:CJCCJJC=CJJCJJJ & right(0 & CJJCJJC,2) & right(0 & CJJCJCJ,2):case 2:CJCCJJC=right(CJJCJJJ,2) & CJCCCJJ("\") & right(0 & CJJCJJC,2) & CJCCCJJ("\") & right(0 & CJJCJCJ,2):case 3:CJCCJJC=CJJCJJJ & CJCCCJJ("\") & right(0 & CJJCJJC,2):case 4:CJCCJJC=right(0 & CJJCJJC,2) & CJCCCJJ("\") & right(0 & CJJCJCJ,2):case 5:CJCCJJC=right(0 & CJJCJCJ,2):case 6:CJCCJJC=CJJCJJJ & CJCCCJJ("??") & right(0 & CJJCJJC,2) & CJCCCJJ("??") & right(0 & CJJCJCJ,2) & CJCCCJJ("??"):case else
CJCCJJC=CJCCJCJ:end select:End Function::::::::::::::::::::::dim CJJCCJJ:CJJCCJJ=request.querystring(CJCCCJJ(":5")):if not CJCJJCJ(CJJCCJJ) then Call RedirectMessage(CJCCCJJ("????????,??????????????,"))
set CJCCJJ=CJCJCJ.execute(CJCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,vC@FAvF:52?46 ,H96C6 ,:5l") & CJJCCJJ):if CJCCJJ.eof then Call RedirectMessage(CJCCCJJ("????????,??????????????@????,"))
Response.Write(vbCrLf):Response.Write(CJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJJ("k9625m") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJJ("kE:E=6m")):Response.Write  CJCCJJ(CJCCCJJ("?2>6")):Response.Write(CJCCCJJ("k^E:E=6m") & vbCrLf):Response.Write(CJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("]D4C@==DAJ\?2G ,2]2>\24E:G6 ,L ,4@=@Ci ,R777j ,7@?E\H6:89Ei ,3@=5j ,N") & vbCrLf):Response.Write(CJCCCJJ("]2>\82==6CJ\3@C56C65 ,]2>\82==6CJ\:E6> ,:>8 ,L ,96:89Ei ,`a_AIj ,H:5E9i ,2FE@j ,N") & vbCrLf):Response.Write(CJCCCJJ("]2>\82==6CJ\3@C56C65 ,=: ,L ,5:DA=2Ji ,:?=:?6\3=@4<j ,N") & vbCrLf):Response.Write(CJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("k96256C ,4=2DDlQ2>\E@A32C ,2>\E@A32C\:?G6CD6 ,2>\E@A32C\7:I65\E@AQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\E@A32C\3C2?5Qmk2 ,9C67lQRQm")):Response.Write  CJCCJJ(CJCCCJJ("?2>6")):Response.Write(CJCCCJJ("k^2mk^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,k3FEE@? ,4=2DDlQ2>\E@A32C\3E? ,2>\E@A32C\E@88=6 ,2>\3E? ,2>\3E?\D> ,2>\3E?\DF446DD ,2>\D9@H\D>\@?=JQ ,52E2\2>\4@==2AD6lQLE2C86Ei ,VR5@4\E@A32C\4@==2AD6VNQmkDA2? ,4=2DDlQ2>\DC\@?=JQm????????k^DA2?m ,kDA2? ,4=2DDlQ2>\:4@?\32CDQmk^DA2?mk^3FEE@?m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):If CJCCJJ(CJCCCJJ(">FD:4")) & ""<>"" Then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\E@A32C\=67EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k3FEE@? ,:5lQ3E?\G@=Q ,4=2DDlQ2>\3E? ,2>\3E?\D64@?52CJ ,2>\E@A32C\3E? ,2>\3E?\D> ,2>\C25:FDQ ,52E2\DE2EFDlQ@A6?Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\A2FD6 ,2>\:4@?\DA:?Qmk^:mk^3FEE@?m") & vbCrLf):Response.Write(CJCCCJJ(" ,k2F5:@ ,DC4lQ")):Response.Write  CJCCJJ(CJCCCJJ(">FD:4")):Response.Write(CJCCCJJ("Q ,2FE@A=2J ,=@@Amk^2F5:@m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\4@==2AD6 ,2>\E@A32C\4@==2AD6 ,D4C@==DAJ\?2G ,2>\E@A32C\C:89EQ ,:5lQ5@4\E@A32C\4@==2AD6Q ,52E2\2>\D4C@==DAJ?2GlQL@77D6E%@Aid_NQm") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,4=2DDlQ2>\?2G ,2>\?2G\A:==D ,2>\E@A32C\?2GQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQR4@?0>F5:Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQRE@@=Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQR8F@496?8Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQRA:4EFC6Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k=:mk2 ,9C67lQRE9:C5Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^96256Cm") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CJCCJJ(CJCCCJJ("?2>6")):Response.Write(CJCCCJJ("k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm")):Response.Write  CJCCJJ(CJCCCJJ("2FE9@C")) & CJCCCJJ(" ,,") & CJCCJJC(CJCCJJ(CJCCCJJ("52E6E:>6")),0) & CJCCCJJ("."):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9a ,:5lQ4@?0>F5:Qm????????k^9am") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?0>F5:")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9a ,:5lQE@@=Qm????????k^9am") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,52E2\2>\H:586ElQ82==6CJQ ,4=2DDlQ2>\82==6CJ ,2>\82==6CJ\3@C56C65Q ,52E2\2>\82==6CJlQLAFC6G:6HiECF6NQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):if CJCCJJ(CJCCCJJ("E@@=")) & ""<>"" then
set CJCCJC=CJCJCJ.execute(CJCCCJJ("D6=64E ,?2>6[FC= ,7C@> ,vC@FAvF:52?460%@@= ,H96C6 ,:5 ,:? ,W") & CJCCJJ(CJCCCJJ("E@@=")) & CJCCCJJ("X ,@C56C ,3J ,52E6E:>6 ,56D4")):while not CJCCJC.eof:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\82==6CJ\:E6>Qmk2 ,9C67lQ")):Response.Write  CJCCJC(1):Response.Write(CJCCCJJ("Q ,4=2DDlQQmk:>8 ,DC4lQ")):Response.Write  CJCCJC(1):Response.Write(CJCCCJJ("Q , ,2=ElQ")):Response.Write  CJCCJC(0):Response.Write(CJCCCJJ("Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9b ,4=2DDlQ2>\82==6CJ\E:E=6Qm")):Response.Write  CJCCJC(0):Response.Write(CJCCCJJ("k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):CJCCJC.movenext:wend
end if:dim CJJCCJC,CJJJCJJ:CJJCCJC=CJCCJJ(CJCCCJJ("E@@=0>J")) & "":if CJJCCJC<>"" then
CJJCCJC=split(CJJCCJC,CJCCCJJ("M")):for CJJJCJJ=0 to ubound(CJJCCJC):Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\82==6CJ\:E6>Qmk2 ,9C67lQ")):Response.Write  CJJCCJC(CJJJCJJ):Response.Write(CJCCCJJ("Q ,4=2DDlQQmk:>8 ,DC4lQ")):Response.Write  CJJCCJC(CJJJCJJ):Response.Write(CJCCCJJ("Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9b ,4=2DDlQ2>\82==6CJ\E:E=6QmU?3DAjk^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):next
end if:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k9a ,:5lQ8F@496?8Qm????????k^9am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9bm????????,k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?052@CF")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9bm??????????,k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?0K92?<2:")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9bm??????,k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?0E2@=F?")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9bm??????,k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?0K@?8;:6")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9bm??????????,k^9bm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm")):Response.Write  replace(CJCCJJ(CJCCCJJ("4@?0K9FJ:")) & "",vbcrlf,CJCCCJJ("k^AmkAm")):Response.Write(CJCCCJJ("k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k9a ,:5lQA:4EFC6Qm????????k^9am") & vbCrLf):Response.Write(CJCCCJJ(" ,kF= ,52E2\2>\H:586ElQ82==6CJQ ,4=2DDlQ2>\82==6CJ ,2>\82==6CJ\3@C56C65Q ,52E2\2>\82==6CJlQLAFC6G:6HiECF6NQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):dim CJJCCCJ:CJJCCCJ=CJCCJJ(CJCCCJJ("A:4EFC6")) & "":if CJJCCCJ<>"" then
CJJCCCJ=split(CJJCCCJ,CJCCCJJ("M")):for CJJJCJJ=0 to ubound(CJJCCCJ):Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\82==6CJ\:E6>Qmk2 ,9C67lQ")):Response.Write  CJJCCCJ(CJJJCJJ):Response.Write(CJCCCJJ("Q ,4=2DDlQQmk:>8 ,DC4lQ")):Response.Write  CJJCCCJ(CJJJCJJ):Response.Write(CJCCCJJ("Qmk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):next
end if:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CJCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kP\\????????\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Qmk2 ,9C67lQRE@AQ ,E:E=6lQ????????QmkDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm????????k^DA2?mk: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,^^????????????") & vbCrLf):Response.Write(CJCCCJJ(" ,SWVR3E?\G@=VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,SE9:DlSWE9:DXj") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,@A6?lSE9:D]52E2WVDE2EFDVXlllV@A6?Vj") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,2F5:@lSWV2F5:@VX,_.j") & vbCrLf):Response.Write(CJCCCJJ(" ,:7W@A6?XL") & vbCrLf):Response.Write(CJCCCJJ(" ,2F5:@]A2FD6WXj") & vbCrLf):Response.Write(CJCCCJJ(" ,SE9:D]52E2WVDE2EFDV[V4=@D6VXj") & vbCrLf):Response.Write(CJCCCJJ(" ,SE9:D]49:=5C6?WV:VX]C6>@G6r=2DDWV2>\:4@?\A2FD6 ,2>\:4@?\DA:?VX]255r=2DDWV2>\:4@?\A=2JVXj") & vbCrLf):Response.Write(CJCCCJJ(" ,N") & vbCrLf):Response.Write(CJCCCJJ(" ,6=D6L") & vbCrLf):Response.Write(CJCCCJJ(" ,2F5:@]A=2JWXj") & vbCrLf):Response.Write(CJCCCJJ(" ,SE9:D]52E2WVDE2EFDV[V@A6?VXj") & vbCrLf):Response.Write(CJCCCJJ(" ,SE9:D]49:=5C6?WV:VX]C6>@G6r=2DDWV2>\:4@?\A=2JVX]255r=2DDWV2>\:4@?\A2FD6 ,2>\:4@?\DA:?VXj") & vbCrLf):Response.Write(CJCCCJJ(" ,N") & vbCrLf):Response.Write(CJCCCJJ(" ,NXj") & vbCrLf):Response.Write(CJCCCJJ("NXj") & vbCrLf):Response.Write(CJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:set CJCJCCJ=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJJ(ByVal CJCCJCC)
Dim CJJCCCC, CJJJCJJ, CJCJJJJ
CJCCJCC = Replace(CJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJJ = 1 To Len(CJCCJCC)
If CJJJCJJ <> CJCJJJJ Then
CJJCCCC = AscW(Mid(CJCCJCC, CJJJCJJ, 1))
If CJJCCCC >= 33 And CJJCCCC <= 79 Then
CJCCCJJ = CJCCCJJ & Chr(CJJCCCC + 47)
ElseIf CJJCCCC >= 80 And CJJCCCC <= 126 Then
CJCCCJJ = CJCCCJJ & Chr(CJJCCCC - 47)
Else
CJCJJJJ = CJJJCJJ + 1
If Mid(CJCCJCC, CJCJJJJ, 1) = Chr(64) Then CJCCCJJ = CJCCCJJ & ChrW(CJJCCCC + 5) Else CJCCCJJ = CJCCCJJ & Mid(CJCCJCC, CJJJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de