Edit D:\xinhaisoft\crisis_new\admin\lb\makeone.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJC, CJJJCCJ,CJJJCCC, CJJCJJJ, CJJCJJC:Set CJJJCJC = server.CreateObject(CCCJCCC("ps~sq]r@??64E:@?")):CJJJCJC.open Application(CCCJCCC("r@??64E:@?$EC:?8")):Set CJJJCCJ=CJJJCJC::Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:Dim CJCCJJC,CJCCJCJ,CJCCJCC:Dim CJCCCJJ:CJCCCJJ=Trim(Request.Cookies(CCCJCCC("!$*|t|qt#"))):if CJCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJCJ>0 then
CJJCJJC=CCCJCCC("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") & CJJCJCC & CCCJCCC("V ,2?5 ,:5l") & CJJCJCJ
set CJJJCCC=CJJJCJC.execute(CJJCJJC):If CJJJCCC.EOF Then
Call ClearMemberCookie
Else
CJJCCJJ=CJJJCCC(2) & "":CJJCCJC=CJJJCCC(3):CJJCCCJ=CJJJCCC(5):CJJCCCC=CJJJCCC(6):CJCJJJJ=CJJJCCC(9):CJCJJJC=CJJJCCC(15):CJCJJCC=CJJJCCC(0):CJCCJCJ=CJJJCCC(1):CJCCJJC=CJJJCCC(11) & "":CJCJCJJ=CJJJCCC(10) & "":CJCJJCJ=CJJJCCC(12):CJCJCJC=CJJJCCC(14):CJCJCCJ=CJJJCCC(13):CJCJCCC=CJJJCCC(7) & "":CJCCJJJ=CJJJCCC(4):CJCCJCC=CJJJCCC(8):if isnull(CJCJJJC) then CJCJJJC=0
if isnull(CJCJJJJ) or CJCJJJJ=0 then CJCJJJJ=CJJCCJC
if isnull(CJCCJJJ) then CJCCJJJ=0
if isnull(CJJCCCJ) then CJJCCCJ=0
if instr(CCCJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCC)>0 then Call RedirectMessage(CCCJCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJCJ,CJJCJCC)
End IF
end if:Sub CheckRight(CCCCJJJ):dim CJCCCJC,CJCCCCJ:if CJJCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJCCC("??????????????,????????????,"))
elseIf not CCJCCJJ(CCCCJJJ) then
Call RedirectMessage(CCCJCCC("????W") & CCCCJJJ & CCCJCCC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCJJ(CCCCJJJ):dim CJCCCJC,CJCCCCJ:CJCCCCJ=split(CCCCJJJ,CCCJCCC("[")):CCJCCJJ=False:for CJCCCJC=0 to ubound(CJCCCCJ):If Mid(CJJCCJJ,CJCCCCJ(CJCCCJC),1)="1" then
CCJCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJCCC("!$*|t|qt#"))="":CJJCJCJ=0:CJJCCCC=0:CJJCJCC=Empty:CJJCCCJ=0:CJCJJJC=0:CJCJJJJ=0:CJJCCJC=0:CJCJJCC=False:CJCCJCJ=False:CJCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCCC,CCJJJJJ,CJCCCJC,CCJJJJC,CCJJJCJ:CJCCCCC=split(CJCCCJJ,CCCJCCC("]")):if ubound(CJCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCCC(0)) or len(CJCCCCC(1))<>32 or len(CJCCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJJ=CJCCCCC(1):for CJCCCJC=1 to len(CCJJJJJ):CCJJJJC=mid(CCJJJJJ,CJCCCJC,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJJJ=CJCCCCC(2):if CCJJJCJ<>mid(CCJJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJJC=mid(CCJJJJJ,18,10)/2:if CCJJJJC<DateDiff(CCCJCCC("D"), CCCJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJCJ=Clng(CJCCCCC(0)):CJJCJCC=CJCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CCCCJJC):dim CJCCCJC,CCJJJJC,CCJJJCJ:for CJCCCJC=1 to len(CCCCJJC):CCJJJJC=mid(CCCCJJC,CJCCCJC,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJCJ=CCJCJJC & CCCJCCC("]") & CCCCJJC & CCCJCCC("]") & Fix(10000*(Rnd+1)) & CCJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJCCC("D"), CCCJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCCC("!$*|t|qt#"))=CCJJJCJ:End Sub::::Const CCJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJCJ,CCCCJCC):dim CJCCCCC:CJCCCCC=CCCCJCJ & "=" & CCCCJCC & CCCJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCCC("$6E\r@@<:6"),CJCCCCC):End Sub:::::::Function CCJCCJC(CCJCJJJ):if isnull(CCJCJJJ) or trim(CCJCJJJ)="" or not isnumeric(CCJCJJJ) then
CCJCCJC=false
else
Dim CCJJJCC:Set CCJJJCC = New RegExp:CCJJJCC.Pattern = CCCJCCC("/-5ZS"):CCJJJCC.IgnoreCase = True:CCJCCJC = CCJJJCC.test(CCJCJJJ):set CCJJJCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCCJJCJ.close : set CCCJJCJ=nothing:CJJCJJJ.Close : Set CJJCJJJ=Nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CCCJJCC.Close : Set CCCJJCC = Nothing:CJJJCJC.Close : Set CJJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCCC("!$*0|6DD286"),server.URLEncode(CCCCCJJ)):Response.Redirect CCCJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::Function CCCJCJC(ByVal URL,ByVal CCCJCJJ,Data)
Dim CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ:if left(Url,7)<>CCCJCCC("9EEAi^^") then Url=CCCJCCC("9EEAi^^") & request.ServerVariables(CCCJCCC("$t#'t#0}p|t")) & CCCJCCC("i") & request.ServerVariables(CCCJCCC("$t#'t#0!~#%")) & Url
CCCJCJJ=Ucase(CCCJCJJ):Set CCJJCJJ = Server.CreateObject(CCCJCCC("|DI>=a]$6CG6C)|{w%%!")):CCJJCJJ.Open CCCJCJJ, Url, False:if CCCJCJJ=CCCJCCC("!~$%") then CCJJCJJ.setRequestHeader CCCJCCC("r@?E6?E\%JA6"),CCCJCCC("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CCJJCJJ.Send Data:if err then Call RedirectMessage(CCCJCCC("$6CG6C)|{w%%!\tCC@C\,") & CCCJCJJ & CCCJCCC(".") & Url & CCCJCCC("i ,") & err.description)
On Error Goto 0:if CCJJCJJ.Readystate <> 4 or CCJJCJJ.Status<>200 then
CCJJCCJ = ""
else
CCJJCCJ = CCJJCJJ.ResponseText
end if:Set CCJJCJJ = Nothing:CCCJCJC=CCJJCCJ
End Function::::::::::::::::::Sub CreateTextFile(CCCCCJC, CCCCCCJ):if isnull(CCCCCCJ) or CCCCCCJ="" then Call RedirectMessage(CCCJCCC("????????,??????????@????????,??????????????,"))
dim CCJJCJC:Set CCJJCJC = Server.CreateObject(CCCJCCC("ps~sq]$EC62>")):With CCJJCJC:.Type=2:.Mode=3:.Charset = CCCJCCC("FE7\g"):.Open:.WriteText CCCCCCJ:.SaveToFile server.mappath(CCCCCJC),2:.Close:End With:Set CCJJCJC = Nothing:End Sub:::::::::::Call CheckRight(13):dim CCJCJJC:CCJCJJC=Request.QueryString(CCCJCCC(":5")):if not CCJCCJC(CCJCJJC) then
response.Write "1"
else
Call CreateTextFile(CCCJCCC("]]^]]^=3^9E>=^") & CCJCJJC & CCCJCCC("]9E>"),CCCJCJC(CCCJCCC("^=3^:?4^D9@HE6DE]2DAn=3:5l") & CCJCJJC,CCCJCCC("v6E"),""))
response.Write "0"
end if::On Error Resume Next:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJJCJJJ.Close:Set CJJCJJJ=Nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCJC.Close:Set CJJJCJC = Nothing:err.Clear:On Error Goto 0
Function CCCJCCC(ByVal CCCJCCJ)
Dim CCJCJCJ, CJCCCJC, CCJCJJJ
CCCJCCJ = Replace(CCCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJC = 1 To Len(CCCJCCJ)
If CJCCCJC <> CCJCJJJ Then
CCJCJCJ = AscW(Mid(CCCJCCJ, CJCCCJC, 1))
If CCJCJCJ >= 33 And CCJCJCJ <= 79 Then
CCCJCCC = CCCJCCC & Chr(CCJCJCJ + 47)
ElseIf CCJCJCJ >= 80 And CCJCJCJ <= 126 Then
CCCJCCC = CCCJCCC & Chr(CCJCJCJ - 47)
Else
CCJCJJJ = CJCCCJC + 1
If Mid(CCCJCCJ, CCJCJJJ, 1) = Chr(64) Then CCCJCCC = CCCJCCC & ChrW(CCJCJCJ + 5) Else CCCJCCC = CCCJCCC & Mid(CCCJCCJ, CJCCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de