Edit D:\xinhaisoft\crisis_new\lb\act_cleartestanswerisnull.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJCJCJC("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJCJCJC("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::::Const CJJCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::::::::sub ShowMessage(CJCJCCJ):response.Charset="utf-8":Response.Write CJCJCJC("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 & CJCJCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCCCC(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then
CJJCCCC=false
else
Dim CJJJCCJ:Set CJJJCCJ = New RegExp:CJJJCCJ.Pattern = CJCJCJC("/-5ZS"):CJJJCCJ.IgnoreCase = True:CJJCCCC = CJJJCCJ.test(CJJCCJC):set CJJJCCJ=nothing
end if:End Function::::::::::::::::::::::::::::::::::::::::::::Response.Write(vbCrLf):Response.Write(CJCJCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJCJC("k9E>=m") & vbCrLf):Response.Write(CJCJCJC("k9625m") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJC("kE:E=6m??@??%6DE??????p?DH6C??}F==??????k^E:E=6m") & vbCrLf):Response.Write(CJCJCJC("k^9625m") & vbCrLf):Response.Write(CJCJCJC("k3@5Jm") & vbCrLf)::dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:CJJJCCC=Request.QueryString(CJCJCJC(":5")):CJJCJJC=Request.QueryString(CJCJCJC(">2I:5")):if not CJJCCCC(CJJJCCC) then CJJJCCC=1 else CJJJCCC=csng(CJJJCCC)
if not CJJCCCC(CJJCJJC) then CJJCJJC=CJJJJJC.execute(CJCJCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE ,@C56C ,3J ,:5 ,56D4"))(0) else CJJCJJC=csng(CJJCJJC)
CJJCJJJ=500:CJJCJCJ=CJJJCCC+CJJCJJJ:CJJJCJC=CJCJCJC("56=6E6 ,7C@> ,E6DE ,H96C6 ,:5ml") & CJJJCCC & CJCJCJC(" ,2?5 ,:5kl") & CJJCJCJ & CJCJCJC(" ,2?5 ,W2?DH6C ,:D ,?F==X"):CJJJJJC.execute CJJJCJC:if CJJCJCJ>CJJCJJC then
Call ShowMessage(CJCJCJC("??????,??????????,??????????,")):Response.Write CJCJCJC("k38D@F?5 ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5Vm")
else
Call ShowMessage(CJCJCJC("??????????,??????]]] ,W") & CJJJCCC & CJCJCJC("O") & CJJCJCJ & CJCJCJC("X")):response.Write CJCJCJC("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElVbj&#{ln:5l") & CJJCJCJ+1 & CJCJCJC("U>2I:5l") & CJJCJJC & CJCJCJC("Vm")
end if:Response.Write(vbCrLf):Response.Write(CJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0
Function CJCJCJC(ByVal CJCJCJJ)
Dim CJJCJCC, CJJCCJJ, CJJCCJC
CJCJCJJ = Replace(CJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCJJ = 1 To Len(CJCJCJJ)
If CJJCCJJ <> CJJCCJC Then
CJJCJCC = AscW(Mid(CJCJCJJ, CJJCCJJ, 1))
If CJJCJCC >= 33 And CJJCJCC <= 79 Then
CJCJCJC = CJCJCJC & Chr(CJJCJCC + 47)
ElseIf CJJCJCC >= 80 And CJJCJCC <= 126 Then
CJCJCJC = CJCJCJC & Chr(CJJCJCC - 47)
Else
CJJCCJC = CJJCCJJ + 1
If Mid(CJCJCJJ, CJJCCJC, 1) = Chr(64) Then CJCJCJC = CJCJCJC & ChrW(CJJCJCC + 5) Else CJCJCJC = CJCJCJC & Mid(CJCJCJJ, CJJCCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de