Edit D:\xinhaisoft\crisis_new\admin\member\right.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CJCCJCC("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CJCCJCC("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CJCCJCC("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJCJCJ=CJCCJCC("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") & CJCCJJ & CJCCJCC("V ,2?5 ,:5l") & CJCJCC
set CJCJJJ=CJJCCJ.execute(CJCJCJ):If CJCJJJ.EOF Then
Call ClearMemberCookie
Else
CJCCJC=CJCJJJ(2) & "":CJCCCJ=CJCJJJ(3):CJCCCC=CJCJJJ(5):CCJJJJ=CJCJJJ(6):CCJJJC=CJCJJJ(9):CCJJCJ=CJCJJJ(15):CCJCJJ=CJCJJJ(0):CCCJCC=CJCJJJ(1):CCCJCJ=CJCJJJ(11) & "":CCJCJC=CJCJJJ(10) & "":CCJJCC=CJCJJJ(12):CCJCCJ=CJCJJJ(14):CCJCCC=CJCJJJ(13):CCCJJJ=CJCJJJ(7) & "":CCCJJC=CJCJJJ(4):CCCCJJ=CJCJJJ(8):if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CCJJJC) or CCJJJC=0 then CCJJJC=CJCCCJ
if isnull(CCCJJC) then CCCJJC=0
if isnull(CJCCCC) then CJCCCC=0
if instr(CJCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CJCCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CJCCCJJ):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCC("??????????????,????????????,"))
elseIf not CJCJJJC(CJCCCJJ) then
Call RedirectMessage(CJCCJCC("????W") & CJCCCJJ & CJCCJCC("X????????,????????????????????,"))
end if:End Sub:Function CJCJJJC(CJCCCJJ):dim CCCCCJ,CCCCCC:CCCCCC=split(CJCCCJJ,CJCCJCC("[")):CJCJJJC=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CJCJJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJCC("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCCJ,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJC,CJCCJCC("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CCCCCJ=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ<DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CJJJJJJ(0)):CJCCJJ=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJJ,CJCCCJC):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CJCCCJC):CJJJJCJ=mid(CJCCCJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CJJCJJJ & CJCCJCC("]") & CJCCCJC & CJCCJCC("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCC("!$*|t|qt#"))=CJJJJCC:End Sub::Function CJCJJCJ(CJCCCCJ):Dim str,CJJJCJC:str = Trim(CJCCCCJ):If IsNull(str) Or str = "" Then
CJCJJCJ = ""
else
str=Replace(str, CJCCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJCC("k:7C2>6"), CJCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJCC("kD4C:AE"), CJCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCJC=new RegExp:CJJJCJC.Pattern=CJCCJCC("@?W,2\K.ZXl"):CJJJCJC.IgnoreCase = True:CJJJCJC.Global=True:str=CJJJCJC.Replace(str,CJCCJCC("@?S`U6BF2=Dj")):set CJJJCJC=nothing:CJCJJCJ=str
End If:End Function:Function IIf(CJCCCCC, CCJJJJJ, CCJJJJC):if isnull(CJCCCCC) or isempty(CJCCCCC) then
IIf = CCJJJJC
elseif CJCCCCC Then
IIf = CCJJJJJ
Else
IIf = CCJJJJC
end if:End Function:Const CJCJJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJJCJ,CCJJJCC):dim CJJJJJJ:CJJJJJJ=CCJJJCJ & "=" & CCJJJCC & CJCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCC("$6E\r@@<:6"),CJJJJJJ):End Sub::::::::Function CJCJCJJ(CCJJCJJ):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CJCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJCJJ & CJCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCCJ.execute(CJJJCCJ):CJCJCJJ = CJJJCCC(0):if isnull(CJCJCJJ) then CJCJCJJ=1
CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CJCCJJC.Close : Set CJCCJJC = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCC("!$*0|6DD286"),server.URLEncode(CCJJCJC)):Response.Redirect CJCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(22):dim CJJCJJJ,CJJCJJC:CJJCJJC=Request.QueryString(CJCCJCC("EJA6`:5")):If Request.ServerVariables(CJCCJCC("#t""&t$%0|t%w~s"))=CJCCJCC("!~$%") then
dim CJJCJCJ:CJJCJCJ=Trim(Request.Form(CJCCJCC("24E"))):CJJCJJJ=Trim(Request.Form(CJCCJCC(":5"))):select case CJJCJCJ:case CJCCJCC("255"):Call RedirectMessage(CJCCJCC("????????,??????????????????,????????,??????,??@??????,")):CJCJCJ=CJCCJCC(":?D6CE ,:?E@ ,>6>36C0C:89EW:5[?2>6[:?EC@[D@CE[EJA6`[EJA6aX ,G2=F6DW") & CJCJCJJ(CJCCJCC(">6>36C0C:89E")) & CJCCJCC("[V") & CJCJJCJ(Request.Form(CJCCJCC("?2>6"))) & CJCCJCC("V") & CJCCJCC("[V") & CJCJJCJ(Request.Form(CJCCJCC(":?EC@"))) & CJCCJCC("V") & CJCCJCC("[") & CJCJJCJ(Request.Form(CJCCJCC("D@CE"))) & CJCCJCC("[") & CJCJJCJ(Request.Form(CJCCJCC("EJA6`"))) & CJCCJCC("[") & CJCJJCJ(Request.Form(CJCCJCC("EJA6a"))) & CJCCJCC("X")
case CJCCJCC(">@5"):CJCJCJ=CJCCJCC("FA52E6 ,>6>36C0C:89E ,D6E") & CJCCJCC(" ,?2>6lV") & CJCJJCJ(Request.Form(CJCCJCC("?2>60") & CJJCJJJ)) & CJCCJCC("V") & CJCCJCC("[:?EC@lV") & CJCJJCJ(Request.Form(CJCCJCC(":?EC@0") & CJJCJJJ)) & CJCCJCC("V") & CJCCJCC("[D@CEl") & CJCJJCJ(Request.Form(CJCCJCC("D@CE0") & CJJCJJJ)) & CJCCJCC("[EJA6`l") & CJCJJCJ(Request.Form(CJCCJCC("EJA6`0") & CJJCJJJ)) & CJCCJCC("[EJA6al") & CJCJJCJ(Request.Form(CJCCJCC("EJA6a0") & CJJCJJJ)) & CJCCJCC(" ,H96C6 ,:5l") & CJJCJJJ
CJJCCJ.execute(CJCJCJ):end select:CJJCJCJ=""
End If:dim CJJCJCC,CJJCCJJ,CCCCCJ:CJJCJCC=Array(CJCCJCC("????"),CJCCJCC("????????"),CJCCJCC("????"),CJCCJCC("????????"),CJCCJCC("????????")):CJJCCJJ=Array(CJCCJCC("??"),CJCCJCC("????????"),CJCCJCC("????????"),CJCCJCC("????????"),CJCCJCC("????????"),CJCCJCC("????????"),CJCCJCC("??????@??"),CJCCJCC("????????"),CJCCJCC("????????")):Response.Write(vbCrLf):Response.Write(CJCCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJCC("k9625m") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k5:G ,4=2DDlQE:E=6Qm????k^5:Gm") & vbCrLf):Response.Write(CJCCJCC("kF= ,4=2DDlQE23Qm") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,")):Response.Write  IIf(CJJCJJC="0",CJCCJCC(" ,4=2DDlV4FCC6?EV"),"")
Response.Write(CJCCJCC("mk2 ,9C67lQnEJA6`:5l_Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,")):Response.Write  IIf(CJJCJJC="1",CJCCJCC(" ,4=2DDlV4FCC6?EV"),"")
Response.Write(CJCCJCC("mk2 ,9C67lQnEJA6`:5l`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,")):Response.Write  IIf(CJJCJJC="3",CJCCJCC(" ,4=2DDlV4FCC6?EV"),"")
Response.Write(CJCCJCC("mk2 ,9C67lQnEJA6`:5lbQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,")):Response.Write  IIf(CJJCJJC="4",CJCCJCC(" ,4=2DDlV4FCC6?EV"),"")
Response.Write(CJCCJCC("mk2 ,9C67lQnEJA6`:5lcQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,")):Response.Write  IIf(CJJCJJC="2",CJCCJCC(" ,4=2DDlV4FCC6?EV"),"")
Response.Write(CJCCJCC("mk2 ,9C67lQnEJA6`:5laQm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????`k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ??????????????????????????????????,????????????????????????Qm????aWnXk^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")):dim CJJJJCJ,CJJCCJC:CCCCCJ=1:CJCJCJ=CJCCJCC("D6=64E ,:5[?2>6[:?EC@[D@CE[EJA6`[EJA6a ,7C@> ,>6>36C0C:89E"):if CJJCJJC<>"" then CJCJCJ=CJCJCJ & CJCCJCC(" ,H96C6 ,EJA6`l") & CJJCJJC
CJCJCJ=CJCJCJ & CJCCJCC(" ,@C56C ,3J ,EJA6`[EJA6a[D@CE"):set CJCJJJ=CJJCCJ.execute(CJCJCJ):while not CJCJJJ.eof:CJJCJJJ=CJCJJJ(0):CJJCCJC=CJJCCJC & CJCCJCC("[") & CJJCJJJ:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>60")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write  CJCJJJ(1):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ:?EC@0")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CJCJJJ(2):Response.Write(CJCCJCC("Q ,D:K6lQf_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmkD6=64E ,?2>6lQEJA6`0")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Qm") & vbCrLf):Response.Write(CJCCJCC(" ,")):for CJJJJCJ=0 to ubound(CJJCJCC):response.write CJCCJCC("k@AE:@? ,G2=F6lV") & CJJJJCJ & CJCCJCC("V")
if CJJJJCJ=CJCJJJ(4) then response.write CJCCJCC(" ,D6=64E65")
response.write CJCCJCC("m") & CJJCJCC(CJJJJCJ) & CJCCJCC("k^@AE:@?m"):next:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmkD6=64E ,?2>6lQEJA6a0")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Qm") & vbCrLf):Response.Write(CJCCJCC(" ,")):for CJJJJCJ=0 to ubound(CJJCCJJ):response.write CJCCJCC("k@AE:@? ,G2=F6lV") & CJJJJCJ & CJCCJCC("V")
if CJJJJCJ=CJCJJJ(5) then response.write CJCCJCC(" ,D6=64E65")
response.write CJCCJCC("m") & CJJCCJJ(CJJJJCJ) & CJCCJCC("k^@AE:@?m"):next:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CE0")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQdQ ,G2=F6lQ")):Response.Write  CJCJJJ(3):Response.Write(CJCCJCC("Q ,E:E=6lQ????????Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ;2G2D4C:AEi7@C>`]24E]G2=F6lV>@5Vj7@C>`]:5]G2=F6lV")):Response.Write  CJJCJJJ:Response.Write(CJCCJCC("Vj7@C>`]DF3>:EWXQm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")):CJCJJJ.movenext:CCCCCJ=CCCCCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ:?EC@Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQf_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmkD6=64E ,?2>6lQEJA6aQm") & vbCrLf):Response.Write(CJCCJCC(" ,")):for CJJJJCJ=0 to ubound(CJJCJCC):response.write CJCCJCC("k@AE:@? ,G2=F6lV") & CJJJJCJ & CJCCJCC("V")
if cstr(CJJJJCJ)=CJJCJJC then response.write CJCCJCC(" ,D6=64E65")
response.write CJCCJCC("m") & CJJCJCC(CJJJJCJ) & CJCCJCC("k^@AE:@?m"):next:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCCJCC(" ,kD6=64E ,?2>6lQEJA6aQm") & vbCrLf):Response.Write(CJCCJCC(" ,")):for CJJJJCJ=0 to ubound(CJJCCJJ):response.write CJCCJCC("k@AE:@? ,G2=F6lV") & CJJJJCJ & CJCCJCC("Vm") & CJJCCJJ(CJJJJCJ) & CJCCJCC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,E:E=6lQ????????Q ,G2=F6lQ")):Response.Write  CCCCCJ:Response.Write(CJCCJCC("Q ,D:K6lQdQmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmkP\\k2 ,9C67lQ;2G2D4C:AEi7@C>`]24E]G2=F6lV255Vj7@C>`]DF3>:EWXQm????k^2m\\mk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ24EQ ,:5lQ24EQm") & vbCrLf):Response.Write(CJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ:5Q ,:5lQ:5Qm") & vbCrLf):Response.Write(CJCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ:5=:DEQ ,G2=F6lQ")):Response.Write  mid(CJJCCJC,2):Response.Write(CJCCJCC("Qm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCCJCC(" ,^^ ,xs????") & vbCrLf):Response.Write(CJCCJCC(" ,SWVR3E?\:5VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCC(" ,G2C ,2CClSWVR:5=:DEVX]G2=WX") & vbCrLf):Response.Write(CJCCJCC(" ,2CCly$~}]A2CD6WV,VZ2CCZV.VX") & vbCrLf):Response.Write(CJCCJCC(" ,2CC]D@CEW7F?4E:@?W2[3XLC6EFC? ,2\3NX") & vbCrLf):Response.Write(CJCCJCC(" ,=2J6C]2=6CEW2CC];@:?WXX") & vbCrLf):Response.Write(CJCCJCC(" ,NX") & vbCrLf):Response.Write(CJCCJCC("NX") & vbCrLf):Response.Write(CJCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJC=nothing:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJCC(ByVal CJCCJCJ)
Dim CJJCCCJ, CCCCCJ, CJJCCCC
CJCCJCJ = Replace(CJCCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CJCCJCJ)
If CCCCCJ <> CJJCCCC Then
CJJCCCJ = AscW(Mid(CJCCJCJ, CCCCCJ, 1))
If CJJCCCJ >= 33 And CJJCCCJ <= 79 Then
CJCCJCC = CJCCJCC & Chr(CJJCCCJ + 47)
ElseIf CJJCCCJ >= 80 And CJJCCCJ <= 126 Then
CJCCJCC = CJCCJCC & Chr(CJJCCCJ - 47)
Else
CJJCCCC = CCCCCJ + 1
If Mid(CJCCJCJ, CJJCCCC, 1) = Chr(64) Then CJCCJCC = CJCCJCC & ChrW(CJJCCCJ + 5) Else CJCCJCC = CJCCJCC & Mid(CJCCJCJ, CCCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de