Edit D:\xinhaisoft\crisis_new\lb\report_dept\sasc.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CCCJCJJ("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCCJCJJ("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCCJCJJ("!$*|t|qt#"))):if CJJCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJCC>0 then CCCJCJ=CCCJCJJ("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") & CCCCJJ & CCCJCJJ("V ,2?5 ,:5l") & CCCJCC set CCCJJJ=CCJCCJ.execute(CCCJCJ):If CCCJJJ.EOF Then Call ClearMemberCookie Else CCCCJC=CCCJJJ(2) & "":CCCCCJ=CCCJJJ(3):CCCCCC=CCCJJJ(5):CJJJJJJ=CCCJJJ(6):CJJJJJC=CCCJJJ(9):CJJJJCJ=CCCJJJ(15):CJJJCJJ=CCCJJJ(0):CJJCJCC=CCCJJJ(1):CJJCJCJ=CCCJJJ(11) & "":CJJJCJC=CCCJJJ(10) & "":CJJJJCC=CCCJJJ(12):CJJJCCJ=CCCJJJ(14):CJJJCCC=CCCJJJ(13):CJJCJJJ=CCCJJJ(7) & "":CJJCJJC=CCCJJJ(4):CJJCCJJ=CCCJJJ(8):if isnull(CJJJJCJ) then CJJJJCJ=0 if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ if isnull(CJJCJJC) then CJJCJJC=0 if isnull(CCCCCC) then CCCCCC=0 if instr(CCCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CCCJCJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CCCJCC,CCCCJJ) End IF end if:::Sub CheckLogined():if CCCJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCCCJ:CJJCCCJ=trim(request.QueryString(CCCJCJJ("D49@@="))):if isnumeric(CJJCCCJ) then response.Redirect CCCJCJJ("^>^G2?E^R^D49@@=^") & CJJCCCJ & CCCJCJJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCCJCJJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJCJJ("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:CJJCCCC=split(CJJCCJC,CCCJCJJ("]")):if ubound(CJJCCCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCCCC(0)) or len(CJJCCCC(1))<>32 or len(CJJCCCC(2))<>32 then Call ClearMemberCookie else CJCJJJJ=CJJCCCC(1):for CJCJJJC=1 to len(CJCJJJJ):CJCJJCJ=mid(CJCJJJJ,CJCJJJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ if len(CJCJJCC)=7 then exit for next:CJCJJJJ=CJJCCCC(2):if CJCJJCC<>mid(CJCJJJJ,6,7) then Call ClearMemberCookie else CJCJJCJ=mid(CJCJJJJ,18,10)/2:if CJCJJCJ<DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCJCC=Clng(CJJCCCC(0)):CCCCJJ=CJJCCCC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCCJCC,CCCJCJC):dim CJCJJJC,CJCJJCJ,CJCJJCC:for CJCJJJC=1 to len(CCCJCJC):CJCJJCJ=mid(CCCJCJC,CJCJJJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ if len(CJCJJCC)=7 then exit for next:CJCJJCC=CJCCJCC & CCCJCJJ("]") & CCCJCJC & CCCJCJJ("]") & Fix(10000*(Rnd+1)) & CJCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCJJ("!$*|t|qt#"))=CJCJJCC:End Sub::::Const CCJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJCCJ,CCCJCCC):dim CJJCCCC:CJJCCCC=CCCJCCJ & "=" & CCCJCCC & CCCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCJJ("$6E\r@@<:6"),CJJCCCC):End Sub:::::::Function CCJCJJC(CJCCJJC):if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) then CCJCJJC=false else Dim CJCJCJJ:Set CJCJCJJ = New RegExp:CJCJCJJ.Pattern = CCCJCJJ("/-5ZS"):CJCJCJJ.IgnoreCase = True:CCJCJJC = CJCJCJJ.test(CJCCJJC):set CJCJCJJ=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CCJCCCJ.close : set CCJCCCJ=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CCJCCCC.Close : Set CCJCCCC = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCJJ("!$*0|6DD286"),server.URLEncode(CCCCJJJ)):Response.Redirect CCCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::::::::::::::::::::::::Public Function CCCJJJJ(CJCCJJC):dim CJCJCJC:if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) or instr(CJCCJJC,CCCJCJJ("\"))>0 or instr(CJCCJJC,CCCJCJJ("]"))>0 or len(CJCCJJC)<6 then CJCJCJC="" else CJCJCJC=CJCCJJC:CJCJCJC=Left(CJCJCJC,Len(CJCJCJC)-2):if Right(CJCCJJC,2)=CCCJJCJ(CJCJCJC) then CJCJCJC=CCCJJJC(CJCJCJC):CJCJCJC=Left(CJCJCJC,Len(CJCJCJC)-2):if Left(CJCJCJC,1)="0" then CJCJCJC=Mid(CJCJCJC,2) else CJCJCJC="" end if end if:CCCJJJJ=CJCJCJC:End Function:Private Function CCCJJJC(str):Dim CJCJCCJ, CJCJJJC, CJCJJCC, CJCJCCC, CJCCJJJ, CJCCJJC,CJCJCJC:CJCJCCC = Len(str):For CJCJJJC = 1 To CJCJCCC:CJCJJCC = CInt(Mid(str, CJCJJJC, 1)):If CJCJJCC < 5 Then CJCJJCC = CJCJJCC + 5 Else CJCJJCC = CJCJJCC - 5 CJCJCCJ = CJCJCCJ & CJCJJCC:Next:For CJCJJJC = 1 To CJCJCCC - 1 Step 2:CJCCJJJ = Mid(CJCJCCJ, CJCJJJC, 1):CJCCJJC = Mid(CJCJCCJ, CJCJJJC + 1, 1):CJCJCJC = CJCJCJC & CJCCJJC & CJCCJJJ:Next:CCCJJJC = StrReverse(CJCJCJC):End Function:Private Function CCCJJCJ(CCCCJCJ):Dim CJCJCCC, CJCJJJC, CJCCJJC, CJCJCCJ:CJCJCCC = Len(CCCCJCJ):CJCCJJC = 0:For CJCJJJC = 1 To CJCJCCC:CJCJCCJ = CInt(Mid(CCCCJCJ, CJCJJJC, 1)):If CJCJJJC Mod 2 = 0 Then CJCCJJC = CJCCJJC + CJCJCCJ * 3 Else CJCCJJC = CJCCJJC + CJCJCCJ Next:CJCCJJC = CJCCJJC Mod 100:CJCCJJC = 100 - CJCCJJC:CCCJJCJ = Right("0" & CJCCJJC, 2):End Function::dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,redirect:CJCCJCJ=Request.QueryString(CCCJCJJ(":5")):CJCCCJJ=Request.QueryString(CCCJCJJ("6I")):CJCCCJC=Request.QueryString(CCCJCJJ("324<")):redirect=Request.QueryString(CCCJCJJ("C65:C64E")):CJCCJCC=CCCJJJJ(CJCCJCJ):if not CCJCJJC(CJCCJCC) then Call CheckLogined:if not CCJCJJC(CJCCJCJ) then Call RedirectMessage(CCCJCJJ("????????,??????????????,")) CCCJCJ=CCCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,:5l") & CJCCJCJ & CCCJCJJ(" ,2?5 ,>6>36Cl") & CCCJCC else CCCJCJ=CCCJCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,:5l") & CJCCJCC end if:set CCCJJJ=CCJCCJ.execute(CCCJCJ):if CCCJJJ.eof then Call RedirectMessage(CCCJCJJ("????????,????????????????????????,")) dim CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:CJCCCCC=CCCJJJ(CCCJCJJ("=3")):if CJCCCJJ="2" or CJCCCJJ="3" or CJCCCJJ="4" then CCJJJJJ=CCCJJJ(CCCJCJJ("6IA=2:?") & CJCCCJJ) & "" if CCJJJJJ="" then CCJJJJJ=CCCJJJ(CCCJCJJ("6IA=2:?")) & "" if CCCJJJ(CCCJCJJ(">6>36C"))=4 then CCJJJCJ=CCCJCJJ(",????.") else CCJJJCJ=CCCJJJ(CCCJCJJ("C62=?2>6")) if CJCCCCC=90 or CJCCCCC=198 then CCJJJJC=CCCJJJ(CCCJCJJ("D4@C6056E2:=")) & "" dim CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:set CCCJJC=CCJCCJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,C6A@CE02EE6?E:@?[C6A@CE0@E96C[A:4EFC6[:?EC@a[:?EC@` ,7C@> ,=3 ,H96C6 ,:5l") & CJCCCCC):CCJJJCC=CCCJJC(0) & "":CCJJCJJ=CCCJJC(1) & "":CCJJCJC=CCCJJC(2) & "":CCJJCCJ=CCCJJC(3) & "":if CCJJCCJ="" then CCJJCCJ=CCCJJC(4) & "" Response.Write(vbCrLf):Response.Write(CCCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJCJJ("k9625m") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJCJJ("kE:E=6m")):Response.Write CCCJJJ(CCCJCJJ("=3?2>67C")):Response.Write(CCCJCJJ("k^E:E=6m") & vbCrLf):Response.Write(CCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("3@5J ,L324<8C@F?5\4@=@CiRbbbjN") & vbCrLf):Response.Write(CCCJCJJ("]2>\4@?E2:?6C ,L>2I\H:5E9igd_AIjN") & vbCrLf):Response.Write(CCCJCJJ("2CE:4=6 ,LA255:?8\E@Aic]dC6>j ,A255:?8\3@EE@>ibC6>j ,324<8C@F?5iFC=W^=3^:>286D^C6A@CE\38\E@A];A8X ,46?E6C ,E@A^4@?E2:? ,?@\C6A62E[Ru`uhuq ,FC=W^=3^:>286D^C6A@CE\38\3@EE@>];A8X ,46?E6C ,3@EE@>^4@?E2:? ,?@\C6A62EjN") & vbCrLf):Response.Write(CCCJCJJ("]A2?6= ,L324<8C@F?5\4@=@CiC832Wadd[add[add[_]eXj ,3@C56C\C25:FDi`_AIj ,A255:?8i`C6>j ,>2C8:?\3@EE@>i_]dC6>j ,3@C56Ci`AI ,D@=:5 ,R777jN") & vbCrLf):Response.Write(CCCJCJJ("9` ,L4@=@CiR__htguj ,7@?E\D:K6i`]bC6>jN") & vbCrLf):Response.Write(CCCJCJJ("9a ,L4@=@CiR__htguj ,7@?E\D:K6i`]aC6>jN") & vbCrLf):Response.Write(CCCJCJJ("9b ,L4@=@CiR__htguj ,7@?E\D:K6i`]`C6>j ,7@?E\H6:89Ei?@C>2=jN") & vbCrLf):Response.Write(CCCJCJJ("@=[ ,F=LA255:?8\=67Ei:?96C:EjN") & vbCrLf):Response.Write(CCCJCJJ("9C ,L96:89Ei_j ,>2C8:?i`C6> ,2FE@j ,@G6C7=@Hi9:556?j ,4=62Ci3@E9j ,3@C56C\E@Ai`AI ,52D965 ,ReeqsgfjN") & vbCrLf):Response.Write(CCCJCJJ("2D:56 ,LA@D:E:@?i7:I65j ,H:5E9i`d_AIj ,=67Ei_j ,E@Aic]cC6>j ,4@=@CiR777jN") & vbCrLf):Response.Write(CCCJCJJ("]E:E=6 ,L324<8C@F?5\4@=@CiReeqsgfj ,E6IE\2=:8?i46?E6Cj ,7@?E\H6:89Ei3@=5j ,96:89EibdAIj ,=:?6\96:89EibdAIj ,3@C56C\C25:FDidAI ,dAI ,_ ,_j ,K\:?56Ii`j ,A@D:E:@?iC6=2E:G6jN") & vbCrLf):Response.Write(CCCJCJJ("]DBF2C6 ,L324<8C@F?5\4@=@CiReeqsgfj ,H:5E9ia_AIj ,96:89Eia_AIj ,=67EiedAIj ,E@Aia_AIj ,A@D:E:@?i23D@=FE6j ,EC2?D7@C>iC@E2E6Wcd568Xj ,3@C56Ci`AI ,D@=:5 ,RgcsbshjN") & vbCrLf):Response.Write(CCCJCJJ("]:E6> ,L324<8C@F?5\4@=@CiRedrgs_j ,A255:?8ibAI ,`C6>j ,3@C56C\E@Ai`AI ,D@=:5 ,Rgcsbshj ,4FCD@CiA@:?E6Cj ,7@?E\D:K6i_]hC6>jN") & vbCrLf):Response.Write(CCCJCJJ("]:E6>i9@G6C ,L324<8C@F?5\4@=@CiRgcsbshjN") & vbCrLf):Response.Write(CCCJCJJ("]7@@E6CL324<8C@F?5\4@=@CiRagq_qdj ,3@C56C\C25:FDi_ ,_ ,dAI ,dAIj ,3@C56C\E@Ai`AI ,D@=:5 ,Rgcsbshj ,A255:?8idAIj ,E6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CCCJCJJ("R3E?\324< ,LA@D:E:@?i23D@=FE6j ,4@=@CiR777j ,=67Ei_j ,E@Ai_jN") & vbCrLf):Response.Write(CCCJCJJ("^Y ,???????? ,Y^") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,L ,3@C56C\E@Ai ,aAI ,D@=:5 ,Reeej ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,3@C56C\4@==2AD6i ,4@==2AD6j ,H:5E9i ,`__Tj ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,E9[ ,]E30DE2E ,E5 ,L ,3@C56Ci ,`AI ,D@=:5 ,Reeej ,A255:?8i ,bAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,E9 ,L ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Reeej ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,E9i7:CDE\49:=5[ ,]E30DE2E ,E5i7:CDE\49:=5 ,L ,3@C56C\=67Ei ,?@?6j ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,E9i=2DE\49:=5[ ,]E30DE2E ,E5i=2DE\49:=5 ,L ,3@C56C\C:89Ei ,?@?6j ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,]E6IE\=67E ,L ,E6IE\2=:8?i ,=67Ej ,N") & vbCrLf):Response.Write(CCCJCJJ("]E30DE2E ,]E6IE\C:89E ,L ,E6IE\2=:8?i ,C:89Ej ,N") & vbCrLf):Response.Write(CCCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("k^9625m") & vbCrLf):Response.Write(CCCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CCCJCJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQA2?6=Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQ2>\8 ,2>\8\4@==2AD6Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\gQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k9` ,4=2DDlQ2>\3=@4< ,2>\E6IE\ECF?42E6Qm")):Response.Write CCCJJJ(CCCJCJJ("=3?2>67C")):Response.Write(CCCJCJJ("k^9`m") & vbCrLf):Response.Write(CCCJCJJ(" ,??????@??,")):Response.Write CCJJJCJ:Response.Write(CCCJCJJ("k3Cm") & vbCrLf):Response.Write(CCCJCJJ(" ,??????????,")):Response.Write CCCJJJ(CCCJCJJ("52E6E:>6")):Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\cQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,DEJ=6lQ96:89EihhAIj324<8C@F?5iFC=W")):Response.Write CCJJCJC:Response.Write(CCCJCJJ("X ,46?E6C ,46?E6C^4@G6C ,?@\C6A62EjQmk^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQC6A@CE\>2C<5@H?Q ,52E2\4@?E6?ElQ2EE6?E:@?Qmk5:G ,DEJ=6lQE6IE\2=:8?i46?E6CjQmk:>8 ,DC4lQ^:>286D^=@25:?8]8:7Qmk^5:Gmk^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,")):if CCJJJJC<>"" then Response.Write CCCJCJJ("k5:G ,4=2DDlVA2?6=Vmk9am????????k^9am") & CCJJJJC & CCCJCJJ("k^5:Gm") if CCJJJJJ<>"" then Response.Write CCCJCJJ("k5:G ,4=2DDlVA2?6=Vmk9am????????k^9amkAm") & replace(CCJJJJJ,vbcrlf,CCCJCJJ("k^AmkAm")) & CCCJCJJ("k^Amk^5:Gm") Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQC6A@CE\>2C<5@H?Q ,52E2\4@?E6?ElQ@E96CQmk5:G ,DEJ=6lQE6IE\2=:8?i46?E6CjQmk:>8 ,DC4lQ^:>286D^=@25:?8]8:7Qmk^5:Gmk^5:Gm") & vbCrLf):Response.Write(CCCJCJJ("k^2CE:4=6m") & vbCrLf)::if CJCCCJC="1" or CJCCCJJ<>"3" then Response.Write(vbCrLf):Response.Write(CCCJCJJ("k2D:56 ,4=2DDlQ2>\D9@H\>5\FA ,2>\9:56Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQE:E=6Qm????????k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,:5lQ9a\=:DEQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQ:E6>Qm????????k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQDBF2C6Qmk^5:Gm") & vbCrLf):Response.Write(CCCJCJJ(" ,k5:G ,4=2DDlQ7@@E6CQm") & vbCrLf):Response.Write(CCCJCJJ(" ,")):if redirect<>"" then Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k2 ,9C67lQ")):Response.Write redirect:Response.Write(CCCJCJJ("Q ,4=2DDlQ2>\3E? ,2>\3E?\H2C?:?8 ,2>\3E?\9@==@H ,2>\3E?\IDQmk: ,4=2DDlQ2>\:4@?\2?8=6\=67EQmk^:m ,????k^2m") & vbCrLf):Response.Write(CCCJCJJ(" ,")) elseif CJCCCJC="1" then Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,4=2DDlQ2>\3E? ,2>\3E?\H2C?:?8 ,2>\3E?\9@==@H ,2>\3E?\IDQmk: ,4=2DDlQ2>\:4@?\2?8=6\=67EQmk^:m ,????k^2m") & vbCrLf):Response.Write(CCCJCJJ(" ,")) end if:Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCJJ("k^2D:56m") & vbCrLf) end if:Response.Write(vbCrLf):Response.Write(CCCJCJJ("kP\\ ,???????????????????? ,\\m") & vbCrLf):Response.Write(CCCJCJJ("k2 ,:5lQ3E?\324<Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,4=2DDlQ2>\3E? ,2>\3E?\=:?< ,2>\3E?\ID ,2>\D9@H\D>\5@H?Qmk: ,4=2DDlQ2>\:4@?\496GC@?\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCCJCJJ("kE6IE2C62 ,:5lQC6A@CE\2EE6?E:@?Q ,4=2DDlQ2>\9:56Qm")):Response.Write CCJJJCC:Response.Write(CCCJCJJ("k^E6IE2C62m") & vbCrLf):Response.Write(CCCJCJJ("kE6IE2C62 ,:5lQC6A@CE\@E96CQ ,4=2DDlQ2>\9:56Qm")):Response.Write CCJJCJJ:Response.Write(CCCJCJJ("k^E6IE2C62m") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^>2C<65]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("^Y ,8=@32= ,>2C<65 ,Y^") & vbCrLf):Response.Write(CCCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCCJCJJ(" ,SWV5:G]C6A@CE\>2C<5@H?VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCJJ(" ,G2C ,9E>=lSWVRC6A@CE\VZSWE9:DX]52E2WV4@?E6?EVXX]G2=WX") & vbCrLf):Response.Write(CCCJCJJ(" ,:7W9E>=XL") & vbCrLf):Response.Write(CCCJCJJ(" ,9E>=l9E>=]C6A=246W^O^8[V--OVX") & vbCrLf):Response.Write(CCCJCJJ(" ,9E>=l>2C<65W9E>=[L3C62<DiECF6[96256Cx5Di72=D6NX") & vbCrLf):Response.Write(CCCJCJJ(" ,9E>=l9E>=]C6A=246W^,-CM-?M-Fb___.^8[VVX") & vbCrLf):Response.Write(CCCJCJJ(" ,9E>=l9E>=]C6A=246W^k9am^8[Vk^5:Gmk5:G ,4=2DDlQA2?6=Qmk9amVX") & vbCrLf):Response.Write(CCCJCJJ(" ,9E>=l9E>=]DF3DEC:?8WeXZVk^5:GmV") & vbCrLf):Response.Write(CCCJCJJ(" ,SWE9:DX]9E>=W9E>=X") & vbCrLf):Response.Write(CCCJCJJ(" ,N") & vbCrLf):Response.Write(CCCJCJJ(" ,6=D6LSWE9:DX]6>AEJWXN") & vbCrLf):Response.Write(CCCJCJJ(" ,NX") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CCCJCJJ(" ,SWH:?5@HX]@?WVC6D:K6V[7F?4E:@?WXLSWV2D:56VX]4DDWV=67EV[7F?4E:@?WXLC6EFC? ,SWV2CE:4=6VX]@77D6EWX]=67E\SWE9:DX]@FE6C(:5E9WX\dNX]C6>@G6r=2DDWV2>\9:56VXNX]EC:886CWVC6D:K6VX") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCCJCJJ(" ,SWV9aVX]6249W7F?4E:@?WXLSWVR9a\=:DEVX]2AA6?5WVk5:G ,4=2DDlQ:E6>QmVZSWE9:DX]E6IEWXZVk^5:GmVXNX") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCCJCJJ(" ,SWV2D:56VX]7:?5WV5:G]:E6>VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCJJ(" ,G2C ,?lSWE9:DX]:?56IWX") & vbCrLf):Response.Write(CCCJCJJ(" ,G2C ,AlSWV5:G]A2?6=VX]6BW?X]A@D:E:@?WX]E@A") & vbCrLf):Response.Write(CCCJCJJ(" ,SWH:?5@HX]D>@@E9$4C@==WLA@D:E:@?iANX") & vbCrLf):Response.Write(CCCJCJJ(" ,NX") & vbCrLf):Response.Write(CCCJCJJ("NX") & vbCrLf):Response.Write(CCCJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCCJCJJ(ByVal CCCJJCC) Dim CCJJCCC, CJCJJJC, CJCCJJC CCCJJCC = Replace(CCCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJJC = 1 To Len(CCCJJCC) If CJCJJJC <> CJCCJJC Then CCJJCCC = AscW(Mid(CCCJJCC, CJCJJJC, 1)) If CCJJCCC >= 33 And CCJJCCC <= 79 Then CCCJCJJ = CCCJCJJ & Chr(CCJJCCC + 47) ElseIf CCJJCCC >= 80 And CCJJCCC <= 126 Then CCCJCJJ = CCCJCJJ & Chr(CCJJCCC - 47) Else CJCCJJC = CJCJJJC + 1 If Mid(CCCJJCC, CJCCJJC, 1) = Chr(64) Then CCCJCJJ = CCCJCJJ & ChrW(CCJJCCC + 5) Else CCCJCJJ = CCCJCJJ & Mid(CCCJJCC, CJCJJJC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de