Edit D:\xinhaisoft\crisis_new\lb\mmpi3_report.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJCCJJC("ps~sq]r@??64E:@?")):CCJCC.open Application(CJCCJJC("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJCCJJC("!$*|t|qt#"))):if CCJJCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJJ>0 then CCCCC=CJCCJJC("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") & CJJJJC & CJCCJJC("V ,2?5 ,:5l") & CJJJJJ set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then Call ClearMemberCookie Else CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0 if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC if isnull(CJCCCJ) then CJCCCJ=0 if isnull(CJJCJJ) then CJJCJJ=0 if instr(CJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJCCJJC("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJJJ,CJJJJC) End IF end if:::Sub CheckLogined():if CJJJJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJCCJJC("D49@@="))):if isnumeric(CCJJCC) then response.Redirect CJCCJJC("^>^G2?E^R^D49@@=^") & CCJJCC & CJCCJJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJCCJJC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJJC("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:CCJCJJ=split(CCJJCJ,CJCCJJC("]")):if ubound(CCJCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then Call ClearMemberCookie else CCJCJC=CCJCJJ(1):for CCJCCJ=1 to len(CCJCJC):CCJCCC=mid(CCJCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC if len(CCCJJJ)=7 then exit for next:CCJCJC=CCJCJJ(2):if CCCJJJ<>mid(CCJCJC,6,7) then Call ClearMemberCookie else CCJCCC=mid(CCJCJC,18,10)/2:if CCJCCC<DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJJJ=Clng(CCJCJJ(0)):CJJJJC=CCJCJJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCCCC,CJCCJCJ):dim CCJCCJ,CCJCCC,CCCJJJ:for CCJCCJ=1 to len(CJCCJCJ):CCJCCC=mid(CJCCJCJ,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC if len(CCCJJJ)=7 then exit for next:CCCJJJ=CCCCCC & CJCCJJC("]") & CJCCJCJ & CJCCJJC("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJC("!$*|t|qt#"))=CCCJJJ:End Sub:::Function IIf(CJCCJCC, CJCCCJJ, CJCCCJC):if isnull(CJCCJCC) or isempty(CJCCJCC) then IIf = CJCCCJC elseif CJCCJCC Then IIf = CJCCCJJ Else IIf = CJCCCJC end if:End Function:Const CJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCJ,CJCCCCC):dim CCJCJJ:CCJCJJ=CJCCCCJ & "=" & CJCCCCC & CJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJC("$6E\r@@<:6"),CCJCJJ):End Sub:::::::Function CJJCCCC(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then CJJCCCC=false else Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJCCJJC("/-5ZS"):CCCJJC.IgnoreCase = True:CJJCCCC = CCCJJC.test(CJJCJJC):set CCCJJC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJCJCJC.Close : Set CJCJCJC = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJC("!$*0|6DD286"),server.URLEncode(CCJJJJJ)):Response.Redirect CJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::Function CJCJCCJ(CJJCJJC):Dim CCCJCJ, CCCJCC, CCCCJJ, CCCCJC, str:If Not CJJCCCC(CJJCJJC) or CJJCJJC=0 Then str=0 else CCCJCJ = Fix(CJJCJJC / 86400):CCCJCC = Fix((CJJCJJC - CCCJCJ * 86400) / 3600):CCCCJJ = Fix((CJJCJJC - CCCJCJ * 86400 - CCCJCC * 3600) / 60):CCCCJC = Fix(CJJCJJC - CCCJCJ * 86400 - CCCJCC * 3600 - CCCCJJ * 60):If CCCJCJ <> 0 Then str = CCCJCJ & CJCCJJC("??") If CCCJCC <> 0 Then str = str & CCCJCC & CJCCJJC("????") If CCCCJJ <> 0 Then str = str & CCCCJJ & CJCCJJC("??") if CCCCJC <> 0 Then str = str & CCCCJC & CJCCJJC("??") end if:CJCJCCJ = str:End Function::::::::::::::::::::::::::::::::::Call CheckLogined:Const CJJCCJJ=59:Const CJJCCJC="?????????????????":dim CCCCCC:CCCCCC=Request.QueryString("id"):if not CJJCCCC(CCCCCC) then RedirectMessage(CJCCJJC("????????,??????????????,")) set CCCJC=CCJCC.execute(CJCCJJC("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[25G:46[E6DE286[52E6E:>6[D6I[2?DH6C[D4@C60C2H[D4@C60E[9@H=@?8[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCCCC):if CCCJC.eof then RedirectMessage(CJCCJJC("????????,????????????????????????,")) dim CJJJJJJ,CJJJJJC,CCJCCJ,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJJC=split(CCCJC(7),CJCCJJC("M")):CJJJJJJ=split(CCCJC(8),CJCCJJC("M")):CJJJJCJ=split(CCCJC(10),CJCCJJC("M"))(14):CJJJJCC=CCCJC(6):CJJJCJJ=CCCJC(5):CJJJCJC=CCCJC(2) & "":for CCJCCJ=0 to 13:CJJJJJC(CCJCCJ)=cint(CJJJJJC(CCJCCJ)):CJJJJJJ(CCJCCJ)=cint(CJJJJJJ(CCJCCJ)):next:dim CJJJCCJ:Response.Write(vbCrLf):Response.Write(CJCCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJC("k9625m") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJC("kE:E=6m??????????????????????W||!xbXk^E:E=6m") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,L ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,A255:?8\E@Ai ,aC6>j ,A255:?8\3@EE@>i ,bC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,9` ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,]:??6C ,L>2C8:?i_ ,bC6>jN") & vbCrLf):Response.Write(CJCCJJC("7@@E6C ,L ,324<8C@F?5iRh53277j ,A@D:E:@?i7:I65j=67Ei_jC:89Ei_j3@EE@>i_j ,A255:?8idAIjN") & vbCrLf):Response.Write(CJCCJJC("7@@E6C ,]2>\7=L4@=@CiR777jN") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCCJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJC("7@@E6C[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("k^9625m") & vbCrLf):Response.Write(CJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k9`m??,??????????????????????W||!xbX??,????????k^9`m") & vbCrLf):Response.Write(CJCCJJC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write CCCJC(0):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write CCCJC(1):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write CCCJC(3):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write IIf(CJJJCJJ,CJCCJJC("??"),CJCCJJC("??")):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write CCCJC(4):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,??????,")):Response.Write CJCJCCJ(CCCJC(9)):Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,")):dim CJJJCCC:CJJJCCC=split(CJCCJJC("????????W""XM????W{XM????@WuXM????WzXM????@??WwDXM??????WsXM????WwJXM??????????????W!5XM????W|7XM??????????????W!2XM??????????W!EXM??????????W$4XM????W|2XM??????@????W$:XM????WpXM????W#XM??????????W|p$XM????????WtDXM??????WsJXM??????Ws@XM??????????W#6XM????W!CXM????????W$EXM??????Wr?X"),CJCCJJC("M")):Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,??????????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%??k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=0 to 3:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CCJCCJ+1:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,??????????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%??k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=4 to 13:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CCJCCJ-3:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,??????????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%??k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=14 to 23:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CCJCCJ-13:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9am??????k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,kD4C:AE ,DC4lQ^=3^492CE^>>A:b];Dn9lc__UGl")):Response.Write join(CJJJJJJ,CJCCJJC("[")):Response.Write(CJCCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC(" ,")):dim CJJCJJJ:if CJJJCJJ then CCCCC="9,11,13,15,17,21,23,25,27,29" else CCCCC="9,11,13,15,19,21,23,25,27,29" end if:CCCCC=CJCCJJC("D6=64E ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJJ & CJCCJJC(" ,2?5 ,D@CE ,:? ,W") & CCCCC & CJCCJJC("X ,@C56C ,3J ,D@CE"):set CCCJC=CCJCC.execute(CCCCC):CJJJCCJ="":for CCJCCJ=4 to 13:if CJJJJJJ(CCJCCJ)>70 then CJJCJJJ=CCCJC(1) & "":CJJJCCJ=CJJJCCJ & CJCCJJC("k9bm??,") & CCCJC(0) & CJCCJJC("??,k^9bmkAm%????,") & CJJJJJJ(CCJCCJ) & CJCCJJC("k^AmkAm") & replace(CJJCJJJ,vbcrlf,CJCCJJC("k^AmkAm")) & CJCCJJC("k^Am") end if:CCCJC.movenext:next:if CJJJCCJ<>"" then response.Write CJCCJJC("k9am????????k^9am") & CJJJCCJ if CJJJJCJ<>"" then set CCCJC=CCJCC.execute(CJCCJJC("D6=64E ,E@A ,` ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJJ & CJCCJJC(" ,2?5 ,W724E@Cl") & CJJJJCJ & CJCCJJC(" ,@C ,724E@Cl") & StrReverse(CJJJJCJ) & CJCCJJC("X")):if not CCCJC.eof then Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9am????,????k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,??????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write CJJJJCJ & CJCCJJC("^") & strreverse(CJJJJCJ):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,????????????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write CCCJC(0):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm??,??????????,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write replace(CCCJC(1),vbcrlf,CJCCJJC("k^AmkAm")):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,")):response.Write CJCCJJC("k9am????????k^9am") & CJCJCCC(CJJJJCC) End If End if:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJCCJJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJJCCJC:Response.Write(CJCCJJC("????????????k^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQ ,E:E=6lQ??????????????????,??????,????????????????Qmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,????????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,??????(@C5????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,??????k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJCCJJC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCJJC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJCCJJC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJCCJJC(" ,D6=64E@CiV9`[9a[9b[9c[9dV[") & vbCrLf):Response.Write(CJCCJJC(" ,E:E=6iV?? ,??V[") & vbCrLf):Response.Write(CJCCJJC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJCCJJC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJCCJJC(" ,NX") & vbCrLf):Response.Write(CJCCJJC("NX") & vbCrLf):Response.Write(CJCCJJC("k^D4C:AEm") & vbCrLf)::Function CJCJCCC(CJJJJCC):dim str,CCJCCJ,CCJCCC,CCCJJJ,CJJCJJC:CJJJJCC=split(CJCCJJC("M") & CJJJJCC,CJCCJJC("M")):CJJCJJC=ubound(CJJJJCC):str=CJCCJJC("kE23=6 ,H:5E9lV`__TV ,3@C56ClV_Vm") for CCJCCJ=1 to CJJCJJC step 10:str=str & CJCCJJC("kECm"):for CCJCCC=0 to 9:CCCJJJ=CCJCCJ+CCJCCC:str=str & CJCCJJC("kE5m") & CCCJJJ & CJCCJJC("] ,k3m") & CJJJJCC(CCCJJJ) & CJCCJJC("k^3mk^E5m"):if CCCJJJ=CJJCJJC then exit for next:str=str & CJCCJJC("k^ECm"):next:str=str & CJCCJJC("k^E23=6m"):CJCJCCC=str:end function:Response.Write(vbCrLf):Response.Write(CJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCJJC(ByVal CJCCJJJ) Dim CJJCJCJ, CCJCCJ, CJJCJJC CJCCJJJ = Replace(CJCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCCJ = 1 To Len(CJCCJJJ) If CCJCCJ <> CJJCJJC Then CJJCJCJ = AscW(Mid(CJCCJJJ, CCJCCJ, 1)) If CJJCJCJ >= 33 And CJJCJCJ <= 79 Then CJCCJJC = CJCCJJC & Chr(CJJCJCJ + 47) ElseIf CJJCJCJ >= 80 And CJJCJCJ <= 126 Then CJCCJJC = CJCCJJC & Chr(CJJCJCJ - 47) Else CJJCJJC = CCJCCJ + 1 If Mid(CJCCJJJ, CJJCJJC, 1) = Chr(64) Then CJCCJJC = CJCCJJC & ChrW(CJJCJCJ + 5) Else CJCCJJC = CJCCJJC & Mid(CJCCJJJ, CCJCCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de