<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CJCJJCCC("ps~sq]r@??64E:@?")):CJCJJC.open Application(CJCJJCCC("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ:CJJJJJJ=Trim(Request.Cookies(CJCJJCCC("!$*|t|qt#"))):if CJJJJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJCCCJ>0 then CJCCJC=CJCJJCCC("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@40 then Call RedirectMessage(CJCJJCCC("弬@寁@矼@,,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJCCCJ,CJCCCC) End IF end if:Sub CheckRight(CJJCCCC):dim CJJJJJC,CJJJJCJ:if CJCCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCCC("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) elseIf not CJJJCCJC(CJJCCCC) then Call RedirectMessage(CJCJJCCC("朾@陋@W") & CJJCCCC & CJCJJCCC("X袦@祼@歝@,,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJJCCJC(CJJCCCC):dim CJJJJJC,CJJJJCJ:CJJJJCJ=split(CJJCCCC,CJCJJCCC("[")):CJJJCCJC=False:for CJJJJJC=0 to ubound(CJJJJCJ):If Mid(CCJJJJ,CJJJJCJ(CJJJJJC),1)="1" then CJJJCCJC=True:exit function end if:next:End Function:Sub CheckLogined():if CJCCCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJJJJCC:CJJJJCC=trim(request.QueryString(CJCJJCCC("D49@@="))):if isnumeric(CJJJJCC) then response.Redirect CJCJJCCC("^>^G2?E^R^D49@@=^") & CJJJJCC & CJCJJCCC("^DEF56?E^=@8:?nC65:C64El") & CJCJCJC else Call RedirectMessage(CJCJJCCC("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCCC("!$*|t|qt#"))="":CJCCCJ=0:CCJJCC=0:CJCCCC=Empty:CCJJCJ=0:CCJCJC=0:CCJCJJ=0:CCJJJC=0:CCJCCC=False:CCCCCJ=False:CCCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJJ,CJJJCJC,CJJJJJC,CJJJCCJ,CJJJCCC:CJJJCJJ=split(CJJJJJJ,CJCJJCCC("]")):if ubound(CJJJCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJJCJJ(0)) or len(CJJJCJJ(1))<>32 or len(CJJJCJJ(2))<>32 then Call ClearMemberCookie else CJJJCJC=CJJJCJJ(1):for CJJJJJC=1 to len(CJJJCJC):CJJJCCJ=mid(CJJJCJC,CJJJJJC,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ if len(CJJJCCC)=7 then exit for next:CJJJCJC=CJJJCJJ(2):if CJJJCCC<>mid(CJJJCJC,6,7) then Call ClearMemberCookie else CJJJCCJ=mid(CJJJCJC,18,10)/2:if CJJJCCJ6"), CJCJJCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJCCC("kD4C:AE"), CJCJJCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCJJC=new RegExp:CJJCJJC.Pattern=CJCJJCCC("@?W,2\K.ZXl"):CJJCJJC.IgnoreCase = True:CJJCJJC.Global=True:str=CJJCJJC.Replace(str,CJCJJCCC("@?S`U6BF2=Dj")):set CJJCJJC=nothing:CJJJCCCJ=str End If:End Function:Function IIf(CJCJCJCJ, CJCJCJCC, CJCJCCJJ):if isnull(CJCJCJCJ) or isempty(CJCJCJCJ) then IIf = CJCJCCJJ elseif CJCJCJCJ Then IIf = CJCJCJCC Else IIf = CJCJCCJJ end if:End Function:Const CJJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJCJJJJ(str):if isnull(str) or str="" then CJJCJJJJ=False:exit function end if:Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CJCJJCCC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJCJJC.IgnoreCase = True:CJJCJJJJ = CJJCJJC.test(str):set CJJCJJC=nothing:End Function:Function CJJCJJJC():dim CJJCJCJ:CJJCJCJ = Cstr(Request.ServerVariables(CJCJJCCC("w%%!0)0u~#(p#sts0u~#"))):If CJJCJCJ = "" Then CJJCJCJ = Cstr(Request.ServerVariables(CJCJJCCC("#t|~%t0pss#"))) if instr(CJJCJCJ,CJCJJCCC("i"))>0 then CJJCJCJ=left(CJJCJCJ,instr(CJJCJCJ,CJCJJCCC("i"))-1) elseif instr(CJJCJCJ,CJCJJCCC("["))>0 then CJJCJCJ=left(CJJCJCJ,instr(CJJCJCJ,CJCJJCCC("["))-1) end if:CJJCJJJC=left(CJJCJCJ,15):End Function:Sub Debug(str):response.Charset=CJCJJCCC("FE7\g"):dim CJJJJJC,CJJJCCJ,CJJCJCC:if isarray(str) then on error resume next:CJJJJJC=ubound(str,2):CJJCJCC=err.number:err.clear:on error goto 0:if CJJCJCC<>0 then for CJJJJJC=0 to ubound(str):if CJJJJJC>0 then response.Write CJCJJCCC("k3C ,^m") response.Write CJJJJJC & CJCJJCCC("i ,") & str(CJJJJJC):next else response.Write CJCJJCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJJJJC=0 to ubound(str,2):response.Write CJCJJCCC("kE9 ,2=:8?lV=67EVm") & CJJJJJC & CJCJJCCC("k^E9m") next:response.Write CJCJJCCC("k^ECm"):for CJJJJJC=0 to ubound(str):response.Write CJCJJCCC("kECmkE9m") & CJJJJJC & CJCJJCCC("k^E9m"):for CJJJCCJ=0 to ubound(str,2):response.Write CJCJJCCC("kE5m") & str(CJJJJJC,CJJJCCJ) & CJCJJCCC("k^E5m"):next:response.Write CJCJJCCC("k^ECm"):next:response.Write CJCJJCCC("k^E23=6m") end if elseif isnull(str) then response.Write CJCJJCCC(",}F==.") else Response.Write replace(str,vbcrlf,CJCJJCCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJCCJC,CJCJCCCJ):dim CJJJCJJ:CJJJCJJ=CJCJCCJC & CJCJJCCC("l") & CJCJCCCJ & CJCJJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCCC("$6E\r@@<:6"),CJJJCJJ):End Sub::::::sub ShowMessage(CJCJCCCC):response.Charset=CJCJJCCC("FE7\g"):Response.Write CJCJJCCC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCJCCCC & CJCJJCCC("k^5:Gmk^5:Gmk3Cm") end sub:Function CJJCJJCJ(CJJCJCC):if isnull(CJJCJCC) or trim(CJJCJCC)="" or not isnumeric(CJJCJCC) then CJJCJJCJ=false else Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CJCJJCCC("/-5ZS"):CJJCJJC.IgnoreCase = True:CJJCJJCJ = CJJCJJC.test(CJJCJCC):set CJJCJJC=nothing end if:End Function:Function CJJCJJCC(CJCCJJJJ):dim CJJCCJJ,CJJCCJC:CJJCCJJ=CJCJJCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJJJJ & CJCJJCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCCJC=CJCJJC.execute(CJJCCJJ):CJJCJJCC = CJJCCJC(0):if isnull(CJJCJJCC) then CJJCJJCC=1 CJJCCJC.close : set CJJCCJC=nothing:End Function:::Sub WriteJS(CJCCJJJC):Call ConnClose:response.Charset=CJCJJCCC("FE7\g"):response.write CJCJJCCC("k") & CJCJJCCC("D4C:AEm") & CJCCJJJC & CJCJJCCC("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CJJCJCJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:CJJCCJC.close : set CJJCCJC=nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCJCC.Close : Set CJCJCC=Nothing:CJJCJCCC.Close : Set CJJCJCCC = Nothing:CJCJJC.Close : Set CJCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCCC("!$*0|6DD286"),server.URLEncode(CJCJCCCC)):Response.Redirect CJCJJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCCJJJ():Dim CJJCCJC, CJJCCCJ(), CJJJJJC, CJJJCCJ, CJJCCCC,CJCJJJJ:If Not IsArray(Application(CJCJJCCC("!$*0%6DED"))) Then CJCCJC=CJCJJCCC("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJJCCJC=server.createobject(CJCJJCCC("25@53]C64@C5D6E")):CJJCCJC.open CJCCJC,CJCJJC,1:CJJCCCC = CJJCCJC.RecordCount:CJCJJJJ=CJJCCJC.fields.count-1:ReDim CJJCCCJ(CJJCCCC, CJCJJJJ):If CJJCCCC > 0 Then For CJJJJJC = 1 To CJJCCCC:For CJJJCCJ = 0 To CJCJJJJ:if CJJJCCJ=4 or CJJJCCJ=6 or CJJJCCJ=19 then CJJCCCJ(CJJJJJC, CJJJCCJ) = CJJCCJCC(CJJCCJC(CJJJCCJ)) else CJJCCCJ(CJJJJJC, CJJJCCJ) = CJJCCJC(CJJJCCJ):if CJJCCJC(CJJJCCJ).type<>11 and isnull(CJJCCCJ(CJJJJJC, CJJJCCJ)) then CJJCCCJ(CJJJJJC, CJJJCCJ)="" end if:Next:CJJCCJC.MoveNext:Next End If:CJJCCJC.Close: Set CJJCCJC = Nothing:Application(CJCJJCCC("!$*0%6DED")) = CJJCCCJ End If:CJJCCJJJ = Application(CJCJJCCC("!$*0%6DED")):End Function::Function CCJJJJJ(CJJCJCC):Dim CJCJJJC, CJCJJCJ, CJCJJCC, CJCJCJJ, str:If Not CJJCJJCJ(CJJCJCC) or CJJCJCC=0 Then str=0 else CJCJJJC = Fix(CJJCJCC / 86400):CJCJJCJ = Fix((CJJCJCC - CJCJJJC * 86400) / 3600):CJCJJCC = Fix((CJJCJCC - CJCJJJC * 86400 - CJCJJCJ * 3600) / 60):CJCJCJJ = Fix(CJJCJCC - CJCJJJC * 86400 - CJCJJCJ * 3600 - CJCJJCC * 60):If CJCJJJC <> 0 Then str = CJCJJJC & CJCJJCCC("夤@") If CJCJJCJ <> 0 Then str = str & CJCJJCJ & CJCJJCCC("尊@旱@") If CJCJJCC <> 0 Then str = str & CJCJJCC & CJCJJCCC("刁@") if CJCJCJJ <> 0 Then str = str & CJCJCJJ & CJCJJCCC("种@") end if:CCJJJJJ = str:End Function::::Sub SMS(CJCCCJJ,CJCJJCCJ):dim CJCJCJC:if instr(CJCJJCCJ,CJCJJCCC("【,"))<>1 then CJCJJCCJ=CJCJJCCC("【,徾@浲@寷@舥@】,") & CJCJJCCJ CJCJCJC=CJCJJCCC("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") & CJCCCJJ & CJCJJCCC("U>D8l") + server.urlencode(CJCJJCCJ) Call CJJCCJCJ(CJCJCJC,CJCJJCCC("v6E"),"") End Sub:Function CJJCCJCJ(ByVal CJCJCJC,ByVal CJJCCJJC,Data) Dim CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJJCJCC:if left(CJCJCJC,7)<>CJCJJCCC("9EEAi^^") then CJCJCJC=CJCJJCCC("9EEAi^^") & request.ServerVariables(CJCJJCCC("$t#'t#0}p|t")) & CJCJJCCC("i") & request.ServerVariables(CJCJJCCC("$t#'t#0!~#%")) & CJCJCJC CJJCCJJC=Ucase(CJJCCJJC):Set CJCJCCJ = Server.CreateObject(CJCJJCCC("|DI>=a]$6CG6C)|{w%%!")):CJCJCCJ.Open CJJCCJJC, CJCJCJC, False:if CJJCCJJC=CJCJJCCC("!~$%") then CJCJCCJ.setRequestHeader CJCJJCCC("r@?E6?E\%JA6"),CJCJJCCC("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565") On Error Resume Next:CJCJCCJ.Send Data:if err then Call RedirectMessage(CJCJJCCC("$6CG6C)|{w%%!\tCC@C\,") & CJJCCJJC & CJCJJCCC(".") & CJCJCJC & CJCJJCCC("i ,") & err.description) On Error Goto 0:if CJCJCCJ.Readystate <> 4 or CJCJCCJ.Status<>200 then CJCCJJJ = "" else CJCCJJJ = CJCJCCJ.ResponseText end if:Set CJCJCCJ = Nothing:CJJCCJCJ=CJCCJJJ End Function:::::::::::::::::::::::Function CJJCCJCC(CJCCJJCJ):if isnull(CJCCJJCJ) then CJJCCJCC="" else On Error Resume Next:CJJCCJCC=CJCCJJCJ:if err.number=-2147352567 then CJJCCJCC="":err.Clear end if end if:End Function::Function CJJCCCJJ(CJCCJJCC,str):dim CJJJJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJJCJCC,CJCCCJC,CJJJCCC:CJJJCCC=ucase(CJCCJJCC):CJCCCJC=str:if CJCCCJC="" then CJCCCJC=request.cookies(CJJJCCC):if CJCCCJC="" then CJJCCCJJ="" else CJCCCJC=strreverse(CJCCCJC):CJCCJCJ=len(CJCCCJC):for CJJJJJC=1 to CJCCJCJ-1 step 2:CJCCCJJ=mid(CJCCCJC,CJJJJJC,1):CJJCJCC=mid(CJCCCJC,CJJJJJC+1,1):CJCCJCC=CJCCJCC & CJJCJCC & CJCCCJJ:next:CJCCJCC=replace(CJCCJCC,CJCJJCCC("L0N"),CJCJJCCC(" ,")):CJCCJCC=replace(CJCCJCC,CJCJJCCC("LIN"),CJCJJCCC("Y")):CJCCJCC=replace(CJCCJCC,CJCJJCCC("L:N"),CJCJJCCC("^")):CJJCCCJJ=trim(CJCCJCC) end if else if Len(CJCCCJC) Mod 2=1 then CJCCCJC=CJCCCJC & CJCJJCCC(" ,") CJCCCJC=replace(CJCCCJC,CJCJJCCC(" ,"),CJCJJCCC("L0N")):CJCCCJC=replace(CJCCCJC,CJCJJCCC("Y"),CJCJJCCC("LIN")):CJCCCJC=replace(CJCCCJC,CJCJJCCC("^"),CJCJJCCC("L:N")):CJCCJCJ=len(CJCCCJC):for CJJJJJC=1 to CJCCJCJ-1 step 2:CJCCCJJ=mid(CJCCCJC,CJJJJJC,1):CJJCJCC=mid(CJCCCJC,CJJJJJC+1,1):CJCCJCC=CJCCJCC & CJJCJCC & CJCCCJJ:next:CJCCJCC=Trim(strreverse(CJCCJCC)):CJJCCCJJ=CJCCJCC:response.cookies(CJJJCCC)=CJCCJCC end if:End Function::Sub ClearCache(CJCCJCJJ):Application.Contents.Remove CJCCJCJJ End Sub::Function CJJCCCJC():Call CheckLogined:Dim CJCCCCJ,CJJCCJC,CJCCCCC,CCJJJJJ:CJCCCCJ=CJJJCCCJ(Request.Form(CJCJJCCC("2?DH6C"))):CCJJJJJ=Request.Form(CJCJJCCC("9@H=@?8")):if CJCCCCJ="" then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,糶@绚@沜@朄@莲@发@别@筏@颓@讫@彐@。,")) CJCCCCC=Request.Cookies(CJCJJCCC("%6DExs")):if not CJJCJJCJ(CJCCCCC) then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,糶@绚@沜@朄@莲@发@别@讫@彐@xs,,诲@挄@歞@帳@稆@床@迖@衇@朧@竔@癿@徾@琁@浆@访@!,")) else CJCCJC=CJCJJCCC("D6=64E ,E@A ,` ,52E6E:>6 ,7C@> ,E6DE ,H:E9 ,W?@=@46>36Cl") & CJCCCJ & CJCJJCCC(" ,2?5 ,=3l") & CJJJCCJJ:set CJJCCJC=CJCJJC.execute(CJCCJC):if CJJCCJC.eof then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,糶@绚@厽@敫@W") & CJCCCCC & CJCJJCCC("^") & CJCCCJ & CJCJJCCC("^") & CJJJCCJJ & CJCJJCCC("X锔@诪@!,好@林@患@扎@廻@亁@夕@严@浆@访@窒@叞@,,诲@兮@门@浊@觃@噣@,,釈@斫@癶@彐@糶@绚@迖@衇@浆@访@。,")) else if not CJJCJJCJ(CCJJJJJ) then CCJJJJJ=DateDiff(CJCJJCCC("D"),CJJCCJC(0),Now):if CCJJJJJ<=0 then Randomize:CCJJJJJ=Int((60-5+1)*Rnd+5) end if end if:CJCCJC=CJCJJCCC("FA52E6 ,E6DE ,D6E ,2?DH6ClV") & CJCCCCJ & CJCJJCCC("V[9@H=@?8l") & CCJJJJJ & CJCJJCCC("[52E6E:>6l86E52E6WX[:AlV") & CJJCJJJC & CJCJJCCC("V ,H96C6 ,:5l") & CJCCCCC CJCJJC.Execute CJCCJC end if:CJJCCJC.Close: Set CJJCCJC = Nothing end if:CJJCCCJC = CJCCCCC:End Function:Function CJJCCCCJ():Dim CJCCCCJ, CCJJJJC, CJJCCJC, CJCCCCC, CCJJJCJ,CCJJJCC:CCJJJCJ = Request.Form(CJCJJCCC("52E6E:>6")):CJCCCCJ = Trim(Request.Form(CJCJJCCC("2?DH6C"))):CCJJJJC = CJJJCCCJ(Request.Form(CJCJJCCC("DEF56?E?F>"))):if CCJJJJC="" then Call debug(1) if not isdate(CCJJJCJ) or CCJJJCJ="" then CCJJJCJ=Date dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJCJJCCC(">6>36C0EJA6"):Set CJJCCJC = CJCJCJ.Execute(CJCJJCCC("D6=64E ,E@A ,` ,:5[286 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,") & CCJJCJJ.sql_getchildren(CCJJJC) & CJCJJCCC(" ,2?5 ,?F>36ClV") & CCJJJJC & CJCJJCCC("V")) If CJJCCJC.EOF Then Call Debug(2) CCJJJJC = CJJCCJC(0):CCJJJCC=CJJCCJC(1):if CJJJCCJJ=106 then if CCJJJCC<6 or CCJJJCC>10 then Call debug(3) end if:CJCCJC=CJCJJCCC(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[,52E6E:>6.[:A[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJJJJC & CJCJJCCC("[V") & CJCCCCJ & CJCJJCCC("V[") & CJJJCCJJ & CJCJJCCC("[V") & CCJJJCJ & CJCJJCCC("V[V") & CJJCJJJC & CJCJJCCC("V[`[`X") set CJJCCJC=CJCJJC.Execute(CJCCJC):CJCCCCC = CJJCCJC(0):CJJCCJC.Close: Set CJJCCJC = Nothing:CJJCCCCJ = CJCCCCC:End Function:Sub FinishMemberTest():dim CJJCCJC,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC:CJCCJC=CJCJJCCC("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJCCCJ & CJCJJCCC(" ,2?5 ,=3lV") & CJJJCCJJ & CJCJJCCC("V") CCJCJJC=Request.Cookies(CJCJJCCC("%6DE{:DE")):CCJCJJC=replace(CCJCJJC,CJCJJCCC("Tar"),CJCJJCCC("[")):if CCJCJJC<>"" then CCJCJJC=CJCJJCCC("[") & CCJCJJC & CJCJJCCC("["):CCJCJJC=replace(CCJCJJC,CJCJJCCC("[") & CJJJCCJJ & CJCJJCCC("["),CJCJJCCC("[")):if CCJCJJC=CJCJJCCC("[") then CCJCJJC="" else CCJCJJC=mid(CCJCJJC,2,len(CCJCJJC)-1) end if:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H[D>D0C646:G6C[2FE@05:DEC02DED[EJA6[D>D[D>D0D:8? ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJCJJ):if CJJCCJC.eof then CCJJCJC=1:CCJJCCC=False:CCJCJCJ=0:CCJCCJC=1 else CCJCCCJ=IIf(isnull(CJJCCJC(0)),0,CJJCCJC(0)):CCJJCJC=IIf(CCJCCCJ=0,0,1):CCJJCCC=CJJCCJC(2):CCJCJCJ=CJJCCJC(3):CCJCJCC=CJJCCJC(4):CCJJCCJ=CJJCCJC(1):CCJCCJJ=CJJCCJC(5):set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,?@C>2=[C6DF=E[EJA6 ,7C@> ,E6DE ,H:E9 ,W?@=@4 ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJCCCJ & CJCJJCCC(" ,2?5 ,=3lV") & CCCJJJJ & CJCJJCCC("V") CJCCJC=CJCCJC & CJCJJCCC("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJJCJJCC(CJCJJCCC("E6DE032E49")) & CJCJJCCC("[V") & CCCJJJJ & CJCJJCCC("V") & CJCJJCCC("[_") & CJCJJCCC("[_") & CJCJJCCC("[_") & CJCJJCCC("[") & CJCCCJ & CJCJJCCC("[") & CJCCCJ & CJCJJCCC("[") & CCJJJC & CJCJJCCC("[_") & CJCJJCCC("[V") & Date+30 & CJCJJCCC("V") & CJCJJCCC("[86E52E6WX") & CJCJJCCC("X") if CCJCJJC="" then CCJCJJC=CCCJJJJ elseif instr(CJCJJCCC("[") & CCJCJJC & CJCJJCCC("["),CJCJJCCC("[") & CCCJJJJ & CJCJJCCC("["))=0 then CCJCJJC=CCCJJJJ & CJCJJCCC("[") & CCJCJJC end if end if end if:CJCCJC=CJCCJC & CJCJJCCC("jFA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCJJCJC & CJCJJCCC("[G2=:5l` ,H96C6 ,:5l") & CJCCCCC:CJCJJC.execute CJCCJC:Response.Cookies(CJCJJCCC("%6DExs"))="":dim CCCJJJC:CCCJJJC=CJJCCCJJ(CJCJJCCC("%6DE}@E:7J"),""):CCCJJJC=replace(CCCJJJC,CJCJJCCC("Tau"),CJCJJCCC("^")):if CCCJJJC<>"" then CCJCCCC=CJCJJCCC("E6DE:5l") & CJCCCCC & CJCJJCCC("U2EE249l") & Request.Cookies(CJCJJCCC("%6DEpEE249")):Response.Cookies(CJCJJCCC("%6DE}@E:7J"))="":Response.Cookies(CJCJJCCC("%6DEpEE249"))="":Call CJJCCJCJ(CCCJJJC,CJCJJCCC("!~$%"),CCJCCCC) end if:CJJCCJC.close : set CJJCCJC=nothing:dim CCCJJCJ,CJJJJJC:if CCJCJJC<>"" then if CJJCJJCJ(CCJCJJC) then CCCJJCJ=CCJCJJC else CCCJJCJ=left(CCJCJJC,instr(CCJCJJC,CJCJJCCC("["))-1) end if end if:dim CCCJJCC,CCCJCJJ:CCCJJCC=Request.Cookies(CJCJJCCC("%6DEs6G:46")):CCCJCJJ=Request.Cookies(CJCJJCCC("%6DE':6H")):Response.Cookies(CJCJJCCC("%6DE':6H"))="":dim CCCJCJC:CCCJCJC=Request.Cookies(CJCJJCCC("%6DE#65:C64E")):CCCJCJC=replace(CCCJCJC,CJCJJCCC("Tau"),CJCJJCCC("^")):CCCJCJC=replace(CCCJCJC,CJCJJCCC("Tbu"),CJCJJCCC("n")):CCCJCJC=replace(CCCJCJC,CJCJJCCC("Tab"),CJCJJCCC("R")):if CCCJCJJ="1" then if CCCJCJC="" then Call WriteJS(CJCJJCCC("=2J6C]>D8WV浆@访@巭@绊@宇@戋@,,歞@圣@甚@戋@绎@林@,,稈@吉@臥@劣@跮@轧@柠@眆@V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CJCCCCC & CJCJJCCC("VXNX")) else Call WriteJS(CJCJJCCC("=2J6C]>D8WV浆@访@巭@绊@宇@戋@,,歞@圣@甚@戋@绎@林@,,稈@吉@臥@劣@跮@轧@柠@眆@V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CJCCCCC & CJCJJCCC("U3240 and CCJCJCJ<>6 then Call WriteJS(CJCJJCCC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@,,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV^>^G2?E^R^D49@@=^DEF56?E^AF46VXj")) else Call WriteJS(CJCJJCCC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@,,炴@凶@“,硩@宕@”,吉@轧@同@巭@浆@。,VXjH:?5@H]=@42E:@?]C6A=246WV^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVXj")) end if else Response.Cookies(CJCJJCCC("%6DE#65:C64E"))="":Call WriteJS(CJCJJCCC("2=6CEWV患@癿@朧@顴@浆@访@巭@绊@讫@彐@。,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCJCJC & CJCJJCCC("VXj")) end if else if CCCJCJC="" then Call WriteJS(CJCJJCCC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@,,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV^DEF56?E^E6DE0AF46]2DAVXj")) else Response.Cookies(CJCJJCCC("%6DE#65:C64E"))="":Call WriteJS(CJCJJCCC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@,,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCJCJC & CJCJJCCC("VXj")) end if end if else Response.Cookies(CJCJJCCC("%6DE{:DE"))=CCJCJJC:Call WriteJS(CJCJJCCC("2=6CEWV患@癿@朧@顴@浆@访@巭@绊@宇@戋@,,炴@凶@“,硩@宕@”,吉@臥@劣@跮@轧@别@丆@一,顴@浆@访@。,VXjH:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5l") & CCCJJCJ & CJCJJCCC("UE6DEEJA6l") & CCJCCJC & CJCJJCCC("VXj")) end if:End Sub:Sub FinishAnswerInput():dim CJJCCJC,CCJJCJC,CCJCCCJ:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJCJJ):if CJJCCJC.eof then CCJJCJC=1 else CCJCCCJ=IIf(isnull(CJJCCJC(0)),0,CJJCCJC(0)):CCJJCJC=IIf(CCJCCCJ=0,0,1):set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,?@C>2= ,7C@> ,E6DE ,H:E9 ,W?@=@4:EG:6Hl") & CCJJCJC & CJCJJCCC(" ,H96C6 ,:5l") & CJCCCCC:End Sub:Sub ShowPageHead():if CJJJJJJJ<>CJCJJCCC("$2G6p?DH6Cx?AFE") then Dim str:str=CJCJJCCC("kPs~r%*!t ,9E>=m") & CJCJJCCC("k9E>= ,=2?8lVK9\r}Vm") & CJCJJCCC("k9625m") & CJCJJCCC("k>6E2 ,492CD6ElVFE7\gVm") & CJCJJCCC("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CJCJJCCC("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CJCJJCCC("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CJCJJCCC("kE:E=6m闩@卲@ ,\ ,") & CJJJCCJJ & CJCJJCCC("k^E:E=6m") & CJCJJCCC("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CJCJJCCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CJCJJCCC("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CJCJJCCC("k^9625mk3@5Jm") Response.Write str end if:End Sub:Sub ShowPageFoot():if CJJJJJJJ<>CJCJJCCC("$2G6p?DH6Cx?AFE") then Response.Write CJCJJCCC("k^3@5Jmk^9E>=m") end if:End Sub:Sub GetBaseInfo(CJCCCCC):dim CJJCCCJ,CJJJJJC:CJJCCCJ = CJJCCJJJ:For CJJJJJC = 1 To UBound(CJJCCCJ):If CStr(CJJCCCJ(CJJJJJC, 0)) = CStr(CJCCCCC) Then CJJJJJJC=CJJCCCJ(CJJJJJC,2):CJJJJJCJ=CJJCCCJ(CJJJJJC,1):CJJJJJCC=CJJCCCJ(CJJJJJC,3):CJJJJCJJ=CJJCCCJ(CJJJJJC,7):CJJJJCJC=CJJCCCJ(CJJJJJC,15):Exit For End If:Next:if CJJJJJCJ="" then dim CJJCCJC:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CJCCCCC):if CJJCCJC.eof then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,释@衣@(,") & CJCCCCC & CJCJJCCC("),朥@批@别@我@丈@只@産@。,")) else CJJJJJJC=CJJCCJC(0):CJJJJJCJ=CJJCCJC(1):CJJJJJCC=CJJCCJC(2):CJJJJCJJ=CJJCCJC(3):CJJJJCJC=CJJCCJC(4):Call ClearCache(CJCJJCCC("!$*0%6DED")) end if:CJJCCJC.close : set CJJCCJC=nothing end if:End Sub::::::::::Class jTree:Private CJCCJC, CCJJCJJ, CCCJCCJ, CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC:Private Sub Class_Initialize():CCCJCCJ = 0:CCCJCCC = 0:CCCCJCC=10:End Sub:Public Property Let Table(CJCCJCJC):if CJCCJCJC="" then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@!,")) CCCCJJJ=CJCCJCJC:CCCCJJC=CJCJJCCC("!$*0") & UCase(CCCCJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCJJJ:End Property::Public Property Get Count():Count=CCCJCCC-CCCCJCC:End Property:Private Sub GetTreeArray():Dim CJJJJJC, CJJJCCJ, CCCCCJJ,RecordCount:CCJJCJJ = Application(CCCCJJC):If Not IsArray(CCJJCJJ) Then CJCCJC = CJCJJCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCJJJ:if CCCCJCJ<>"" then CJCCJC=CJCCJC & CJCJJCCC(" ,H96C6 ,") & CCCCJCJ set CCCCCJJ=CJCJJC.execute(CJCCJC):RecordCount=CCCCCJJ(0):if RecordCount=0 then Call RedirectMessage(CJCJJCCC("柠@话@W") & CCCCJJJ & CJCJJCCC("^") & CCCCJCJ & CJCJJCCC("X沜@朄@绎@林@敫@捩@")) CCCJCCC=RecordCount+CCCCJCC:ReDim CCJJCJJ(CCCJCCC, 4):CJCCJC = CJCJJCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJJJ & CJCJJCCC(" ,H:E9 ,W?@=@4"" then CJCCJC=CJCCJC & CJCJJCCC(" ,H96C6 ,") & CCCCJCJ CJCCJC=CJCCJC & CJCJJCCC(" ,@C56C ,3J ,D@CE[:5"):set CCCCCJJ=CJCJJC.execute(CJCCJC):For CJJJJJC = 1 To RecordCount:For CJJJCCJ = 0 To 4:CCJJCJJ(CJJJJJC, CJJJCCJ) = CCCCCJJ(CJJJCCJ):if IsNull(CCJJCJJ(CJJJJJC,4)) then CCJJCJJ(CJJJJJC,4)=0 If CCJJCJJ(CJJJJJC,2)="" then CCJJCJJ(CJJJJJC,2)=CJCJJCCC(",穵@.") Next:CCCCCJJ.MoveNext:Next:CCCCCJJ.Close: Set CCCCCJJ = Nothing:for CJJJJJC=CCCJCCC-(CCCCJCC-1) to CCCJCCC:CCJJCJJ(CJJJJJC,0)=CJJJJJC:next:Application.Lock():Application(CCCCJJC) = CCJJCJJ:Application.UnLock() else CCCJCCC=Ubound(CCJJCJJ) End If:End Sub:::::Private Function CJCJJJJC(CJCCCCC):dim CJJJJJC,CCCCCCJ:CJCJJJJC=0:CCCCCCJ=CStr(CJCCCCC):if CCCCCCJ<>"0" then for CJJJJJC=1 to CCCJCCC:If CStr(CCJJCJJ(CJJJJJC, 0))=CCCCCCJ Then CJCJJJJC = CJJJJJC:Exit For End If:Next end if:End Function::::Public Function CJCJJJCJ(CJCCCCC):Dim CJJJJJC,CCCCCCC:CJJJJJC=CJCJJJJC(CJCCCCC):if CJJJJJC=0 then CCCCCCC=CJCJJJCC(CJCCCCC) else CCCCCCC=CCJJCJJ(CJJJJJC,3):if isnull(CCCCCCC) or CCCCCCC="" then CCCCCCC=CJCJJJCC(CJCCCCC) elseif Mid(CCCCCCC,instrrev(CCCCCCC,CJCJJCCC("["))+1)<>CStr(CJCCCCC) then CCCCCCC=CJCJJJCC(CJCCCCC) elseif Left(CCCCCCC,1)=CJCJJCCC("[") then CCCCCCC=CJCJJJCC(CJCCCCC) end if end if:CJCJJJCJ=CCCCCCC:End Function:Private Function CJCJJJCC(CJCCCCC):dim CCCCCCJ:CCCCCCJ=CStr(CJCCCCC):if CCCCCCJ="0" then CJCJJJCC="" else dim CCCCCJJ:set CCCCCJJ=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJJJ & CJCJJCCC(" ,H96C6 ,:5l") & CJCCCCC):if CCCCCJJ.eof then Call UpdateCache(CJCCCCC,"","","",""):Call RedirectMessage(CJCJJCCC("顴@盩@(,xs:,") & CJCCCCC & CJCJJCCC("),丈@孓@圣@,,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCCCCJJ(0)=0 then CJCJJJCC="0," & CJCCCCC else CJCJJJCC=CJCJJJCJ(CCCCCJJ(0)) & CJCJJCCC("[") & CJCCCCC end if:if CCCCCJJ(2)<>CJCJJJCC then CJCJJC.execute CJCJJCCC("FA52E6 ,") & CCCCJJJ & CJCJJCCC(" ,D6E ,A2E9lV") & CJCJJJCC & CJCJJCCC("V ,H96C6 ,:5l") & CJCCCCC else CJCJJJCC=CCCCCJJ(2) end if end if:Call UpdateCache(CJCCCCC,CCCCCJJ(0),CCCCCJJ(1),CJCJJJCC,CCCCCJJ(3)):CCCCCJJ.Close: Set CCCCCJJ = Nothing end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCCCC):dim CCCCCCC:CCCCCCC=CJCJJJCJ(CJCCCCC):Sql_GetChildren = CCCCJJJ & CJCJJCCC("0A2E9ZV[V ,=:<6 ,V") & CCCCCCC & CJCJJCCC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCCJJC End Sub:Public Sub UpdateCache(CJCCCCC,CJCCJCCJ,CJCCJCCC,CCCCCCC,CJCCCJJJ):dim CJJJJJC,CJJJCCJ:CJCCCCC=CLng(CJCCCCC):CJJJJJC=CJCJJJJC(CJCCCCC):if CJCCJCCJ="" and CJCCJCCC="" and CCCCCCC="" and CJCCCJJJ="" then if CJJJJJC>0 then for CJJJCCJ=1 to 4:CCJJCJJ(CJJJJJC,CJJJCCJ)=Null:next end if else if CJJJJJC=0 then for CJJJCCJ=1 to CCCJCCC:if CCJJCJJ(CJJJCCJ,1) & ""="" then CJJJJJC=CJJJCCJ:exit for end if:next end if:if CJJJJJC=0 then Call ClearCache else CCJJCJJ(CJJJJJC,0)=CLng(CJCCCCC):if CJCCJCCJ<>"" then CCJJCJJ(CJJJJJC,1)=CLng(CJCCJCCJ) if CJCCJCCC<>"" then CCJJCJJ(CJJJJJC,2)=CJCCJCCC if CCCCCCC<>"" then CCJJCJJ(CJJJJJC,3)=CCCCCCC if CJCCCJJJ<>"" then CCJJCJJ(CJJJJJC,4)=CLng(CJCCCJJJ) end if end if:if CJJJJJC>0 then Application.Lock():Application(CCCCJJC) = CCJJCJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJCJCCCC):Call ConnClose:Response.Write CJCJCCCC:Response.End:End Sub:Private Function CJJCJJCC():CJJCJJCC=CJCJJCJC+1:End Function:Private Function CJCJJCJC():dim CJJCCJC:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCJJJ & CJCJJCCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCJC=CJJCCJC(0):CJJCCJC.Close: Set CJJCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCCJJ=101:Dim CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJCCCCC,CJJJJCJJ,CJJJJCJC,CJJJJCCJ:CJJJJJJJ=Request.QueryString(CJCJJCCC("24E")):if CJJJJJJJ="" then CJJJJJJJ=Request.Form(CJCJJCCC("24E")) if CJJJJJJJ="" then CJJJJJJJ=Request.Cookies(CJCJJCCC("!$*"))(CJCJJCCC("%6DEp4E")) if CJJJJJJJ="" then Call RedirectMessage(CJCJJCCC("寴@丈@赲@,,糶@绚@厽@敫@Wp4EX丵@穵@!,")) CJJJJCCJ=CJCJJCCC("E6DE"):dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJCJJCCC(">6>36C0EJA6"):Call GetBaseInfo(CJJJCCJJ):Call ShowPageHead:Select Case CJJJJJJJ:Case CJCJJCCC("|6>36C%6DE"):CJCCCCC=CJJCCCJC:Call MakeResult:Call FinishMemberTest:Case CJCJJCCC("$2G6p?DH6Cx?AFE"):CJCCCCC = CJJCCCCJ:Call MakeResult:Call FinishAnswerInput:Case CJCJJCCC("|2<6#6DF=E"):CJCCCCC=request.QueryString(CJCJJCCC(":5")):Call MakeResult:Case CJCJJCCC("p?DH6CatI46="):Call CheckRight(42):Call Answer2Excel:Case CJCJJCCC("$4@C6atI46="):Call CheckRight(42):Call Score2Excel:Case Else Call ShowMessage(CJCJJCCC("寴@丈@赲@,,释@衣@丈@攪@拼@诠@劚@胸@!,")):End Select:Call ShowPageFoot:sub MakeResult():dim CJCCCCJ,CJJJJJC,CJJJJCCC,CJJCCJC,CJJJCJJJ,CJJJCJJC:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,2?DH6C ,7C@> ,E6DE ,H96C6 ,:5l") & CJCCCCC):CJCCCCJ=split(CJJCCJC(0),CJCJJCCC("M")):CJJJJCCC=0:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,C6G6CD6 ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJJCCJJ & CJCJJCCC(" ,@C56C ,3J ,D@CE")):for CJJJJJC=0 to 29:CJCCCCJ(CJJJJJC)=cint(CJCCCCJ(CJJJJJC)):if CJJCCJC(0) then CJCCCCJ(CJJJJJC)=CJCCCCJ(CJJJJJC)-1 else CJCCCCJ(CJJJJJC)=2-CJCCCCJ(CJJJJJC) CJJJJCCC=CJJJJCCC+CJCCCCJ(CJJJJJC):CJJCCJC.movenext:next:if CJJJJCCC<=9 then CJJJCJJJ=1 elseif CJJJJCCC<=20 then CJJJCJJJ=2 else CJJJCJJJ=3 end if:set CJJCCJC=CJCJJC.execute(CJCJJCCC("D6=64E ,E@A ,` ,6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJJCCJJ & CJCJJCCC(" ,2?5 ,D@CEl") & CJJJCJJJ):CJJJCJJC=CJJCCJC(0):CJJCCJC.close : set CJJCCJC=nothing:CJCJJC.execute(CJCJJCCC("FA52E6 ,E6DE ,D6E ,D4@C6lV") & join(CJCCCCJ,CJCJJCCC("M")) & CJCJJCCC("V[D4@C60C2HlV") & CJJJJCCC & CJCJJCCC("V[D4@C6056E2:=lV") & CJJJJCCC & CJCJJCCC("V[C6DF=ElV") & (CJJJCJJJ-1) & CJCJJCCC("V[6IA=2:?lV") & CJJJCJJC & CJCJJCCC("V[G2=:5l` ,H96C6 ,:5l") & CJCCCCC) end sub::On Error Resume Next:set CCJJCJJ=nothing:set CJJCJCJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=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 CJCJJCCC(ByVal CJCJJCCJ) Dim CJJJCJCJ, CJJJJJC, CJJCJCC CJCJJCCJ = Replace(CJCJJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJJJJC = 1 To Len(CJCJJCCJ) If CJJJJJC <> CJJCJCC Then CJJJCJCJ = AscW(Mid(CJCJJCCJ, CJJJJJC, 1)) If CJJJCJCJ >= 33 And CJJJCJCJ <= 79 Then CJCJJCCC = CJCJJCCC & Chr(CJJJCJCJ + 47) ElseIf CJJJCJCJ >= 80 And CJJJCJCJ <= 126 Then CJCJJCCC = CJCJJCCC & Chr(CJJJCJCJ - 47) Else CJJCJCC = CJJJJJC + 1 If Mid(CJCJJCCJ, CJJCJCC, 1) = Chr(64) Then CJCJJCCC = CJCJJCCC & ChrW(CJJJCJCJ + 5) Else CJCJJCCC = CJCJJCCC & Mid(CJCJJCCJ, CJJJJJC, 1) End If End If Next End Function %>