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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJJ, CCJJJC,CCJJCJ, CCJJCC, CCJCJJ:Set CCJJJJ = server.CreateObject(CCJJJJJ("ps~sq]r@??64E:@?")):CCJJJJ.open Application(CCJJJJJ("r@??64E:@?$EC:?8")):Set CCJJJC=CCJJJJ::Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC:CJJJCCC=Trim(Request.Cookies(CCJJJJJ("!$*|t|qt#"))):if CJJJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJC>0 then
CCJCJJ=CCJJJJJ("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") & CCJCCJ & CCJJJJJ("V ,2?5 ,:5l") & CCJCJC
set CCJJCJ=CCJJJJ.execute(CCJCJJ):If CCJJCJ.EOF Then
Call ClearMemberCookie
Else
CCJCCC=CCJJCJ(2) & "":CCCJJJ=CCJJCJ(3):CCCJJC=CCJJCJ(5):CCCJCJ=CCJJCJ(6):CCCJCC=CCJJCJ(9):CCCCJJ=CCJJCJ(15):CCCCCJ=CCJJCJ(0):CJJJCJC=CCJJCJ(1):CJJJCJJ=CCJJCJ(11) & "":CCCCCC=CCJJCJ(10) & "":CCCCJC=CCJJCJ(12):CJJJJJJ=CCJJCJ(14):CJJJJJC=CCJJCJ(13):CJJJJCJ=CCJJCJ(7) & "":CJJJJCC=CCJJCJ(4):CJJJCCJ=CCJJCJ(8):if isnull(CCCCJJ) then CCCCJJ=0
if isnull(CCCJCC) or CCCJCC=0 then CCCJCC=CCCJJJ
if isnull(CJJJJCC) then CJJJJCC=0
if isnull(CCCJJC) then CCCJJC=0
if instr(CCJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCJ)>0 then Call RedirectMessage(CCJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCJC,CCJCCJ)
End IF
end if:::Sub CheckLogined():if CCJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CCJJJJJ("D49@@="))):if isnumeric(CJJCJJJ) then
response.Redirect CCJJJJJ("^>^G2?E^R^D49@@=^") & CJJCJJJ & CCJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJJJ("!$*|t|qt#"))="":CCJCJC=0:CCCJCJ=0:CCJCCJ=Empty:CCCJJC=0:CCCCJJ=0:CCCJCC=0:CCCJJJ=0:CCCCCJ=False:CJJJCJC=False:CJJJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:CJJCJJC=split(CJJJCCC,CCJJJJJ("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJCJCC=1 to len(CJJCJCJ):CJJCCJJ=mid(CJJCJCJ,CJJCJCC,1):if isnumeric(CJJCCJJ) then CJJCCJC=CJJCCJC & CJJCCJJ
if len(CJJCCJC)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJC<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCCJJ=mid(CJJCJCJ,18,10)/2:if CJJCCJJ<DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJC=Clng(CJJCJJC(0)):CCJCCJ=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJC,CCJJJCJ):dim CJJCJCC,CJJCCJJ,CJJCCJC:for CJJCJCC=1 to len(CCJJJCJ):CJJCCJJ=mid(CCJJJCJ,CJJCJCC,1):if isnumeric(CJJCCJJ) then CJJCCJC=CJJCCJC & CJJCCJJ
if len(CJJCCJC)=7 then exit for
next:CJJCCJC=CCJJJJC & CCJJJJJ("]") & CCJJJCJ & CCJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJCCJC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJJJ("D"), CCJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJJJ("!$*|t|qt#"))=CJJCCJC:End Sub:::Function IIf(CCJJJCC, CCJJCJJ, CCJJCJC):if isnull(CCJJJCC) or isempty(CCJJJCC) then
IIf = CCJJCJC
elseif CCJJJCC Then
IIf = CCJJCJJ
Else
IIf = CCJJCJC
end if:End Function:Const CJCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJCCJ,CCJJCCC):dim CJJCJJC:CJJCJJC=CCJJCCJ & "=" & CCJJCCC & CCJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJJJ("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CJCCJJC(CJCJCCJ):if isnull(CJCJCCJ) or trim(CJCJCCJ)="" or not isnumeric(CJCJCCJ) then
CJCCJJC=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CCJJJJJ("/-5ZS"):CJJCCCJ.IgnoreCase = True:CJCCJJC = CJJCCCJ.test(CJCJCCJ):set CJJCCCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCCJCJ=nothing:set CJCCJCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:CJCJJJC.close : set CJCJJJC=nothing:CCJJCC.Close : Set CCJJCC=Nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CJCCCCJ.Close : Set CJCCCCJ = Nothing:CCJJJJ.Close : Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJJJ("!$*0|6DD286"),server.URLEncode(CCJCJJJ)):Response.Redirect CCJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJCJJJ:CCJCJJ=Request.ServerVariables(CCJJJJJ("!p%w0x}u~")):if instr(CCJCJJ,CCJJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCCJ and not CJJJCJC then Call RedirectMessage(CCJJJJJ("????????,????????????????????????,"))
CJJCJJJ=CCCJCC
elseif instr(CCJCJJ,CCJJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCJJ,CCJJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJJ=CCCJCC
elseif instr(CCJCJJ,CCJJJJJ("^D49@@="))>0 then
CJJCJJJ=Request.QueryString(CCJJJJJ("D49@@=")):if not CJCCJJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CCJJJJJ("F"))
if not CJCCJJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CCJJJJJ("D4"))
if not CJCCJJC(CJJCJJJ) then Call RedirectMessage(CCJJJJJ("????????W$49@@=X??@??????????,"))
CJJCJJJ=csng(CJJCJJJ)
end if:if CJJCJJJ=0 then Call RedirectMessage(CCJJJJJ("????????W$49@@=X????W_X??,"))
Dim CJJCCCC:Call SetConfig:Sub SetConfig():dim CJCJJJJ,CJCJJJC:CCJCJJ=CCJJJJJ("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") & CJJCJJJ:set CJCJJJC=CCJJJJ.execute(CCJCJJ):if CJCJJJC.eof then Call RedirectMessage(CCJJJJJ("??W") & CCJCJC & CCJJJJJ("X??????????W") & CJJCJJJ & CCJJJJJ("X????????,"))
ReDim CJCJJJJ(61):CJCJJJJ(0)=CJCJJJC(CCJJJJJ(";:2@H6:")) & "":CJCJJJJ(1)=CJCJJJC(CCJJJJJ("EJA6")):CJCJJJJ(2)=CJCJJJC(CCJJJJJ("D>D")):CJCJJJJ(3)=CJCJJJC(CCJJJJJ("4FDE@>8C@FA")) & "":CJCJJJJ(4)=CJCJJJC(CCJJJJJ("D:5632C0@E96C")) & "":CJCJJJJ(5)=IIf(isnull(CJCJJJC(CCJJJJJ("E6DEC6DF=EG:6H"))),0,CJCJJJC(CCJJJJJ("E6DEC6DF=EG:6H"))):CJCJJJJ(6)=CJCJJJC(CCJJJJJ("K:IF?E:>6")):CJCJJJJ(7)=CJCJJJC(CCJJJJJ("766")):CJCJJJJ(8)=CJCJJJC(CCJJJJJ("C6E6DE52J")):CJCJJJJ(9)=CJCJJJC(CCJJJJJ("6IA:C652E6")):CJCJJJJ(10)=CJCJJJC(CCJJJJJ("E:E=6")):CJCJJJJ(11)=CJCJJJC(CCJJJJJ(":?EC@")) & "":CJCJJJJ(12)=CJCJJJC(CCJJJJJ("A:4EFC6")) & "":CJCJJJJ(13)=CJCJJJC(CCJJJJJ("72>:=J")):CJCJJJJ(14)=CJCJJJC(CCJJJJJ("4@AJC:89E")) & "":CJCJJJJ(15)=IIf(isnull(CJCJJJC(CCJJJJJ("D6>6DE6C0DE2CE052E6"))),CCJJJJJ("`h__\`\`"),CJCJJJC(CCJJJJJ("D6>6DE6C0DE2CE052E6"))):CJCJJJJ(16)=IIf(isnull(CJCJJJC(CCJJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJC(CCJJJJJ("K:IF?0E:>6D09:89=:89E"))):CJCJJJJ(17)=CJCJJJC(CCJJJJJ("4@?E24E")) & "":CJCJJJJ(18)=CJCJJJC(CCJJJJJ("D2?5E23=6")):CJCJJJJ(19)=CJCJJJC(CCJJJJJ("4C:D:D")):CJCJJJJ(20)=CJCJJJC(CCJJJJJ("JJ52E6")):CJCJJJJ(21)=CJCJJJC(CCJJJJJ("BB")):CJCJJJJ(22)=CJCJJJC(CCJJJJJ("JFJF60D>D0EA=")) & "":CJCJJJJ(23)=CJCJJJC(CCJJJJJ("JFJF60E6DE0=3")) & "":CJCJJJJ(25)=CJCJJJC(CCJJJJJ("6IA6CE")):CJCJJJJ(26)=CJCJJJC(CCJJJJJ(">@5:?7@")):CJCJJJJ(27)=CJCJJJC(CCJJJJJ("9@>6A286E@AA:4EFC6")) & "":CJCJJJJ(28)=CJCJJJC(CCJJJJJ("4C:D:D=3")):CJCJJJJ(29)=IIf(CJCJJJC(CCJJJJJ("4C:D:D@=5")),False,True):CJCJJJJ(30)=CJCJJJC(CCJJJJJ("8C@FA8F:52?46")):CJCJJJJ(31)=CJCJJJC(CCJJJJJ("3:@7665324<")):CJCJJJJ(32)=CJCJJJC(CCJJJJJ("<6JDEC")):CJCJJJJ(33)=CJCJJJC(CCJJJJJ("=@8@")) & "":CJCJJJJ(34)=CJCJJJC(CCJJJJJ("K:46")):CJCJJJJ(35)=IIf(CJCJJJC(CCJJJJJ(":D?6H")),True,False):CJCJJJJ(36)=121:CJCJJJJ(37)=111:CJCJJJJ(38)=160:CJCJJJJ(39)=CJCJJJC(CCJJJJJ("8F6DE3@@<")):CJCJJJJ(40)=CJCJJJC(CCJJJJJ("75D")):CJCJJJJ(42)=CJCJJJC(CCJJJJJ("9@>6=@8:?")):CJCJJJJ(43)=CJCJJJC(CCJJJJJ("K:IF?0?6657665324<")):CJCJJJJ(44)=CJCJJJC(CCJJJJJ("K:IF?0E:>6D0=:>:E")):CJCJJJJ(45)=CJCJJJC(CCJJJJJ("4@>A=6E60:?7@")):CJCJJJJ(46)=CJCJJJC(CCJJJJJ("E6DE:?EC@")) & "":CJCJJJJ(47)=IIf(isnull(CJCJJJC(CCJJJJJ("JFJF60367@C60E:>6"))),0,CJCJJJC(CCJJJJJ("JFJF60367@C60E:>6"))):CJCJJJJ(49)=CJCJJJC(CCJJJJJ("D>D0C646:G6C")):CJCJJJJ(50)=CJCJJJC(CCJJJJJ("D>D0D:8?")) & "":CJCJJJJ(52)=CJCJJJC(CCJJJJJ("JFJF602CC2?86")):CJCJJJJ(53)=IIf(isnull(CJCJJJC(CCJJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJC(CCJJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJJJ(54)=CJCJJJC(CCJJJJJ("9:560=30@FE@7286")):CJCJJJJ(55)=CJCJJJC(CCJJJJJ("JFJF60E6DE052JD")):CJCJJJJ(56)=CJCJJJC(CCJJJJJ("JFJF60H66<0=:>:E")):CJCJJJJ(57)=CJCJJJC(CCJJJJJ("JFJF604964<65")):CJCJJJJ(58)=CJCJJJC(CCJJJJJ("K:IF?0?6657665324<0?6IE")):CJCJJJJ(59)=CJCJJJC(CCJJJJJ("4964<?6HDEF56?E")):CJCJJJJ(60)=CJCJJJC(CCJJJJJ("K:IF?04=@D6052E6")):CJCJJJC.close : set CJCJJJC=nothing:if isNull(CJCJJJJ(8)) or CJCJJJJ(8)="" then CJCJJJJ(8)=0
if isdate(CJCJJJJ(9)) then
CJCJJJJ(9)=cdate(CJCJJJJ(9)):if CJCJJJJ(9)<Date then Call RedirectMessage(CCJJJJJ("????????,????????????????W") & CJCJJJJ(9) & CCJJJJJ("X??????,"))
end if:if not CJCCJJC(CJCJJJJ(20)) then CJCJJJJ(20)=7
select case CJCJJJJ(1):case 1,2,16:CJCJJJJ(36)=159:case 4,5,6,10,11:CJCJJJJ(36)=190:CJCJJJJ(37)=178:CJCJJJJ(38)=191:case 7,13:CJCJJJJ(36)=164:CJCJJJJ(37)=178:CJCJJJJ(38)=179:end select:CJJCCCC=CJCJJJJ:End Sub:Function CJCCCJC(CCJCJJC):dim CJCJJJJ(7,1),CJJCJCC,CJCJJCJ,CJCJJCC:CJCJJCJ=Array(CCJJJJJ("$49@@="),CCJJJJJ("$EF56?E"),CCJJJJJ("s6AE"),CCJJJJJ("vC256"),CCJJJJJ("r=2DD>2E6"),CCJJJJJ("}F>36C"),CCJJJJJ("%62496C"),CCJJJJJ("!2C6?E")):select case CJJCCCC(1):case 1,2 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 3,16 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 4 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 5 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 6 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 7 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 8 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("??????@"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 9 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 10 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 11 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 12 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 13 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????")):case 14 : CJCJJCC=Array(CCJJJJJ("??????"),CCJJJJJ("??@??"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case 15 : CJCJJCC=Array(CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????????"),CCJJJJJ("????"),CCJJJJJ("????"),CCJJJJJ("??????"),CCJJJJJ("????")):case else : CJCJJCC=CJCJJCJ
end select:for CJJCJCC=0 to Ubound(CJCJJJJ):CJCJJJJ(CJJCJCC,0)=CJCJJCJ(CJJCJCC):CJCJJJJ(CJJCJCC,1)=CJCJJCC(CJJCJCC):next:for CJJCJCC=0 to Ubound(CJCJJJJ):if CJCJJJJ(CJJCJCC,0)=CCJCJJC then
CJCCCJC=CJCJJJJ(CJJCJCC,1):exit for
end if:next:End Function::if CJJCCCC(0)<>Cstr(CCJCJC) then Call RedirectMessage(CCJJJJJ("????????,??????????????????????????,"))
dim CJCJCJJ:set CCJJCJ=CCJJJJ.execute(CCJJJJJ("D6=64E ,E@A ,` ,EJA60E>A ,7C@> ,>6>36C ,H96C6 ,:5l") & CCJCJC):CJCJCJJ=CCJJCJ(0):if not CJCCJJC(CJCJCJJ) then Call RedirectMessage(CCJJJJJ("????????,??????????????????????????,"))
CCJJJJ.execute(CCJJJJJ("FA52E6 ,>6>36C ,D6E ,EJA6l") & CCJJCJ(0) & CCJJJJJ("[EJA60E>Al?F==[:DD49@@=25>:?l_ ,H96C6 ,:5l") & CCJCJC):response.Redirect CCJJJJJ("]]^]]^;:2@H6:^25>:?^>2:?]2DA")::On Error Resume Next:set CJCCJCJ=nothing:set CJCCJCC=nothing:set CJCCCJJ=nothing:set CJCCCJC=nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJJ.Close:Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJJJ(ByVal CJCCCCC)
Dim CJCJCJC, CJJCJCC, CJCJCCJ
CJCCCCC = Replace(CJCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCC = 1 To Len(CJCCCCC)
If CJJCJCC <> CJCJCCJ Then
CJCJCJC = AscW(Mid(CJCCCCC, CJJCJCC, 1))
If CJCJCJC >= 33 And CJCJCJC <= 79 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJCJC + 47)
ElseIf CJCJCJC >= 80 And CJCJCJC <= 126 Then
CCJJJJJ = CCJJJJJ & Chr(CJCJCJC - 47)
Else
CJCJCCJ = CJJCJCC + 1
If Mid(CJCCCCC, CJCJCCJ, 1) = Chr(64) Then CCJJJJJ = CCJJJJJ & ChrW(CJCJCJC + 5) Else CCJJJJJ = CCJJJJJ & Mid(CJCCCCC, CJJCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de