<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJJJJ, CCJJJC,CCJJCJ, CCJJCC, CCJCJJ:Set CCJJJJ = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CCJJJJ.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CCJJJC=CCJJJJ::Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC:CJJJCCC=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJJJCCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJCJC>0 then CCJCJJ=CCCJJCC("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(CCCJJCC("弬@寁@矼@,,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCJCJC,CCJCCJ) End IF end if:::Sub CheckLogined():if CCJCJC=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CCCJJCC("D49@@="))):if isnumeric(CJJCJJJ) then response.Redirect CCCJJCC("^>^G2?E^R^D49@@=^") & CJJCJJJ & CCCJJCC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCCJJCC("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CCJCJC=0:CCCJCJ=0:CCJCCJ=Empty:CCCJJC=0:CCCCJJ=0:CCCJCC=0:CCCJJJ=0:CCCCCJ=False:CJJJCJC=False:CJJJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:CJJCJJC=split(CJJJCCC,CCCJJCC("]")):if ubound(CJJCJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then Call ClearMemberCookie else CJJCJCJ=CJJCJJC(1):for CJJCJCC=1 to len(CJJCJCJ):CJJCCJJ=mid(CJJCJCJ,CJJCJCC,1):if isnumeric(CJJCCJJ) then CJJCCJC=CJJCCJC & CJJCCJJ if len(CJJCCJC)=7 then exit for next:CJJCJCJ=CJJCJJC(2):if CJJCCJC<>mid(CJJCJCJ,6,7) then Call ClearMemberCookie else CJJCCJJ=mid(CJJCJCJ,18,10)/2:if CJJCCJJ0 then CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CCCJJCC("i"))-1) elseif instr(CJJCCCJ,CCCJJCC("["))>0 then CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CCCJJCC("["))-1) end if:CCJCJJJ=left(CJJCCCJ,15):End Function:::Sub SetHttpOnlyCookie(CCCCJJC,CCCCJCJ):dim CJJCJJC:CJJCJJC=CCCCJJC & CCCJJCC("l") & CCCCJCJ & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CCJCJJC(CCJJCJC):if isnull(CCJJCJC) or trim(CCJJCJC)="" or not isnumeric(CCJJCJC) then CCJCJJC=false else Dim CJJCCCC:Set CJJCCCC = New RegExp:CJJCCCC.Pattern = CCCJJCC("/-5ZS"):CJJCCCC.IgnoreCase = True:CCJCJJC = CJJCCCC.test(CCJJCJC):set CJJCCCC=nothing end if:End Function::::Sub WriteJS(CCCCJCC):Call ConnClose:response.Charset=CCCJJCC("FE7\g"):response.write CCCJJCC("k") & CCCJJCC("D4C:AEm") & CCCCJCC & CCCJJCC("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CCJJCC.Close : Set CCJJCC=Nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CCJCCCJ.Close : Set CCJCCCJ = Nothing:CCJJJJ.Close : Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCCJJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJCCCC():Dim CJCJJJJ, CJCJJJC(), CJJCJCC, CJJCCJJ, CJCJJCJ,CJCJJCC:If Not IsArray(Application(CCCJJCC("!$*0%6DED"))) Then CCJCJJ=CCCJJCC("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 CJCJJJJ=server.createobject(CCCJJCC("25@53]C64@C5D6E")):CJCJJJJ.open CCJCJJ,CCJJJJ,1:CJCJJCJ = CJCJJJJ.RecordCount:CJCJJCC=CJCJJJJ.fields.count-1:ReDim CJCJJJC(CJCJJCJ, CJCJJCC):If CJCJJCJ > 0 Then For CJJCJCC = 1 To CJCJJCJ:For CJJCCJJ = 0 To CJCJJCC:if CJJCCJJ=4 or CJJCCJJ=6 or CJJCCJJ=19 then CJCJJJC(CJJCJCC, CJJCCJJ) = CCCJJJC(CJCJJJJ(CJJCCJJ)) else CJCJJJC(CJJCJCC, CJJCCJJ) = CJCJJJJ(CJJCCJJ):if CJCJJJJ(CJJCCJJ).type<>11 and isnull(CJCJJJC(CJJCJCC, CJJCCJJ)) then CJCJJJC(CJJCJCC, CJJCCJJ)="" end if:Next:CJCJJJJ.MoveNext:Next End If:CJCJJJJ.Close: Set CJCJJJJ = Nothing:Application(CCCJJCC("!$*0%6DED")) = CJCJJJC End If:CCJCCCC = Application(CCCJJCC("!$*0%6DED")):End Function:Function CCCJJJJ(CJCCJJC):Dim CJJCJCC, CJCJCJJ(), CJCJJJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CJCJCCJ = CCJCCCC:For CJJCJCC = 1 To UBound(CJCJCCJ):If CStr(CJCJCCJ(CJJCJCC, 0)) = CStr(CJCCJJC) Then CJCCJJJ=CJCJCCJ(CJJCJCC,2):CJCJCCC=CJCJCCJ(CJJCJCC,7):CJCJCJC=CJCJCCJ(CJJCJCC,3):Exit For End If:Next:if CJCJCCC="" then CCJCJJ=CCCJJCC("D6=64E ,BF6DE:@?[2?DH6C[EJA6 ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJCCJJC & CCCJJCC(" ,@C56C ,3J ,D@CE") else CCJCJJ=CCCJJCC("$t{tr% ,BF6DE:@?[ ,WD6=64E ,E@A ,` ,2?DH6C ,7C@> ,=3 ,H96C6 ,:5l") & CJCCJJC & CCCJJCC("X ,p$ ,2?DH6C[EJA6 ,u#~| ,=3BF6DE:@? ,H96C6 ,=3l") & CJCCJJC & CCCJJCC(" ,~#st# ,q* ,D@CE") end if:set CJCJJJJ=CCJJJJ.execute(CCJCJJ):ReDim CJCJCJJ(CJCJCJC, 2):For CJJCJCC = 1 To CJCJCJC:CJCJCJJ(CJJCJCC, 0) = CJCJJJJ(0) & "":CJCJCJJ(CJJCJCC, 1) = CJCJJJJ(1) & "":CJCJCJJ(CJJCJCC, 2) = CJCJJJJ(2):CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:CCCJJJJ = CJCJCJJ:End Function:::::::::::::::::::::::::::::Function CCCJJJC(CCCCCJC):if isnull(CCCCCJC) then CCCJJJC="" else On Error Resume Next:CCCJJJC=CCCCCJC:if err.number=-2147352567 then CCCJJJC="":err.Clear end if end if:End Function::::::Call CheckLogined:dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJJCJJJ:CJCCJJC=Request.QueryString(CCCJJCC("=3:5")):CJCCJCJ=request.QueryString(CCCJJCC("32E49:5")):CJCCJCC=request.QueryString(CCCJJCC("E6DEEJA6")):CJCCCJJ=request.QueryString(CCCJJCC("286")):CJCCCJC=Request.ServerVariables(CCCJJCC("w%%!0#tut#t#")):CJJCJJJ=CCCJCC:if not CCJCJJC(CJCCJJC) or CJCCJJC="0" then Call RedirectMessage(CCCJJCC("寴@丈@赲@,,糶@绚@厽@敫@W=3:5X锔@诪@!,")) if not CCJCJJC(CJCCJCC) then CJCCJCC=0 else CJCCJCC=1 dim CJCJCCJ,CJCJJJC(22),CJJCJCC,CJJCCJJ:CJCJCCJ = CCJCCCC:For CJJCJCC = 1 To UBound(CJCJCCJ):If CStr(CJCJCCJ(CJJCJCC, 0)) = CStr(CJCCJJC) Then for CJJCCJJ=0 to 22:CJCJJJC(CJJCCJJ)=CJCJCCJ(CJJCJCC,CJJCCJJ):next:Exit For End If:Next:if CJCJJJC(14)="" then CJCJJJC(14)=CJCJJJC(1) if CJCJJJC(1)="" then CCJCJJ=CCCJJCC("D6=64E ,E@A ,` ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[:?EC@b[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[@AE0>@?6J[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CJCCJJC:set CCJJCJ=CCJJJJ.execute(CCJCJJ):if CCJJCJ.eof then Call RedirectMessage(CCCJJCC("寴@丈@赲@,,沜@朄@批@别@盳@序@癿@浆@诐@释@衣@W") & CJCCJJC & CCCJJCC("X!,")) else for CJJCCJJ=0 to 21:CJCJJJC(CJJCCJJ)=CCJJCJ(CJJCCJJ):next:Application.Contents.Remove CCCJJCC("!$*0%6DED") end if end if:if CJCCCJJ<>"0" then if not CCJCJJC(CJCJJJC(17)) then CJCJJJC(17)=0 if not CCJCJJC(CJCJJJC(9)) then CJCJJJC(9)=100 If CCCCJC < CJCJJJC(17) Or CCCCJC > CJCJJJC(9) Then Call RedirectMessage(CCCJJCC("患@W") & CCJCJC & CCCJJCC("X癿@幯@齿@W") & CCCCJC & CCCJJCC("X丈@圣@") & CJCJJJC(17) & CCCJJCC("别@") & CJCJJJC(9) & CCCJJCC("乆@闯@,,丈@追@吃@迖@衇@诠@浆@访@W") & CJCCJJC & CCCJJCC("X。,")) end if:dim CJCCCCJ:if CJCCCCJ=0 then CJCCCCJ=CJCJJJC(11) if CJCCCCJ="" or isnull(CJCCCCJ) then CJCCCCJ=0 elseif CJCCCCJ=0 and CJJCJJJ>0 then CJCCCCJ=0 elseif CJCCJJC="121" or CJCCJJC="164" or CJCCJJC="159" then CJCCCCJ=0 elseif instr(CJCCCJC,CCCJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCCJC,CCCJJCC("^>^E6DE^"))>0 then CJCCCCJ=0 elseif CCJCJJC(CJCCJCJ) then dim CJCCCCC:set CCJJCJ=CCJJJJ.execute(CCCJJCC("D6=64E ,E@A ,` ,>@?6J05:D4@F?E ,7C@> ,E6DE032E49 ,H96C6 ,:5l") & CJCCJCJ):if not CCJJCJ.eof then CJCCCCC=CCJJCJ(0):if isnull(CJCCCCC) then CJCCCCJ=0 else CJCCCCJ=cint(CJCCCCJ*CJCCCCC/10) end if end if end if:dim CCJJJJJ CCJJJJJ=Request.Cookies(CCCJJCC("!$*"))(CCCJJCC("%6DE#6>2C<")) Response.Cookies(CCCJJCC("!$*"))(CCCJJCC("%6DE#6>2C<"))="" if CCJJJJJ="" then CCJJJJJ=CCCJJCC("}F==") else CCJJJJJ=CCCJJCC("V") & CCJJJJJ & CCCJJCC("V") dim CCJJJJC:set CCJJCJ=CCJJJJ.execute(CCCJJCC("D6=64E ,E@A ,` ,:5[G2=:5[52E6E:>6 ,7C@> ,E6DE ,H96C6 ,>6>36Cl") & CCJCJC & CCCJJCC(" ,2?5 ,=3l") & CJCCJJC & CCCJJCC(" ,@C56C ,3J ,:5 ,56D4")):if CCJJCJ.eof then CCJCJJ=CCCJJCC(":?D6CE ,:?E@ ,E6DEW>6>36C[=3[:A[EJA6[,>@?6J.[C6>2C<[52E6E:>6[?@C>2=X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJCJC & CCCJJCC("[") & CJCCJJC & CCCJJCC("[V") & CCJCJJJ & CCCJJCC("V") & CCCJJCC("[") & CJCCJCC & CCCJJCC("[") & CJCCCCJ & CCCJJCC("[") & CCJJJJJ & CCCJJCC("[86E52E6WX") & CCCJJCC("[`") & CCCJJCC("X") set CCJJCJ=CCJJJJ.execute(CCJCJJ):CCJJJJC=CCJJCJ(0) elseif not CCJJCJ(1) then CCJJJJC=CCJJCJ(0):CCJCJJ=CCCJJCC("FA52E6 ,E6DE ,D6E") & CCCJJCC(" ,:AlV") & CCJCJJJ & CCCJJCC("V") & CCCJJCC("[52E6E:>6l86E52E6WX") & CCCJJCC("[EJA6l") & CJCCJCC & CCCJJCC("[6IA=2:?l?F==") & CCCJJCC("[25G:46l?F==") & CCCJJCC("[,>@?6J.l") & CJCCCCJ & CCCJJCC("[A2J>6?El_") & CCCJJCC("[C6>2C2=l`") & CCCJJCC(" ,H96C6 ,:5l") & CCJJJJC CCJJJJ.execute CCJCJJ elseif DateDiff(CCCJJCC("9"),CCJJCJ(2),Now)>24 then CCJCJJ=CCCJJCC(":?D6CE ,:?E@ ,E6DEW>6>36C[=3[:A[EJA6[,>@?6J.[C6>2C<[52E6E:>6[?@C>2=X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJCJC & CCCJJCC("[") & CJCCJJC & CCCJJCC("[V") & CCJCJJJ & CCCJJCC("V") & CCCJJCC("[") & CJCCJCC & CCCJJCC("[") & CJCCCCJ & CCCJJCC("[") & CCJJJJJ & CCCJJCC("[86E52E6WX") & CCCJJCC("[`") & CCCJJCC("X") set CCJJCJ=CCJJJJ.execute(CCJCJJ):CCJJJJC=CCJJCJ(0) elseif CJCCJJC="214" and month(CCJJCJ(2))<>month(Date) then CCJCJJ=CCCJJCC(":?D6CE ,:?E@ ,E6DEW>6>36C[=3[:A[EJA6[,>@?6J.[C6>2C<[52E6E:>6[?@C>2=X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJCJC & CCCJJCC("[") & CJCCJJC & CCCJJCC("[V") & CCJCJJJ & CCCJJCC("V") & CCCJJCC("[") & CJCCJCC & CCCJJCC("[") & CJCCCCJ & CCCJJCC("[") & CCJJJJJ & CCCJJCC("[86E52E6WX") & CCCJJCC("[`") & CCCJJCC("X") set CCJJCJ=CCJJJJ.execute(CCJCJJ):CCJJJJC=CCJJCJ(0) else Call RedirectMessage(CCCJJCC("患@巭@绊@圣@") & CCJJCJ(2) & CCCJJCC("浆@访@迂@亁@。,,k2 ,9C67lV]]^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVm巭@浆@k^2m.")) end if:Response.Cookies(CCCJJCC("%6DExs"))=CCJJJJC:Response.Cookies(CCCJJCC("!$*"))(CCCJJCC("%6DEp4E"))=CCCJJCC("|6>36C%6DE"):Response.Cookies(CCCJJCC("%6DEs6G:46"))=CCCJJCC("|@3:=6"):if CJCCJJC="9" or CJCCJJC="44" or CJCCJJC="50" or CJCCJJC="52" or CJCCJJC="198" then Call WriteJS(CCCJJCC("H:?5@H]=@42E:@?]C6A=246WV]]^]]^=3^9E>=^") & CJCCJJC & CCCJJCC("]9E>VXj")) Response.Write(vbCrLf):Response.Write(CCCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m")):Response.Write CJCJJJC(14):Response.Write(CCCJJCC("k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CCCJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,Ru`u`u`j ,N") & vbCrLf):Response.Write(CCCJJCC("9`L>2C8:?\E@Ai`dAIjN") & vbCrLf):Response.Write(CCCJJCC("RAC@8C6DD0HC2A[ ,RBF6DE:@? ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCJJCC("]2>\A2?6=\DF446DD ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCJJCC("]2>\A2?6=\DF446DD ,=236= ,L ,4FCD@Ci ,A@:?E6Cj ,N") & vbCrLf):Response.Write(CCCJJCC("]2>\A2?6=\DF446DD ,:?AFE,EJA6lQE6IEQ. ,LH:5E9i`__TjN") & vbCrLf):Response.Write(CCCJJCC("]2>\A2?6=\DF446DD ,E6IE2C62 ,L ,H:5E9i ,`__Tj ,96:89Ei`__AIj ,N") & vbCrLf):Response.Write(CCCJJCC("DA2?]C65 ,L ,4@=@Ci ,C65j ,7@?E\H6:89Ei ,3@=5j ,N") & vbCrLf):Response.Write(CCCJJCC("R:?EC@ ,]>@?6J ,L ,7@?E\D:K6i ,`]aC6>j ,N") & vbCrLf):Response.Write(CCCJJCC("^Y瑙@斂@Y^") & vbCrLf):Response.Write(CCCJJCC(":>8]C2G6? ,L ,>2C8:?i ,_ ,2FE@j ,5:DA=2Ji ,3=@4\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,kP\\栂@颓@,,一,盯@呃@玫@\\m") & vbCrLf):Response.Write(CCCJJCC(" ,k9` ,4=2DDlQ2>\E6IE\46?E6CQm")):Response.Write CJCJJJC(14):Response.Write(CCCJJCC("k^9`m") & vbCrLf):Response.Write(CCCJJCC(" ,kP\\筻@仆@,,廻@姆@浆@诐@吉@隋@藊@\\m") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,:5lQ:?EC@Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k9C ,52E2\2>\H:586ElQ5:G:56CQ ,4=2DDlQ2>\5:G:56C ,2>\5:G:56C\52D965Qm") & vbCrLf):Response.Write(CCCJJCC(" ,")):If CJCJJJC(22)<>"" Then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k:>8 ,DC4lQ")):Response.Write CJCJJJC(22):Response.Write(CCCJJCC("Q ,4=2DDlQ2>\:>8\C6DA@?D:G6 ,2>\E9F>3?2:= ,2>\46?E6CQ ,2=ElQ栂@颓@囹@牂@Qm") & vbCrLf):Response.Write(CCCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kP\\挂@寷@诨@\\m") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\A2?6= ,2>\A2?6=\5672F=EQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\A2?6=\35Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm")):Response.Write CJCJJJC(4):Response.Write(CCCJJCC("k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k5:G ,4=2DDlQ2>\E6IE\46?E6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\DF446DDQ ,:5lQ3E?0DE2CEQmkDA2? ,4=2DDlQ2>\:4@?\A6?4:=Qmk^DA2?m ,廻@姆@浆@诐@k^3FEE@?m") & vbCrLf):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("kP\\迖@庡@杜@\\m") & vbCrLf):Response.Write(CCCJJCC("k5:G ,:5lQAC@8C6DD0HC2AQ ,4=2DDlQ2>\AC@8C6DD ,2>\AC@8C6DD\DEC:A65Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,:5lQAC@8C6DDQ ,4=2DDlQ2>\AC@8C6DD\32C ,2>\AC@8C6DD\32C\H2C?:?8Q ,DEJ=6lQH:5E9i`Tj ,>:?\H:5E9ic6>jQmkDA2? ,:5lQ4FCC6?E0?F>Qm`k^DA2?m^")):Response.Write CJCJJJC(3):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("kP\\颓@盩@\\m") & vbCrLf):Response.Write(CCCJJCC("k5:G ,:5lQBF6DE:@?Q ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\F\D>\`_ ,2>\F\D>\@77D6E\` ,2>\F\>5\g ,2>\F\>5\@77D6E\aQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ=:DEQm") & vbCrLf):Response.Write(CCCJJCC(" ,")):dim CCJJJCJ,CCJJJCC:CCJJJCJ = CCCJJJJ(CJCCJJC):For CJJCJCC = 1 To CJCJJJC(3):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\A2?6= ,2>\A2?6=\DF446DDQ ,:5lQB0")):Response.Write CJJCJCC:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\A2?6=\95Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k9b ,4=2DDlQ2>\A2?6=\E:E=6Qm") & vbCrLf):Response.Write(CCCJJCC(" ,")):if CJCCJJC=44 then response.Write CCCJJCC("k:>8 ,DC4lV^=3^:>286D^C2G6?^") & CCJJJCJ(CJJCJCC,0) & CCCJJCC("V ,4=2DDlVC2G6? ,2>\:>8\C6DA@?D:G6 ,2>\:>8\E9F>3?2:= ,2>\C25:FDVm") else response.Write CJJCJCC & CCCJJCC("、,") & replace(CCJJJCJ(CJJCJCC,0),CCCJJCC("M"),CCCJJCC("k3Cmk3Cm")) end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,")):if CCJJJCJ(CJJCJCC,2)=0 then CCJJJCC=split(CCJJJCJ(CJJCJCC,1),CCCJJCC("M")):Response.Write CCCJJCC("kF= ,4=2DDlV2>\=:DE ,2>\=:DE\DE2E:4Vm") for CJJCCJJ=0 to ubound(CCJJJCC):response.Write CCCJJCC("k=:mk=236= ,4=2DDlV2>\C25:@Vmk:?AFE ,EJA6lVC25:@V ,?2>6lV20") & CJJCJCC & CCCJJCC("V ,G2=F6lV") & CJJCCJJ+1 & CCCJJCC("V ,52E2\2>\F4964\=:DE ,2>\=:DE\DE2E:4Vm") for CJJCCJJ=0 to ubound(CCJJJCC):response.Write CCCJJCC("k=:mk=236= ,4=2DDlV2>\4964<3@IVmk:?AFE ,EJA6lV4964<3@IV ,?2>6lV20") & CJJCJCC & CCCJJCC("V ,G2=F6lV") & CJJCCJJ+1 & CCCJJCC("V ,52E2\2>\F4964\A2?6=\35Vmk:?AFE ,EJA6lVE6IEV ,4=2DDlV2>\7@C>\7:6=5V ,?2>6lV20") & CJJCJCC & CCCJJCC("Vmk^5:Gm") elseif CCJJJCJ(CJJCJCC,2)=3 then response.Write CCCJJCC("k5:G ,4=2DDlV2>\A2?6=\35VmkE6IE2C62 ,4=2DDlV2>\7@C>\7:6=5V ,?2>6lV20") & CJJCJCC & CCCJJCC("Vmk^E6IE2C62mk^5:Gm") elseif CCJJJCJ(CJJCJCC,2)=4 then response.Write CCCJJCC("k5:G ,4=2DDlV2>\A2?6=\35VmkD6=64E ,?2>6lV20") & CJJCJCC & CCCJJCC("V ,52E2\2>\D6=64E65m") CCJJJCC=split(CCJJJCJ(CJJCJCC,1),CCCJJCC("M")):for CJJCCJJ=0 to ubound(CCJJJCC):response.Write CCCJJCC("k@AE:@? ,G2=F6lV") & CJJCCJJ+1 & CCCJJCC("Vm") & CCJJJCC(CJJCCJJ) & CCCJJCC("k^@AE:@?m") next:response.Write CCCJJCC("k^D6=64Emk^5:Gm") elseif CCJJJCJ(CJJCJCC,2)=6 then response.Write CCCJJCC("k5:G ,4=2DDlV2>\A2?6=\35Vmk:?AFE ,EJA6lVE:>6V ,?2>6lV20") & CJJCJCC & CCCJJCC("V ,G2=F6lV__i__Vmk^5:Gm") end if:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,kP\\ ,歟@衣@卐@揋@亟@绔@月@劜@噣@ ,\\m") & vbCrLf):Response.Write(CCCJJCC(" ,k7@C> ,:5lQ7@C>Q ,>6E9@5lQA@DEQ ,24E:@?lQ]]^]]^=3^")):Response.Write IIf(CJCJJJC(20),CCCJJCC("=304FDE@>"),CJCJJJC(2)):Response.Write(CCCJJCC("]2DAQ ,4=2DDlQ2>\E6IE\46?E6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\D>Q ,:5lQ3E?0AC6GQmkDA2? ,4=2DDlQ2>\:4@?\496GC@?\=67EQmk^DA2?m ,丅@一,颓@k^3FEE@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\D>Q ,:5lQ3E?0?6IEQm丆@一,颓@ ,kDA2? ,4=2DDlQ2>\:4@?\496GC@?\C:89EQmk^DA2?mk^3FEE@?m") & vbCrLf):Response.Write(CCCJJCC(" ,k3FEE@? ,EJA6lQDF3>:EQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\D>Q ,:5lQ3E?0DF3>:EQ ,5:D23=65 ,52E2\=@25:?8\E6IElQ诲@稈@倔@]]]QmkDA2? ,4=2DDlQ2>\:4@?\49646lQ2?DH6CQ ,:5lQ2?DH6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ9@H=@?8Q ,:5lQ9@H=@?8Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=3:5Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write CJCCJJC:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ24EQ ,:5lQ24EQ ,G2=F6lQ|6>36C%6DEQm") & vbCrLf):Response.Write(CCCJJCC(" ,k^7@C>m") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k3Cm") & vbCrLf):Response.Write(CCCJJCC("kP\\ ,揋@礵@桁@ ,\\m") & vbCrLf):Response.Write(CCCJJCC("k5:G ,4=2DDlQ2>\>@52= ,2>\>@52=\2=6CEQ ,E23:?56IlQ\`Q ,:5lQ>J\2=6CEQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\>@52=\5:2=@8Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\>@52=\35Qmk^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\>@52=\7@@E6CQmkDA2? ,4=2DDlQ2>\>@52=\3E?Qm硩@宕@k^DA2?mk^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>2I:5Q ,G2=F6lQ")):Response.Write CJCJJJC(3):Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCC("G2C ,>2I:5[DE2CEE:>6[=3:5[E:>6C") & vbCrLf):Response.Write(CCCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,释@衣@xs") & vbCrLf):Response.Write(CCCJJCC(" ,=3:5lA2CD6x?EWSWVR=3:5VX]G2=WXX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,曻@夢@颓@盩@敫@") & vbCrLf):Response.Write(CCCJJCC(" ,>2I:5lA2CD6x?EWSWVR>2I:5VX]G2=WXX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,讫@彐@廻@姆@旱@闯@") & vbCrLf):Response.Write(CCCJJCC(" ,DE2CEE:>6l?6H ,s2E6WX]86E%:>6WX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,廻@姆@浆@诐@挄@钩@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0DE2CEVX]@?WV4=:4VX]E6IEWXY`") & vbCrLf):Response.Write(CCCJJCC(" ,D9@HBF6DE:@?W:5\`X") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,丆@一,颓@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0?6IEVX]@?WV4=:4VX]E6IEWXY`") & vbCrLf):Response.Write(CCCJJCC(" ,D9@HBF6DE:@?W:5Z`X") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,炴@凶@卐@逄@筏@桃@吉@昹@礵@丆@一,颓@,,盳@序@逄@顴@叓@艭@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVRBF6DE:@?VX]@?WV4=:46VX]DF3DECWaXY`") & vbCrLf):Response.Write(CCCJJCC(" ,4=62C%:>6@FEWE:>6CX") & vbCrLf):Response.Write(CCCJJCC(" ,E:>6ClD6E%:>6@FEWVD9@HBF6DE:@?WVZW:5Z`XZVXV[b__X") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,炴@凶@夕@逄@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVRBF6DE:@?VX]@?WV4=:4\52?86CVXN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6LSWE9:DX]A2C6?EWX]A2C6?EWX]C6>@G6r=2DDWV=:DE\8C@FA\:E6>\52?86CVXN") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,揋@亟@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR7@C>VX]DF3>:EW7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,2?DH6ClVV") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,:lgfj2=6CEWSWV:?AFEiC25:@,?2>6lQ20gfQ.i4964<65VX]G2=WXXjC6EFC? ,72=D6j") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,线@吃@筏@桃@") & vbCrLf):Response.Write(CCCJJCC(" ,7@CWG2C ,:l`j:kl>2I:5j:ZZXL") & vbCrLf):Response.Write(CCCJJCC(" ,2?DH6CZlVMV") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,卐@逄@") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,:7W:llegXL2=6CEWSWVRB0VZ:X]92DWV:?AFEiC25:@VXX]=6?8E9jN") & vbCrLf):Response.Write(CCCJJCC(" ,:7WSWVRB0VZ:X]92DWV:?AFEiC25:@VX]=6?8E9m_XL") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,GlSWV:?AFEiC25:@,?2>6lQ20VZ:ZVQ.i4964<65VX]G2=WX") & vbCrLf):Response.Write(CCCJJCC(" ,:7WEJA6@7 ,GlllVF?567:?65VXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR>J\2=6CEVX]7:?5WV5:G]2>\>@52=\35VX]E6IEWV笧@ ,VZ:ZV ,颓@朥@逄@筏@桃@!,VX]6?5WX]>@52=WX") & vbCrLf):Response.Write(CCCJJCC(" ,D9@HBF6DE:@?W:X") & vbCrLf):Response.Write(CCCJJCC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6L2?DH6CZlGN") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7WSWVRB0VZ:X]92DWV:?AFEi4964<3@IVX]=6?8E9m_XL2?DH6CZl86E4964<3@IG2=F6WV20VZ:XN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7WSWVRB0VZ:X]92DWV:?AFE,EJA6lQE6IEQ.,?2>6lQ20VZ:ZVQ.VX]=6?8E9m_XL2?DH6CZlSWV:?AFE,EJA6lQE6IEQ.,?2>6lQ20VZ:ZVQ.VX]G2=WXN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7WSWVRB0VZ:X]92DWV:?AFE,EJA6lQE:>6Q.,?2>6lQ20VZ:ZVQ.VX]=6?8E9m_XL2?DH6CZlSWV:?AFE,EJA6lQE:>6Q.,?2>6lQ20VZ:ZVQ.VX]G2=WXN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7WSWVRB0VZ:X]92DWVD6=64E,?2>6lQ20VZ:ZVQ.VX]=6?8E9m_XL2?DH6CZlSWVD6=64E,?2>6lQ20VZ:ZVQ.VX]G2=WXN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7WSWVRB0VZ:X]92DWVE6IE2C62,?2>6lQ20VZ:ZVQ.VX]=6?8E9m_XL2?DH6CZlSWVE6IE2C62,?2>6lQ20VZ:ZVQ.VX]G2=WXN") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,讜@箒@耒@旱@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR9@H=@?8VX]G2=W}F>36CWW?6H ,s2E6WX]86E%:>6WX\DE2CEE:>6X^`___X]E@u:I65W_XX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,塦@兀@筏@桃@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR2?DH6CVX]G2=W2?DH6C]DF3DEC:?8W`X]C6A=246W^F?567:?65^:8[VVXX") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,2=6CEW2?DH6C]DF3DEC:?8W`XXjC6EFC? ,72=D6j") & vbCrLf):Response.Write(CCCJJCC(" ,^^ ,挄@钩@祼@産@") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0DF3>:EVX]3FEE@?WV=@25:?8VX") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC("NX") & vbCrLf):Response.Write(CCCJJCC("^^ ,昹@礵@柋@一,颓@盩@隋@藊@共@仑@颓@盩@") & vbCrLf):Response.Write(CCCJJCC("7F?4E:@? ,D9@HBF6DE:@?W:5XL") & vbCrLf):Response.Write(CCCJJCC(" ,:7W:5m>2I:5XL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVRAC@8C6DDVX]4DDWVH:5E9V[V`__TVX") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR4FCC6?E0?F>VX]E6IEW>2I:5X") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6L") & vbCrLf):Response.Write(CCCJJCC(" ,SWV5:G]2>\A2?6=\DF446DDVX]9:56WX") & vbCrLf):Response.Write(CCCJJCC(" ,SWVRB0VZ:5X]D9@HWX") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,A6C46?E") & vbCrLf):Response.Write(CCCJJCC(" ,:7W:5lll`XLA6C46?El`N") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6LA6C46?El`__^>2I:5Y:5N") & vbCrLf):Response.Write(CCCJJCC(" ,SWVRAC@8C6DDVX]4DDWVH:5E9V[A6C46?EZVTVX") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR4FCC6?E0?F>VX]E6IEW:5X") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0AC6G[R3E?0?6IEVX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CCCJJCC(" ,:7W:5lll`XLSWVR3E?0AC6GVX]AC@AWV5:D23=65V[ECF6XN") & vbCrLf):Response.Write(CCCJJCC(" ,6=D6 ,:7W:5lll>2I:5XL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0DF3>:EVX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?0?6IEVX]AC@AWV5:D23=65V[ECF6X") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC(" ,N") & vbCrLf):Response.Write(CCCJJCC("N") & vbCrLf):Response.Write(CCCJJCC("^^ ,莲@发@逄@丨@4964<3@I癿@倷@,,苬@斂@递@史@随@廻@") & vbCrLf):Response.Write(CCCJJCC("7F?4E:@? ,86E4964<3@IG2=F6W?2>6X ,L") & vbCrLf):Response.Write(CCCJJCC(" ,G2C ,G ,l ,F?567:?65") & vbCrLf):Response.Write(CCCJJCC(" ,SWV:?AFEi4964<3@I,?2>6lQV ,Z ,?2>6 ,Z ,VQ.i4964<65VX]6249W7F?4E:@? ,W:?56I[ ,6=6>6?EX ,L") & vbCrLf):Response.Write(CCCJJCC(" ,:7 ,W:?56I ,m ,_X ,L ,G ,Zl ,V[V ,N") & vbCrLf):Response.Write(CCCJJCC(" ,G ,Zl ,SWE9:DX]G2=WX") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC(" ,C6EFC? ,G") & vbCrLf):Response.Write(CCCJJCC("N") & vbCrLf):Response.Write(CCCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJJ.Close:Set CCJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCCJJCC(ByVal CCCJJCJ) Dim CCJJCJJ, CJJCJCC, CCJJCJC CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCJCC = 1 To Len(CCCJJCJ) If CJJCJCC <> CCJJCJC Then CCJJCJJ = AscW(Mid(CCCJJCJ, CJJCJCC, 1)) If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then CCCJJCC = CCCJJCC & Chr(CCJJCJJ + 47) ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then CCCJJCC = CCCJJCC & Chr(CCJJCJJ - 47) Else CCJJCJC = CJJCJCC + 1 If Mid(CCCJJCJ, CCJJCJC, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CCJJCJJ + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJJCJCC, 1) End If End If Next End Function %>