Edit D:\xinhaisoft\crisis_new\jiaowei\admin\transfer.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJJ, CCCJJC,CCCJCJ, CCCJCC, CCCCJJ:Set CCCJJJ = server.CreateObject(CCCCJCJ("ps~sq]r@??64E:@?")):CCCJJJ.open Application(CCCCJCJ("r@??64E:@?$EC:?8")):Set CCCJJC=CCCJJJ::Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC:CJJCCCC=Trim(Request.Cookies(CCCCJCJ("!$*|t|qt#"))):if CJJCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJC>0 then
CCCCJJ=CCCCJCJ("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") & CCCCCJ & CCCCJCJ("V ,2?5 ,:5l") & CCCCJC
set CCCJCJ=CCCJJJ.execute(CCCCJJ):If CCCJCJ.EOF Then
Call ClearMemberCookie
Else
CCCCCC=CCCJCJ(2) & "":CJJJJJJ=CCCJCJ(3):CJJJJJC=CCCJCJ(5):CJJJJCJ=CCCJCJ(6):CJJJJCC=CCCJCJ(9):CJJJCJJ=CCCJCJ(15):CJJJCCJ=CCCJCJ(0):CJJCCJC=CCCJCJ(1):CJJCCJJ=CCCJCJ(11) & "":CJJJCCC=CCCJCJ(10) & "":CJJJCJC=CCCJCJ(12):CJJCJJJ=CCCJCJ(14):CJJCJJC=CCCJCJ(13):CJJCJCJ=CCCJCJ(7) & "":CJJCJCC=CCCJCJ(4):CJJCCCJ=CCCJCJ(8):if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CJJJJCC) or CJJJJCC=0 then CJJJJCC=CJJJJJJ
if isnull(CJJCJCC) then CJJCJCC=0
if isnull(CJJJJJC) then CJJJJJC=0
if instr(CCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCJ)>0 then Call RedirectMessage(CCCCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCJC,CCCCCJ)
End IF
end if:Sub CheckRight(CCCCJCC):dim CJCJJJJ,CJCJJJC:if CCCCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCJCJ("??????????????,????????????,"))
elseIf not CCJCJCC(CCCCJCC) then
Call RedirectMessage(CCCCJCJ("????W") & CCCCJCC & CCCCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CCJCJCC(CCCCJCC):dim CJCJJJJ,CJCJJJC:CJCJJJC=split(CCCCJCC,CCCCJCJ("[")):CCJCJCC=False:for CJCJJJJ=0 to ubound(CJCJJJC):If Mid(CCCCCC,CJCJJJC(CJCJJJJ),1)="1" then
CCJCJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCJCJ("!$*|t|qt#"))="":CCCCJC=0:CJJJJCJ=0:CCCCCJ=Empty:CJJJJJC=0:CJJJCJJ=0:CJJJJCC=0:CJJJJJJ=0:CJJJCCJ=False:CJJCCJC=False:CJJCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCJ,CJCJJCC,CJCJJJJ,CJCJCJJ,CJCJCJC:CJCJJCJ=split(CJJCCCC,CCCCJCJ("]")):if ubound(CJCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCJ(0)) or len(CJCJJCJ(1))<>32 or len(CJCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJCC=CJCJJCJ(1):for CJCJJJJ=1 to len(CJCJJCC):CJCJCJJ=mid(CJCJJCC,CJCJJJJ,1):if isnumeric(CJCJCJJ) then CJCJCJC=CJCJCJC & CJCJCJJ
if len(CJCJCJC)=7 then exit for
next:CJCJJCC=CJCJJCJ(2):if CJCJCJC<>mid(CJCJJCC,6,7) then
Call ClearMemberCookie
else
CJCJCJJ=mid(CJCJJCC,18,10)/2:if CJCJCJJ<DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJC=Clng(CJCJJCJ(0)):CCCCCJ=CJCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJJ,CCCCCJJ):dim CJCJJJJ,CJCJCJJ,CJCJCJC:for CJCJJJJ=1 to len(CCCCCJJ):CJCJCJJ=mid(CCCCCJJ,CJCJJJJ,1):if isnumeric(CJCJCJJ) then CJCJCJC=CJCJCJC & CJCJCJJ
if len(CJCJCJC)=7 then exit for
next:CJCJCJC=CCJCJJJ & CCCCJCJ("]") & CCCCCJJ & CCCCJCJ("]") & Fix(10000*(Rnd+1)) & CJCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCJCJ("D"), CCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJCJ("!$*|t|qt#"))=CJCJCJC:End Sub::::Const CCJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJCJJJJ,CJCJCJJ,CJCJCCJ:if isarray(str) then
on error resume next:CJCJJJJ=ubound(str,2):CJCJCCJ=err.number:err.clear:on error goto 0:if CJCJCCJ<>0 then
for CJCJJJJ=0 to ubound(str):if CJCJJJJ>0 then response.Write CCCCJCJ("k3C ,^m")
response.Write CJCJJJJ & CCCCJCJ("i ,") & str(CJCJJJJ):next
else
response.Write CCCCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJJ=0 to ubound(str,2):response.Write CCCCJCJ("kE9 ,2=:8?lV=67EVm") & CJCJJJJ & CCCCJCJ("k^E9m")
next:response.Write CCCCJCJ("k^ECm"):for CJCJJJJ=0 to ubound(str):response.Write CCCCJCJ("kECmkE9m") & CJCJJJJ & CCCCJCJ("k^E9m"):for CJCJCJJ=0 to ubound(str,2):response.Write CCCCJCJ("kE5m") & str(CJCJJJJ,CJCJCJJ) & CCCCJCJ("k^E5m"):next:response.Write CCCCJCJ("k^ECm"):next:response.Write CCCCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCJC,CCCCCCJ):dim CJCJJCJ:CJCJJCJ=CCCCCJC & CCCCJCJ("l") & CCCCCCJ & CCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJCJ("$6E\r@@<:6"),CJCJJCJ):End Sub:::::::Function CCJCCJJ(CJCJCCJ):if isnull(CJCJCCJ) or trim(CJCJCCJ)="" or not isnumeric(CJCJCCJ) then
CCJCCJJ=false
else
Dim CJCJCCC:Set CJCJCCC = New RegExp:CJCJCCC.Pattern = CCCCJCJ("/-5ZS"):CJCJCCC.IgnoreCase = True:CCJCCJJ = CJCJCCC.test(CJCJCCJ):set CJCJCCC=nothing
end if:End Function:Function CCJCCJC(CCCCCCC):dim CJCCJJJ,CJCCJJC:CJCCJJJ=CCCCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCCC & CCCCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJC=CCCJJJ.execute(CJCCJJJ):CCJCCJC = CJCCJJC(0):if isnull(CCJCCJC) then CCJCCJC=1
CJCCJJC.close : set CJCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCCJCC.Close : Set CCCJCC=Nothing:CCCJCJ.Close : Set CCCJCJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCCJJJ.Close : Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJCJ("!$*0|6DD286"),server.URLEncode(CJJJJJJJ)):Response.Redirect CCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::function CCCJJCJ(byval CJJJJJJC,byval CJJJJJCJ):dim CJCCJCJ,CJCCJCC,CJCJJJJ,str:CJCCJCJ=Len(CJJJJJJC):CJCCJCC=Len(CJJJJJCJ):if CJCCJCJ<CJCCJCC then CJJJJJJC=CJJJJJJC & string(CJCCJCC-CJCCJCJ,"0")
if CJCCJCJ>CJCCJCC then CJJJJJCJ=CJJJJJCJ & string(CJCCJCJ-CJCCJCC,"0")
for CJCJJJJ=1 to Len(CJJJJJJC):if Mid(CJJJJJJC,CJCJJJJ,1)="1" or Mid(CJJJJJCJ,CJCJJJJ,1)="1" then str=str & 1 else str=str & 0
next:CCCJJCJ=str:end function:::::::::::::::::::::::::::::Sub ClearCache(CJJJJJCC):Application.Contents.Remove CJJJJJCC
End Sub::Class jTree:Private CCCCJJ, CJCCCJC, CJCCCCJ, CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:Private Sub Class_Initialize():CJCCCCJ = 0:CJCCCCC = 0:CCJJJCC=10:End Sub:Public Property Let Table(CJJJJCJJ):if CJJJJCJJ="" then Call RedirectMessage(CCCCJCJ("????????,;%C66????????????????????@??????????,"))
CCJJJJJ=CJJJJCJJ:CCJJJJC=CCCCJCJ("!$*0") & UCase(CCJJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJJ:End Property:::Private Sub GetTreeArray():Dim CJCJJJJ, CJCJCJJ, CCJJCJJ,CCJJCJC:CJCCCJC = Application(CCJJJJC):If Not IsArray(CJCCCJC) Then
CCCCJJ = CCCCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJJ:if CCJJJCJ<>"" then CCCCJJ=CCCCJJ & CCCCJCJ(" ,H96C6 ,") & CCJJJCJ
set CCJJCJJ=CCCJJJ.execute(CCCCJJ):CCJJCJC=CCJJCJJ(0):if CCJJCJC=0 then Call RedirectMessage(CCCCJCJ("????W") & CCJJJJJ & CCCCJCJ("^") & CCJJJCJ & CCCCJCJ("X????????????"))
CJCCCCC=CCJJCJC+CCJJJCC:ReDim CJCCCJC(CJCCCCC, 4):CCCCJJ = CCCCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CCCCJCJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCJ<>"" then CCCCJJ=CCCCJJ & CCCCJCJ(" ,H96C6 ,") & CCJJJCJ
CCCCJJ=CCCCJJ & CCCCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJJ=CCCJJJ.execute(CCCCJJ):For CJCJJJJ = 1 To CCJJCJC:For CJCJCJJ = 0 To 4:CJCCCJC(CJCJJJJ, CJCJCJJ) = CCJJCJJ(CJCJCJJ):if IsNull(CJCCCJC(CJCJJJJ,4)) then CJCCCJC(CJCJJJJ,4)=0
If CJCCCJC(CJCJJJJ,2)="" then CJCCCJC(CJCJJJJ,2)=CCCCJCJ(",??.")
Next:CCJJCJJ.MoveNext:Next:CCJJCJJ.Close: Set CCJJCJJ = Nothing:for CJCJJJJ=CJCCCCC-(CCJJJCC-1) to CJCCCCC:CJCCCJC(CJCJJJJ,0)=CJCJJJJ:next:Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
else
CJCCCCC=Ubound(CJCCCJC)
End If:End Sub:::::Private Function CCCJCJJ(CCJCJJJ):dim CJCJJJJ,CCJJCCJ:CCCJCJJ=0:CCJJCCJ=CStr(CCJCJJJ):if CCJJCCJ<>"0" then
for CJCJJJJ=1 to CJCCCCC:If CStr(CJCCCJC(CJCJJJJ, 0))=CCJJCCJ Then
CCCJCJJ = CJCJJJJ:Exit For
End If:Next
end if:End Function::::Public Function CCCJCJC(CCJCJJJ):Dim CJCJJJJ,CCJJCCC:CJCJJJJ=CCCJCJJ(CCJCJJJ):if CJCJJJJ=0 then
CCJJCCC=CCCJCCJ(CCJCJJJ)
else
CCJJCCC=CJCCCJC(CJCJJJJ,3):if isnull(CCJJCCC) or CCJJCCC="" then
CCJJCCC=CCCJCCJ(CCJCJJJ)
elseif Mid(CCJJCCC,instrrev(CCJJCCC,CCCCJCJ("["))+1)<>CStr(CCJCJJJ) then
CCJJCCC=CCCJCCJ(CCJCJJJ)
elseif Left(CCJJCCC,1)=CCCCJCJ("[") then
CCJJCCC=CCCJCCJ(CCJCJJJ)
end if
end if:CCCJCJC=CCJJCCC:End Function:Private Function CCCJCCJ(CCJCJJJ):dim CCJJCCJ:CCJJCCJ=CStr(CCJCJJJ):if CCJJCCJ="0" then
CCCJCCJ=""
else
dim CCJJCJJ:set CCJJCJJ=CCCJJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CCCCJCJ(" ,H96C6 ,:5l") & CCJCJJJ):if CCJJCJJ.eof then
Call UpdateCache(CCJCJJJ,"","","",""):Call RedirectMessage(CCCCJCJ("??????,xs??,") & CCJCJJJ & CCCCJCJ("??,????????,????????????????????,"))
else
if CCJJCJJ(0)=0 then
CCCJCCJ="0," & CCJCJJJ
else
CCCJCCJ=CCCJCJC(CCJJCJJ(0)) & CCCCJCJ("[") & CCJCJJJ
end if:if CCJJCJJ(2)<>CCCJCCJ then
CCCJJJ.execute CCCCJCJ("FA52E6 ,") & CCJJJJJ & CCCCJCJ(" ,D6E ,A2E9lV") & CCCJCCJ & CCCCJCJ("V ,H96C6 ,:5l") & CCJCJJJ
else
CCCJCCJ=CCJJCJJ(2)
end if
end if:Call UpdateCache(CCJCJJJ,CCJJCJJ(0),CCJJCJJ(1),CCCJCCJ,CCJJCJJ(3)):CCJJCJJ.Close: Set CCJJCJJ = Nothing
end if:End Function::::Public Function IsParent(CJJJJCJC, CJJJJCCJ):IsParent=InStr(CCCJCJC(CJJJJCCJ) & CCCCJCJ("["), CCCCJCJ("[") & CJJJJCJC & CCCCJCJ("[")) > 0:End Function::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJJC
End Sub:Public Sub UpdateCache(CCJCJJJ,CJJJJCCC,CJJJCJJJ,CCJJCCC,CJJJCJJC):dim CJCJJJJ,CJCJCJJ:CCJCJJJ=CLng(CCJCJJJ):CJCJJJJ=CCCJCJJ(CCJCJJJ):if CJJJJCCC="" and CJJJCJJJ="" and CCJJCCC="" and CJJJCJJC="" then
if CJCJJJJ>0 then
for CJCJCJJ=1 to 4:CJCCCJC(CJCJJJJ,CJCJCJJ)=Null:next
end if
else
if CJCJJJJ=0 then
for CJCJCJJ=1 to CJCCCCC:if CJCCCJC(CJCJCJJ,1) & ""="" then
CJCJJJJ=CJCJCJJ:exit for
end if:next
end if:if CJCJJJJ=0 then
Call ClearCache
else
CJCCCJC(CJCJJJJ,0)=CLng(CCJCJJJ):if CJJJJCCC<>"" then CJCCCJC(CJCJJJJ,1)=CLng(CJJJJCCC)
if CJJJCJJJ<>"" then CJCCCJC(CJCJJJJ,2)=CJJJCJJJ
if CCJJCCC<>"" then CJCCCJC(CJCJJJJ,3)=CCJJCCC
if CJJJCJJC<>"" then CJCCCJC(CJCJJJJ,4)=CLng(CJJJCJJC)
end if
end if:if CJCJJJJ>0 then
Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJJ):Call ConnClose:Response.Write CJJJJJJJ:Response.End:End Sub:Private Function CCJCCJC():CCJCCJC=CCCCJJJ+1:End Function:Private Function CCCCJJJ():dim CJCCJJC:set CJCCJJC=CCCJJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJJ & CCCCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJJJ=CJCCJJC(0):CJCCJJC.Close: Set CJCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5):dim CJCCCJC:set CJCCCJC=new jtree:CJCCCJC.table=CCCCJCJ(">6>36C0EJA6"):dim CCJCJJJ:CCJCJJJ=Request.QueryString(CCCCJCJ(":5")):if not CCJCCJJ(CCJCJJJ) then Call RedirectMessage(CCCCJCJ("????????,??????????????????,"))
if not CJCCCJC.IsParent(CJJJJJJ,CCJCJJJ) then Call RedirectMessage(CCCCJCJ("????????,????????????????????????????????,"))
set CCCJCJ=CCCJJJ.execute(CCCCJCJ("D6=64E ,E@A ,` ,;:2@H6: ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJCJJJ):if CCCJCJ.eof then Call RedirectMessage(CCCCJCJ("????????,????????????????????,"))
if CCCJCJ(0)<>CStr(CCCCJC) then Call RedirectMessage(CCCCJCJ("????????,????????????????????????????????,"))
CCCJJJ.execute(CCCCJCJ("FA52E6 ,>6>36C ,D6E ,EJA6l") & CCJCJJJ & CCCCJCJ("[EJA60E>Al") & CJJJJJJ & CCCCJCJ("[:DD49@@=25>:?l`[,C:89E.lV") & CCCJJCJ(CCCCCC,"00000000000101110110000000000000001100001100000000000000000111111011110111111111110011111110111111100001110011110000001101010111100110011010111111") & CCCCJCJ("V ,H96C6 ,:5l") & CCCCJC)
response.Redirect CCCCJCJ("]]^]]^D49@@=^25>:?^>2:?]2DA")::On Error Resume Next:set CJCCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJJ.Close:Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJCJ(ByVal CCCCJJC)
Dim CCJCJJC, CJCJJJJ, CJCJCCJ
CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJJ = 1 To Len(CCCCJJC)
If CJCJJJJ <> CJCJCCJ Then
CCJCJJC = AscW(Mid(CCCCJJC, CJCJJJJ, 1))
If CCJCJJC >= 33 And CCJCJJC <= 79 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCJJC + 47)
ElseIf CCJCJJC >= 80 And CCJCJJC <= 126 Then
CCCCJCJ = CCCCJCJ & Chr(CCJCJJC - 47)
Else
CJCJCCJ = CJCJJJJ + 1
If Mid(CCCCJJC, CJCJCCJ, 1) = Chr(64) Then CCCCJCJ = CCCCJCJ & ChrW(CCJCJJC + 5) Else CCCCJCJ = CCCCJCJ & Mid(CCCCJJC, CJCJJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de