Edit D:\xinhaisoft\crisis_new\student\tuanfu

Edit D:\xinhaisoft\crisis_new\student\tuanfu_xinde.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJJ, CJJJJJC,CJJJJCJ, CJJJJCC, CJJJCJJ:Set CJJJJJJ = server.CreateObject(CCCJJJJ("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CCCJJJJ("r@??64E:@?$EC:?8")):Set CJJJJJC=CJJJJJJ::Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC:CJCJCCC=Trim(Request.Cookies(CCCJJJJ("!$*|t|qt#"))):if CJCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJC>0 then
CJJJCJJ=CCCJJJJ("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") & CJJJCCJ & CCCJJJJ("V ,2?5 ,:5l") & CJJJCJC
set CJJJJCJ=CJJJJJJ.execute(CJJJCJJ):If CJJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCCC=CJJJJCJ(2) & "":CJJCJJJ=CJJJJCJ(3):CJJCJJC=CJJJJCJ(5):CJJCJCJ=CJJJJCJ(6):CJJCJCC=CJJJJCJ(9):CJJCCJJ=CJJJJCJ(15):CJJCCCJ=CJJJJCJ(0):CJCJCJC=CJJJJCJ(1):CJCJCJJ=CJJJJCJ(11) & "":CJJCCCC=CJJJJCJ(10) & "":CJJCCJC=CJJJJCJ(12):CJCJJJJ=CJJJJCJ(14):CJCJJJC=CJJJJCJ(13):CJCJJCJ=CJJJJCJ(7) & "":CJCJJCC=CJJJJCJ(4):CJCJCCJ=CJJJJCJ(8):if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJCJCC) or CJJCJCC=0 then CJJCJCC=CJJCJJJ
if isnull(CJCJJCC) then CJCJJCC=0
if isnull(CJJCJJC) then CJJCJJC=0
if instr(CCCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCJ)>0 then Call RedirectMessage(CCCJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCJC,CJJJCCJ)
End IF
end if:::Sub CheckLogined():if CJJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CCCJJJJ("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CCCJJJJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CCCJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJJJ("!$*|t|qt#"))="":CJJJCJC=0:CJJCJCJ=0:CJJJCCJ=Empty:CJJCJJC=0:CJJCCJJ=0:CJJCJCC=0:CJJCJJJ=0:CJJCCCJ=False:CJCJCJC=False:CJCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCJJC=split(CJCJCCC,CCCJJJJ("]")):if ubound(CJCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then
Call ClearMemberCookie
else
CJCCJCJ=CJCCJJC(1):for CJCCJCC=1 to len(CJCCJCJ):CJCCCJJ=mid(CJCCJCJ,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCJCJ=CJCCJJC(2):if CJCCCJC<>mid(CJCCJCJ,6,7) then
Call ClearMemberCookie
else
CJCCCJJ=mid(CJCCJCJ,18,10)/2:if CJCCCJJ<DateDiff(CCCJJJJ("D"), CCCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJC=Clng(CJCCJJC(0)):CJJJCCJ=CJCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJJ,CCCJJJC):dim CJCCJCC,CJCCCJJ,CJCCCJC:for CJCCJCC=1 to len(CCCJJJC):CJCCCJJ=mid(CCCJJJC,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCCJC=CCJJJJJ & CCCJJJJ("]") & CCCJJJC & CCCJJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJJJ("D"), CCCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJJJ("!$*|t|qt#"))=CJCCCJC:End Sub::Function CCJJCCC(CCCJJCJ):Dim str,CJCCCCC:str = Trim(CCCJJCJ):If IsNull(str) Or str = "" Then
CCJJCCC = ""
else
str=Replace(str, CCCJJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJJJ("k:7C2>6"), CCCJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJJJ("kD4C:AE"), CCCJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCCC=new RegExp:CJCCCCC.Pattern=CCCJJJJ("@?W,2\K.ZXl"):CJCCCCC.IgnoreCase = True:CJCCCCC.Global=True:str=CJCCCCC.Replace(str,CCCJJJJ("@?S`U6BF2=Dj")):set CJCCCCC=nothing:CCJJCCC=str
End If:End Function::Const CCJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCC,CCCJCJJ):dim CJCCJJC:CJCCJJC=CCCJJCC & "=" & CCCJCJJ & CCCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJJJ("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CCJCJJJ(CCJJCJC):if isnull(CCJJCJC) or trim(CCJJCJC)="" or not isnumeric(CCJJCJC) then
CCJCJJJ=false
else
Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CCCJJJJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CCJCJJJ = CJCCCCC.test(CCJJCJC):set CJCCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:CCJCCJC.close : set CCJCCJC=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CCJCCCJ.Close : Set CCJCCCJ = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJJJ("!$*0|6DD286"),server.URLEncode(CCCJCJC)):Response.Redirect CCCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:dim CCJJJJJ:CCJJJJJ=request.querystring(CCCJJJJ(":5")):if not CCJCJJJ(CCJJJJJ) then Call RedirectMessage(CCCJJJJ("??????????????,"))
dim CCJJJJC,CCJJJCJ:set CJJJJCJ=CJJJJJJ.execute(CCCJJJJ("D6=64E ,E@A ,` ,4@FCD6:5[7665324< ,7C@> ,8C@FA8F:52?460>6>36C ,H96C6 ,:5l") & CCJJJJJ & CCCJJJJ(" ,2?5 ,>6>36Cl") & CJJJCJC & CCCJJJJ(" ,2?5 ,DE2EFDl`")):if CJJJJCJ.eof then Call RedirectMessage(CCCJJJJ("??????????????@????,"))
If Request.ServerVariables(CCCJJJJ("#t""&t$%0|t%w~s"))=CCCJJJJ("!~$%") then
CJJJCJJ=CCCJJJJ("FA52E6 ,8C@FA8F:52?460>6>36C ,D6E ,7665324<lV") & CCJJCCC(request.form(CCCJJJJ("7665324<"))) & CCCJJJJ("V ,H96C6 ,:5l") & CCJJJJJ
CJJJJJJ.execute CJJJCJJ:response.end
end if:CCJJJCJ=CJJJJCJ(0):CCJJJJC=CJJJJCJ(1):CJJJCJJ=CCCJJJJ("D6=64E ,:5[?2>6[,E:>6.[2FE9@C[A:4EFC6 ,7C@> ,8C@FA8F:52?46 ,H96C6 ,:5l") & CCJJJCJ:set CJJJJCJ=CJJJJJJ.execute(CJJJCJJ):Response.Write(vbCrLf):Response.Write(CCCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJJJ("k9625m") & vbCrLf):Response.Write(CCCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJJJ("kE:E=6mk^E:E=6m") & vbCrLf):Response.Write(CCCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJJJJ("]:?7@ ,L ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CCCJJJJ(":>8 ,L ,7=@2Ei ,=67Ej ,>2C8:?\C:89Ei ,a_AIj ,N") & vbCrLf):Response.Write(CCCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJJJJ("k^9625m") & vbCrLf):Response.Write(CCCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CCCJJJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJJJJ(" ,")):dim CCJJJCC:CCJJJCC=trim(CJJJJCJ(4)) & "":if CCJJJCC="" then
CCJJJCC=CCCJJJJ("]]^D49@@=^25>:?^8C@FA8F:52?46^A:4];A8")
else
CCJJJCC=split(CCJJJCC,CCCJJJJ("M"))(0)
end if:Response.Write(vbCrLf):Response.Write(CCCJJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCCJJJJ(" ,k5:G ,4=2DDlQ:?7@Qmk:>8 ,DC4lQ")):Response.Write  CCJJJCC:Response.Write(CCCJJJJ("Q ,H:5E9lQad_Q ,4=2DDlQ2>\:>8\E9F>3?2:= ,2>\C25:FDQm ,??????????,")):Response.Write  CJJJJCJ(1):Response.Write(CCCJJJJ("k3Cm") & vbCrLf):Response.Write(CCCJJJJ(" ,??????????,")):Response.Write  CJJJJCJ(2):Response.Write(CCCJJJJ("k3Cm") & vbCrLf):Response.Write(CCCJJJJ(" ,??@????,????,")):Response.Write  CJJJJCJ(3):Response.Write(CCCJJJJ("k3Cm") & vbCrLf):Response.Write(CCCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCCJJJJ(" ,k7@C> ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CCCJJJJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FAQm") & vbCrLf):Response.Write(CCCJJJJ(" ,kE6IE2C62 ,?2>6lQ7665324<Q ,2FE@7@4FD ,C6BF:C65m")):Response.Write  CCJJJJC:Response.Write(CCCJJJJ("k^E6IE2C62m") & vbCrLf):Response.Write(CCCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJJJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCCJJJJ(" ,k3FEE@? ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\D>Qmk: ,4=2DDlQ2>\:4@?\D2G6Qmk^:m ,????k^3FEE@?m") & vbCrLf):Response.Write(CCCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCCJJJJ("k^5:Gm") & vbCrLf):Response.Write(CCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJ(" ,2FE@D:K6WSWVE6IE2C62VXXj") & vbCrLf):Response.Write(CCCJJJJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJ(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJ(" ,SWV3FEE@?VX]9E>=WVk: ,4=2DDlQ2>\:4@?\4964<Qmk^:m ,??????????,VX]AC@AWV5:D23=65V[ECF6Xj") & vbCrLf):Response.Write(CCCJJJJ(" ,D6E%:>6@FEW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJJJ(" ,SWV3FEE@?VX]9E>=WVk: ,4=2DDlQ2>\:4@?\D2G6Qmk^:m ,????VX]AC@AWV5:D23=65V[72=D6Xj") & vbCrLf):Response.Write(CCCJJJJ(" ,N[b___Xj") & vbCrLf):Response.Write(CCCJJJJ(" ,NXj") & vbCrLf):Response.Write(CCCJJJJ(" ,C6EFC? ,72=D6j") & vbCrLf):Response.Write(CCCJJJJ(" ,NXj") & vbCrLf):Response.Write(CCCJJJJ("NXj") & vbCrLf):Response.Write(CCCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJJ.Close:Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0
Function CCCJJJJ(ByVal CCJCCCC)
Dim CCJJCJJ, CJCCJCC, CCJJCJC
CCJCCCC = Replace(CCJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJCC = 1 To Len(CCJCCCC)
If CJCCJCC <> CCJJCJC Then
CCJJCJJ = AscW(Mid(CCJCCCC, CJCCJCC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CCCJJJJ = CCCJJJJ & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CCCJJJJ = CCCJJJJ & Chr(CCJJCJJ - 47)
Else
CCJJCJC = CJCCJCC + 1
If Mid(CCJCCCC, CCJJCJC, 1) = Chr(64) Then CCCJJJJ = CCCJJJJ & ChrW(CCJJCJJ + 5) Else CCCJJJJ = CCCJJJJ & Mid(CCJCCCC, CJCCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de