<%@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 %>