<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CCJCCC("ps~sq]r@??64E:@?")):CJCJJC.open Application(CCJCCC("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::::Const CCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::::::::::::::::::::::::::::::::::::::::::::::::::::::dim CJCCCJ:CJCCCJ=1:set CJCJCC=CJCJJC.execute("select top 100 number,sex,testage,datetime,answer from v_test where lb=83 order by id"):if CJCJCC.eof then response.Write CCJCCC("}@?6") else while not CJCJCC.eof:response.Write CJCCCJ & CCJCCC("\") & CJCJCC(4) & CCJCCC("k3Cm"):CJCJCC.movenext:CJCCCJ=CJCCCJ+1:wend end if:Response.Write(vbCrLf):Response.Write(CCJCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCC("k9E>=m") & vbCrLf):Response.Write(CCJCCC("k9625m") & vbCrLf):Response.Write(CCJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJCCC("k^9625m") & vbCrLf):Response.Write(CCJCCC("k3@5Jm") & vbCrLf):Response.Write(CCJCCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJ=nothing:set CCJJCC=nothing:set CCJCJJ=nothing:set CCJCJC=nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJJC.Close:Set CJCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCCC(ByVal CCJCCJ) Dim CJCCCC, CJCCCJ, CCJJJJ CCJCCJ = Replace(CCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCJ = 1 To Len(CCJCCJ) If CJCCCJ <> CCJJJJ Then CJCCCC = AscW(Mid(CCJCCJ, CJCCCJ, 1)) If CJCCCC >= 33 And CJCCCC <= 79 Then CCJCCC = CCJCCC & Chr(CJCCCC + 47) ElseIf CJCCCC >= 80 And CJCCCC <= 126 Then CCJCCC = CCJCCC & Chr(CJCCCC - 47) Else CCJJJJ = CJCCCJ + 1 If Mid(CCJCCJ, CCJJJJ, 1) = Chr(64) Then CCJCCC = CCJCCC & ChrW(CJCCCC + 5) Else CCJCCC = CCJCCC & Mid(CCJCCJ, CJCCCJ, 1) End If End If Next End Function %>