<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCCC, CCCJJJ,CCCJJC, CCCJCJ, CCCJCC:Set CCJCCC = server.CreateObject(CJJCJCC("ps~sq]r@??64E:@?")):CCJCCC.open Application(CJJCJCC("r@??64E:@?$EC:?8")):Set CCCJJJ=CCJCCC::Function CJJJCJJ(CJJCCJJ):Dim str,CCCCJC:str = Trim(CJJCCJJ):If IsNull(str) Or str = "" Then CJJJCJJ = "" else str=Replace(str, CJJCJCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJCC("k:7C2>6"), CJJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJCC("kD4C:AE"), CJJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCJC=new RegExp:CCCCJC.Pattern=CJJCJCC("@?W,2\K.ZXl"):CCCCJC.IgnoreCase = True:CCCCJC.Global=True:str=CCCCJC.Replace(str,CJJCJCC("@?S`U6BF2=Dj")):set CCCCJC=nothing:CJJJCJJ=str End If:End Function::Const CJJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::::::::::::Function CJJJCJC(CJJJJCJ):if isnull(CJJJJCJ) or trim(CJJJJCJ)="" or not isnumeric(CJJJJCJ) then CJJJCJC=false else Dim CCCCJC:Set CCCCJC = New RegExp:CCCCJC.Pattern = CJJCJCC("/-5ZS"):CCCCJC.IgnoreCase = True:CJJJCJC = CCCCJC.test(CJJJJCJ):set CCCCJC=nothing end if:End Function:::::::::::::::::::::::::::::::::::::::::::::dim CCCCCJ,CCCCCC:CCCCCJ=CJJJCJJ(replace(Request.QueryString(CJJCJCC(">@3:=6")),CJJCJCC(" ,"),"")):CCCCCC=Request.QueryString(CJJCJCC(":5")):if CCCCCJ="" then response.Write CJJCJCC("ECF6") else CCCJCC=CJJCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,H96C6 ,>@3:=6lV") & CCCCCJ & CJJCJCC("V") if CJJJCJC(CCCCCC) then CCCJCC=CCCJCC & CJJCJCC(" ,2?5 ,:5km") & CCCCCC set CCCJJC=CCJCCC.execute(CCCJCC):if CCCJJC.eof then response.Write CJJCJCC("ECF6") else response.Write CJJCJCC("72=D6") end if::On Error Resume Next:set CJJJCCJ=nothing:set CJJJCCC=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCJCCC.Close:Set CCJCCC = Nothing:err.Clear:On Error Goto 0 Function CJJCJCC(ByVal CJJCJCJ) Dim CJJJJJJ, CJJJJJC, CJJJJCJ CJJCJCJ = Replace(CJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJJJJC = 1 To Len(CJJCJCJ) If CJJJJJC <> CJJJJCJ Then CJJJJJJ = AscW(Mid(CJJCJCJ, CJJJJJC, 1)) If CJJJJJJ >= 33 And CJJJJJJ <= 79 Then CJJCJCC = CJJCJCC & Chr(CJJJJJJ + 47) ElseIf CJJJJJJ >= 80 And CJJJJJJ <= 126 Then CJJCJCC = CJJCJCC & Chr(CJJJJJJ - 47) Else CJJJJCJ = CJJJJJC + 1 If Mid(CJJCJCJ, CJJJJCJ, 1) = Chr(64) Then CJJCJCC = CJJCJCC & ChrW(CJJJJJJ + 5) Else CJJCJCC = CJJCJCC & Mid(CJJCJCJ, CJJJJJC, 1) End If End If Next End Function %>