<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJJJJCC("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJJJJCC("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Function CCCJCC(CJJJCJJ):Dim str,CCJCJJ:str = Trim(CJJJCJJ):If IsNull(str) Or str = "" Then CCCJCC = "" else str=Replace(str, CJJJJCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCC("k:7C2>6"), CJJJJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCC("kD4C:AE"), CJJJJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCJJ=new RegExp:CCJCJJ.Pattern=CJJJJCC("@?W,2\K.ZXl"):CCJCJJ.IgnoreCase = True:CCJCJJ.Global=True:str=CCJCJJ.Replace(str,CJJJJCC("@?S`U6BF2=Dj")):set CCJCJJ=nothing:CCCJCC=str End If:End Function::Const CCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCJC,CJJJCCJ):dim CCJCJC:CCJCJC=CJJJCJC & "=" & CJJJCCJ & CJJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCC("$6E\r@@<:6"),CCJCJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCCCJJ=nothing:set CCCCJC=nothing:set CCCCCJ=nothing:set CCCCCC=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCC("!$*0|6DD286"),server.URLEncode(CJJJCCC)):Response.Redirect CJJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CCJCCJ:CCJCCJ=CCCJCC(Request.QueryString(CJJJJCC("6?"))):CCJJCJ=CJJJJCC("D6=64E ,E@A ,` ,:5[4C:D:D ,7C@> ,D49@@= ,H96C6 ,6?lV") & CCJCCJ & CJJJJCC("V") set CCJJJJ=CJCCCJ.execute(CCJJCJ):if CCJJJJ.eof then Call RedirectMessage(CJJJJCC("寴@丈@赲@，,患@襼@论@闩@癿@冀@宴@巭@绊@丈@孓@圣@！,")) if CCJJJJ(1) then response.Redirect CJJJJCC("?6H^:?56I]2DAnD49@@=l") & CCJJJJ(0) else response.Redirect CJJJJCC(":?56I]2DAnD49@@=l") & CCJJJJ(0) end if::On Error Resume Next:set CCCCJJ=nothing:set CCCCJC=nothing:set CCCCCJ=nothing:set CCCCCC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0 Function CJJJJCC(ByVal CJJJJCJ) Dim CCJCCC, CCCJJJ, CCCJJC CJJJJCJ = Replace(CJJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJJJ = 1 To Len(CJJJJCJ) If CCCJJJ <> CCCJJC Then CCJCCC = AscW(Mid(CJJJJCJ, CCCJJJ, 1)) If CCJCCC >= 33 And CCJCCC <= 79 Then CJJJJCC = CJJJJCC & Chr(CCJCCC + 47) ElseIf CCJCCC >= 80 And CCJCCC <= 126 Then CJJJJCC = CJJJJCC & Chr(CCJCCC - 47) Else CCCJJC = CCCJJJ + 1 If Mid(CJJJJCJ, CCCJJC, 1) = Chr(64) Then CJJJJCC = CJJJJCC & ChrW(CCJCCC + 5) Else CJJJJCC = CJJJJCC & Mid(CJJJJCJ, CCCJJJ, 1) End If End If Next End Function %>