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