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