Edit D:\xinhaisoft\crisis_new\member\regist

Edit D:\xinhaisoft\crisis_new\member\regist_checkemail.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJ, CCJCC,CCCJJ, CCCJC, CCCCJ:Set CCJCJ = server.CreateObject(CJCCJJ("ps~sq]r@??64E:@?")):CCJCJ.open Application(CJCCJJ("r@??64E:@?$EC:?8")):Set CCJCC=CCJCJ::Function CJJCCJ(CJCCJC):Dim str,CJJJJJ:str = Trim(CJCCJC):If IsNull(str) Or str = "" Then
CJJCCJ = ""
else
str=Replace(str, CJCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJJ("k:7C2>6"), CJCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJJ("kD4C:AE"), CJCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJJ=new RegExp:CJJJJJ.Pattern=CJCCJJ("@?W,2\K.ZXl"):CJJJJJ.IgnoreCase = True:CJJJJJ.Global=True:str=CJJJJJ.Replace(str,CJCCJJ("@?S`U6BF2=Dj")):set CJJJJJ=nothing:CJJCCJ=str
End If:End Function::Const CJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::::::::::::::::::::::::::::::::::::::::::::::::::::::dim CJJJJC:CJJJJC=CJJCCJ(Request.QueryString("email")):set CCCJJ=CCJCJ.execute(CJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,6>2:=lV") & CJJJJC & CJCCJJ("V"))
if CCCJJ.eof then response.Write CJCCJJ("ECF6") else response.Write CJCCJJ("72=D6")
On Error Resume Next:set CJJCCC=nothing:set CJCJJJ=nothing:set CJCJJC=nothing:set CJCJCJ=nothing:CCCJC.Close:Set CCCJC=Nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCJ.Close:Set CCJCJ = Nothing:err.Clear:On Error Goto 0
Function CJCCJJ(ByVal CJCJCC)
Dim CJJJCJ, CJJJCC, CJJCJJ
CJCJCC = Replace(CJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCC = 1 To Len(CJCJCC)
If CJJJCC <> CJJCJJ Then
CJJJCJ = AscW(Mid(CJCJCC, CJJJCC, 1))
If CJJJCJ >= 33 And CJJJCJ <= 79 Then
CJCCJJ = CJCCJJ & Chr(CJJJCJ + 47)
ElseIf CJJJCJ >= 80 And CJJJCJ <= 126 Then
CJCCJJ = CJCCJJ & Chr(CJJJCJ - 47)
Else
CJJCJJ = CJJJCC + 1
If Mid(CJCJCC, CJJCJJ, 1) = Chr(64) Then CJCCJJ = CJCCJJ & ChrW(CJJJCJ + 5) Else CJCCJJ = CJCCJJ & Mid(CJCJCC, CJJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de