Edit D:\xinhaisoft\crisis_new\school\teacher.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJC, CCJCJ,CCJCC, CCCJJ, CCCJC:Set CCJJC = server.CreateObject(CJCCJC("ps~sq]r@??64E:@?")):CCJJC.open Application(CJCCJC("r@??64E:@?$EC:?8")):Set CCJCJ=CCJJC::::Const CJJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCJ,CJCCCC):dim CCCCJ:CCCCJ=CJCCCJ & "=" & CJCCCC & CJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJC("$6E\r@@<:6"),CCCCJ):End Sub:::::::Function CJJCJC(CJJJCC):if isnull(CJJJCC) or trim(CJJJCC)="" or not isnumeric(CJJJCC) then
CJJCJC=false
else
Dim CCCCC:Set CCCCC = New RegExp:CCCCC.Pattern = CJCCJC("/-5ZS"):CCCCC.IgnoreCase = True:CJJCJC = CCCCC.test(CJJJCC):set CCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJ=nothing:set CJJCCC=nothing:set CJCJJJ=nothing:set CJCJJC=nothing:CJCJCJ.close : set CJCJCJ=nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCJCC.Close : Set CCJCC=Nothing:CJCJCC.Close : Set CJCJCC = Nothing:CCJJC.Close : Set CCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJC("!$*0|6DD286"),server.URLEncode(CCJJJJ)):Response.Redirect CJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJJJJJ:CJJJJJ=request.QueryString(CJCCJC(":5")):if not CJJCJC(CJJJJJ) then Call RedirectMessage(CJCCJC("????????,??????????????,"))
set CCJCC=CCJJC.execute(CJCCJC("D6=64E ,E@A ,` ,C62=?2>6[A9@E@[:?EC@ ,7C@> ,>6>36C ,H96C6 ,:5l") & CJJJJJ):if CCJCC.eof then Call RedirectMessage(CJCCJC("????????,????????????????@????,"))
Response.Write(vbCrLf):Response.Write(CJCCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCJC("k9E>=m") & vbCrLf):Response.Write(CJCCJC("k9625m") & vbCrLf):Response.Write(CJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJC("kE:E=6m")):Response.Write  CCJCC(0):Response.Write(CJCCJC("k^E:E=6m") & vbCrLf):Response.Write(CJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJC("3@5J ,L ,>2C8:?i ,`_AIj ,N") & vbCrLf):Response.Write(CJCCJC("9` ,L ,E6IE\2=:8?i ,46?E6Cj ,7@?E\D:K6i ,acAIj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R___j ,A255:?8\3@EE@>i ,dAIj ,N") & vbCrLf):Response.Write(CJCCJC("E5 ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJC("k^9625m") & vbCrLf):Response.Write(CJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJC("k9`m")):Response.Write  CCJCC(0):Response.Write(CJCCJC("k^9`m") & vbCrLf):Response.Write(CJCCJC("k3Cm") & vbCrLf):Response.Write(CJCCJC("kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCCJC(" ,kE5 ,H:5E9lQaa_Q ,G2=:8?lQE@AQmk:>8 ,DC4lQ")):Response.Write  CCJCC(1):Response.Write(CJCCJC("Q ,H:5E9lQa__Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJC(" ,kE5 ,G2=:8?lQE@AQmkAm")):Response.Write  replace(CCJCC(2) & "",vbcrlf,CJCCJC("k^AmkAm")):Response.Write(CJCCJC("k^Amk^E5m") & vbCrLf):Response.Write(CJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJC("k^E23=6m") & vbCrLf):Response.Write(CJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJ=nothing:set CJJCCC=nothing:set CJCJJJ=nothing:set CJCJJC=nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCC.Close:Set CCJCC=Nothing:CCJJC.Close:Set CCJJC = Nothing:err.Clear:On Error Goto 0
Function CJCCJC(ByVal CJCCJJ)
Dim CJJJJC, CJJJCJ, CJJJCC
CJCCJJ = Replace(CJCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJ = 1 To Len(CJCCJJ)
If CJJJCJ <> CJJJCC Then
CJJJJC = AscW(Mid(CJCCJJ, CJJJCJ, 1))
If CJJJJC >= 33 And CJJJJC <= 79 Then
CJCCJC = CJCCJC & Chr(CJJJJC + 47)
ElseIf CJJJJC >= 80 And CJJJJC <= 126 Then
CJCCJC = CJCCJC & Chr(CJJJJC - 47)
Else
CJJJCC = CJJJCJ + 1
If Mid(CJCCJJ, CJJJCC, 1) = Chr(64) Then CJCCJC = CJCCJC & ChrW(CJJJJC + 5) Else CJCCJC = CJCCJC & Mid(CJCCJJ, CJJJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de