<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJJJ, CJJJJJC,CJJJJCJ, CJJJJCC, CJJJCJJ:Set CJJJJJJ = server.CreateObject(CJCCJJJJ("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CJCCJJJJ("r@??64E:@?$EC:?8")):Set CJJJJJC=CJJJJJJ::Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC:CJCJCCC=Trim(Request.Cookies(CJCCJJJJ("!$*|t|qt#"))):if CJCJCCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJCJC>0 then CJJJCJJ=CJCCJJJJ("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(CJCCJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJJCJC,CJJJCCJ) End IF end if:Sub CheckRight(CCCJJJC):dim CJCCJJJ,CJCCJJC:if CJJJCJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJCCJJJ(CCCJJJC) then Call RedirectMessage(CJCCJJJJ("朾@陋@W") & CCCJJJC & CJCCJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJCCJJJ(CCCJJJC):dim CJCCJJJ,CJCCJJC:CJCCJJC=split(CCCJJJC,CJCCJJJJ("[")):CJJCCJJJ=False:for CJCCJJJ=0 to ubound(CJCCJJC):If Mid(CJJJCCC,CJCCJJC(CJCCJJJ),1)="1" then CJJCCJJJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJJJJ("!$*|t|qt#"))="":CJJJCJC=0:CJJCJCJ=0:CJJJCCJ=Empty:CJJCJJC=0:CJJCCJJ=0:CJJCJCC=0:CJJCJJJ=0:CJJCCCJ=False:CJCJCJC=False:CJCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCJ,CJCCJCC,CJCCJJJ,CJCCCJJ,CJCCCJC:CJCCJCJ=split(CJCJCCC,CJCCJJJJ("]")):if ubound(CJCCJCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJCJ(0)) or len(CJCCJCJ(1))<>32 or len(CJCCJCJ(2))<>32 then Call ClearMemberCookie else CJCCJCC=CJCCJCJ(1):for CJCCJJJ=1 to len(CJCCJCC):CJCCCJJ=mid(CJCCJCC,CJCCJJJ,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ if len(CJCCCJC)=7 then exit for next:CJCCJCC=CJCCJCJ(2):if CJCCCJC<>mid(CJCCJCC,6,7) then Call ClearMemberCookie else CJCCCJJ=mid(CJCCJCC,18,10)/2:if CJCCCJJ0 then for CJCCJJJ=0 to ubound(str):if CJCCJJJ>0 then response.Write CJCCJJJJ("k3C ,^m") response.Write CJCCJJJ & CJCCJJJJ("i ,") & str(CJCCJJJ):next else response.Write CJCCJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCCJJJ=0 to ubound(str,2):response.Write CJCCJJJJ("kE9 ,2=:8?lV=67EVm") & CJCCJJJ & CJCCJJJJ("k^E9m") next:response.Write CJCCJJJJ("k^ECm"):for CJCCJJJ=0 to ubound(str):response.Write CJCCJJJJ("kECmkE9m") & CJCCJJJ & CJCCJJJJ("k^E9m"):for CJCCCJJ=0 to ubound(str,2):response.Write CJCCJJJJ("kE5m") & str(CJCCJJJ,CJCCCJJ) & CJCCJJJJ("k^E5m"):next:response.Write CJCCJJJJ("k^ECm"):next:response.Write CJCCJJJJ("k^E23=6m") end if elseif isnull(str) then response.Write CJCCJJJJ(",}F==.") else Response.Write replace(str,vbcrlf,CJCCJJJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCCJCJC,CJCCJCCJ):dim CJCCJCJ:CJCCJCJ=CJCCJCJC & CJCCJJJJ("l") & CJCCJCCJ & CJCCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJJJ("$6E\r@@<:6"),CJCCJCJ):End Sub::::::sub ShowMessage(CJCCJCCC):response.Charset="utf-8":Response.Write CJCCJJJJ("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") & CJCCJCCC & CJCCJJJJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CJJCCJCJ(CJCCCCJ):if isnull(CJCCCCJ) or trim(CJCCCCJ)="" or not isnumeric(CJCCCCJ) then CJJCCJCJ=false else Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CJCCJJJJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CJJCCJCJ = CJCCCCC.test(CJCCCCJ):set CJCCCCC=nothing end if:End Function:Function CJJCCJCC(CJCCCJJJ):dim CCJJJJJ,CCJJJJC:CCJJJJJ=CJCCJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCJJJ & CJCCJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJJC=CJJJJJJ.execute(CCJJJJJ):CJJCCJCC = CCJJJJC(0):if isnull(CJJCCJCC) then CJJCCJCC=1 CCJJJJC.close : set CCJJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCJC=nothing:set CJJCCCJJ=nothing:set CJJCCCJC=nothing:set CJJCCCCJ=nothing:CCJJJJC.close : set CCJJJJC=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CJJCCCCC.Close : Set CJJCCCCC = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJJJ("!$*0|6DD286"),server.URLEncode(CJCCJCCC)):Response.Redirect CJCCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJCCCJJC,CJCCCJCJ):dim str,CJCCCCJ:str=CJCCJJJJ("!$*0") & Ucase(CJCCCJJC):if Session(str)<>"" then CJCCCCJ=DateDiff(CJCCJJJJ("D"),Session(str),Time):if CJCCCCJ0 then Call ConnClose:Call ShowMessage(CJCCJJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCCCJCJ & CJCCJJJJ(" ,种@，,迓@剤@ ,") & CJCCCJCJ-CJCCCCJ & CJCCJJJJ(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCCCJCC):dim CJCCJJJ,CJCCCJJ,CCJJJCC,CCJJCJJ:on error resume next:CCJJJCC=ubound(CJCCCJCC):CCJJCJJ=ubound(CJCCCJCC,2):if err.number<>0 then err.clear:for CJCCJJJ=0 to CCJJJCC:CJCCCJCC(CJCCJJJ)=0:next else for CJCCJJJ=0 to CCJJJCC:for CJCCCJJ=0 to CCJJCJJ:CJCCCJCC(CJCCJJJ,CJCCCJJ)=0:next:next end if:End Sub:::Sub ClearCache(CJCCCCJJ):Application.Contents.Remove CJCCCCJJ End Sub::Class jTree:Private CJJJCJJ, CCJJCJC, CCJJCCJ, CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:Private Sub Class_Initialize():CCJJCCJ = 0:CCJJCCC = 0:CCJCJCC=10:End Sub:Public Property Let Table(CJCCCCJC):if CJCCCCJC="" then Call RedirectMessage(CJCCJJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCJCJJJ=CJCCCCJC:CCJCJJC=CJCCJJJJ("!$*0") & UCase(CCJCJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJJJ:End Property:::Private Sub GetTreeArray():Dim CJCCJJJ, CJCCCJJ, CCJCCJJ,CCJCCJC:CCJJCJC = Application(CCJCJJC):If Not IsArray(CCJJCJC) Then CJJJCJJ = CJCCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJJ:if CCJCJCJ<>"" then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,H96C6 ,") & CCJCJCJ set CCJCCJJ=CJJJJJJ.execute(CJJJCJJ):CCJCCJC=CCJCCJJ(0):if CCJCCJC=0 then Call RedirectMessage(CJCCJJJJ("柠@话@W") & CCJCJJJ & CJCCJJJJ("^") & CCJCJCJ & CJCCJJJJ("X沜@朄@绎@林@敫@捩@")) CCJJCCC=CCJCCJC+CCJCJCC:ReDim CCJJCJC(CCJJCCC, 4):CJJJCJJ = CJCCJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJJ & CJCCJJJJ(" ,H:E9 ,W?@=@4"" then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,H96C6 ,") & CCJCJCJ CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCJJ=CJJJJJJ.execute(CJJJCJJ):For CJCCJJJ = 1 To CCJCCJC:For CJCCCJJ = 0 To 4:CCJJCJC(CJCCJJJ, CJCCCJJ) = CCJCCJJ(CJCCCJJ):if IsNull(CCJJCJC(CJCCJJJ,4)) then CCJJCJC(CJCCJJJ,4)=0 If CCJJCJC(CJCCJJJ,2)="" then CCJJCJC(CJCCJJJ,2)=CJCCJJJJ(",穵@.") Next:CCJCCJJ.MoveNext:Next:CCJCCJJ.Close: Set CCJCCJJ = Nothing:for CJCCJJJ=CCJJCCC-(CCJCJCC-1) to CCJJCCC:CCJJCJC(CJCCJJJ,0)=CJCCJJJ:next:Application.Lock():Application(CCJCJJC) = CCJJCJC:Application.UnLock() else CCJJCCC=Ubound(CCJJCJC) End If:End Sub::::Public Function GetChild(CJCJJJJC):Dim CJCCJJJ, Str:CJCJJJJC=CLng(CJCJJJJC):For CJCCJJJ = 1 To CCJJCCC:If CCJJCJC(CJCCJJJ, 1) = CJCJJJJC Then Str = Str & CJCCJJJJ("M") & CCJJCJC(CJCCJJJ, 0) & CJCCJJJJ("M") & CCJJCJC(CJCCJJJ,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJCCJJJJ("M")):End Function:Private Function CJCJJJCC(CJCJJJJC):dim CJCCJJJ,CCJCCCJ:CJCJJJCC=0:CCJCCCJ=CStr(CJCJJJJC):if CCJCCCJ<>"0" then for CJCCJJJ=1 to CCJJCCC:If CStr(CCJJCJC(CJCCJJJ, 0))=CCJCCCJ Then CJCJJJCC = CJCCJJJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CJCJJJJC):if Cstr(CJCJJJJC)="0" then GetCurName=CJCCJJJJ("栴@") else Dim CJCCJJJ,CCJCCJJ:CJCCJJJ=CJCJJJCC(CJCJJJJC):if CJCCJJJ>0 then GetCurName=CCJJCJC(CJCCJJJ,2):if GetCurName="" then set CCJCCJJ=CJJJJJJ.execute(CJCCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJJ & CJCCJJJJ(" ,H96C6 ,:5l") & CJCJJJJC):if CCJCCJJ.eof then Call RedirectMessage(CJCCJJJJ("xs（,") & CJCJJJJC & CJCCJJJJ("）,朥@批@别@")) GetCurName=CCJCCJJ(1):Call UpdateCache(CJCJJJJC,CCJCCJJ(0),GetCurName,CCJCCJJ(2),CCJCCJJ(3)):CCJCCJJ.Close: Set CCJCCJJ = Nothing end if else set CCJCCJJ=CJJJJJJ.execute(CJCCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJJ & CJCCJJJJ(" ,H96C6 ,:5l") & CJCJJJJC):if CCJCCJJ.eof then Call RedirectMessage(CJCCJJJJ("xs（,") & CJCJJJJC & CJCCJJJJ("）,朥@批@别@")) GetCurName=CCJCCJJ(1):Call UpdateCache(CJCJJJJC,CCJCCJJ(0),GetCurName,CCJCCJJ(2),CCJCCJJ(3)):CCJCCJJ.Close: Set CCJCCJJ = Nothing end if end if:End Function:::Public Function CJCJJCJC(CJCJJJJC):Dim CJCCJJJ,CCJCCCC:CJCCJJJ=CJCJJJCC(CJCJJJJC):if CJCCJJJ=0 then CCJCCCC=CJCJJCCJ(CJCJJJJC) else CCJCCCC=CCJJCJC(CJCCJJJ,3):if isnull(CCJCCCC) or CCJCCCC="" then CCJCCCC=CJCJJCCJ(CJCJJJJC) elseif Mid(CCJCCCC,instrrev(CCJCCCC,CJCCJJJJ("["))+1)<>CStr(CJCJJJJC) then CCJCCCC=CJCJJCCJ(CJCJJJJC) elseif Left(CCJCCCC,1)=CJCCJJJJ("[") then CCJCCCC=CJCJJCCJ(CJCJJJJC) end if end if:CJCJJCJC=CCJCCCC:End Function:Private Function CJCJJCCJ(CJCJJJJC):dim CCJCCCJ:CCJCCCJ=CStr(CJCJJJJC):if CCJCCCJ="0" then CJCJJCCJ="" else dim CCJCCJJ:set CCJCCJJ=CJJJJJJ.execute(CJCCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJJ & CJCCJJJJ(" ,H96C6 ,:5l") & CJCJJJJC):if CCJCCJJ.eof then Call UpdateCache(CJCJJJJC,"","","",""):Call RedirectMessage(CJCCJJJJ("顴@盩@（,xs：,") & CJCJJJJC & CJCCJJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCJCCJJ(0)=0 then CJCJJCCJ="0," & CJCJJJJC else CJCJJCCJ=CJCJJCJC(CCJCCJJ(0)) & CJCCJJJJ("[") & CJCJJJJC end if:if CCJCCJJ(2)<>CJCJJCCJ then CJJJJJJ.execute CJCCJJJJ("FA52E6 ,") & CCJCJJJ & CJCCJJJJ(" ,D6E ,A2E9lV") & CJCJJCCJ & CJCCJJJJ("V ,H96C6 ,:5l") & CJCJJJJC else CJCJJCCJ=CCJCCJJ(2) end if end if:Call UpdateCache(CJCJJJJC,CCJCCJJ(0),CCJCCJJ(1),CJCJJCCJ,CCJCCJJ(3)):CCJCCJJ.Close: Set CCJCCJJ = Nothing end if:End Function::Public Function CJCJJCCC(CJCJJJJC):CJCJJCCC = Mid(CJCJJCJC(CJCJJJJC), 3):End Function:Public Function CJCJCJJJ(CJCJJJJC):Dim CJCCJJJ, CJCCCJJ, CCCJJJJ,Str, CCJCCCC, CCCJJJC, CJCCJJC():CCJCCCC = CJCJJCCC(CJCJJJJC):CCJCCCC = Split(CCJCCCC, CJCCJJJJ("[")):for CJCCJJJ=0 to Ubound(CCJCCCC):CCCJJJJ=CCJCCCC(CJCCJJJ):str=str & CJCCJJJJ("M") & CCCJJJJ & CJCCJJJJ("M") & GetCurName(CCCJJJJ):next:if str<>"" then str=Mid(str,2) CJCJCJJJ=str:End Function:Public Function IsParent(CJCCCCCJ, CJCCCCCC):IsParent=InStr(CJCJJCJC(CJCCCCCC) & CJCCJJJJ("["), CJCCJJJJ("[") & CJCCCCCJ & CJCCJJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJCJJJJC):dim CCJCCCC:CCJCCCC=CJCJJCJC(CJCJJJJC):Sql_GetChildren = CCJCJJJ & CJCCJJJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCCCC & CJCCJJJJ("[TV") End Function:::Public Function GetPositionStr_From(CJCJJJJC, CJCJCCJJ):if isnull(CJCJJJJC) or isnull(CJCJCCJJ) then GetPositionStr_From=CJCCJJJJ(",厽@敫@锔@诪@."):exit function end if:Dim Str, CJCCJJJ, CJCCJJC, CCCJJJC, CCCJJCJ:CJCJCCJJ = CStr(CJCJCCJJ):If CJCJCCJJ = "0" or CJCJCCJJ = CStr(CJCJJJJC) Then Str = GetCurName(CJCJJJJC) Else CJCCJJC = Split(CJCJCJJJ(CJCJJJJC), CJCCJJJJ("M")):CCCJJJC = UBound(CJCCJJC):CCCJJCJ = False:For CJCCJJJ = 0 To CCCJJJC Step 2:If CJCCJJC(CJCCJJJ) = CJCJCCJJ And Not CCCJJCJ Then CCCJJCJ = True If CCCJJCJ Then If Str <> "" Then Str = Str & CJCCJJJJ("→,") Str = Str & CJCCJJC(CJCCJJJ + 1) End If:Next End If:str=Mid(str,instr(str,CJCCJJJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJC End Sub:Public Sub UpdateCache(CJCJJJJC,CCCJJJJ,CCJJJJJJ,CCJCCCC,CCJJJJJC):dim CJCCJJJ,CJCCCJJ:CJCJJJJC=CLng(CJCJJJJC):CJCCJJJ=CJCJJJCC(CJCJJJJC):if CCCJJJJ="" and CCJJJJJJ="" and CCJCCCC="" and CCJJJJJC="" then if CJCCJJJ>0 then for CJCCCJJ=1 to 4:CCJJCJC(CJCCJJJ,CJCCCJJ)=Null:next end if else if CJCCJJJ=0 then for CJCCCJJ=1 to CCJJCCC:if CCJJCJC(CJCCCJJ,1) & ""="" then CJCCJJJ=CJCCCJJ:exit for end if:next end if:if CJCCJJJ=0 then Call ClearCache else CCJJCJC(CJCCJJJ,0)=CLng(CJCJJJJC):if CCCJJJJ<>"" then CCJJCJC(CJCCJJJ,1)=CLng(CCCJJJJ) if CCJJJJJJ<>"" then CCJJCJC(CJCCJJJ,2)=CCJJJJJJ if CCJCCCC<>"" then CCJJCJC(CJCCJJJ,3)=CCJCCCC if CCJJJJJC<>"" then CCJJCJC(CJCCJJJ,4)=CLng(CCJJJJJC) end if end if:if CJCCJJJ>0 then Application.Lock():Application(CCJCJJC) = CCJJCJC:Application.UnLock() end if:End Sub:Private Sub Debug(CJCCJCCC):Call ConnClose:Response.Write CJCCJCCC:Response.End:End Sub:Private Function CJJCCJCC():CJJCCJCC=CJCJCCJC+1:End Function:Private Function CJCJCCJC():dim CCJJJJC:set CCJJJJC=CJJJJJJ.execute(CJCCJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJJ & CJCCJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCJC=CCJJJJC(0):CCJJJJC.Close: Set CCJJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCJCCJ=289:Const CJJCJCCC="九龙坡区镇街居民心理健康测评问卷-成人版":Call CheckRight("54,81"):Call CheckQueryTime(CJCCJJJJ("%6DE0#6A@CE"),30):dim CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ:CCCCJJJ=Request.QueryString(CJCCJJJJ("$49@@=")):CCCJJCC=Request.QueryString(CJCCJJJJ("s6AE")):CCCJCJJ=Request.QueryString(CJCCJJJJ("vC256")):CCCJCJC=Request.QueryString(CJCCJJJJ("vC@FA")):CCCJCCJ=Request.QueryString(CJCCJJJJ("E`")):CCCJCCC=Request.QueryString(CJCCJJJJ("Ea")):if not CJJCCJCJ(CCCJJCC) then Call RedirectMessage(CJCCJJJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CCJJCJC:set CCJJCJC=new jtree:CCJJCJC.table=CJCCJJJJ(">6>36C0EJA6"):if not CCJJCJC.IsParent(CJJCJJJ,CCCJJCC) then Call RedirectMessage(CJCCJJJJ("诠@苾@囯@W") & CCCJJCC & CJCCJJJJ("X丈@圣@患@W") & CJJCJJJ & CJCCJJJJ("X癿@箜@琁@苾@囯@冀@。,")) dim CJCJCCCJ:CJCJCCCJ=CCJJCJC.GetChild(CCCJJCC):if ubound(CJCJCCCJ)<0 then Call RedirectMessage(CJCCJJJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) CJCJCCCJ=join(CJCJCCCJ,CJCCJJJJ("M")) & CJCCJJJJ("M_M共@仑@"):CJCJCCCJ=split(CJCJCCCJ,CJCCJJJJ("M")):dim CCCCJJC:CCCCJJC=CCJJCJC.GetCurName(CCCJJCC):dim CJCCJJJ,CJCCCJJ,CJCCCJC,CCCCJCJ,CCCCJCC,CCCCCJJ:dim CCCCCJC():redim CCCCCJC((ubound(CJCJCCCJ)-1)/2,10):for CJCCJJJ=0 to ubound(CJCJCCCJ)-1 step 2:CJCCCJC=CJCCJJJ/2:CCCCCJC(CJCCCJC,0)=CJCJCCCJ(CJCCJJJ):CCCCCJC(CJCCCJC,1)=CJCJCCCJ(CJCCJJJ+1):for CJCCCJJ=2 to ubound(CCCCCJC,2):CCCCCJC(CJCCCJC,CJCCCJJ)=0:next:next:dim CJCCJJC,CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJJJJCJJ:dim CJJJJCJC,CJJJJCCJ:CJJJJCJC=Date:CJJJJCCJ=cdate(CJCCJJJJ("a___\`\`")):dim CJJJJCCC(1):dim CJJJCJJJ,CJJJCJJC,CJJJCJCJ,CJJJCJCC,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ:Call ArrayInit(CJJJJCCC):dim CJJCJJJC(2):Call ArrayInit(CJJCJJJC):dim CJJCJJCJ(7):Call ArrayInit(CJJCJJCJ):dim CJJCJJCC,CJJCJCJJ:CJJJCJJ=CJCCJJJJ("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[>@3:=6[C6DF=E[2?DH6C[>6>36CEJA6[C62=?2>6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CCCCJJJ else CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,2?5 ,") & CCJJCJC.Sql_GetChildren(CCCJJCC) if CJJCCJCJ(CCCJCJJ) then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,2?5 ,8C256l") & CCCJCJJ if CJJCCJCJ(CCCJCJC) then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJCJC if isdate(CCCJCCJ) then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,2?5 ,52E6E:>6mlV") & CCCJCCJ & CJCCJJJJ("V") if isdate(CCCJCCC) then CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCCJCCC)+1 & CJCCJJJJ("V") CJJJCJJ=CJJJCJJ & CJCCJJJJ(" ,@C56C ,3J ,>6>36CEJA6"):set CJJJJCJ=CJJJJJC.execute(CJJJCJJ):if CJJJJCJ.eof then Call RedirectMessage(CJCCJJJJ("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,")) while not CJJJJCJ.eof:CJCCCJC=CJJJJCJ(1):if CJCCCJCCJJJJCCJ then CJJJJCCJ=CJCCCJC CJCCJJC=split(CJCCJJJJ("M") & CJJJJCJ(4),CJCCJJJJ("M")):if CJCCJJC(1)="1" then CJCCCJC=0 else CJCCCJC=1 CJJJJCCC(CJCCCJC)=CJJJJCCC(CJCCCJC)+1:if CJCCJJC(3)="1" or CJCCJJC(3)="2" then CJJJCJJJ=CJJJCJJJ+1 if CJCCJJC(4)="1" or CJCCJJC(4)="2" then CJJJCJJC=CJJJCJJC+1 if CJCCJJC(5)="1" then CJJJCJCJ=CJJJCJCJ+1 if CJCCJJC(6)="2" or CJCCJJC(6)="3" then CJJJCJCC=CJJJCJCC+1 if CJCCJJC(7)="1" then CJJJCCJJ=CJJJCCJJ+1 if CJCCJJC(8)="1" then CJJJCCJC=CJJJCCJC+1 if CJCCJJC(10)="1" then CJJJCCCJ=CJJJCCCJ+1 if CJCCJJC(11)="1" then CJJJCCCC=CJJJCCCC+1 if CJCCJJC(13)="1" or CJCCJJC(14)="1" then if CJJJJCJ(5)<>CJJCJJCC then CJJCJJCC=CJJJJCJ(5):CJJCJCJJ=CCJJCJC.GetPositionStr_From(CJJCJJCC,CCCCJJJ) end if:CJJJJJCJ=CJJJJJCJ & CJJCJCJJ & CJCCJJJJ("M") & CJJJJCJ(6) & CJCCJJJJ("M") & IIf(CJCCJJC(13)="1",CJCCJJJJ("昪@"),"") & CJCCJJJJ("M") & IIf(CJCCJJC(14)="1",CJCCJJJJ("昪@"),"") & CJCCJJJJ("M") & CJJJJCJ(2) & vbcrlf end if:if CJCCJJC(15)="1" then CJJCJJJJ=CJJCJJJJ+1 CJCCJJC=split(CJJJJCJ(3),CJCCJJJJ("M")):CJCCCJC=CJCCJJC(1):CJJCJJJC(CJCCCJC)=CJJCJJJC(CJCCCJC)+1:for CJCCJJJ=0 to 7:CJCCCJJ=CJCCJJJ+2:if CJCCJJC(CJCCCJJ)="0" then CJJCJJCJ(CJCCJJJ)=CJJCJJCJ(CJCCJJJ)+1 next:CJJJJJJC=1:for CJCCJJJ=2 to 7:if CJCCJJC(CJCCJJJ)="1" then CJJJJJJC=0:exit for end if:next:if CJJJJJJC=0 then if CJJJJCJ(5)<>CJJCJJCC then CJJCJJCC=CJJJJCJ(5):CJJCJCJJ=CCJJCJC.GetPositionStr_From(CJJCJJCC,CCCCJJJ) end if:CJJJJJCC=CJJJJJCC & CJJCJCJJ & CJCCJJJJ("M") & CJJJJCJ(6):for CJCCJJJ=2 to 9:CJJJJJCC=CJJJJJCC & CJCCJJJJ("M") & IIf(CJCCJJC(CJCCJJJ)="1",CJCCJJJJ("廽@帳@"),""):next:CJJJJJCC=CJJJJJCC & vbcrlf end if:CJCCCJJ=ubound(CCCCCJC):for CJCCJJJ=0 to CJCCCJJ-1:if instr(CJJJJCJ(0) & CJCCJJJJ("["),CJCCJJJJ("[") & CCCCCJC(CJCCJJJ,0) & CJCCJJJJ("["))>0 then CJCCCJJ=CJCCJJJ:exit for end if:next:CJCCJJJ=CJCCCJJ:CCCCCJC(CJCCJJJ,2)=CCCCCJC(CJCCJJJ,2)+1:for CJCCCJJ=2 to 7:if CJCCJJC(CJCCCJJ)="1" then CJCCCJC=CJCCCJJ+1:CCCCCJC(CJCCJJJ,CJCCCJC)=CCCCCJC(CJCCJJJ,CJCCCJC)+1 end if:next:CJJJJJJJ=CJJJJJJJ+1:CJJJJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJJJ("k9625m") & vbCrLf):Response.Write(CJCCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJJJ("kE:E=6m")):Response.Write CCCCJJC:Response.Write(CJCCJJJJ("\")):Response.Write CJJCJCCC:Response.Write(CJCCJJJJ("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJCCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJCCJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCCJJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJJJ("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(CJCCJJJJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("k^9625m") & vbCrLf):Response.Write(CJCCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9`mkD>2==m")):Response.Write CCCCJJC:Response.Write(CJCCJJJJ("k^D>2==mk3Cm")):Response.Write CJJCJCCC:Response.Write(CJCCJJJJ("k3Cm囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9am胇@晪@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm丵@亁@俘@讼@兣@匵@徾@琁@偠@庲@月@劜@巠@佗@癿@拼@绨@怢@掣@迖@，,揋@卂@埵@尽@巠@佗@亵@呓@癿@徾@琁@偠@庲@愊@证@三@徾@琁@月@劜@氯@幮@，,封@徾@琁@偠@庲@月@劜@丆@沄@迖@兠@礹@匵@（,杌@礹@）,、,赫@迖@晩@逕@羟@伒@、,牴@殅@羟@低@，,认@埵@尽@羟@伒@胸@多@刂@躦@愚@叒@别@徾@琁@偠@庲@月@劜@癿@釈@襼@怢@咇@忀@襼@怢@，,廻@屐@朧@欜@衒@镂@局@氌@徾@琁@偠@庲@浆@访@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9am` ,斸@浆@惀@冰@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9bm`]` ,释@衣@筻@仆@k^9bm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm朧@闩@卲@丶@襼@钃@寴@礹@匵@局@氌@（,丶@襼@丵@俜@论@亵@呓@，,洼@劣@、,畔@它@、,囫@塾@儺@章@叅@靍@尌@幯@，,穵@川@、,丢@偱@、,夬@狧@老,亵@，,礹@匵@戍@母@礹@匵@庲@夈@亵@呓@，,厽@力@戍@母@荪@牤@绯@拼@沶@疒@亵@呓@，,臥@愺@戍@母@亵@呓@筄@釈@炴@亵@羟@）,廻@屐@徾@琁@偠@庲@浆@访@，,盩@癿@圣@争@亁@觞@釈@炴@亵@羟@癿@徾@琁@偠@庲@犱@冰@，,廵@竆@徾@琁@桞@桃@，,幱@栴@捩@浆@访@绎@林@只@曯@力@朄@钃@寴@怢@癿@廻@屐@吉@绨@癿@徾@琁@偠@庲@训@庢@、,与@颓@诹@埽@筄@共@孾@月@劜@，,佺@徒@敯@低@月@劜@巠@佗@曯@力@秌@孡@、,髓@敃@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm朧@闩@卲@丶@襼@産@争@浆@访@戋@幯@亵@，,刁@丵@丄@严@郣@刁@：,埵@朧@俜@恪@、,礹@伕@攪@拼@咇@徾@琁@偠@庲@犱@冰@。,埵@朧@俜@恪@攱@雁@亁@戋@幯@亵@三@爱@毈@咇@共@仑@亭@屙@癿@兮@糶@、,昪@吡@旛@孋@奮@、,三@孋@奮@兮@糶@、,宱@庨@账@囫@、,宱@旊@粹@祙@痀@叭@、,烚@瘹@配@瘹@、,吳@飚@母@咼@、,俜@仫@丈@吃@琁@宒@敔@；,礹@伕@攪@拼@仞@衣@叒@浆@耀@规@徒@宱@亵@、,亭@戕@、,朆@叆@筄@昪@吡@兮@徾@臥@巬@，,圣@臥@巬@遂@别@挦@抓@我@囫@隹@癿@旱@倔@，,胸@丈@胸@徒@别@呣@囯@亵@癿@攪@拼@咇@帩@劤@；,徾@琁@偠@庲@犱@冰@匀@拧@睜@眛@、,抌@邼@、,澻@惴@、,無@虌@、,疌@痀@、,恋@惢@、,張@迦@、,躪@低@匑@筄@，,逕@迂@筻@卐@癿@颓@盩@浆@柠@叒@浆@耀@迌@丟@呣@冀@癿@徾@琁@偠@庲@氯@幮@，,幱@刟@斨@共@孓@圣@癿@徾@琁@囫@惌@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9bm`]a ,浆@访@惀@冰@k^9bm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm浆@访@旱@闯@丵@：,")):Response.Write formatdatetime(CJJJJCJC,1):Response.Write(CJCCJJJJ("～,")):Response.Write formatdatetime(CJJJJCCJ,1):Response.Write(CJCCJJJJ("。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm浆@访@寴@豜@丵@衒@镂@局@氌@")):Response.Write CJJJJJJJ:Response.Write(CJCCJJJJ("亵@，,共@丨@甲@怢@")):Response.Write CJJJJCCC(0):Response.Write(CJCCJJJJ("亵@，,奮@怢@")):Response.Write CJJJJCCC(1):Response.Write(CJCCJJJJ("亵@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m釈@炴@亵@羟@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m卛@每@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm三@爱@毈@癿@兮@糶@轾@巩@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCJJJ:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCJJJ>0 then Response.Write formatpercent(CJJJCJJJ/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm三@共@仑@亭@屙@癿@兮@糶@轾@巩@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCJJC:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCJJC>0 then Response.Write formatpercent(CJJJCJJC/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm旛@孋@奮@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCJCJ:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCJCJ>0 then Response.Write formatpercent(CJJJCJCJ/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm三@孋@奮@兮@糶@轾@巩@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCJCC:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCJCC>0 then Response.Write formatpercent(CJJJCJCC/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm账@囫@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCCJJ:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCCJJ>0 then Response.Write formatpercent(CJJJCCJJ/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm宱@旊@粹@祙@痀@叭@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCCJC:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCCJC>0 then Response.Write formatpercent(CJJJCCJC/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm烚@瘹@我@配@瘹@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCCCJ:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCCCJ>0 then Response.Write formatpercent(CJJJCCCJ/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm吳@飚@迂@母@咼@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJJCCCC:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJJCCCC>0 then Response.Write formatpercent(CJJJCCCC/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm俜@仫@丈@吃@琁@癿@宒@敔@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):Response.Write CJJCJJJJ:Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m")):if CJJCJJJJ>0 then Response.Write formatpercent(CJJCJJJJ/CJJJJJJJ,2,-1) Response.Write(CJCCJJJJ("k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9ama ,釈@炴@闩@颓@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm圣@“,笧@`b颓@：,佛@迂@厶@曹@绊@朄@迂@臥@伟@我@臥@朻@癿@绊@厁@吒@？,”,咇@“,笧@`c颓@：,佛@曻@迌@绊@帳@朄@臥@朻@癿@惮@泐@凵@玫@吒@？,”,丨@，,件@愊@一,颓@逄@拤@“,昪@”,癿@亵@電@襼@譡@惐@，,幱@叅@旱@三@共@聏@糶@，,廵@让@仑@尸@忦@别@徾@琁@咣@话@朵@板@寶@氽@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE23=6 ,:5lQK:D92\=:DEQ ,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(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m臥@朻@臥@伟@绊@厁@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m迌@朚@臥@朻@惮@泐@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m聏@糶@斴@弊@（,扆@朵@）,k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):CJCCJJC=split(CJJJJJCJ,vbcrlf):for CJCCJJJ=0 to ubound(CJCCJJC)-1:CCCCCCC=split(CJCCJJC(CJCCJJJ),CJCCJJJJ("M")):Response.Write CJCCJJJJ("kECmkE5m") & (CJCCJJJ+1) & CJCCJJJJ("k^E5mkE5 ,4=2DDlV2>\E6IE\=67E ,2>\E6IE\>:55=6Vm") & CCCCCCC(0) & CJCCJJJJ("k^E5m") for CJCCCJJ=1 to 4:Response.Write CJCCJJJJ("kE5m") & CCCCCCC(CJCCCJJ) & CJCCJJJJ("k^E5m"):next:Response.Write CJCCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9amb ,礹@伕@攪@拼@犱@冰@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm礹@伕@攪@拼@昪@严@低@仉@亭@朆@、,礹@匵@叅@礹@伕@罌@绗@莲@徒@癿@一,舧@我@牴@宕@癿@帩@劤@[昪@杠@臥@严@亵@乆@夑@癿@叿@秈@攪@拼@癿@怶@秫@。,礹@伕@攪@拼@三@严@亵@徾@琁@偠@庲@寁@刂@盳@兮@，,電@襼@釈@炴@兮@泣@礹@伕@攪@拼@轾@尌@癿@羟@低@，,绔@仑@仧@兮@徾@咇@袦@爬@癿@俜@恪@，,认@仑@仧@盳@俜@臥@巬@昪@朄@尅@丠@朄@仲@倷@癿@，,认@仑@仧@愚@规@别@臥@巬@屙@争@囝@低@乆@丨@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm浆@访@绎@林@昹@礵@，,兣@低@叒@浆@局@氌@癿@礹@伕@攪@拼@惀@冰@好@丆@，,k4@56m")):Response.Write formatpercent(CJJCJJJC(2)/CJJJJJJJ,2,-1):Response.Write(CJCCJJJJ("k^4@56m亵@拠@朄@轾@夕@癿@礹@伕@攪@拼@，,k4@56m")):Response.Write formatpercent(CJJCJJJC(1)/CJJJJJJJ,2,-1):Response.Write(CJCCJJJJ("k^4@56m癿@亵@拠@朄@丨@筄@癿@礹@伕@攪@拼@，,k4@56m")):Response.Write formatpercent(CJJCJJJC(0)/CJJJJJJJ,2,-1):Response.Write(CJCCJJJJ("k^4@56m癿@亵@礹@伕@攪@拼@轾@尌@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl礹@伕@攪@拼@轾@尌@M礹@伕@攪@拼@丨@筄@M礹@伕@攪@拼@轾@夕@UGl")):Response.Write join(CJJCJJJC,CJCCJJJJ("M")):Response.Write(CJCCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9amc ,徾@琁@偠@庲@犱@冰@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm朧@浆@访@徾@琁@偠@庲@郣@刁@昪@寴@衒@镂@局@氌@徾@琁@惀@冰@癿@筻@卐@衜@释@，,共@丨@柋@柋@四@孋@廽@帳@仞@衣@眻@局@氌@圣@仠@丆@斴@靝@孓@圣@眻@囫@扫@，,幱@丈@仞@衣@孓@圣@痂@犱@我@耀@丠@釈@闩@颓@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm浆@访@一,公@逄@産@亁@兦@严@徾@琁@偠@庲@犱@冰@癿@四@孋@，,刁@刦@昪@睜@眛@、,抌@邼@、,澻@惴@、,無@虌@、,疌@痀@、,恋@惢@、,張@迦@咇@躪@低@匑@，,觞@釅@好@丆@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m睜@眛@廽@帳@：,仞@衣@孓@圣@一,亖@睜@眛@闩@颓@，,明@夬@眛@我@睜@眛@责@释@丈@髓@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m抌@邼@廽@帳@：,仞@衣@孓@圣@一,亖@惀@绥@佉@萸@癿@闩@颓@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m澻@惴@廽@帳@：,仞@衣@孓@圣@一,亖@感@怍@惀@绥@咇@收@凶@怢@衇@丵@，,宴@明@袦@夑@畇@了@牤@弐@双@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m無@虌@廽@帳@：,仞@衣@孓@圣@一,亖@索@弛@丈@宄@癿@惀@绥@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m疌@痀@廽@帳@：,仞@衣@孓@圣@旱@制@拀@忢@臥@躦@偠@庲@癿@惀@绥@，,乀@乀@丈@胸@幮@夈@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m恋@惢@廽@帳@：,仞@衣@迂@庡@恋@慇@，,宴@明@轶@俜@谞@觻@筄@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m張@迦@廽@帳@：,仞@衣@孓@圣@又@夈@洒@扆@、,釈@夈@柋@亖@制@杺@衇@丵@筄@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m躪@低@匑@廽@帳@：,仞@衣@朄@一,亖@躦@低@丅@癿@痂@犱@，,佁@返@亖@痂@犱@昪@四@丵@索@弛@癿@惀@绥@亢@甚@癿@。,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm仠@丆@昪@叒@浆@羟@低@叿@四@孋@歞@帳@咇@廽@帳@癿@亵@敫@仠@叅@每@來@，,廽@帳@癿@亵@敫@超@夕@、,每@來@超@髓@仞@衣@诠@四@孋@癿@闩@颓@圣@叒@浆@羟@低@丨@晩@遈@孓@圣@，,電@襼@夕@夕@兮@泣@幱@叅@旱@釂@发@接@斸@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):CJCCJJC=split(CJCCJJJJ("睜@眛@M抌@邼@M澻@惴@M無@虌@M疌@痀@M恋@惢@M張@迦@M躪@低@匑@"),CJCCJJJJ("M")):Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,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(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m歞@廽@帳@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):for CJCCJJJ=0 to 7:Response.Write CJCCJJJJ("kECmkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & (CJCCJJJ+1) & CJCCJJJJ("k^E5mkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & CJCCJJC(CJCCJJJ) & CJCCJJJJ("k^E5mkE5m歞@帳@k^E5m") if CJJCJJCJ(CJCCJJJ)>0 then Response.Write CJCCJJJJ("kE5m") & CJJCJJCJ(CJCCJJJ) & CJCCJJJJ("k^E5mkE5m") & formatpercent(CJJCJJCJ(CJCCJJJ)/CJJJJJJJ,2,-1) & CJCCJJJJ("k^E5m") else Response.Write CJCCJJJJ("kE5mk^E5mkE5mk^E5m") end if:Response.Write CJCCJJJJ("k^ECmkECmkE5m廽@帳@k^E5m"):CJJJJJJC=CJJJJJJJ-CJJCJJCJ(CJCCJJJ):if CJJJJJJC>0 then Response.Write CJCCJJJJ("kE5m") & CJJJJJJC & CJCCJJJJ("k^E5mkE5m") & formatpercent(CJJJJJJC/CJJJJJJJ,2,-1) & CJCCJJJJ("k^E5m") else Response.Write CJCCJJJJ("kE5mk^E5mkE5mk^E5m") end if:Response.Write CJCCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9amd ,叿@卐@佈@徾@琁@偠@庲@四@孋@廽@帳@每@來@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm仠@丆@昪@叿@卐@佈@叒@浆@羟@低@丈@吇@四@孋@癿@廽@帳@亵@羟@每@來@，,叿@四@孋@廽@帳@每@來@轾@髓@癿@卐@佈@昪@電@襼@釈@炴@兮@泣@癿@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,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(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9 ,4@=DA2?lQaQm卐@佈@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):for CJCCJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,kE9 ,4@=DA2?lQaQm")):Response.Write CJCCJJC(CJCCJJJ):Response.Write(CJCCJJJJ("k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):for CJCCJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m?k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9mTk^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):for CJCCJJJ=0 to ubound(CCCCCJC):if CCCCCJC(CJCCJJJ,2)>0 then Response.Write CJCCJJJJ("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CCCCCJC(CJCCJJJ,1) & CJCCJJJJ("k^E5mkE5m") & CCCCCJC(CJCCJJJ,2) & CJCCJJJJ("k^E5m") for CJCCCJJ=0 to 7:CJCCCJC=CJCCCJJ+3:if CCCCCJC(CJCCJJJ,CJCCCJC)>0 then Response.Write CJCCJJJJ("kE5m") & CCCCCJC(CJCCJJJ,CJCCCJC) & CJCCJJJJ("k^E5m"):Response.Write CJCCJJJJ("kE5m") & formatnumber(CCCCCJC(CJCCJJJ,CJCCCJC)/CCCCCJC(CJCCJJJ,2)*100,1,-1) & CJCCJJJJ("k^E5m") else Response.Write CJCCJJJJ("kE5mk^E5mkE5mk^E5m") end if:next:Response.Write CJCCJJJJ("k^ECm") end if:next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9ame ,廵@让@兮@泣@合@卐@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm返@昪@叿@卐@佈@孓@圣@徾@琁@偠@庲@闩@颓@癿@合@卐@，,吇@一,严@亵@只@胸@圣@夕@严@四@孋@丅@徒@刁@丵@廽@帳@，,返@仞@衣@眻@仑@^奴@孓@圣@夕@严@四@孋@癿@囫@扫@。,來@好@弛@丄@圣@睜@眛@、,抌@邼@咇@無@虌@丄@严@四@孋@丅@衣@玫@丵@廽@帳@，,返@仞@衣@眻@迌@丟@呣@冀@，,弛@丄@孓@圣@夬@眛@、,惀@绥@佉@萸@癿@惀@冰@咇@索@弛@丈@宄@癿@犱@忼@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm一,舧@廵@让@釈@炴@兮@泣@徾@琁@偠@庲@四@孋@孓@圣@a严@仠@丅@廽@帳@癿@亵@。,钃@寴@叒@浆@亵@羟@徾@琁@偠@庲@犱@忼@癿@丈@吇@，,只@仠@釂@发@丈@吇@癿@序@寴@接@斸@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE23=6 ,:5lQ23?@C>2=\=:DEQ ,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(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m睜@眛@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m抌@邼@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m澻@惴@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m無@虌@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m疌@痀@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m恋@惢@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m張@迦@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m躪@低@匑@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,")):CJCCJJC=split(CJJJJJCC,vbcrlf):for CJCCJJJ=0 to ubound(CJCCJJC)-1:CCCCCCC=split(CJCCJJC(CJCCJJJ),CJCCJJJJ("M")):Response.Write CJCCJJJJ("kECmkE5m") & (CJCCJJJ+1) & CJCCJJJJ("k^E5mkE5 ,4=2DDlV2>\E6IE\=67E ,2>\E6IE\>:55=6Vm") & CCCCCCC(0) & CJCCJJJJ("k^E5m") for CJCCCJJ=1 to 9:Response.Write CJCCJJJJ("kE5m") & CCCCCCC(CJCCCJJ) & CJCCJJJJ("k^E5m"):next:Response.Write CJCCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9amf ,廵@让@k^9am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9bmf]` ,板@廵@釈@炴@亵@羟@礹@伕@攪@拼@低@糶@k^9bm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm好@佐@板@廵@礹@匵@釈@炴@局@氌@（,俜@论@亵@呓@，,洼@劣@，,穵@川@、,丢@偱@、,夬@狧@老,亵@，,礹@匵@戍@母@礹@匵@庲@夈@亵@呓@筄@釈@炴@亵@羟@）,礹@伕@攪@拼@低@糶@昪@一,严@涄@叅@严@亵@，,宱@庨@，,线@绂@咇@攺@店@仠@叅@礹@伕@夕@斴@靝@癿@绷@吃@怢@闩@颓@。,返@亖@亵@甬@争@共@臥@躦@牴@殅@厚@四@，,仑@仧@癿@礹@伕@攪@拼@罌@绗@幱@丈@偠@兣@，,迓@孓@圣@眻@徃@夢@癿@缵@叞@，,孓@圣@沜@朄@只@亟@徾@癿@朆@叆@、,缵@尌@宱@亵@咇@共@仑@亭@屙@癿@兮@忻@、,缵@尌@杠@臥@礹@伕@癿@兮@徾@筄@闩@颓@，,觞@冮@返@亖@闩@颓@電@襼@廵@竆@宇@啿@癿@礹@伕@攪@拼@帩@劤@低@糶@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m严@亵@攪@拼@低@糶@：,礹@伕@襼@鼎@劬@局@氌@兮@泣@臥@躦@徾@琁@偠@庲@，,同@仑@仧@晩@叅@徾@琁@偠@庲@矠@证@，,兀@刁@双@挠@臥@戌@攪@拼@咇@臥@戌@课@艽@癿@胸@劖@。,偕@奸@徾@琁@课@艽@，,课@艽@奸@臥@躦@癿@惀@绥@；,秪@杼@厽@力@礹@伕@洶@劣@，,墙@力@三@亵@掠@觡@癿@朵@伕@；,厽@三@丫@寇@癿@粹@祙@斂@匑@洶@劣@。,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m宱@庨@攪@拼@低@糶@：,襼@鼎@劬@釈@炴@亵@羟@癿@宱@亵@夕@三@共@沚@逕@，,夕@揋@侖@牤@责@咇@粹@祙@丅@癿@攪@拼@，,认@孋@奮@亭@亵@夕@囙@宱@眆@眆@；,寴@争@孓@圣@拍@绘@赜@其@老,亵@我@旛@亵@赜@其@筄@惀@冰@，,襼@叅@旱@同@攺@店@朄@兮@郣@闣@寶@氽@帩@劤@。,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k=:m礹@匵@线@绂@攪@拼@低@糶@：,襼@双@挠@奸@礹@匵@攪@拼@癿@佗@産@，,巠@佗@亵@呓@襼@兀@刁@亁@觞@叿@釈@炴@亵@羟@癿@躦@低@偠@庲@犱@冰@、,粹@祙@惀@冰@咇@宱@庨@犱@冰@，,幱@彝@戋@桞@桃@；,三@匶@疒@朵@板@吃@佗@，,绔@礹@匵@局@氌@秌@晩@偠@庲@矠@证@，,梻@柠@躦@低@，,丵@礹@匵@局@氌@扎@逕@侺@捲@癿@尬@匶@透@彿@；,宕@朚@线@绂@斂@匑@洶@劣@，,墙@力@仑@仧@盳@亍@亟@洼@癿@朵@伕@，,凊@轶@孟@狧@愚@。,k^=:m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k9bmf]a ,觞@冮@穼@凵@癿@徾@琁@偠@庲@闩@颓@k^9bm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm仠@丆@昪@钃@寴@丈@吇@癿@徾@琁@偠@庲@闩@颓@揋@凵@癿@廵@让@，,只@仠@栴@捩@厽@浆@耀@严@亵@癿@惀@冰@逄@拤@釂@发@仠@丆@廵@让@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\9@G6C ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m徾@琁@偠@庲@囫@惌@咇@闩@颓@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE9m寴@筑@三@廵@让@k^E9m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m睜@眛@闩@颓@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm夬@眛@丶@襼@衣@玫@丵@兠@睜@囫@隹@、,睜@眛@责@释@丆@陈@、,睜@眛@旱@闯@凊@尌@筄@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm廵@让@廻@屐@睜@眛@卦@甚@矠@证@逄@，,伛@逍@睜@眛@卦@甚@矠@证@。,來@好@睜@眛@剈@遺@先@佺@産@兯@奆@牤@责@（,茱@、,咑@啜@、,配@粹@）,，,睜@眛@剈@遺@先@剢@烃@迋@劣@，,遺@先@夢@叾@夢@喘@，,睜@眛@剈@一,尊@旱@丈@眆@扆@朵@我@田@见@，,俘@拼@覿@徆@癿@佗@恪@旱@闯@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm索@弛@咇@無@虌@吇@栲@只@胸@弐@双@夬@眛@，,圣@睜@眛@剈@迖@衇@肇@肄@改@杹@咇@腴@弊@呷@吳@讨@纾@伕@攴@啿@睜@眛@犱@冰@。, ,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m抌@邼@惀@绥@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm抌@邼@癿@丶@襼@牴@彼@昪@惀@绥@佉@萸@，,帳@衣@玫@丵@忢@惼@、,诨@觻@劣@佗@凊@尌@、,帳@帳@臥@卌@、,臥@贞@筄@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm迋@劣@只@仠@轧@秶@泣@愊@劖@，,认@亵@仧@仉@贚@靝@惀@绥@觞@脬@凵@杠@，,敞@歠@、,跌@歠@、,渳@泮@伕@认@亵@圣@徾@琁@丅@愚@别@轶@杹@愄@忦@，,仉@耇@攴@啿@贚@靝@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm乡@冔@、,讫@彐@彎@剈@癿@惀@绥@低@骇@，,寴@贚@靝@了@仱@偕@凵@宇@敯@癿@、,朄@愊@乄@癿@叔@了@，,觞@釅@了@仱@癿@赲@四@、,绊@迂@、,绎@林@，,甕@臮@昪@攱@莲@，,只@仠@釅@改@丈@艪@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm同@仑@亵@倹@评@只@仠@凊@尌@臥@躦@癿@历@劖@，,朄@敃@缎@觞@丈@艪@癿@惀@绥@。, ,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m澻@惴@犱@忼@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm澻@惴@衣@玫@丵@宴@明@袦@尊@了@弐@双@感@怍@、,谤@驽@、,甕@臮@收@凶@，,明@澻@惴@昪@一,秈@迂@庡@又@序@癿@惀@绥@犱@忼@，,剢@烃@耇@拼@绨@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm觞@冮@斴@泐@馑@元@昪@寚@规@臥@躦@犱@忼@，,電@襼@覽@寚@幱@怘@考,臥@躦@佐@旱@伕@袦@澻@双@感@怍@，,圣@卮@封@感@怍@旱@淬@呷@吳@，,冲@靔@、,改@杹@，,诐@眻@幮@靔@丆@杠@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm吃@琁@癿@实@沿@乚@只@仠@觞@冮@澻@惴@犱@忼@，,寴@抒@怢@癿@迋@劣@胸@多@朄@敃@实@沿@惀@绥@。, ,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m無@虌@惀@绥@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm無@虌@丶@襼@衣@玫@丵@索@弛@丈@宄@，,拼@绨@癿@拀@忢@，,徾@跮@力@忦@筄@，,無@虌@昪@歞@帳@癿@惀@绥@，,尌@释@無@虌@伕@揋@髓@孡@乛@巠@佗@癿@敃@玂@，,佁@迂@庡@無@虌@伕@彬@哈@躦@徾@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm廻@屐@無@虌@惀@绥@矠@证@实@伛@，,孡@乛@好@佐@歞@硩@靝@寴@历@劖@。,孡@乛@圣@遂@别@挦@抓@旱@元@冲@靔@轧@秶@盩@栂@，,冈@怘@考,觞@冮@斴@泐@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm实@沿@昪@缎@觞@無@虌@惀@绥@癿@奸@斴@泐@，,迋@劣@、,娬@之@郸@只@仠@朄@敃@圫@凊@尌@贚@靝@惀@绥@。, ,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m疌@痀@犱@忼@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm疌@痀@挂@寴@躦@低@愚@规@佗@丈@刂@宙@陀@癿@痀@忼@觞@釅@，,怶@昪@拀@徾@臥@巬@甚@痀@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm返@昪@寴@疹@痀@癿@锔@诪@讟@矠@仠@叅@恋@惢@寷@臯@癿@，,電@襼@同@內@伒@伛@逍@秌@孡@癿@疹@痀@矠@证@，,歞@硩@讟@证@疹@痀@癿@痂@犱@、,衣@玫@咇@寴@躦@低@癿@捚@宮@稆@庡@，,认@仑@仧@琁@觞@疹@痀@幱@丈@只@怐@，,襼@盳@俜@秌@孡@，,规@徒@躦@低@丈@舍@月@旱@只@仠@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m恋@惢@惀@冰@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm恋@惢@挂@寴@丈@忀@襼@恋@惢@癿@了@牤@亢@甚@恋@慇@癿@惀@绥@，,來@好@寴@穵@旲@癿@幺@圵@、,黌@夗@、,寁@门@癿@穵@闯@亢@甚@癿@恋@惢@。,返@秈@恋@惢@惀@绥@丈@吃@琁@、,丈@忀@襼@，,佁@亵@仧@卯@旛@泐@探@刱@，,來@好@礹@亟@恋@惢@、,圵@戻@恋@惢@、,牴@宕@了@牤@恋@惢@。,好@林@恋@惢@犱@冰@每@轾@丠@釈@，,丏@镺@旱@闯@丈@胸@缎@觞@電@襼@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5m張@迦@衇@丵@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm張@迦@衣@玫@丵@釈@夈@偕@一,亖@昉@矠@沜@朄@愊@乄@，,卯@旛@泐@探@刱@厶@偕@癿@了@惀@，,來@好@張@迦@怢@洒@扆@。,轶@復@癿@張@迦@衇@丵@籶@伷@争@以@弊@怢@癿@劣@佗@，,寴@甚@洶@彬@哈@丈@夢@，,只@咇@張@迦@衇@丵@咇@幮@盳@壿@，,丈@忀@丵@臥@巬@癿@衇@丵@愚@别@烡@恷@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,?@HC2Am躪@低@匑@愚@叒@k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm躪@低@匑@挂@惀@绥@闩@颓@袦@历@抌@，,轧@耇@叓@戋@躪@低@痂@犱@衣@玫@凵@杠@，,來@好@彎@一,严@亵@索@弛@旱@，,張@忈@眻@索@弛@只@胸@伕@亢@甚@夯@疷@、,肾@疷@、,咮@嗸@筄@痂@犱@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm彎@孓@圣@返@亖@痂@犱@旱@，,馑@元@襼@考,虌@昪@吡@昪@疹@痀@癿@彬@哈@，,叅@旱@尬@匶@，,冈@考,虌@昪@吡@昪@惀@绥@戻@寷@臯@癿@。,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,kAm躪@低@匑@癿@栴@溋@昪@袦@历@抌@癿@惀@绥@，,掝@讣@電@襼@批@别@寴@序@癿@惀@绥@，,琁@觞@惀@绥@幱@舍@缎@惀@绥@，,躦@低@癿@丈@追@乚@伕@徒@别@缎@觞@。, ,k^Am") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJCCJJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CCCCJJC:Response.Write(CJCCJJJJ(" ,U>:55@Ej ,")):Response.Write CJJCJCCC:Response.Write(CJCCJJJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJCCJJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCCJJJJ(" ,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(CJCCJJJJ(" ,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(CJCCJJJJ(" ,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(CJCCJJJJ(" ,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(CJCCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6]C@HDA2?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJCCJJJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:42=\=:DEVX]49:=5C6?WVE3@5JVX]C@HDA2?W`X") & vbCrLf):Response.Write(CJCCJJJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJCCJJJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJCCJJJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJCCJJJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJCCJJJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJCCJJJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJCCJJJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJCCJJJJ(" ,NX") & vbCrLf):Response.Write(CJCCJJJJ("NX") & vbCrLf):Response.Write(CJCCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJC=nothing:set CJJCCCJJ=nothing:set CJJCCCJC=nothing:set CJJCCCCJ=nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJJ.Close:Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCJJJJ(ByVal CJCJCCCC) Dim CCCCJCC, CJCCJJJ, CJCCCCJ CJCJCCCC = Replace(CJCJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCJJJ = 1 To Len(CJCJCCCC) If CJCCJJJ <> CJCCCCJ Then CCCCJCC = AscW(Mid(CJCJCCCC, CJCCJJJ, 1)) If CCCCJCC >= 33 And CCCCJCC <= 79 Then CJCCJJJJ = CJCCJJJJ & Chr(CCCCJCC + 47) ElseIf CCCCJCC >= 80 And CCCCJCC <= 126 Then CJCCJJJJ = CJCCJJJJ & Chr(CCCCJCC - 47) Else CJCCCCJ = CJCCJJJ + 1 If Mid(CJCJCCCC, CJCCCCJ, 1) = Chr(64) Then CJCCJJJJ = CJCCJJJJ & ChrW(CCCCJCC + 5) Else CJCCJJJJ = CJCCJJJJ & Mid(CJCJCCCC, CJCCJJJ, 1) End If End If Next End Function %>