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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCC, CJJJJJ,CJJJJC, CJJJCJ, CJJJCC:Set CCCCC = server.CreateObject(CJCCJJJ("ps~sq]r@??64E:@?")):CCCCC.open Application(CJCCJJJ("r@??64E:@?$EC:?8")):Set CJJJJJ=CCCCC::Dim CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ:CCJCCJ=Trim(Request.Cookies(CJCCJJJ("!$*|t|qt#"))):if CCJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJ>0 then
CJJJCC=CJCCJJJ("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") & CJJCJC & CJCCJJJ("V ,2?5 ,:5l") & CJJCJJ
set CJJJJC=CCCCC.execute(CJJJCC):If CJJJJC.EOF Then
Call ClearMemberCookie
Else
CJJCCJ=CJJJJC(2) & "":CJJCCC=CJJJJC(3):CJCJJJ=CJJJJC(5):CJCJJC=CJJJJC(6):CJCJCJ=CJJJJC(9):CJCJCC=CJJJJC(15):CJCCJC=CJJJJC(0):CCJCJJ=CJJJJC(1):CCJJCC=CJJJJC(11) & "":CJCCCJ=CJJJJC(10) & "":CJCCJJ=CJJJJC(12):CJCCCC=CJJJJC(14):CCJJJJ=CJJJJC(13):CCJJJC=CJJJJC(7) & "":CCJJCJ=CJJJJC(4):CCJCJC=CJJJJC(8):if isnull(CJCJCC) then CJCJCC=0
if isnull(CJCJCJ) or CJCJCJ=0 then CJCJCJ=CJJCCC
if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CJCJJJ) then CJCJJJ=0
if instr(CJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJC)>0 then Call RedirectMessage(CJCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJJ,CJJCJC)
End IF
end if:Sub CheckRight(CJJJJCJ):dim CCJCCC,CCCJJJ:if CJJCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJJJ("??????????????,????????????,"))
elseIf not CJJCJCC(CJJJJCJ) then
Call RedirectMessage(CJCCJJJ("????W") & CJJJJCJ & CJCCJJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCJCC(CJJJJCJ):dim CCJCCC,CCCJJJ:CCCJJJ=split(CJJJJCJ,CJCCJJJ("[")):CJJCJCC=False:for CCJCCC=0 to ubound(CCCJJJ):If Mid(CJJCCJ,CCCJJJ(CCJCCC),1)="1" then
CJJCJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJJJ("!$*|t|qt#"))="":CJJCJJ=0:CJCJJC=0:CJJCJC=Empty:CJCJJJ=0:CJCJCC=0:CJCJCJ=0:CJJCCC=0:CJCCJC=False:CCJCJJ=False:CCJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJC,CCCJCJ,CCJCCC,CCCJCC,CCCCJJ:CCCJJC=split(CCJCCJ,CJCCJJJ("]")):if ubound(CCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJC(0)) or len(CCCJJC(1))<>32 or len(CCCJJC(2))<>32 then
Call ClearMemberCookie
else
CCCJCJ=CCCJJC(1):for CCJCCC=1 to len(CCCJCJ):CCCJCC=mid(CCCJCJ,CCJCCC,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCJCJ=CCCJJC(2):if CCCCJJ<>mid(CCCJCJ,6,7) then
Call ClearMemberCookie
else
CCCJCC=mid(CCCJCJ,18,10)/2:if CCCJCC<DateDiff(CJCCJJJ("D"), CJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJ=Clng(CCCJJC(0)):CJJCJC=CCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCJC,CJCCJJC):dim CCJCCC,CCCJCC,CCCCJJ:for CCJCCC=1 to len(CJCCJJC):CCCJCC=mid(CJCCJJC,CCJCCC,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCCJJ=CJJJCJC & CJCCJJJ("]") & CJCCJJC & CJCCJJJ("]") & Fix(10000*(Rnd+1)) & CCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJJ("D"), CJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJJ("!$*|t|qt#"))=CCCCJJ:End Sub::Function CJJCCJJ(CJCCJCJ):Dim str,CCCCCJ:str = Trim(CJCCJCJ):If IsNull(str) Or str = "" Then
CJJCCJJ = ""
else
str=Replace(str, CJCCJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJJJ("k:7C2>6"), CJCCJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJJJ("kD4C:AE"), CJCCJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCCJ=new RegExp:CCCCCJ.Pattern=CJCCJJJ("@?W,2\K.ZXl"):CCCCCJ.IgnoreCase = True:CCCCCJ.Global=True:str=CCCCCJ.Replace(str,CJCCJJJ("@?S`U6BF2=Dj")):set CCCCCJ=nothing:CJJCCJJ=str
End If:End Function::Const CJJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJCC,CJCCCJJ):dim CCCJJC:CCCJJC=CJCCJCC & "=" & CJCCCJJ & CJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJJ("$6E\r@@<:6"),CCCJJC):End Sub:::::::Function CJJCCJC(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then
CJJCCJC=false
else
Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CJCCJJJ("/-5ZS"):CCCCCJ.IgnoreCase = True:CJJCCJC = CCCCCJ.test(CJJCJJJ):set CCCCCJ=nothing
end if:End Function:Function CJJCCCJ(CJCCCJC):dim CCCCCC,CJJJJJJ:CCCCCC=CJCCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCJC & CJCCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJJ=CCCCC.execute(CCCCCC):CJJCCCJ = CJJJJJJ(0):if isnull(CJJCCCJ) then CJJCCCJ=1
CJJJJJJ.close : set CJJJJJJ=nothing:End Function::sub Alert(ByVal CJJCCCC):Call ConnClose:CJJCCCC=replace(CJJCCCC,vbcrlf,CJCCJJJ("-?")):CJJCCCC=replace(CJJCCCC,CJCCJJJ("V"),CJCCJJJ("-V"))
response.Charset=CJCCJJJ("FE7\g"):response.write CJCCJJJ("kD4C:AEm2=6CEWV") & CJJCCCC & CJCCJJJ("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CJJJJC.Close : Set CJJJJC=Nothing:CJCJCJJ.Close : Set CJCJCJJ = Nothing:CCCCC.Close : Set CCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJJ("!$*0|6DD286"),server.URLEncode(CJJCCCC)):Response.Redirect CJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCJCJC():Dim CJJJJJJ, CJJJJJC(), CCJCCC, CCCJCC, CJJJJCJ,CJJJJCC:If Not IsArray(Application(CJCCJJJ("!$*0%6DED"))) Then
CJJJCC=CJCCJJJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJJJJJJ=server.createobject(CJCCJJJ("25@53]C64@C5D6E")):CJJJJJJ.open CJJJCC,CCCCC,1:CJJJJCJ = CJJJJJJ.RecordCount:CJJJJCC=CJJJJJJ.fields.count-1:ReDim CJJJJJC(CJJJJCJ, CJJJJCC):If CJJJJCJ > 0 Then
For CCJCCC = 1 To CJJJJCJ:For CCCJCC = 0 To CJJJJCC:if CCCJCC=4 or CCCJCC=6 or CCCJCC=19 then
CJJJJJC(CCJCCC, CCCJCC) = CJCJCCJ(CJJJJJJ(CCCJCC))
else
CJJJJJC(CCJCCC, CCCJCC) = CJJJJJJ(CCCJCC):if CJJJJJJ(CCCJCC).type<>11 and isnull(CJJJJJC(CCJCCC, CCCJCC)) then CJJJJJC(CCJCCC, CCCJCC)=""
end if:Next:CJJJJJJ.MoveNext:Next
End If:CJJJJJJ.Close: Set CJJJJJJ = Nothing:Application(CJCCJJJ("!$*0%6DED")) = CJJJJJC
End If:CJCJCJC = Application(CJCCJJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CJCJCCJ(CJCCCCJ):if isnull(CJCCCCJ) then
CJCJCCJ=""
else
On Error Resume Next:CJCJCCJ=CJCCCCJ:if err.number=-2147352567 then
CJCJCCJ="":err.Clear
end if
end if:End Function::::::Call CheckRight(75):Const CJJCJCJ="lbgroup":if CJCJCJ<>CJJCCC then Call RedirectMessage("exstr1?????????????????????????????")
dim CJJJCJJ,CJJJCJC:CJJJCJJ=Request.QueryString(CJCCJJJ("24E")):CJJJCJC=Request.QueryString(CJCCJJJ(":5")):if CJJJCJJ=CJCCJJJ("56=") and CJJCCJC(CJJJCJC) then
CCCCC.execute CJCCJJJ("56=6E6 ,7C@> ,") & CJJCJCJ & CJCCJJJ(" ,H96C6 ,:5l") & CJJJCJC & CJCCJJJ(" ,2?5 ,>6>36CEJA6l") & CJJCCC
end if:if Request.ServerVariables(CJCCJJJ("#t""&t$%0|t%w~s"))=CJCCJJJ("!~$%") then
dim CJJJJJC:CJJJJJC=CJJCCJJ(Request.Form(CJCCJJJ("=3"))):if CJJJJJC="" then Call Alert(CJCCJJJ("????????????????,????????????,"))
if len(CJJJJJC)>100 then Call Alert(CJCCJJJ("??????????????????,????????????,"))
if CJJJCJJ=CJCCJJJ("255") then
CJJJCC=CJCCJJJ(":?D6CE ,:?E@ ,") & CJJCJCJ & CJCCJJJ("W:5[?2>6[=3[D@CE[>6>36CEJA6X ,G2=F6DW") & CJJCCCJ(CJJCJCJ) & CJCCJJJ("[V") & CJJCCJJ(Request.Form(CJCCJJJ("?2>6"))) & CJCCJJJ("V") & CJCCJJJ("[V") & CJJJJJC & CJCCJJJ("V") & CJCCJJJ("[") & CJJCCJJ(Request.Form(CJCCJJJ("D@CE")))  & CJCCJJJ("[") & CJJCCC  & CJCCJJJ("X")
CCCCC.execute CJJJCC
elseif CJJJCJJ=CJCCJJJ(">@5") and CJJCCJC(CJJJCJC) then
CJJJCC=CJCCJJJ("FA52E6 ,") & CJJCJCJ & CJCCJJJ(" ,D6E") & CJCCJJJ(" ,?2>6lV") & CJJCCJJ(Request.Form(CJCCJJJ("?2>6"))) & CJCCJJJ("V")  & CJCCJJJ("[=3lV") & CJJJJJC & CJCCJJJ("V")  & CJCCJJJ("[D@CEl") & CJJCCJJ(Request.Form(CJCCJJJ("D@CE"))) & CJCCJJJ(" ,H96C6 ,:5l") & CJJJCJC
CCCCC.execute CJJJCC
end if:CJJJCJJ=""
end if:Response.Write(vbCrLf):Response.Write(CJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJJ("k9625m") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCJJJ(" ,k=:mk2 ,9C67lQE6DE05:DEC]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ=38C@FA]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJ(" ,k=:mk2 ,9C67lQE6DE0BC4@56]2DAQm????????????,????????,k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJ("k^F=m") & vbCrLf):Response.Write(CJCCJJJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE9 ,?@HC2Am????k^E9m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJ(" ,")):dim CCJCCC,CCCJCC,CJJJCCJ:CCJCCC=1:CJJJJJC=CJCJCJC:set CJJJJC=CCCCC.execute(CJCCJJJ("D6=64E ,:5[?2>6[D@CE[=3 ,7C@> ,") & CJJCJCJ & CJCCJJJ(" ,H96C6 ,>6>36CEJA6l") & CJJCCC & CJCCJJJ(" ,@C56C ,3J ,D@CE")):while not CJJJJC.eof:CJJJCCJ="":for CCCJCC=1 to ubound(CJJJJJC):if instr(CJCCJJJ("[") & CJJJJC(3) & CJCCJJJ("["),CJCCJJJ("[") & CJJJJJC(CCCJCC,0) & CJCCJJJ("["))>0 then CJJJCCJ=CJJJCCJ & CJCCJJJ("\ ,") & CJJJJJC(CCCJCC,1) & CJCCJJJ("k3Cm")
next:if CJJJCJJ=CJCCJJJ(">@5") and CJJJCJC=cstr(CJJJJC(0)) then
Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCCC:Response.Write(CJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CJJJJC(1):Response.Write(CJCCJJJ("Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ=3Q ,EJA6lQE6IEQ ,:5lQ=30255Q ,4=2DDlQE6IE ,=3Q ,D:K6lQg_Q ,G2=F6lQ")):Response.Write  CJJJJC(3):Response.Write(CJCCJJJ("Q ,C625@?=Jmk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CJJJJC(2):Response.Write(CJCCJJJ("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXjQm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQnQm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCCC:Response.Write(CJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,?@HC2Am")):Response.Write  CJJJJC(1):Response.Write(CJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,E:E=6lQ")):Response.Write  CJJJCCJ:Response.Write(CJCCJJJ("Q ,DEJ=6lQH@C5\3C62<i3C62<\2==jQm")):Response.Write  CJJJJC(3):Response.Write(CJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJJC(2):Response.Write(CJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2Am") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQn24El>@5U:5l")):Response.Write  CJJJJC(0):Response.Write(CJCCJJJ("Qm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQn24El56=U:5l")):Response.Write  CJJJJC(0):Response.Write(CJCCJJJ("Q ,@?4=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????,VXQm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJ(" ,"))
end if:CJJJJC.movenext:CCJCCC=CCJCCC+1:wend:if CJJJCJJ=CJCCJJJ("255") then
Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ=3Q ,EJA6lQE6IEQ ,:5lQ=30255Q ,4=2DDlQE6IE ,=3Q ,D:K6lQg_Q ,C625@?=J ,A=2469@=56ClQ????????????Qmk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5mk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCJCCC:Response.Write(CJCCJJJ("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXjQm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k2 ,9C67lQnQm????k^2m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJ(" ,kE5 ,4@=DA2?lQdQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CJCCJJJ("k^7@C>m") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCCJJJ(" ,SWVE5,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CJCCJJJ(" ,^^ ,??????????????") & vbCrLf):Response.Write(CJCCJJJ(" ,SWV:?AFE]=3VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJJ(" ,G2C ,9lSWH:?5@HX]96:89EWX\b_") & vbCrLf):Response.Write(CJCCJJJ(" ,=2J6C]@A6?WL") & vbCrLf):Response.Write(CJCCJJJ(" ,EJA6ia[") & vbCrLf):Response.Write(CJCCJJJ(" ,E:E=6iV????????V[") & vbCrLf):Response.Write(CJCCJJJ(" ,4@?E6?EiV=3D6=64E]2DAn@lVZSWE9:DX]2EECWV:5VXZVU=3lVZSWE9:DX]G2=WX[") & vbCrLf):Response.Write(CJCCJJJ(" ,2C62i,Vc__AIV[9ZVAIV.[") & vbCrLf):Response.Write(CJCCJJJ(" ,D9256r=@D6i ,ECF6") & vbCrLf):Response.Write(CJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJCCJJJ("NX") & vbCrLf):Response.Write(CJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJC.Close:Set CJJJJC=Nothing:CCCCC.Close:Set CCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJJJ(ByVal CJCJCCC)
Dim CJJJCCC, CCJCCC, CJJCJJJ
CJCJCCC = Replace(CJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCC = 1 To Len(CJCJCCC)
If CCJCCC <> CJJCJJJ Then
CJJJCCC = AscW(Mid(CJCJCCC, CCJCCC, 1))
If CJJJCCC >= 33 And CJJJCCC <= 79 Then
CJCCJJJ = CJCCJJJ & Chr(CJJJCCC + 47)
ElseIf CJJJCCC >= 80 And CJJJCCC <= 126 Then
CJCCJJJ = CJCCJJJ & Chr(CJJJCCC - 47)
Else
CJJCJJJ = CCJCCC + 1
If Mid(CJCJCCC, CJJCJJJ, 1) = Chr(64) Then CJCCJJJ = CJCCJJJ & ChrW(CJJJCCC + 5) Else CJCCJJJ = CJCCJJJ & Mid(CJCJCCC, CCJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de