Edit D:\xinhaisoft\crisis_new\admin\member\lbselect.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CJCJJJJ("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CJCJJJJ("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC:CCJCCC=Trim(Request.Cookies(CJCJJJJ("!$*|t|qt#"))):if CCJCCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCJC>0 then CJJCJJ=CJCJJJJ("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") & CJJCCJ & CJCJJJJ("V ,2?5 ,:5l") & CJJCJC set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then Call ClearMemberCookie Else CJJCCC=CJJJCJ(2) & "":CJCJJJ=CJJJCJ(3):CJCJJC=CJJJCJ(5):CJCJCJ=CJJJCJ(6):CJCJCC=CJJJCJ(9):CJCCJJ=CJJJCJ(15):CJCCCJ=CJJJCJ(0):CCJCJC=CJJJCJ(1):CCJCJJ=CJJJCJ(11) & "":CJCCCC=CJJJCJ(10) & "":CJCCJC=CJJJCJ(12):CCJJJJ=CJJJCJ(14):CCJJJC=CJJJCJ(13):CCJJCJ=CJJJCJ(7) & "":CCJJCC=CJJJCJ(4):CCJCCJ=CJJJCJ(8):if isnull(CJCCJJ) then CJCCJJ=0 if isnull(CJCJCC) or CJCJCC=0 then CJCJCC=CJCJJJ if isnull(CCJJCC) then CCJJCC=0 if isnull(CJCJJC) then CJCJJC=0 if instr(CJCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJ)>0 then Call RedirectMessage(CJCJJJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJCJC,CJJCCJ) End IF end if::::Sub ClearMemberCookie():Response.Cookies(CJCJJJJ("!$*|t|qt#"))="":CJJCJC=0:CJCJCJ=0:CJJCCJ=Empty:CJCJJC=0:CJCCJJ=0:CJCJCC=0:CJCJJJ=0:CJCCCJ=False:CCJCJC=False:CCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:CCCJJJ=split(CCJCCC,CJCJJJJ("]")):if ubound(CCCJJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCJJJ(0)) or len(CCCJJJ(1))<>32 or len(CCCJJJ(2))<>32 then Call ClearMemberCookie else CCCJJC=CCCJJJ(1):for CCCJCJ=1 to len(CCCJJC):CCCJCC=mid(CCCJJC,CCCJCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC if len(CCCCJJ)=7 then exit for next:CCCJJC=CCCJJJ(2):if CCCCJJ<>mid(CCCJJC,6,7) then Call ClearMemberCookie else CCCJCC=mid(CCCJJC,18,10)/2:if CCCJCC<DateDiff(CJCJJJJ("D"), CJCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJCJC=Clng(CCCJJJ(0)):CJJCCJ=CCCJJJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJJJCJ,CJCJJJC):dim CCCJCJ,CCCJCC,CCCCJJ:for CCCJCJ=1 to len(CJCJJJC):CCCJCC=mid(CJCJJJC,CCCJCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC if len(CCCCJJ)=7 then exit for next:CCCCJJ=CJJJJCJ & CJCJJJJ("]") & CJCJJJC & CJCJJJJ("]") & Fix(10000*(Rnd+1)) & CCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJJ("D"), CJCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJJ("!$*|t|qt#"))=CCCCJJ:End Sub:::Function IIf(CJCJJCJ, CJCJJCC, CJCJCJJ):if isnull(CJCJJCJ) or isempty(CJCJJCJ) then IIf = CJCJCJJ elseif CJCJJCJ Then IIf = CJCJJCC Else IIf = CJCJCJJ end if:End Function:Const CJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCJC,CJCJCCJ):dim CCCJJJ:CCCJJJ=CJCJCJC & "=" & CJCJCCJ & CJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJJ("$6E\r@@<:6"),CCCJJJ):End Sub::::::sub ShowMessage(CJCJCCC):response.Charset=CJCJJJJ("FE7\g"):Response.Write CJCJJJJ("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") & CJCJCCC & CJCJJJJ("k^5:Gmk^5:Gmk3Cm") end sub::::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CCCCJC.close : set CCCCJC=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CJJCCJJ.Close : Set CJJCCJJ = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJJ("!$*0|6DD286"),server.URLEncode(CJCJCCC)):Response.Redirect CJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCCJC():Dim CCCCJC, CCCCCJ(), CCCJCJ, CCCJCC, CCCCCC,CJJJJJJ:If Not IsArray(Application(CJCJJJJ("!$*0%6DED"))) Then CJJCJJ=CJCJJJJ("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 CCCCJC=server.createobject(CJCJJJJ("25@53]C64@C5D6E")):CCCCJC.open CJJCJJ,CJJJJJ,1:CCCCCC = CCCCJC.RecordCount:CJJJJJJ=CCCCJC.fields.count-1:ReDim CCCCCJ(CCCCCC, CJJJJJJ):If CCCCCC > 0 Then For CCCJCJ = 1 To CCCCCC:For CCCJCC = 0 To CJJJJJJ:if CCCJCC=4 or CCCJCC=6 or CCCJCC=19 then CCCCCJ(CCCJCJ, CCCJCC) = CJJCCCJ(CCCCJC(CCCJCC)) else CCCCCJ(CCCJCJ, CCCJCC) = CCCCJC(CCCJCC):if CCCCJC(CCCJCC).type<>11 and isnull(CCCCCJ(CCCJCJ, CCCJCC)) then CCCCCJ(CCCJCJ, CCCJCC)="" end if:Next:CCCCJC.MoveNext:Next End If:CCCCJC.Close: Set CCCCJC = Nothing:Application(CJCJJJJ("!$*0%6DED")) = CCCCCJ End If:CJJCCJC = Application(CJCJJJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CJJCCCJ(CJCCJJJ):if isnull(CJCCJJJ) then CJJCCCJ="" else On Error Resume Next:CJJCCCJ=CJCCJJJ:if err.number=-2147352567 then CJJCCCJ="":err.Clear end if end if:End Function::::::dim CJJJJJC,CCCCCJ:CJJJJJC=Trim(Request.QueryString(CJCJJJJ("@"))):CCCCCJ=Trim(Request.QueryString(CJCJJJJ("=3"))):if CJJJJJC="" then Call ConnClose:Call Showmessage(CJCJJJJ("????????,??????????????,")):response.end end if:CCCCCJ=CJCJJJJ("[") & CCCCCJ & CJCJJJJ("["):Response.Write(vbCrLf):Response.Write(CJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJJ("k9625m") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJJJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJJJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJJJJ("3@5J ,L ,>2C8:?i ,dAIj ,N") & vbCrLf):Response.Write(CJCJJJJ("E5 ,F= ,=: ,L ,5:DA=2Ji ,:?=:?6\3=@4<j ,N") & vbCrLf):Response.Write(CJCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJJ("k^9625m") & vbCrLf):Response.Write(CJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5 ,:5lQE\8C@FAQm") & vbCrLf):Response.Write(CJCJJJJ(" ,k:>8 ,DC4lQ]]^]]^:>286D^=@25:?8]8:7Qm") & vbCrLf):Response.Write(CJCJJJJ(" ,kE6>A=2E6m") & vbCrLf):Response.Write(CJCJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJCJJJJ(" ,LL6249NN") & vbCrLf):Response.Write(CJCJJJJ(" ,k=:mk2 ,9C67lQ;2G2D4C:AEi4964<WVLLSG2=F6NNVXQmLLS:?56INNk^2mk^=:m") & vbCrLf):Response.Write(CJCJJJJ(" ,LL^6249NN") & vbCrLf):Response.Write(CJCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^E6>A=2E6m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQmk:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi~zWXQmk^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJ(" ,")):dim CJJJJCJ,CCCJCJ,CJJJJCC:CJJJJCC=CJJCCJC:for CCCJCJ=1 to ubound(CJJJJCC):if CJJJJCC(CCCJCJ,8)="" then CJJJJCJ=CJJJJCC(CCCJCJ,0):Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,:5lQ430")):Response.Write CJJJJCJ:Response.Write(CJCJJJJ("Q ,G2=F6lQ")):Response.Write CJJJJCJ:Response.Write(CJCJJJJ("Q ,")):Response.Write IIf(instr(CCCCCJ,CJCJJJJ("[") & CJJJJCJ & CJCJJJJ("[")),CJCJJJJ("4964<65"),""):Response.Write(CJCJJJJ("mk^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5m")):Response.Write CJJJJCC(CCCJCJ,1):Response.Write(CJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5m")):Response.Write CJJJJCC(CCCJCJ,2):Response.Write(CJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJJJJCJ:Response.Write(CJCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ@Q ,G2=F6lQ")):Response.Write CJJJJJC:Response.Write(CJCJJJJ("Qm") & vbCrLf):Response.Write(CJCJJJJ("k^7@C>m") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AE ,DC4lQEJA60=30=:DE];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJJJJ(" ,SWVRE\8C@FAVX]E6>A=2E6W52E2X") & vbCrLf):Response.Write(CJCJJJJ("NX") & vbCrLf):Response.Write(CJCJJJJ("^^ ,????") & vbCrLf):Response.Write(CJCJJJJ("7F?4E:@? ,~zWXL") & vbCrLf):Response.Write(CJCJJJJ(" ,G2C ,@lSWVR@VX]G2=WX") & vbCrLf):Response.Write(CJCJJJJ(" ,G2C ,=3lSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJCJJJJ(" ,A2C6?E]5@4F>6?E]86Et=6>6?EqJx5W@X]G2=F6l=3") & vbCrLf):Response.Write(CJCJJJJ(" ,A2C6?E]=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCJJJJ("N") & vbCrLf):Response.Write(CJCJJJJ("^^ ,????????????") & vbCrLf):Response.Write(CJCJJJJ("7F?4E:@? ,4964<W=3XL") & vbCrLf):Response.Write(CJCJJJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CJCJJJJ(" ,G2C ,4964<2==lSWVR4964<2==VX") & vbCrLf):Response.Write(CJCJJJJ(" ,:7W4964<2==]AC@AWV4964<65VXXL4964<2==]4=:4<WXN") & vbCrLf):Response.Write(CJCJJJJ(" ,6=D6L4964<2==]4=:4<WX]4=:4<WXN") & vbCrLf):Response.Write(CJCJJJJ(" ,^^ ,????") & vbCrLf):Response.Write(CJCJJJJ(" ,=3l=3]DA=:EWV[VX") & vbCrLf):Response.Write(CJCJJJJ(" ,S]6249W=3[7F?4E:@?W:?56I[G2=F6XLSWVR430VZG2=F6X]4=:4<WXNX") & vbCrLf):Response.Write(CJCJJJJ("N") & vbCrLf):Response.Write(CJCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJJJJ(ByVal CJJCCCC) Dim CJJJCJJ, CCCJCJ, CJJJCJC CJJCCCC = Replace(CJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJCJ = 1 To Len(CJJCCCC) If CCCJCJ <> CJJJCJC Then CJJJCJJ = AscW(Mid(CJJCCCC, CCCJCJ, 1)) If CJJJCJJ >= 33 And CJJJCJJ <= 79 Then CJCJJJJ = CJCJJJJ & Chr(CJJJCJJ + 47) ElseIf CJJJCJJ >= 80 And CJJJCJJ <= 126 Then CJCJJJJ = CJCJJJJ & Chr(CJJJCJJ - 47) Else CJJJCJC = CCCJCJ + 1 If Mid(CJJCCCC, CJJJCJC, 1) = Chr(64) Then CJCJJJJ = CJCJJJJ & ChrW(CJJJCJJ + 5) Else CJCJJJJ = CJCJJJJ & Mid(CJJCCCC, CCCJCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de