Edit D:\xinhaisoft\crisis_new\lb\act

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CCJCCC("ps~sq]r@??64E:@?")):CJCJJC.open Application(CCJCCC("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::::Const CCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::::::::::::::::::::::::::::::::::::::::::::::::::::::dim CJCCCJ:CJCCCJ=1:set CJCJCC=CJCJJC.execute("select top 100 number,sex,testage,datetime,answer from v_test where lb=83 order by id"):if CJCJCC.eof then
response.Write CCJCCC("}@?6")
else
while not CJCJCC.eof:response.Write CJCCCJ & CCJCCC("\") & CJCJCC(4) & CCJCCC("k3Cm"):CJCJCC.movenext:CJCCCJ=CJCCCJ+1:wend
end if:Response.Write(vbCrLf):Response.Write(CCJCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCC("k9E>=m") & vbCrLf):Response.Write(CCJCCC("k9625m") & vbCrLf):Response.Write(CCJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCC("k^9625m") & vbCrLf):Response.Write(CCJCCC("k3@5Jm") & vbCrLf):Response.Write(CCJCCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJ=nothing:set CCJJCC=nothing:set CCJCJJ=nothing:set CCJCJC=nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJJC.Close:Set CJCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCC(ByVal CCJCCJ)
Dim CJCCCC, CJCCCJ, CCJJJJ
CCJCCJ = Replace(CCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJ = 1 To Len(CCJCCJ)
If CJCCCJ <> CCJJJJ Then
CJCCCC = AscW(Mid(CCJCCJ, CJCCCJ, 1))
If CJCCCC >= 33 And CJCCCC <= 79 Then
CCJCCC = CCJCCC & Chr(CJCCCC + 47)
ElseIf CJCCCC >= 80 And CJCCCC <= 126 Then
CCJCCC = CCJCCC & Chr(CJCCCC - 47)
Else
CCJJJJ = CJCCCJ + 1
If Mid(CCJCCJ, CCJJJJ, 1) = Chr(64) Then CCJCCC = CCJCCC & ChrW(CJCCCC + 5) Else CCJCCC = CCJCCC & Mid(CCJCCJ, CJCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de