Edit D:\xinhaisoft\crisis_new\jiaowei\admin\welcome.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJCJJ, CJJCJC,CJJCCJ, CJJCCC, CJCJJJ:Set CJJCJJ = server.CreateObject(CJJCCCJ("ps~sq]r@??64E:@?")):CJJCJJ.open Application(CJJCCCJ("r@??64E:@?$EC:?8")):Set CJJCJC=CJJCJJ::Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC:CCCJCC=Trim(Request.Cookies(CJJCCCJ("!$*|t|qt#"))):if CCCJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJCJJC>0 then CJCJJJ=CJJCCCJ("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") & CJCJCJ & CJJCCCJ("V ,2?5 ,:5l") & CJCJJC set CJJCCJ=CJJCJJ.execute(CJCJJJ):If CJJCCJ.EOF Then Call ClearMemberCookie Else CJCJCC=CJJCCJ(2) & "":CJCCJJ=CJJCCJ(3):CJCCJC=CJJCCJ(5):CJCCCJ=CJJCCJ(6):CJCCCC=CJJCCJ(9):CCJJJJ=CJJCCJ(15):CCJJCJ=CJJCCJ(0):CCCJJC=CJJCCJ(1):CCCJJJ=CJJCCJ(11) & "":CCJJCC=CJJCCJ(10) & "":CCJJJC=CJJCCJ(12):CCJCJJ=CJJCCJ(14):CCJCJC=CJJCCJ(13):CCJCCJ=CJJCCJ(7) & "":CCJCCC=CJJCCJ(4):CCCJCJ=CJJCCJ(8):if isnull(CCJJJJ) then CCJJJJ=0 if isnull(CJCCCC) or CJCCCC=0 then CJCCCC=CJCCJJ if isnull(CCJCCC) then CCJCCC=0 if isnull(CJCCJC) then CJCCJC=0 if instr(CJJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCJ)>0 then Call RedirectMessage(CJJCCCJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJCJJC,CJCJCJ) End IF end if:Sub CheckRight(CJJCCCC):dim CCCCJJ,CCCCJC:if CJCJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCJ("??????????????,????????????,")) elseIf not CJJJCCJ(CJJCCCC) then Call RedirectMessage(CJJCCCJ("????W") & CJJCCCC & CJJCCCJ("X????????,????????????????????,")) end if:End Sub:Function CJJJCCJ(CJJCCCC):dim CCCCJJ,CCCCJC:CCCCJC=split(CJJCCCC,CJJCCCJ("[")):CJJJCCJ=False:for CCCCJJ=0 to ubound(CCCCJC):If Mid(CJCJCC,CCCCJC(CCCCJJ),1)="1" then CJJJCCJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCJ("!$*|t|qt#"))="":CJCJJC=0:CJCCCJ=0:CJCJCJ=Empty:CJCCJC=0:CCJJJJ=0:CJCCCC=0:CJCCJJ=0:CCJJCJ=False:CCCJJC=False:CCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCJ,CCCCCC,CCCCJJ,CJJJJJJ,CJJJJJC:CCCCCJ=split(CCCJCC,CJJCCCJ("]")):if ubound(CCCCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCCJ(0)) or len(CCCCCJ(1))<>32 or len(CCCCCJ(2))<>32 then Call ClearMemberCookie else CCCCCC=CCCCCJ(1):for CCCCJJ=1 to len(CCCCCC):CJJJJJJ=mid(CCCCCC,CCCCJJ,1):if isnumeric(CJJJJJJ) then CJJJJJC=CJJJJJC & CJJJJJJ if len(CJJJJJC)=7 then exit for next:CCCCCC=CCCCCJ(2):if CJJJJJC<>mid(CCCCCC,6,7) then Call ClearMemberCookie else CJJJJJJ=mid(CCCCCC,18,10)/2:if CJJJJJJ<DateDiff(CJJCCCJ("D"), CJJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJCJJC=Clng(CCCCCJ(0)):CJCJCJ=CCCCCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCJJJJ,CJCJJJC):dim CCCCJJ,CJJJJJJ,CJJJJJC:for CCCCJJ=1 to len(CJCJJJC):CJJJJJJ=mid(CJCJJJC,CCCCJJ,1):if isnumeric(CJJJJJJ) then CJJJJJC=CJJJJJC & CJJJJJJ if len(CJJJJJC)=7 then exit for next:CJJJJJC=CJCJJJJ & CJJCCCJ("]") & CJCJJJC & CJJCCCJ("]") & Fix(10000*(Rnd+1)) & CJJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJ("D"), CJJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJ("!$*|t|qt#"))=CJJJJJC:End Sub::::Const CJJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJCJ,CJCJJCC):dim CCCCCJ:CCCCCJ=CJCJJCJ & "=" & CJCJJCC & CJJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJ("$6E\r@@<:6"),CCCCCJ):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJJCCC.Close : Set CJJCCC=Nothing:CJJCCJ.Close : Set CJJCCJ=Nothing:CJJCCJJ.Close : Set CJJCCJJ = Nothing:CJJCJJ.Close : Set CJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJ("!$*0|6DD286"),server.URLEncode(CJCJCJJ)):Response.Redirect CJJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(5):Response.Write(vbCrLf):Response.Write(CJJCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCJ("k9625m") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJ("kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf):Response.Write(CJJCCCJ(" ,kEC ,384@=@ClQRset_ugQm") & vbCrLf):Response.Write(CJJCCCJ(" ,kE5mkE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf):Response.Write(CJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJ(" ,kE5mk:>8 ,DC4lQ:>286D^DE2CD]8:7Q ,H:5E9lQbaQ ,96:89ElQbaQ ,9DA246lQ`_Q ,2=:8?lQ23D>:55=6Qm")):Response.Write CCJCJC:Response.Write(CJJCCCJ("??,??????????????????????k^E5m") & vbCrLf):Response.Write(CJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJ(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJ("k^E23=6m") & vbCrLf)::dim CJJJJCJ,CJJJJCC(30),CCCCJJ:CJJJJCJ=Array(CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("??@????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("??????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????"),CJJCCCJ("????")):Randomize:for CCCCJJ=0 to 30:CJJJJCC(CCCCJJ)=Int(10000*Rnd):next:Response.Write(vbCrLf):Response.Write(CJJCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write join(CJJJJCJ,CJJCCCJ("M")):Response.Write(CJJCCCJ("Qm") & vbCrLf):Response.Write(CJJCCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write join(CJJJJCC,CJJCCCJ("M")):Response.Write(CJJCCCJ("Qm") & vbCrLf):Response.Write(CJJCCCJ("kP\\D4C:AE ,DC4lQ^$4C:AED^492CE06492CED];Dn4l>2AUKlC@>2UEl??????????,????????????,U9ld__Qmk^D4C:AE\\m") & vbCrLf):Response.Write(CJJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CJJCCC.Close:Set CJJCCC=Nothing:CJJCCJ.Close:Set CJJCCJ=Nothing:CJJCJJ.Close:Set CJJCJJ = Nothing:err.Clear:On Error Goto 0 Function CJJCCCJ(ByVal CJJCCJC) Dim CJJJJCC, CCCCJJ, CJJJCJJ CJJCCJC = Replace(CJJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCCJJ = 1 To Len(CJJCCJC) If CCCCJJ <> CJJJCJJ Then CJJJJCC = AscW(Mid(CJJCCJC, CCCCJJ, 1)) If CJJJJCC >= 33 And CJJJJCC <= 79 Then CJJCCCJ = CJJCCCJ & Chr(CJJJJCC + 47) ElseIf CJJJJCC >= 80 And CJJJJCC <= 126 Then CJJCCCJ = CJJCCCJ & Chr(CJJJJCC - 47) Else CJJJCJJ = CCCCJJ + 1 If Mid(CJJCCJC, CJJJCJJ, 1) = Chr(64) Then CJJCCCJ = CJJCCCJ & ChrW(CJJJJCC + 5) Else CJJCCCJ = CJJCCCJ & Mid(CJJCCJC, CCCCJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de