<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJJJJCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJJJJCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::::Const CCCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJCC,CJJJCJJ):dim CCJJCC:CCJJCC=CJJJJCC & "=" & CJJJCJJ & CJJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCJ("$6E\r@@<:6"),CCJJCC):End Sub:::::::Function CCCJCJ(CCCJJJ):if isnull(CCCJJJ) or trim(CCCJJJ)="" or not isnumeric(CCCJJJ) then CCCJCJ=false else Dim CCJCJJ:Set CCJCJJ = New RegExp:CCJCJJ.Pattern = CJJJJCJ("/-5ZS"):CCJCJJ.IgnoreCase = True:CCCJCJ = CCJCJJ.test(CCCJJJ):set CCJCJJ=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJCC=nothing:set CCCCJJ=nothing:set CCCCJC=nothing:set CCCCCJ=nothing:CCCCCC.close : set CCCCCC=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCJ("!$*0|6DD286"),server.URLEncode(CJJJCJC)):Response.Redirect CJJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CCJCJC:CCJCJC=request.QueryString(CJJJJCJ("D49@@=")):if not CCCJCJ(CCJCJC) then Call RedirectMessage(CJJJJCJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,")) Response.Write(vbCrLf):Response.Write(CJJJJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCJ("k9E>= ,=2?8lQK9\4?Qm") & vbCrLf):Response.Write(CJJJJCJ("k9625m") & vbCrLf):Response.Write(CJJJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`[ ,>2I:>F>\D42=6l`[ ,FD6C\D42=23=6l?@Qm") & vbCrLf):Response.Write(CJJJJCJ("kE:E=6m兮@争@戌@仧@k^E:E=6m") & vbCrLf):Response.Write(CJJJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCJ("k3@5Jm") & vbCrLf)::set CCJJJJ=CJCCCJ.execute(CJJJJCJ("D6=64E ,E@A ,` ,Y ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJCJC):if CCJJJJ.eof then Call RedirectMessage(CJJJJCJ("寴@丈@赲@，,沜@朄@批@别@患@襼@柠@话@癿@冀@宴@！,")) Response.Write(vbCrLf):Response.Write(CJJJJCJ("k3Cm") & vbCrLf):Response.Write(CJJJJCJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJCJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJJJJCJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJJJJCJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write CCJJJJ(CJJJJCJ("E:E=6")):Response.Write(CJJJJCJ("k^9`m") & vbCrLf):Response.Write(CJJJJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm ,k:>8 ,DC4lQ")):Response.Write CCJJJJ(CJJJJCJ("A:4EFC6")):Response.Write(CJJJJCJ("Qm") & vbCrLf):Response.Write(CJJJJCJ(" ,kAm")):Response.Write replace(CCJJJJ(CJJJJCJ(":?EC@")) & "",vbcrlf,CJJJJCJ("k^AmkAm")):Response.Write(CJJJJCJ("k^Am") & vbCrLf):Response.Write(CJJJJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CJJJJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCJ("kP\\囙@别@顱@郣@\\m") & vbCrLf):Response.Write(CJJJJCJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Qmk2 ,9C67lQRE@AQ ,E:E=6lQ囙@别@顱@郣@QmkDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm囙@别@顱@郣@k^DA2?mk: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCJ("NXj") & vbCrLf):Response.Write(CJJJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCC=nothing:set CCCCJJ=nothing:set CCCCJC=nothing:set CCCCCJ=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0 Function CJJJJCJ(ByVal CJJJJJC) Dim CCJCCJ, CCJCCC, CCCJJJ CJJJJJC = Replace(CJJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCCC = 1 To Len(CJJJJJC) If CCJCCC <> CCCJJJ Then CCJCCJ = AscW(Mid(CJJJJJC, CCJCCC, 1)) If CCJCCJ >= 33 And CCJCCJ <= 79 Then CJJJJCJ = CJJJJCJ & Chr(CCJCCJ + 47) ElseIf CCJCCJ >= 80 And CCJCCJ <= 126 Then CJJJJCJ = CJJJJCJ & Chr(CCJCCJ - 47) Else CCCJJJ = CCJCCC + 1 If Mid(CJJJJJC, CCCJJJ, 1) = Chr(64) Then CJJJJCJ = CJJJJCJ & ChrW(CCJCCJ + 5) Else CJJJJCJ = CJJJJCJ & Mid(CJJJJJC, CCJCCC, 1) End If End If Next End Function %>