<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CCCJCCJ("ps~sq]r@??64E:@?")):CJJJJC.open Application(CCCJCCJ("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC::Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ:CCCJJJ=Trim(Request.Cookies(CCCJCCJ("!$*|t|qt#"))):if CCCJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCCJ>0 then CJJCJC=CCCJCCJ("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(CCCJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJCCJ,CJJCCC) End IF end if:Sub CheckRight(CCCJCCC):dim CCCJJC,CCCJCJ:if CJJCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CCJJCJC(CCCJCCC) then Call RedirectMessage(CCCJCCJ("朾@陋@W") & CCCJCCC & CCCJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCJJCJC(CCCJCCC):dim CCCJJC,CCCJCJ:CCCJCJ=split(CCCJCCC,CCCJCCJ("[")):CCJJCJC=False:for CCCJJC=0 to ubound(CCCJCJ):If Mid(CJCJJJ,CCCJCJ(CCCJJC),1)="1" then CCJJCJC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJCCJ("!$*|t|qt#"))="":CJJCCJ=0:CJCJCC=0:CJJCCC=Empty:CJCJCJ=0:CJCCJC=0:CJCCJJ=0:CJCJJC=0:CJCCCC=False:CCJCCJ=False:CCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCC,CCCCJJ,CCCJJC,CCCCJC,CCCCCJ:CCCJCC=split(CCCJJJ,CCCJCCJ("]")):if ubound(CCCJCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCJCC(0)) or len(CCCJCC(1))<>32 or len(CCCJCC(2))<>32 then Call ClearMemberCookie else CCCCJJ=CCCJCC(1):for CCCJJC=1 to len(CCCCJJ):CCCCJC=mid(CCCCJJ,CCCJJC,1):if isnumeric(CCCCJC) then CCCCCJ=CCCCCJ & CCCCJC if len(CCCCCJ)=7 then exit for next:CCCCJJ=CCCJCC(2):if CCCCCJ<>mid(CCCCJJ,6,7) then Call ClearMemberCookie else CCCCJC=mid(CCCCJJ,18,10)/2:if CCCCJC0 then for CCCJJC=0 to ubound(str):if CCCJJC>0 then response.Write CCCJCCJ("k3C ,^m") response.Write CCCJJC & CCCJCCJ("i ,") & str(CCCJJC):next else response.Write CCCJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CCCJJC=0 to ubound(str,2):response.Write CCCJCCJ("kE9 ,2=:8?lV=67EVm") & CCCJJC & CCCJCCJ("k^E9m") next:response.Write CCCJCCJ("k^ECm"):for CCCJJC=0 to ubound(str):response.Write CCCJCCJ("kECmkE9m") & CCCJJC & CCCJCCJ("k^E9m"):for CCCCJC=0 to ubound(str,2):response.Write CCCJCCJ("kE5m") & str(CCCJJC,CCCCJC) & CCCJCCJ("k^E5m"):next:response.Write CCCJCCJ("k^ECm"):next:response.Write CCCJCCJ("k^E23=6m") end if elseif isnull(str) then response.Write CCCJCCJ(",}F==.") else Response.Write replace(str,vbcrlf,CCCJCCJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCJJ,CCCCCJC):dim CCCJCC:CCCJCC=CCCCCJJ & CCCJCCJ("l") & CCCCCJC & CCCJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCCJ("$6E\r@@<:6"),CCCJCC):End Sub::::::sub ShowMessage(CCCCCCJ):response.Charset="utf-8":Response.Write CCCJCCJ("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") & CCCCCCJ & CCCJCCJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CCJJCCC(CCCCCC):if isnull(CCCCCC) or trim(CCCCCC)="" or not isnumeric(CCCCCC) then CCJJCCC=false else Dim CJJJJJJ:Set CJJJJJJ = New RegExp:CJJJJJJ.Pattern = CCCJCCJ("/-5ZS"):CJJJJJJ.IgnoreCase = True:CCJJCCC = CJJJJJJ.test(CCCCCC):set CJJJJJJ=nothing end if:End Function:Function CCJCJJJ(CCCCCCC):dim CJJJJJC,CJJJJCJ:CJJJJJC=CCCJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCCC & CCCJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCJ=CJJJJC.execute(CJJJJJC):CCJCJJJ = CJJJJCJ(0):if isnull(CCJCJJJ) then CCJCJJJ=1 CJJJJCJ.close : set CJJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCCJ("!$*0|6DD286"),server.URLEncode(CCCCCCJ)):Response.Redirect CCCJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJJJJJ,CJJJJJJC):dim str,CCCCCC:str=CCCJCCJ("!$*0") & Ucase(CJJJJJJJ):if Session(str)<>"" then CCCCCC=DateDiff(CCCJCCJ("D"),Session(str),Time):if CCCCCC0 then Call ConnClose:Call ShowMessage(CCCJCCJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJJJJC & CCCJCCJ(" ,种@，,迓@剤@ ,") & CJJJJJJC-CCCCCC & CCCJCCJ(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJJJCJ):dim CCCJJC,CCCCJC,CJJJCJJ,CJJJCJC:on error resume next:CJJJCJJ=ubound(CJJJJJCJ):CJJJCJC=ubound(CJJJJJCJ,2):if err.number<>0 then err.clear:for CCCJJC=0 to CJJJCJJ:CJJJJJCJ(CCCJJC)=0:next else for CCCJJC=0 to CJJJCJJ:for CCCCJC=0 to CJJJCJC:CJJJJJCJ(CCCJJC,CCCCJC)=0:next:next end if:End Sub:::Sub ClearCache(CJJJJJCC):Application.Contents.Remove CJJJJJCC End Sub::Class jTree:Private CJJCJC, CJJJCCJ, CJJJCCC, CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Private Sub Class_Initialize():CJJJCCC = 0:CJJCJJJ = 0:CJJCCJJ=10:End Sub:Public Property Let Table(CJJJJCJJ):if CJJJJCJJ="" then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJJCJJC=CJJJJCJJ:CJJCJCJ=CCCJCCJ("!$*0") & UCase(CJJCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJJC:End Property:::Private Sub GetTreeArray():Dim CCCJJC, CCCCJC, CJJCCJC,CJJCCCJ:CJJJCCJ = Application(CJJCJCJ):If Not IsArray(CJJJCCJ) Then CJJCJC = CCCJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJJC:if CJJCJCC<>"" then CJJCJC=CJJCJC & CCCJCCJ(" ,H96C6 ,") & CJJCJCC set CJJCCJC=CJJJJC.execute(CJJCJC):CJJCCCJ=CJJCCJC(0):if CJJCCCJ=0 then Call RedirectMessage(CCCJCCJ("柠@话@W") & CJJCJJC & CCCJCCJ("^") & CJJCJCC & CCCJCCJ("X沜@朄@绎@林@敫@捩@")) CJJCJJJ=CJJCCCJ+CJJCCJJ:ReDim CJJJCCJ(CJJCJJJ, 4):CJJCJC = CCCJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CCCJCCJ(" ,H:E9 ,W?@=@4"" then CJJCJC=CJJCJC & CCCJCCJ(" ,H96C6 ,") & CJJCJCC CJJCJC=CJJCJC & CCCJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCCJC=CJJJJC.execute(CJJCJC):For CCCJJC = 1 To CJJCCCJ:For CCCCJC = 0 To 4:CJJJCCJ(CCCJJC, CCCCJC) = CJJCCJC(CCCCJC):if IsNull(CJJJCCJ(CCCJJC,4)) then CJJJCCJ(CCCJJC,4)=0 If CJJJCCJ(CCCJJC,2)="" then CJJJCCJ(CCCJJC,2)=CCCJCCJ(",穵@.") Next:CJJCCJC.MoveNext:Next:CJJCCJC.Close: Set CJJCCJC = Nothing:for CCCJJC=CJJCJJJ-(CJJCCJJ-1) to CJJCJJJ:CJJJCCJ(CCCJJC,0)=CCCJJC:next:Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock() else CJJCJJJ=Ubound(CJJJCCJ) End If:End Sub:::::Private Function CCJCCCJ(CCCJJCC):dim CCCJJC,CJJCCCC:CCJCCCJ=0:CJJCCCC=CStr(CCCJJCC):if CJJCCCC<>"0" then for CCCJJC=1 to CJJCJJJ:If CStr(CJJJCCJ(CCCJJC, 0))=CJJCCCC Then CCJCCCJ = CCCJJC:Exit For End If:Next end if:End Function:Public Function GetCurName(CCCJJCC):if Cstr(CCCJJCC)="0" then GetCurName=CCCJCCJ("栴@") else Dim CCCJJC,CJJCCJC:CCCJJC=CCJCCCJ(CCCJJCC):if CCCJJC>0 then GetCurName=CJJJCCJ(CCCJJC,2):if GetCurName="" then set CJJCCJC=CJJJJC.execute(CCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CCCJCCJ(" ,H96C6 ,:5l") & CCCJJCC):if CJJCCJC.eof then Call RedirectMessage(CCCJCCJ("xs（,") & CCCJJCC & CCCJCCJ("）,朥@批@别@")) GetCurName=CJJCCJC(1):Call UpdateCache(CCCJJCC,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing end if else set CJJCCJC=CJJJJC.execute(CCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CCCJCCJ(" ,H96C6 ,:5l") & CCCJJCC):if CJJCCJC.eof then Call RedirectMessage(CCCJCCJ("xs（,") & CCCJJCC & CCCJCCJ("）,朥@批@别@")) GetCurName=CJJCCJC(1):Call UpdateCache(CCCJJCC,CJJCCJC(0),GetCurName,CJJCCJC(2),CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing end if end if:End Function:::Public Function CCCJJJJ(CCCJJCC):Dim CCCJJC,CJCJJJJ:CCCJJC=CCJCCCJ(CCCJJCC):if CCCJJC=0 then CJCJJJJ=CCCJJJC(CCCJJCC) else CJCJJJJ=CJJJCCJ(CCCJJC,3):if isnull(CJCJJJJ) or CJCJJJJ="" then CJCJJJJ=CCCJJJC(CCCJJCC) elseif Mid(CJCJJJJ,instrrev(CJCJJJJ,CCCJCCJ("["))+1)<>CStr(CCCJJCC) then CJCJJJJ=CCCJJJC(CCCJJCC) elseif Left(CJCJJJJ,1)=CCCJCCJ("[") then CJCJJJJ=CCCJJJC(CCCJJCC) end if end if:CCCJJJJ=CJCJJJJ:End Function:Private Function CCCJJJC(CCCJJCC):dim CJJCCCC:CJJCCCC=CStr(CCCJJCC):if CJJCCCC="0" then CCCJJJC="" else dim CJJCCJC:set CJJCCJC=CJJJJC.execute(CCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJJC & CCCJCCJ(" ,H96C6 ,:5l") & CCCJJCC):if CJJCCJC.eof then Call UpdateCache(CCCJJCC,"","","",""):Call RedirectMessage(CCCJCCJ("顴@盩@（,xs：,") & CCCJJCC & CCCJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJJCCJC(0)=0 then CCCJJJC="0," & CCCJJCC else CCCJJJC=CCCJJJJ(CJJCCJC(0)) & CCCJCCJ("[") & CCCJJCC end if:if CJJCCJC(2)<>CCCJJJC then CJJJJC.execute CCCJCCJ("FA52E6 ,") & CJJCJJC & CCCJCCJ(" ,D6E ,A2E9lV") & CCCJJJC & CCCJCCJ("V ,H96C6 ,:5l") & CCCJJCC else CCCJJJC=CJJCCJC(2) end if end if:Call UpdateCache(CCCJJCC,CJJCCJC(0),CJJCCJC(1),CCCJJJC,CJJCCJC(3)):CJJCCJC.Close: Set CJJCCJC = Nothing end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJJCC):dim CJCJJJJ:CJCJJJJ=CCCJJJJ(CCCJJCC):Sql_GetChildren = CJJCJJC & CCCJCCJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJJJ & CCCJCCJ("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCJ End Sub:Public Sub UpdateCache(CCCJJCC,CJJJJCJC,CJJJJCCJ,CJCJJJJ,CJJJJCCC):dim CCCJJC,CCCCJC:CCCJJCC=CLng(CCCJJCC):CCCJJC=CCJCCCJ(CCCJJCC):if CJJJJCJC="" and CJJJJCCJ="" and CJCJJJJ="" and CJJJJCCC="" then if CCCJJC>0 then for CCCCJC=1 to 4:CJJJCCJ(CCCJJC,CCCCJC)=Null:next end if else if CCCJJC=0 then for CCCCJC=1 to CJJCJJJ:if CJJJCCJ(CCCCJC,1) & ""="" then CCCJJC=CCCCJC:exit for end if:next end if:if CCCJJC=0 then Call ClearCache else CJJJCCJ(CCCJJC,0)=CLng(CCCJJCC):if CJJJJCJC<>"" then CJJJCCJ(CCCJJC,1)=CLng(CJJJJCJC) if CJJJJCCJ<>"" then CJJJCCJ(CCCJJC,2)=CJJJJCCJ if CJCJJJJ<>"" then CJJJCCJ(CCCJJC,3)=CJCJJJJ if CJJJJCCC<>"" then CJJJCCJ(CCCJJC,4)=CLng(CJJJJCCC) end if end if:if CCCJJC>0 then Application.Lock():Application(CJJCJCJ) = CJJJCCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CCCCCCJ):Call ConnClose:Response.Write CCCCCCJ:Response.End:End Sub:Private Function CCJCJJJ():CCJCJJJ=CCCJCJJ+1:End Function:Private Function CCCJCJJ():dim CJJJJCJ:set CJJJJCJ=CJJJJC.execute(CCCJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJJC & CCCJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJCJJ=CJJJJCJ(0):CJJJJCJ.Close: Set CJJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJJJCC=180:Const CCJJCJJ="成都市中小学生十项心理素质问卷":Call CheckRight("54,81"):Call CheckQueryTime(CCCJCCJ("%6DE0#6A@CE"),30):dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:CJCJCCJ=Request.QueryString(CCCJCCJ("$49@@=")):CJCJJJC=Request.QueryString(CCCJCCJ("s6AE")):CJCJJCJ=Request.QueryString(CCCJCCJ("vC256")):CJCJJCC=Request.QueryString(CCCJCCJ("vC@FA")):CJCJCJJ=Request.QueryString(CCCJCCJ("E`")):CJCJCJC=Request.QueryString(CCCJCCJ("Ea")):if CCJJCCC(CJCJCCJ) then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,诠@劚@胸@晽@朥@廻@改@！,")) if not CCJJCCC(CJCJJJC) then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CCCJCJ,CJCJCCC,CJCCJJJ,CJCCJJC:dim CCCJJC,CCCCJC,CCCCCJ,CJCCJCJ:dim CJCCJCC:CJCCJCC=split(CCCJCCJ("珈@爬@甚@呸@M秪@杼@追@序@M惀@绥@箜@琁@M臥@戌@悡@纮@M沚@逕@吃@佗@M扺@叒@挦@抓@M徾@琁@夈@厚@M臥@丶@孡@乛@M刖@斫@宙@跰@M甚@涪@覿@刍@"),CCCJCCJ("M")):dim CJJJCCJ:set CJJJCCJ=new jtree:CJJJCCJ.table=CCCJCCJ(">6>36C0EJA6"):dim CJCCCJJ:CJCCCJJ=CJJJCCJ.GetCurName(CJCJJJC):dim CJCCCJC(3,34):Call ArrayInit(CJCCCJC):CJCCCJC(0,0)=CCCJCCJ("尊@孡@"):CJCCCJC(0,1)="14375,6150,68640,68641,6201,5494,68619,68620,8104,8116,6782,6764,68625,12295,68649,68650,6887,6891,6975,6966,8215,8212,14571,13965,68616,6823,69256,69257,68626,68627,20798,7251,68662,68663,68601,68602,20459,68633,16681,68623,68644,68655,68656,69696,69700,17591,69408,69409,28340,28359,7541":CJCCCJC(1,0)=CCCJCCJ("刘@丨@"):CJCCCJC(1,1)=CCCJCCJ("ege_h[agdbd[`cdhc[`cdfc[ege`b[ege`c[egea`[dg`g[g_fc[g_hb[efdd[fggb[fafh[fag_[eged`[gaca[eggc[egebe[egebh[ehbg[gaaa[egeaa[a_f_b[`cdgg[ehadc[ehadd[egeag[egeah[facc[egebd[egeec[dffdg[ege_b[ege_c[`hhd`[egebc[`eeha[`eegh[egece[`hhda[egedf[egedg[egfd`[a_dd`[f__dd[f__ee[dagde[dagdf[f__dh[f_afh[f_ag_[f_f`f[f_f`g[ehb`f[ehb`g[eeafb[egcha[f`__b[f`__c[ehhg`[f___a[ehf_h[ehf`a[b_bcf[f_`af[f_`b`[f__fb[f__fe[f_c_e[f_c_f[dhedf[efcg[egeca"):CJCCCJC(2,0)=CCCJCCJ("髓@丨@"):CJCCCJC(2,1)="68610,68611,14594,68643,6162,5697,5822,68648,8072,6750,6747,7272,7276,68652,68653,6878,6937,6935,8220,8219,20711,14591,6811,6810,69251,69252,68630,68631,7242,7252,19966,19086,68605,68606,20421,19510,16686,16684,68647,196,68659,68660,68753,68755,69445,70278,70719,70720,69319,69320,50079,50080,71005,71006,17587,69747,69691,69694,70136,70139,70148,70149,70408,70409":CJCCCJC(3,0)=CCCJCCJ("聇@髓@"):CJCCCJC(3,1)="68612,14584,6167,5813,8080,6749,7278,68654,68637,6990,8221,68638,6815,69253,68632,20805,19085,68607,20417,68624,9302,68661,26896,27762,68758":for CCCJJC=0 to 3:CJCCCJC(CCCJJC,1)=split(CJCCCJC(CCCJJC,1),CCCJCCJ("[")):next:dim CJCCCCJ(9,2):Call ArrayInit(CJCCCCJ):CCCJCJ=Array(60.12,36.43,66.28,39.60,62.08,23.74,40.01,84.82,118.01,75.48):for CCCJJC=0 to ubound(CJCCCCJ):CJCCCCJ(CCCJJC,2)=CCCJCJ(CCCJJC):next:dim CJCCCCC(1,31):Call ArrayInit(CJCCCCC):CJCCCCC(0,0)=CCCJCCJ("甲@"):CJCCCCC(1,0)=CCCJCCJ("奮@"):dim CCJJJJJ,CCJJJJC:CCJJJJJ=Date:CCJJJJC=cdate(CCCJCCJ("a___\`\`")):CJJCJC=CCCJCCJ("D6=64E ,52E6E:>6[D4@C60C2H[>6>36C0EJA60A2E9[D6I[>6>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CJCJCCJ else CJJCJC=CJJCJC & CCCJCCJ(" ,2?5 ,") & CJJJCCJ.Sql_GetChildren(CJCJJJC) if CCJJCCC(CJCJJCJ) then CJJCJC=CJJCJC & CCCJCCJ(" ,2?5 ,8C256l") & CJCJJCJ if CCJJCCC(CJCJJCC) then CJJCJC=CJJCJC & CCCJCCJ(" ,2?5 ,4FDE@>8C@FAl") & CJCJJCC if isdate(CJCJCJJ) then CJJCJC=CJJCJC & CCCJCCJ(" ,2?5 ,52E6E:>6mlV") & CJCJCJJ & CCCJCCJ("V") if isdate(CJCJCJC) then CJJCJC=CJJCJC & CCCJCCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCJCJC)+1 & CCCJCCJ("V") CJJCJC=CJJCJC & CCCJCCJ(" ,@C56C ,3J ,:5"):set CJJJCC=CJJJJC.execute(CJJCJC):if CJJJCC.eof then Call RedirectMessage(CCCJCCJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,")) while not CJJJCC.eof:CCCCCJ=CJJJCC(0):if CCCCCJCCJJJJC then CCJJJJC=CCCCCJ CJCCJJJ=CJJJCC(2) & CCCJCCJ("["):CJCCJJC=-1:for CCCJJC=0 to 3:CCCJCJ=CJCCCJC(CCCJJC,1):for CCCCJC=0 to ubound(CCCJCJ):if instr(CJCCJJJ,CCCJCCJ("[") & CCCJCJ(CCCCJC) & CCCJCCJ("["))>0 then CJCCJJC=CCCJJC:exit for end if:next:if CJCCJJC>=0 then exit for next:CCCCCJ=IIf(CJJJCC(3),2,3):if CJCCJJC=-1 then Call RedirectMessage(CCCJCCJ("伕@呓@xs：,") & CJJJCC(4) & CCCJCCJ("（,跪@彿@：,") & CJJJCC(2) & CCCJCCJ("）, ,沜@朄@孡@殰@敫@捩@，,诲@梻@柠@。,")) CJCCCJC(CJCCJJC,CCCCCJ)=CJCCCJC(CJCCJJC,CCCCCJ)+1:CCCJCJ=split(CJJJCC(1),CCCJCCJ("M")):for CCCJJC=0 to 9:CCCJCJ(CCCJJC)=cint(CCCJCJ(CCCJJC)):CJCCCCJ(CCCJJC,0)=CJCCCCJ(CCCJJC,0)+CCCJCJ(CCCJJC):next:for CCCJJC=0 to 9:CCCCCJ=CCCJJC+5:CJCCCJC(CJCCJJC,CCCCCJ)=CJCCCJC(CJCCJJC,CCCCCJ)+CCCJCJ(CCCJJC):CCCCCJ=CCCJJC+25:CJCCCJC(CJCCJJC,CCCCCJ)=CJCCCJC(CJCCJJC,CCCCCJ) & CCCJCCJ("[") & CCCJCJ(CCCJJC):next:CCCCJC=IIf(CJJJCC(3),0,1):CJCCCCC(CCCCJC,1)=CJCCCCC(CCCCJC,1)+1:for CCCJJC=0 to 9:CCCCCJ=CCCJJC+2:CJCCCCC(CCCCJC,CCCCCJ)=CJCCCCC(CCCCJC,CCCCCJ)+CCCJCJ(CCCJJC):CCCCCJ=CCCJJC+22:CJCCCCC(CCCCJC,CCCCCJ)=CJCCCCC(CCCCJC,CCCCCJ) & CCCJCCJ("[") & CCCJCJ(CCCJJC):next:CJCJCCC=CJCJCCC+1:CJJJCC.movenext:wend:for CCCJJC=0 to 3:CJCCCJC(CCCJJC,4)=CJCCCJC(CCCJJC,2)+CJCCCJC(CCCJJC,3):for CCCCJC=0 to 9:if CJCCCJC(CCCJJC,4)>0 then CJCCCJC(CCCJJC,CCCCJC+15)=formatnumber(CJCCCJC(CCCJJC,CCCCJC+5)/CJCCCJC(CCCJJC,4),2,-1) CJCCCJC(CCCJJC,CCCCJC+25)=mid(CJCCCJC(CCCJJC,CCCCJC+25),3):next:next:for CCCJJC=0 to 9:CJCCCCJ(CCCJJC,1)=formatnumber(CJCCCCJ(CCCJJC,0)/CJCJCCC,2,-1):next:for CCCJJC=0 to 1:for CCCCJC=0 to 9:CJCCCCC(CCCJJC,CCCCJC+12)=formatnumber(CJCCCCC(CCCJJC,CCCCJC+2)/CJCCCCC(CCCJJC,1),2,-1):CJCCCCC(CCCJJC,CCCCJC+22)=mid(CJCCCCC(CCCJJC,CCCCJC+22),3):next:next:Response.Write(vbCrLf):Response.Write(CCCJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJCCJ("k9625m") & vbCrLf):Response.Write(CCCJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJCCJ("kE:E=6m")):Response.Write CJCCCJJ:Response.Write(CCCJCCJ("\")):Response.Write CCJJCJJ:Response.Write(CCCJCCJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CCCJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CCCJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJCCJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCJCCJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCJCCJ("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCJCCJ("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("k^9625m") & vbCrLf):Response.Write(CCCJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCJCCJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJCCJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CCCJCCJ(" ,k9`mkD>2==m")):Response.Write CJCCCJJ:Response.Write(CCCJCCJ("k^D>2==mk3Cm")):Response.Write CCJJCJJ:Response.Write(CCCJCCJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm釂@産@一,糶@划@戋@熚@癿@徾@琁@孡@栂@凁@匑@释@衣@，,杠@浆@柠@丨@尊@孡@甚@癿@匼@顴@徾@琁@紛@责@双@屐@犱@冰@。,返@匼@顴@徾@琁@紛@责@扻@胸@兲@低@匀@拧@：,珈@爬@甚@呸@、,秪@杼@追@序@、,惀@绥@箜@琁@、,臥@戌@悡@纮@、,沚@逕@吃@佗@、,扺@叒@挦@抓@、,徾@琁@夈@厚@、,臥@丶@孡@乛@、,刖@斫@宙@跰@、,甚@涪@覿@刍@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm返@亖@徾@琁@释@衣@兲@低@匀@拧@：,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m盌@浆@冀@宴@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9 ,4=2DDlQ2>\E6IE\=67EQm盌@浆@挂@栂@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9 ,4=2DDlQ2>\E6IE\=67EQm盌@浆@巠@兲@杠@溋@叅@共@俜@庡@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE6>A=2E6 ,:5lQE\7?Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,LLR6249 ,52E2NN") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5mLLE9:D,_.NNk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQmLLE9:D,`.NNk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQmLLE9:D,a.NNk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,LL^6249NN") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E6>A=2E6m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm")):Response.Write formatdatetime(CCJJJJJ,1):Response.Write(CCCJCCJ("～,")):Response.Write formatdatetime(CCJJJJC,1):Response.Write(CCCJCCJ("k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm")):Response.Write CJCCCJJ:Response.Write(CCCJCCJ("丨@尊@孡@孡@甚@")):Response.Write CJCJCCC:Response.Write(CCCJCCJ("亵@。,兲@低@刁@巾@惀@冰@覼@丆@衣@：,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m孡@殰@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 3:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm")):Response.Write CJCCCJC(CCCJJC,0):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m甲@k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCJC(CCCJJC,2):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m奮@k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCJC(CCCJJC,3):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm匼@顴@徾@琁@紛@责@徒@刁@癿@幮@坂@敫@k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m戋@郸@巽@幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 9:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CCCJJC+1:Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCJCC(CCCJJC):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCCJ(CCCJJC,1):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCCJ(CCCJJC,2):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm【,礵@來@】,甬@丅@靝@癿@衣@样@只@矠@，,孡@甚@圣@“,珈@爬@甚@呸@”,、,“,秪@杼@追@序@”,、,“,惀@绥@箜@琁@”,、,“,臥@戌@悡@纮@”,斴@靝@癿@徒@刁@襼@髓@争@戋@郸@巽@孡@甚@癿@幮@坂@氯@幮@；,圣@“,沚@逕@吃@佗@”,、,“,扺@叒@挦@抓@”,、,“,徾@琁@夈@厚@”,、,“,臥@丶@孡@乛@”,、,“,刖@斫@宙@跰@”,、,“,甚@涪@覿@刍@”,丅@癿@徒@刁@襼@佉@争@戋@郸@巽@孡@甚@癿@幮@坂@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm返@误@昉@，,夢@邌@厺@孡@甚@癿@珈@爬@甚@呸@稆@庡@、,秪@杼@追@序@胸@劖@、,惀@绥@箜@琁@胸@劖@、,臥@戌@悡@纮@氯@幮@襼@髓@争@戋@郸@巽@孡@甚@幮@坂@氯@幮@；,沚@逕@吃@佗@胸@劖@、,扺@叒@挦@抓@胸@劖@、,徾@琁@夈@厚@胸@劖@、,臥@丶@孡@乛@胸@劖@、,刖@斫@宙@跰@胸@劖@咇@甚@涪@覿@刍@胸@劖@襼@佉@争@戋@郸@巽@孡@甚@幮@坂@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am亏@、,丈@吇@孡@殰@孡@甚@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Qm四@孋@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 3:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE9m")):Response.Write CJCCCJC(CCCJJC,0):Response.Write(CCCJCCJ("k3Cm（,")):Response.Write CJCCCJC(CCCJJC,4):Response.Write(CCCJCCJ("亵@）,k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE9m昪@吡@巩@廽@昹@葒@k3Cm（,!k_]_d）,k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 9:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCJCC(CCCJJC):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCCJC=0 to 3:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCJC(CCCCJC,CCCJJC+15):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4=2DDlQA\G2=F6Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write CJCCCJC(0,CCCJJC+25) & CCCJCCJ("M") & CJCCCJC(1,CCCJJC+25) & CCCJCCJ("M") & CJCCCJC(2,CCCJJC+25) & CCCJCCJ("M") & CJCCCJC(3,CCCJJC+25):Response.Write(CCCJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 9:CJCCJCJ="":for CCCCJC=0 to 3:CJCCJCJ=CJCCJCJ & CCCJCCJ("M") & CJCCCJC(CCCCJC,CCCJJC+15):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k9bm【,")):Response.Write CJCCJCC(CCCJJC):Response.Write(CCCJCCJ("】,k^9bm") & vbCrLf):Response.Write(CCCJCCJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__U=l_UIl尊@孡@M刘@丨@M髓@丨@M聇@髓@UGl")):Response.Write mid(CJCCJCJ,2):Response.Write(CCCJCCJ("U>l`Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,礵@來@】,囖@严@孡@殰@癿@孡@甚@圣@诠@四@孋@丅@癿@徒@刁@圣@绚@讜@孡@丅@巩@廽@昹@葒@。,兲@低@杠@眆@，,刘@丨@咇@髓@丨@孡@甚@癿@徒@刁@襼@昹@葒@髓@争@尊@孡@甚@。,返@误@昉@，,刘@丨@甚@咇@髓@丨@甚@每@尊@孡@甚@曯@力@珈@爬@臥@巬@癿@甚@呸@。,返@揋@礵@，,襼@力@夢@寴@尊@孡@甚@迖@衇@甚@呸@敔@肭@癿@劖@庡@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k9am全@、,丈@吇@怢@刦@孡@甚@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CCCJCCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 1:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE9m")):Response.Write CJCCCCC(CCCJJC,0):Response.Write(CCCJCCJ("（,")):Response.Write CJCCCCC(CCCJJC,1):Response.Write(CCCJCCJ("亵@）,k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE9m昪@吡@巩@廽@昹@葒@（,!k_]_d）,k^E9m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCJCCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCJJC=0 to 9:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCJCC(CCCJJC):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):for CCCCJC=0 to 1:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5m")):Response.Write CJCCCCC(CCCCJC,CCCJJC+12):Response.Write(CCCJCCJ("k^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kE5 ,4=2DDlQA\G2=F6Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write CJCCCCC(0,CCCJJC+22) & CCCJCCJ("M") & CJCCCCC(1,CCCJJC+22):Response.Write(CCCJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCCJ(" ,")):CJCCJCJ=CCCJCCJ(","):for CCCJJC=0 to 1:if CCCJJC>0 then CJCCJCJ=CJCCJCJ & CCCJCCJ("[") CJCCJCJ=CJCCJCJ & CCCJCCJ("LQ?2>6QiQ") & CJCCCCC(CCCJJC,0) & CCCJCCJ("Q[Q52E2Qi,"):for CCCCJC=0 to 9:if CCCCJC>0 then CJCCJCJ=CJCCJCJ & CCCJCCJ("[") CJCCJCJ=CJCCJCJ & CJCCCCC(CCCJJC,CCCCJC+12):next:CJCCJCJ=CJCCJCJ & CCCJCCJ(".N"):next:CJCCJCJ=CJCCJCJ & CCCJCCJ("."):Response.Write(vbCrLf):Response.Write(CCCJCCJ(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4l4@=F>?UHldd_UClcdU=l_UIl")):Response.Write join(CJCCJCC,CCCJCCJ("[")):Response.Write(CCCJCCJ("UGl")):Response.Write CJCCJCJ:Response.Write(CCCJCCJ("Vmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm【,礵@來@】,甬@丅@靝@癿@囹@衣@只@矠@，,甲@甚@咇@奮@甚@圣@“,秪@杼@追@序@”,、,“,臥@戌@悡@纮@”,咇@“,甚@涪@覿@刍@”,丄@严@四@孋@丅@癿@徒@刁@孓@圣@绚@讜@孡@癿@昹@葒@怢@巩@廽@，,圣@共@仑@七,严@四@孋@丅@癿@徒@刁@丈@孓@圣@绚@讜@孡@癿@昹@葒@怢@巩@廽@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm甲@甚@癿@秪@杼@追@序@、,臥@戌@悡@纮@徒@刁@襼@昹@葒@髓@争@奮@甚@。,返@误@昉@，,甲@甚@癿@秪@杼@追@序@胸@劖@、,臥@戌@悡@纮@氯@幮@襼@每@奮@甚@髓@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm奮@甚@癿@甚@涪@覿@刍@徒@刁@襼@昹@葒@髓@争@甲@甚@。,返@误@昉@，,奮@甚@癿@甚@涪@覿@刍@胸@劖@襼@每@甲@甚@髓@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,kAm甲@奮@甚@圣@珈@爬@甚@呸@、,惀@绥@箜@琁@、,沚@逕@吃@佗@、,扺@叒@挦@抓@、,徾@琁@夈@厚@、,臥@丶@孡@乛@、,刖@斫@宙@跰@丅@癿@徒@刁@丈@孓@圣@昹@葒@怢@巩@廽@。,返@误@昉@，,甲@奮@甚@癿@珈@爬@甚@呸@稆@庡@、,惀@绥@箜@琁@胸@劖@、,沚@逕@吃@佗@胸@劖@、,扺@叒@挦@抓@胸@劖@、,徾@琁@夈@厚@胸@劖@、,臥@丶@孡@乛@胸@劖@咇@刖@斫@宙@跰@胸@劖@癿@氯@幮@夢@臯@盳@吇@。,k^Am") & vbCrLf):Response.Write(CCCJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ("k^2CE:4=6m") & vbCrLf):Response.Write(CCCJCCJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CCCJCCJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJCCCJJ:Response.Write(CCCJCCJ(" ,U>:55@Ej ,")):Response.Write CCJJCJJ:Response.Write(CCCJCCJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CCCJCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\2FE@4Qmk: ,4=2DDlQ2>\:4@?\=:DE\F=Qmk^:m ,盩@彐@k^3FEE@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CCCJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJCCJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6f]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("^Y ,8=@32= ,%6>A=2E6f ,Y^") & vbCrLf):Response.Write(CCCJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCCJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CCCJCCJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4A=2E6fWSWE9:DX]9E>=WX[L52E2i7?NXNX]C6>@G6WX") & vbCrLf):Response.Write(CCCJCCJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CCCJCCJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CCCJCCJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CCCJCCJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CCCJCCJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CCCJCCJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CCCJCCJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CCCJCCJ(" ,NX") & vbCrLf):Response.Write(CCCJCCJ(" ,^^ ,刁@枋@斂@孒@揋@礵@") & vbCrLf):Response.Write(CCCJCCJ(" ,SWV]2>\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CCCJCCJ(" ,4@?E6?EiV揋@礵@：,诠@斂@朧@幱@静@钃@寴@栲@朧@癿@宙@陀@刁@枋@，,句@昪@栲@來@，,诲@俘@孓@丵@(@C5斂@桞@吉@臥@衇@俩@攴@斂@孒@。,V[") & vbCrLf):Response.Write(CCCJCCJ(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CCCJCCJ(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CCCJCCJ(" ,NX") & vbCrLf):Response.Write(CCCJCCJ(" ,^^ ,讜@箒@!倷@") & vbCrLf):Response.Write(CCCJCCJ(" ,G2C ,AC@8C6DD ,l ,S]p|&x]AC@8C6DD") & vbCrLf):Response.Write(CCCJCCJ(" ,SW5@4F>6?EX]2;2I$E2CEW7F?4E:@?WX ,LAC@8C6DD]DE2CEWXNX") & vbCrLf):Response.Write(CCCJCCJ(" ,SW5@4F>6?EX]2;2I$E@AW7F?4E:@?WX ,LAC@8C6DD]5@?6WXNX") & vbCrLf):Response.Write(CCCJCCJ(" ,SWVE5]A\G2=F6VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCCJ(" ,G2C ,SE5lSWE9:DX") & vbCrLf):Response.Write(CCCJCCJ(" ,G2C ,5lSE5]49:=5C6?WV:?AFEVX]G2=WX") & vbCrLf):Response.Write(CCCJCCJ(" ,S]A@DEWV^2A:^!0'2=F6]2D9IV[L5i5N[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CCCJCCJ(" ,AC@8C6DD]:?4WX") & vbCrLf):Response.Write(CCCJCCJ(" ,:7W;D@?]4@56lll_XLSE5]E6IEW;D@?]52E2k_]_dnV昪@ViV吡@VXN") & vbCrLf):Response.Write(CCCJCCJ(" ,6=D6LSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CCCJCCJ(" ,NX") & vbCrLf):Response.Write(CCCJCCJ(" ,NX") & vbCrLf):Response.Write(CCCJCCJ("NX") & vbCrLf):Response.Write(CCCJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCCJCCJ(ByVal CCCJCJC) Dim CJCCJCJ, CCCJJC, CCCCCC CCCJCJC = Replace(CCCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJJC = 1 To Len(CCCJCJC) If CCCJJC <> CCCCCC Then CJCCJCJ = AscW(Mid(CCCJCJC, CCCJJC, 1)) If CJCCJCJ >= 33 And CJCCJCJ <= 79 Then CCCJCCJ = CCCJCCJ & Chr(CJCCJCJ + 47) ElseIf CJCCJCJ >= 80 And CJCCJCJ <= 126 Then CCCJCCJ = CCCJCCJ & Chr(CJCCJCJ - 47) Else CCCCCC = CCCJJC + 1 If Mid(CCCJCJC, CCCCCC, 1) = Chr(64) Then CCCJCCJ = CCCJCCJ & ChrW(CJCCJCJ + 5) Else CCCJCCJ = CCCJCCJ & Mid(CCCJCJC, CCCJJC, 1) End If End If Next End Function %>