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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CJJCCCC("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJJCCCC("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJCCCC("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
CJJJJJ=CJJCCCC("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") & CJJJCJ & CJJCCCC("V ,2?5 ,:5l") & CJJJJC
set CCCCJ=CCCJJ.execute(CJJJJJ):If CCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCC=CCCCJ(2) & "":CJJCJJ=CCCCJ(3):CJJCJC=CCCCJ(5):CJJCCJ=CCCCJ(6):CJJCCC=CCCCJ(9):CJCJJJ=CCCCJ(15):CJCJCJ=CCCCJ(0):CCJJJC=CCCCJ(1):CCJJJJ=CCCCJ(11) & "":CJCJCC=CCCCJ(10) & "":CJCJJC=CCCCJ(12):CJCCJJ=CCCCJ(14):CJCCJC=CCCCJ(13):CJCCCJ=CCCCJ(7) & "":CJCCCC=CCCCJ(4):CCJJCJ=CCCCJ(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CJJCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJJCCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:Sub CheckRight(CCCCJJ):dim CCJCJJ,CCJCJC:if CJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCC("??????????????,????????????,"))
elseIf not CJJJCJC(CCCCJJ) then
Call RedirectMessage(CJJCCCC("????W") & CCCCJJ & CJJCCCC("X????????,????????????????????,"))
end if:End Sub:Function CJJJCJC(CCCCJJ):dim CCJCJJ,CCJCJC:CCJCJC=split(CCCCJJ,CJJCCCC("[")):CJJJCJC=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then
CJJJCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCJ,CCJCCC,CCJCJJ,CCCJJJ,CCCJJC:CCJCCJ=split(CCJJCC,CJJCCCC("]")):if ubound(CCJCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCCJ(0)) or len(CCJCCJ(1))<>32 or len(CCJCCJ(2))<>32 then
Call ClearMemberCookie
else
CCJCCC=CCJCCJ(1):for CCJCJJ=1 to len(CCJCCC):CCCJJJ=mid(CCJCCC,CCJCJJ,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCJCCC=CCJCCJ(2):if CCCJJC<>mid(CCJCCC,6,7) then
Call ClearMemberCookie
else
CCCJJJ=mid(CCJCCC,18,10)/2:if CCCJJJ<DateDiff(CJJCCCC("D"), CJJCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCJCCJ(0)):CJJJCJ=CCJCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJ,CJCJJJJ):dim CCJCJJ,CCCJJJ,CCCJJC:for CCJCJJ=1 to len(CJCJJJJ):CCCJJJ=mid(CJCJJJJ,CCJCJJ,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCCJJC=CJJJJJJ & CJJCCCC("]") & CJCJJJJ & CJJCCCC("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCC("D"), CJJCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCC("!$*|t|qt#"))=CCCJJC:End Sub:::Function IIf(CJCJJJC, CJCJJCJ, CJCJJCC):if isnull(CJCJJJC) or isempty(CJCJJJC) then
IIf = CJCJJCC
elseif CJCJJJC Then
IIf = CJCJJCJ
Else
IIf = CJCJJCC
end if:End Function:Const CJJJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCJJ,CJCJCJC):dim CCJCCJ:CCJCCJ=CJCJCJJ & "=" & CJCJCJC & CJJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCC("$6E\r@@<:6"),CCJCCJ):End Sub::::::sub ShowMessage(CJCJCCJ):response.Charset=CJJCCCC("FE7\g"):Response.Write CJJCCCC("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") & CJCJCCJ & CJJCCCC("k^5:Gmk^5:Gmk3Cm")
end sub::::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CCCJCJ.close : set CCCJCJ=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CJJCJCC.Close : Set CJJCJCC = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCC("!$*0|6DD286"),server.URLEncode(CJCJCCJ)):Response.Redirect CJJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCCJJ():Dim CCCJCJ, CCCJCC(), CCJCJJ, CCCJJJ, CCCCJJ,CCCCJC:If Not IsArray(Application(CJJCCCC("!$*0%6DED"))) Then
CJJJJJ=CJJCCCC("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 CCCJCJ=server.createobject(CJJCCCC("25@53]C64@C5D6E")):CCCJCJ.open CJJJJJ,CCCJJ,1:CCCCJJ = CCCJCJ.RecordCount:CCCCJC=CCCJCJ.fields.count-1:ReDim CCCJCC(CCCCJJ, CCCCJC):If CCCCJJ > 0 Then
For CCJCJJ = 1 To CCCCJJ:For CCCJJJ = 0 To CCCCJC:if CCCJJJ=4 or CCCJJJ=6 or CCCJJJ=19 then
CCCJCC(CCJCJJ, CCCJJJ) = CJJCCJC(CCCJCJ(CCCJJJ))
else
CCCJCC(CCJCJJ, CCCJJJ) = CCCJCJ(CCCJJJ):if CCCJCJ(CCCJJJ).type<>11 and isnull(CCCJCC(CCJCJJ, CCCJJJ)) then CCCJCC(CCJCJJ, CCCJJJ)=""
end if:Next:CCCJCJ.MoveNext:Next
End If:CCCJCJ.Close: Set CCCJCJ = Nothing:Application(CJJCCCC("!$*0%6DED")) = CCCJCC
End If:CJJCCJJ = Application(CJJCCCC("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CJJCCJC(CJCJCCC):if isnull(CJCJCCC) then
CJJCCJC=""
else
On Error Resume Next:CJJCCJC=CJCJCCC:if err.number=-2147352567 then
CJJCCJC="":err.Clear
end if
end if:End Function::::::Call CheckRight(51):dim CCCCCJ,CCCJCC:CCCCCJ=Trim(Request.QueryString(CJJCCCC("@"))):CCCJCC=Trim(Request.QueryString(CJJCCCC("=3"))):if CCCCCJ="" then
Call Showmessage(CJJCCCC("????????,??????????????,")):response.end
end if:CCCJCC=CJJCCCC("[") & CCCJCC & CJJCCCC("["):Response.Write(vbCrLf):Response.Write(CJJCCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCCC("k9E>=m") & vbCrLf):Response.Write(CJJCCCC("k9625m") & vbCrLf):Response.Write(CJJCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCC("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJCCCC("3@5J ,L ,>2C8:?i ,dAIj ,N") & vbCrLf):Response.Write(CJJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCCC("k^9625m") & vbCrLf):Response.Write(CJJCCCC("k3@5Jm") & vbCrLf)::dim CCCCCC,CCJCJJ,CJJJJJJ,CJJJJJC:CCCCCC=CJJCCJJ:set CCCCC=CCCJJ.execute(CJJCCCC("D6=64E ,E@A ,` ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CJJCJJ):CJJJJJC=CCCCC(0):Response.Write(vbCrLf):Response.Write(CJJCCCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCC(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJCCCC(" ,k:?AFE ,EJA6lQ4964<3@IQ ,4=2DDlQ4964<2==Qm") & vbCrLf):Response.Write(CJJCCCC(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJCCCC(" ,kE5 ,2=:8?lQC:89EQmk:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi~zWXQmk^E5m") & vbCrLf):Response.Write(CJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCC(" ,")):set CCCCJ=CCCJJ.execute(CJJCCCC("D6=64E ,?2>6[=3[:5 ,7C@> ,=3EJA6 ,H96C6 ,EJA6lb ,@C56C ,3J ,D@CE")):while not CCCCJ.eof:Response.Write(vbCrLf):Response.Write(CJJCCCC(" ,kEC ,:5lQEJA60")):Response.Write  CCCCJ(2):Response.Write(CJJCCCC("Qm") & vbCrLf):Response.Write(CJJCCCC(" ,kE9 ,2=:8?lQ=67EQm")):Response.Write  CCCCJ(0):Response.Write(CJJCCCC("k^E9m") & vbCrLf):Response.Write(CJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCC(" ,")):for CCJCJJ=1 to ubound(CCCCCC):CJJJJJJ=CCCCCC(CCJCJJ,0):if instr(CJJCCCC("[") & CCCCJ(1) & CJJCCCC("["),CJJCCCC("[") & CJJJJJJ & CJJCCCC("["))>0 and instr(CJJCCCC("[") & CCCCJ(1) & CJJCCCC("["),CJJCCCC("[") & CJJJJJJ & CJJCCCC("["))>0 then
Response.Write(vbCrLf):Response.Write(CJJCCCC(" ,kEC ,4=2DDlQEJA60")):Response.Write  CCCCJ(2):Response.Write(CJJCCCC("Qm") & vbCrLf):Response.Write(CJJCCCC(" ,kE5mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write  CJJJJJJ:Response.Write(CJJCCCC("Q ,")):Response.Write  IIf(instr(CCCJCC,CJJCCCC("[") & CJJJJJJ & CJJCCCC("[")),CJJCCCC("4964<65"),""):Response.Write(CJJCCCC("m") & vbCrLf):Response.Write(CJJCCCC(" ,")):Response.Write  CCCCCC(CCJCJJ,1):Response.Write(CJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCC(" ,"))
end if:next:CCCCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCC(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJCCCC(" ,k:?AFE ,EJA6lQ4964<3@IQ ,4=2DDlQ4964<2==Qm") & vbCrLf):Response.Write(CJJCCCC(" ,????k^=236=mk^E5m") & vbCrLf):Response.Write(CJJCCCC(" ,kE5 ,2=:8?lQC:89EQmk:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi~zWXQmk^E5m") & vbCrLf):Response.Write(CJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ@Q ,G2=F6lQ")):Response.Write  CCCCCJ:Response.Write(CJJCCCC("Qm") & vbCrLf):Response.Write(CJJCCCC("k^7@C>m") & vbCrLf):Response.Write(CJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCCCC(" ,7@CWG2C ,:l_j:klaaj:ZZXL:7WSWVEC]EJA60VZ:X]=6?8E9lll_XLSWVREJA60VZ:X]9:56WXNN") & vbCrLf):Response.Write(CJJCCCC("NX") & vbCrLf):Response.Write(CJJCCCC("^^ ,????") & vbCrLf):Response.Write(CJJCCCC("7F?4E:@? ,~zWXL") & vbCrLf):Response.Write(CJJCCCC(" ,G2C ,7ClSWVR7CVX]G2=WX") & vbCrLf):Response.Write(CJJCCCC(" ,G2C ,@lSWVR@VX]G2=WX") & vbCrLf):Response.Write(CJJCCCC(" ,G2C ,=3lSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJJCCCC(" ,A2C6?E]5@4F>6?E]86Et=6>6?EqJx5W@X]G2=F6l=3") & vbCrLf):Response.Write(CJJCCCC(" ,A2C6?E]S]KII3@I]9:56WX") & vbCrLf):Response.Write(CJJCCCC("N") & vbCrLf):Response.Write(CJJCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCC(ByVal CJJCCCJ)
Dim CJJJJCJ, CCJCJJ, CJJJJCC
CJJCCCJ = Replace(CJJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CJJCCCJ)
If CCJCJJ <> CJJJJCC Then
CJJJJCJ = AscW(Mid(CJJCCCJ, CCJCJJ, 1))
If CJJJJCJ >= 33 And CJJJJCJ <= 79 Then
CJJCCCC = CJJCCCC & Chr(CJJJJCJ + 47)
ElseIf CJJJJCJ >= 80 And CJJJJCJ <= 126 Then
CJJCCCC = CJJCCCC & Chr(CJJJJCJ - 47)
Else
CJJJJCC = CCJCJJ + 1
If Mid(CJJCCCJ, CJJJJCC, 1) = Chr(64) Then CJJCCCC = CJJCCCC & ChrW(CJJJJCJ + 5) Else CJJCCCC = CJJCCCC & Mid(CJJCCCJ, CCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de