Edit D:\xinhaisoft\crisis_new\m\school\mobiletest.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJC, CCCCCJ,CCCCCC, CJJJJJJ, CJJJJJC:Set CCCCJC = server.CreateObject(CCCCCCC("ps~sq]r@??64E:@?")):CCCCJC.open Application(CCCCCCC("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CCCCCCC("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
CJJJJJC=CCCCCCC("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") & CJJJJCC & CCCCCCC("V ,2?5 ,:5l") & CJJJJCJ
set CCCCCC=CCCCJC.execute(CJJJJJC):If CCCCCC.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=CCCCCC(2) & "":CJJJCJC=CCCCCC(3):CJJJCCJ=CCCCCC(5):CJJJCCC=CCCCCC(6):CJJCJJJ=CCCCCC(9):CJJCJJC=CCCCCC(15):CJJCJCC=CCCCCC(0):CJCJJCJ=CCCCCC(1):CJCJJJC=CCCCCC(11) & "":CJJCCJJ=CCCCCC(10) & "":CJJCJCJ=CCCCCC(12):CJJCCJC=CCCCCC(14):CJJCCCJ=CCCCCC(13):CJJCCCC=CCCCCC(7) & "":CJCJJJJ=CCCCCC(4):CJCJJCC=CCCCCC(8):if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CJJCJJJ) or CJJCJJJ=0 then CJJCJJJ=CJJJCJC
if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJJCCJ) then CJJJCCJ=0
if instr(CCCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CCCCCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CCCCCCC("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:CJCJCJC=split(CJCJCJJ,CCCCCCC("]")):if ubound(CJCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCCJ=CJCJCJC(1):for CJCJCCC=1 to len(CJCJCCJ):CJCCJJJ=mid(CJCJCCJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCJCCJ=CJCJCJC(2):if CJCCJJC<>mid(CJCJCCJ,6,7) then
Call ClearMemberCookie
else
CJCCJJJ=mid(CJCJCCJ,18,10)/2:if CJCCJJJ<DateDiff(CCCCCCC("D"), CCCCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCJ=Clng(CJCJCJC(0)):CJJJJCC=CJCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJCC,CJJJJJJJ):dim CJCJCCC,CJCCJJJ,CJCCJJC:for CJCJCCC=1 to len(CJJJJJJJ):CJCCJJJ=mid(CJJJJJJJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CCJCJCC & CCCCCCC("]") & CJJJJJJJ & CCCCCCC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCCC("D"), CCCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCCC("!$*|t|qt#"))=CJCCJJC:End Sub::::Const CCCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCCJJCJ(str):if isnull(str) or str="" then
CCCJJCJ=False:exit function
end if:Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CCCCCCC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCJCJ.IgnoreCase = True:CCCJJCJ = CJCCJCJ.test(str):set CJCCJCJ=nothing:End Function::::Sub SetHttpOnlyCookie(CJJJJJJC,CJJJJJCJ):dim CJCJCJC:CJCJCJC=CJJJJJJC & CCCCCCC("l") & CJJJJJCJ & CCCCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCCC("$6E\r@@<:6"),CJCJCJC):End Sub::::::sub ShowMessage(CJJJJJCC):response.Charset=CCCCCCC("FE7\g"):Response.Write CCCCCCC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJJJJJCC & CCCCCCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJJCC(CJCCCCC):if isnull(CJCCCCC) or trim(CJCCCCC)="" or not isnumeric(CJCCCCC) then
CCCJJCC=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CCCCCCC("/-5ZS"):CJCCJCJ.IgnoreCase = True:CCCJJCC = CJCCJCJ.test(CJCCCCC):set CJCCJCJ=nothing
end if:End Function::Function CCCJCJJ():dim CJCCJCC,CJCCCJJ,CJCCCJC:CJCCCJC=10001:CJCCJCC=CCCCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\WC@H0?F>36CWX@G6CW@C56C ,3J ,:5XZ") & CJCCCJC-1 & CCCCCCC("X ,2D ,5:77 ,7C@> ,>6>36C ,H96C6 ,:5m") & CJCCCJC-1 & CCCCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCCCJC.execute(CJCCJCC):CCCJCJJ = CJCCCJJ(0):if isnull(CCCJCJJ) then CCCJCJJ=CJCCCJC
CJCCCJJ.close : set CJCCCJJ=nothing:End Function:::Sub ConnClose():On Error Resume Next:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CCCCCC.Close : Set CCCCCC=Nothing:CCCCJJC.Close : Set CCCCJJC = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCCC("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJJCJJ,CJJJJCJC):dim str,CJCCCCC:str=CCCCCCC("!$*0") & Ucase(CJJJJCJJ):if Session(str)<>"" then
CJCCCCC=DateDiff(CCCCCCC("D"),Session(str),Time):if CJCCCCC<CJJJJCJC and CJCCCCC>0 then
Call ConnClose:Call ShowMessage(CCCCCCC("??????????@?????? ,") & CJJJJCJC & CCCCCCC(" ,????,???? ,") & CJJJJCJC-CJCCCCC & CCCCCCC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::::Function CCCCJCJ(str,CJJJJCCJ):if isnull(str) or str="" or CJJJJCCJ="" then
CCCCJCJ=False:exit function
end if:Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CJJJJCCJ:CJCCJCJ.IgnoreCase = True:CCCCJCJ = CJCCJCJ.test(str):set CJCCJCJ=nothing:End Function:::Public Function CCCCJCC(CJCCCCC):dim CCJJJJJ:if isnull(CJCCCCC) or trim(CJCCCCC)="" or not isnumeric(CJCCCCC) or instr(CJCCCCC,CCCCCCC("\"))>0 or instr(CJCCCCC,CCCCCCC("]"))>0 or left(CJCCCCC,1)="0" then
CCJJJJJ=""
else
CCJJJJJ=CJCCCCC:if Len(CCJJJJJ) Mod 2=1 then CCJJJJJ="0" & CCJJJJJ
Randomize:CCJJJJJ=CCJJJJJ & Int((99-10+1)*Rnd+10):CCJJJJJ=CCCCCJJ(CCJJJJJ):CCJJJJJ=CCJJJJJ & CCCCCJC(CCJJJJJ)
end if:CCCCJCC=CCJJJJJ:End Function::Private Function CCCCCJJ(str):Dim CCJJJJC, CJCJCCC, CJCCJJC, CCJJJCJ, CCJJJCC, CJCCCCC,CCJJJJJ:CCJJJCJ = Len(str):For CJCJCCC = 1 To CCJJJCJ:CJCCJJC = CInt(Mid(str, CJCJCCC, 1)):If CJCCJJC < 5 Then CJCCJJC = CJCCJJC + 5 Else CJCCJJC = CJCCJJC - 5
CCJJJJC = CCJJJJC & CJCCJJC:Next:For CJCJCCC = 1 To CCJJJCJ - 1 Step 2:CCJJJCC = Mid(CCJJJJC, CJCJCCC, 1):CJCCCCC = Mid(CCJJJJC, CJCJCCC + 1, 1):CCJJJJJ = CCJJJJJ & CJCCCCC & CCJJJCC:Next:CCCCCJJ = StrReverse(CCJJJJJ):End Function:Private Function CCCCCJC(CJJJJCCC):Dim CCJJJCJ, CJCJCCC, CJCCCCC, CCJJJJC:CCJJJCJ = Len(CJJJJCCC):CJCCCCC = 0:For CJCJCCC = 1 To CCJJJCJ:CCJJJJC = CInt(Mid(CJJJJCCC, CJCJCCC, 1)):If CJCJCCC Mod 2 = 0 Then CJCCCCC = CJCCCCC + CCJJJJC * 3 Else CJCCCCC = CJCCCCC + CCJJJJC
Next:CJCCCCC = CJCCCCC Mod 100:CJCCCCC = 100 - CJCCCCC:CCCCCJC = Right("0" & CJCCCCC, 2):End Function::dim CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCJC=request.querystring(CCCCCCC("D")):CCJJCJJ=request.querystring(CCCCCCC("E")):CCJJCCJ=request.querystring(CCCCCCC("2")):CCJJCCC=request.querystring(CCCCCCC(">")):CCJCJJJ=Request.QueryString(CCCCCCC("?")):CCJCJJC=Request.QueryString(CCCCCCC("K")):if not CCCCJCJ(CCJJCJC,CCCCCCC("/W-5Z[XY-5ZS")) or not CCCJJCC(CCJJCJJ) then Call RedirectMessage(CCCCCCC("????????,????????W%^$X??????,"))
if CCJJCCC<>"1" and CCJJCCC<>"0" then CCJJCCC=1
if not CCCJJCC(CCJCJJJ) then CCJCJJJ=0
if not CCCJJCC(CCJCJJC) then CCJCJJC=0
If Request.ServerVariables(CCCCCCC("#t""&t$%0|t%w~s"))=CCCCCCC("!~$%") then
dim CCJCJCJ,CJCJCCJ:CCJCJCJ=request.form(CCCCCCC("F")):CJCJCCJ=request.form(CCCCCCC("A")):if CCCJJCJ(CCJCJCJ) and CCCCJCJ(CJCJCCJ,CCCCCCC("/,2\7p\u_\h.LbaNS")) then
dim CCJCJCC:set CCCCCC=CCCCJC.execute(CCCCCCC("D6=64E ,E@A ,` ,:5[A2DDH@C5 ,7C@> ,>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,>@3:=6lV") & CCJCJCJ & CCCCCCC("V"))
if CCCCCC.eof then
Call CheckQueryTime(CCCCCCC("C68:DE"),15):dim CCJCCJJ:CCJCJCC=CCCJCJJ:if CCCJJCC(CCJJCCJ) then
CCJCCJJ=DateAdd(CCCCCCC(">"),CCJJCCJ*12*-1-1,Date)
else
CCJCCJJ=Date
end if:CJJJJJC=CCCCCCC(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[,A2DDH@C5.[EJA6[C62=?2>6[D6I[3:CE952J[>@3:=6[8C256[4FDE@>8C@FA[,DE2E6.[,8C@FA.[:DDEF56?EX ,G2=F6DW") & CCJCJCC  & CCCCCCC("[V") & CCJCJCJ & CCCCCCC("V") & CCCCCCC("[V") & CJCJCCJ & CCCCCCC("V") & CCCCCCC("[") & CCJJCJJ  & CCCCCCC("[V") & CCJCJCJ & CCCCCCC("V") & CCCCCCC("[") & CCJJCCC  & CCCCCCC("[V") & CCJCCJJ & CCCCCCC("V") & CCCCCCC("[V") & CCJCJCJ & CCCCCCC("V") & CCCCCCC("[") & CCJCJJJ  & CCCCCCC("[") & CCJCJJC  & CCCCCCC("[d") & CCCCCCC("[`") & CCCCCCC("[`") & CCCCCCC("X")
CCCCJC.execute CJJJJJC:Call SetMemberCookie(CCJCJCC,CJCJCCJ):Response.Cookies(CCCCCCC("%6DE{:DE"))=CCJJCJC:Response.Write CCCCCCC("@<\") & CCCCJCC(CCJCJCC)
elseif CJCJCCJ<>CCCCCC(1) then
Response.Write 2
else
CCJCJCC=CCCCCC(0):CJJJJJC=CCCCCCC("FA52E6 ,>6>36C ,D6E") & CCCCCCC(" ,EJA6l") & CCJJCJJ  & CCCCCCC("[8C256l") & CCJCJJJ  & CCCCCCC("[4FDE@>8C@FAl") & CCJCJJC  & CCCCCCC(" ,H96C6 ,:5l") & CCJCJCC:CCCCJC.execute CJJJJJC:Call SetMemberCookie(CCJCJCC,CJCJCCJ):Response.Cookies(CCCCCCC("%6DE{:DE"))=CCJJCJC:Response.Write CCCCCCC("@<\") & CCCCJCC(CCJCJCC)
end if
else
Response.Write 3
end if:Call ConnClose:response.end
end if:dim CCJCCJC,CCJCCCJ:set CCCCCC=CCCCCJ.execute(CCCCCCC("D6=64E ,E@A ,` ,E@A:5 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CCJJCJJ):if CCCCCC.eof then
Call RedirectMessage(CCCCCCC("????W") & CCJJCJJ & CCCCCCC("X????????,"))
elseif not CCCJJCC(CCCCCC(0)) or CCCCCC(0)=0 then
Call RedirectMessage(CCCCCCC("????????,????????????????@????????,"))
else
CCJCCJC=CCCCCC(0):set CCCCCC=CCCCJC.execute(CCCCCCC("D6=64E ,E@A ,` ,E:E=6[6IA:C652E6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJCCJC):if CCCCCC.eof then
Call RedirectMessage(CCCCCCC("????W") & CCJJCJJ & CCCCCCC("^") & CCJCCJC & CCCCCCC("X????????,"))
else
dim CCJCCCC:CCJCCCJ=CCCCCC(0):CCJCCCC=CCCCCC(1):if isdate(CCJCCCC) then
CCJCCCC=cdate(CCJCCCC):if CCJCCCC<Date then Call RedirectMessage(CCCCCCC("????????,??????????????,") & CCJCCCC & CCCCCCC("??,??????,"))
end if
end if
end if:Response.Write(vbCrLf):Response.Write(CCCCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCCC("k9625m") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCCC("kE:E=6m")):Response.Write  CCJCCCJ:Response.Write(CCCCCCC("k^E:E=6m") & vbCrLf):Response.Write(CCCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCCC("kDEJ=6m") & vbCrLf):Response.Write(CCCCCCC("]2>\:?AFE\8C@FAL>2C8:?\3@EE@>i`C6>jN") & vbCrLf):Response.Write(CCCCCCC("=686?5L>2C8:?\3@EE@>i_jN") & vbCrLf):Response.Write(CCCCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCCC("k^9625m") & vbCrLf):Response.Write(CCCCCCC("k3@5Jm") & vbCrLf):Response.Write(CCCCCCC("k3Cm") & vbCrLf):Response.Write(CCCCCCC("kD64E:@? ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCCCC(" ,k7@C> ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CCCCCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k=686?5m")):Response.Write  CCJCCCJ:Response.Write(CCCCCCC("k^=686?5m") & vbCrLf):Response.Write(CCCCCCC(" ,k5:G ,4=2DDlQ2>\:?AFE\8C@FA ,2>\:?AFE\8C@FA\AC:>2CJQm") & vbCrLf):Response.Write(CCCCCCC(" ,kDA2? ,4=2DDlQ2>\:?AFE\8C@FA\=236=Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\>@3:=6Qmk^:mk^DA2?m") & vbCrLf):Response.Write(CCCCCCC(" ,k:?AFE ,EJA6lQE6=Q ,?2>6lQFQ ,2FE@4@>A=6E6lQ@77Q ,4=2DDlQ2>\7@C>\7:6=5Q ,A2EE6C?lQ")):Response.Write  CCCJJJC:Response.Write(CCCCCCC("Q ,A=2469@=56ClQ????????????Q ,2FE@7@4FD ,C6BF:C65m") & vbCrLf):Response.Write(CCCCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCC(" ,k5:G ,4=2DDlQ2>\:?AFE\8C@FA ,2>\:?AFE\8C@FA\AC:>2CJQm") & vbCrLf):Response.Write(CCCCCCC(" ,kDA2? ,4=2DDlQ2>\:?AFE\8C@FA\=236=Qmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\=@4<Qmk^:mk^DA2?m") & vbCrLf):Response.Write(CCCCCCC(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,?2>6lQAQ ,2FE@4@>A=6E6lQ@77Q ,4=2DDlQ2>\7@C>\7:6=5Q ,A=2469@=56ClQ??????????Q ,C6BF:C65m") & vbCrLf):Response.Write(CCCCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCC(" ,k3FEE@? ,EJA6lQDF3>:EQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\3=@4< ,3E?\=@25:?8\6I2>A=6Qmk: ,4=2DDlQ2>\:4@?\4964<Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CCCCCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CCJCCJC=67272 then
Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k5:Gm????????????????????????????,??????????????????????????????????????,??????????????????????????????,??????????????????????,????????????????????????,????????????????????,??,k^5:Gm") & vbCrLf):Response.Write(CCCCCCC(" ,"))
else
Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k5:Gm????????????????,????????????????????,??????????????????,????????????????????????????,????????????????????????,????????????,??????,??,k^5:Gm") & vbCrLf):Response.Write(CCCCCCC(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k^7@C>m") & vbCrLf):Response.Write(CCCCCCC("k^D64E:@?m") & vbCrLf):Response.Write(CCCCCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ=3Q ,G2=F6lQ")):Response.Write  CCJJCJC:Response.Write(CCCCCCC("Qm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^>5d]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AEm") & vbCrLf):Response.Write(CCCCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCC(" ,G2C ,DE@C6 ,l ,S]p|&x]DE@C6") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,??????^????????") & vbCrLf):Response.Write(CCCCCCC(" ,SWV:?AFE,?2>6lQFQ.VX]G2=WDE@C6]86EWVFD6C\>@3:=6VXMMVVX") & vbCrLf):Response.Write(CCCCCCC(" ,SWV:?AFE,?2>6lQAQ.VX]G2=WDE@C6]86EWVFD6C\A2DDH@C5VXMMVVX") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????,??????????????xs") & vbCrLf):Response.Write(CCCCCCC(" ,G2C ,=3:5lSWVR=3VX]G2=WX]DA=:EWV[VX,_.") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????") & vbCrLf):Response.Write(CCCCCCC(" ,SWV7@C>]2>\7@C>VX]@?WVDF3>:EV[7F?4E:@?W6XL") & vbCrLf):Response.Write(CCCCCCC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,G2C ,AlSWV:?AFE,?2>6lQAQ.VX]G2=WX") & vbCrLf):Response.Write(CCCCCCC(" ,:7WAlllV`abcdeVMMAlllV6`_254bhch32dh2336de6_df7a_7ggb6VXL") & vbCrLf):Response.Write(CCCCCCC(" ,p|&x]5:2=@8]2=6CEWL4@?E6?EiV????????,??????????????????????,VNX") & vbCrLf):Response.Write(CCCCCCC(" ,SWV:?AFE,?2>6lQAQ.VX]G2=WVVX") & vbCrLf):Response.Write(CCCCCCC(" ,N6=D6L") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,:7WP^/,2\7p\u_\h.LbaNS^]E6DEWAXXLSWV:?AFE,?2>6lQAQ.VX]G2=W>5dWAXXN") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????") & vbCrLf):Response.Write(CCCCCCC(" ,G2C ,S=@25:?8 ,l ,p|&x]5:2=@8]=@25:?8WX") & vbCrLf):Response.Write(CCCCCCC(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,??????") & vbCrLf):Response.Write(CCCCCCC(" ,:7WC6D]:?56I~7WV@<VXlll_XL") & vbCrLf):Response.Write(CCCCCCC(" ,DE@C6]D6EWVFD6C\>@3:=6V[SWV:?AFE,?2>6lQFQ.VX]G2=WXX") & vbCrLf):Response.Write(CCCCCCC(" ,DE@C6]D6EWVFD6C\A2DDH@C5V[SWV:?AFE,?2>6lQAQ.VX]G2=WXX") & vbCrLf):Response.Write(CCCCCCC(" ,D6E%:>6@FEWWX ,lm ,H:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5lVZ=3:5ZVU<6JlVZC6D]DF3DEC:?8WbXZVUE6DEEJA6l`UG:6Hl`VX[ ,d___X") & vbCrLf):Response.Write(CCCCCCC(" ,N") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,6=D6 ,:7WC6DlllVaVXL") & vbCrLf):Response.Write(CCCCCCC(" ,S=@25:?8]>@52=WV4=@D6VX") & vbCrLf):Response.Write(CCCCCCC(" ,p|&x]5:2=@8]2=6CEWL4@?E6?EiV????????????,??????????VNX") & vbCrLf):Response.Write(CCCCCCC(" ,SWV:?AFE,?2>6lQAQ.VX]G2=WVVX") & vbCrLf):Response.Write(CCCCCCC(" ,N") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,6=D6L") & vbCrLf):Response.Write(CCCCCCC(" ,S=@25:?8]>@52=WV4=@D6VX") & vbCrLf):Response.Write(CCCCCCC(" ,p|&x]5:2=@8]2=6CEWL4@?E6?EiV????????,????????????VNX") & vbCrLf):Response.Write(CCCCCCC(" ,N") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC(" ,N") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC("NX") & vbCrLf):Response.Write(CCCCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("k^3@5Jm") & vbCrLf):Response.Write(CCCCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCCC(ByVal CCCCCCJ)
Dim CCCJJJJ, CJCJCCC, CJCCCCC
CCCCCCJ = Replace(CCCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCC = 1 To Len(CCCCCCJ)
If CJCJCCC <> CJCCCCC Then
CCCJJJJ = AscW(Mid(CCCCCCJ, CJCJCCC, 1))
If CCCJJJJ >= 33 And CCCJJJJ <= 79 Then
CCCCCCC = CCCCCCC & Chr(CCCJJJJ + 47)
ElseIf CCCJJJJ >= 80 And CCCJJJJ <= 126 Then
CCCCCCC = CCCCCCC & Chr(CCCJJJJ - 47)
Else
CJCCCCC = CJCJCCC + 1
If Mid(CCCCCCJ, CJCCCCC, 1) = Chr(64) Then CCCCCCC = CCCCCCC & ChrW(CCCJJJJ + 5) Else CCCCCCC = CCCCCCC & Mid(CCCCCCJ, CJCJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de