<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCJJ, CCJCJC,CCJCCJ, CCJCCC, CCCJJJ:Set CCJCJJ = server.CreateObject(CJJCJCJJ("ps~sq]r@??64E:@?")):CCJCJJ.open Application(CJJCJCJJ("r@??64E:@?$EC:?8")):Set CCJCJC=CCJCJJ::Dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC:CJJCJCC=Trim(Request.Cookies(CJJCJCJJ("!$*|t|qt#"))):if CJJCJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJC>0 then CCCJJJ=CJJCJCJJ("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(CJJCJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJJC,CCCJCJ) End IF end if:Sub CheckRight(CJCJCCJ):dim CJJCCJJ,CJJCCJC:if CCCJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CCCCCCJ(CJCJCCJ) then Call RedirectMessage(CJJCJCJJ("朾@陋@W") & CJCJCCJ & CJJCJCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCCCCCJ(CJCJCCJ):dim CJJCCJJ,CJJCCJC:CJJCCJC=split(CJCJCCJ,CJJCJCJJ("[")):CCCCCCJ=False:for CJJCCJJ=0 to ubound(CJJCCJC):If Mid(CCCJCC,CJJCCJC(CJJCCJJ),1)="1" then CCCCCCJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJCJJ("!$*|t|qt#"))="":CCCJJC=0:CCCCCJ=0:CCCJCJ=Empty:CCCCJC=0:CJJJJJJ=0:CCCCCC=0:CCCCJJ=0:CJJJJCJ=False:CJJCJJC=False:CJJCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCJ,CJJCCCC,CJJCCJJ,CJCJJJJ,CJCJJJC:CJJCCCJ=split(CJJCJCC,CJJCJCJJ("]")):if ubound(CJJCCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCCCJ(0)) or len(CJJCCCJ(1))<>32 or len(CJJCCCJ(2))<>32 then Call ClearMemberCookie else CJJCCCC=CJJCCCJ(1):for CJJCCJJ=1 to len(CJJCCCC):CJCJJJJ=mid(CJJCCCC,CJJCCJJ,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ if len(CJCJJJC)=7 then exit for next:CJJCCCC=CJJCCCJ(2):if CJCJJJC<>mid(CJJCCCC,6,7) then Call ClearMemberCookie else CJCJJJJ=mid(CJJCCCC,18,10)/2:if CJCJJJJ0 then for CJJCCJJ=0 to ubound(str):if CJJCCJJ>0 then response.Write CJJCJCJJ("k3C ,^m") response.Write CJJCCJJ & CJJCJCJJ("i ,") & str(CJJCCJJ):next else response.Write CJJCJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJCCJJ=0 to ubound(str,2):response.Write CJJCJCJJ("kE9 ,2=:8?lV=67EVm") & CJJCCJJ & CJJCJCJJ("k^E9m") next:response.Write CJJCJCJJ("k^ECm"):for CJJCCJJ=0 to ubound(str):response.Write CJJCJCJJ("kECmkE9m") & CJJCCJJ & CJJCJCJJ("k^E9m"):for CJCJJJJ=0 to ubound(str,2):response.Write CJJCJCJJ("kE5m") & str(CJJCCJJ,CJCJJJJ) & CJJCJCJJ("k^E5m"):next:response.Write CJJCJCJJ("k^ECm"):next:response.Write CJJCJCJJ("k^E23=6m") end if elseif isnull(str) then response.Write CJJCJCJJ(",}F==.") else Response.Write replace(str,vbcrlf,CJJCJCJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJCCJ,CJJCJCCC):dim CJJCCCJ:CJJCCCJ=CJJCJCCJ & CJJCJCJJ("l") & CJJCJCCC & CJJCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCJJ("$6E\r@@<:6"),CJJCCCJ):End Sub::::::sub ShowMessage(CJJCCJJJ):response.Charset="utf-8":Response.Write CJJCJCJJ("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") & CJJCCJJJ & CJJCJCJJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CCCCCCC(CJCJJCJ):if isnull(CJCJJCJ) or trim(CJCJJCJ)="" or not isnumeric(CJCJJCJ) then CCCCCCC=false else Dim CJCJJCC:Set CJCJJCC = New RegExp:CJCJJCC.Pattern = CJJCJCJJ("/-5ZS"):CJCJJCC.IgnoreCase = True:CCCCCCC = CJCJJCC.test(CJCJJCJ):set CJCJJCC=nothing end if:End Function:Function CJJJJJJJ(CJJCCJJC):dim CJCJCJJ,CJCJCJC:CJCJCJJ=CJJCJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJJC & CJJCJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJC=CCJCJJ.execute(CJCJCJJ):CJJJJJJJ = CJCJCJC(0):if isnull(CJJJJJJJ) then CJJJJJJJ=1 CJCJCJC.close : set CJCJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJCJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CJCJCJC.close : set CJCJCJC=nothing:CCJCCC.Close : Set CCJCCC=Nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CJJJJCJJ.Close : Set CJJJJCJJ = Nothing:CCJCJJ.Close : Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCJJ("!$*0|6DD286"),server.URLEncode(CJJCCJJJ)):Response.Redirect CJJCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJJJCJC(Table):Dim CJCJCJC, CJCJCCJ, str(), CJJCCJJ,CJCJJJJ,CJCCJJJ:CJCCJJJ=UCase(Table):If Not IsArray(Application(CJJCJCJJ("!$*0") & CJCCJJJ)) Then CCCJJJ=CJJCJCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCJCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCJCJC=server.createobject(CJJCJCJJ("25@53]C64@C5D6E")):CJCJCJC.open CCCJJJ,CCJCJJ,1:CJCJCCJ = CJCJCJC.RecordCount:ReDim str(CJCJCCJ, 2):If CJCJCCJ > 0 Then For CJJCCJJ = 1 To CJCJCCJ:for CJCJJJJ=0 to 2:str(CJJCCJJ, CJCJJJJ) = CJCJCJC(CJCJJJJ):next:CJCJCJC.MoveNext:Next End If:CJCJCJC.Close: Set CJCJCJC = Nothing:Application(CJJCJCJJ("!$*0") & CJCCJJJ) = str End If:CJJJJCJC = Application(CJJCJCJJ("!$*0") & CJCCJJJ):End Function::Function CJJJJCCJ(CJJCCJJC,CJJCCJCJ,CJJJCJJJ):Dim str, CJJCCJJ, CJCCJJC:CJCCJJC = CJJJJCJC(CJJCCJJC):For CJJCCJJ = 1 To UBound(CJCCJJC):if Cstr(CJCCJJC(CJJCCJJ,2))=Cstr(CJJCCJCJ) and CStr(CJCCJJC(CJJCCJJ, 0)) = CJJJCJJJ & "" then str=CJCCJJC(CJJCCJJ,1):exit for end if:Next:if str="" then str=CJJCJCJJ(",朥@矠@.") CJJJJCCJ=str:End Function:::::::Sub CheckQueryTime(CJJCCJCC,CJJCCCJJ):dim str,CJCJJCJ:str=CJJCJCJJ("!$*0") & Ucase(CJJCCJCC):if Session(str)<>"" then CJCJJCJ=DateDiff(CJJCJCJJ("D"),Session(str),Time):if CJCJJCJ0 then Call ConnClose:Call ShowMessage(CJJCJCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCCCJJ & CJJCJCJJ(" ,种@，,迓@剤@ ,") & CJJCCCJJ-CJCJJCJ & CJJCJCJJ(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCCCJC):Application.Contents.Remove CJJCCCJC End Sub::Class jTree:Private CCCJJJ, CJCCJCJ, CJCCJCC, CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:Private Sub Class_Initialize():CJCCJCC = 0:CJCCCJJ = 0:CCJJJJJ=10:End Sub:Public Property Let Table(CJJCCCCJ):if CJJCCCCJ="" then Call RedirectMessage(CJJCJCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJCCCJC=CJJCCCCJ:CJCCCCJ=CJJCJCJJ("!$*0") & UCase(CJCCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCJC:End Property:::Private Sub GetTreeArray():Dim CJJCCJJ, CJCJJJJ, CCJJJJC,RecordCount:CJCCJCJ = Application(CJCCCCJ):If Not IsArray(CJCCJCJ) Then CCCJJJ = CJJCJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCJC:if CJCCCCC<>"" then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,H96C6 ,") & CJCCCCC set CCJJJJC=CCJCJJ.execute(CCCJJJ):RecordCount=CCJJJJC(0):if RecordCount=0 then Call RedirectMessage(CJJCJCJJ("柠@话@W") & CJCCCJC & CJJCJCJJ("^") & CJCCCCC & CJJCJCJJ("X沜@朄@绎@林@敫@捩@")) CJCCCJJ=RecordCount+CCJJJJJ:ReDim CJCCJCJ(CJCCCJJ, 4):CCCJJJ = CJJCJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJJCJCJJ(" ,H:E9 ,W?@=@4"" then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,H96C6 ,") & CJCCCCC CCCJJJ=CCCJJJ & CJJCJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJJJC=CCJCJJ.execute(CCCJJJ):For CJJCCJJ = 1 To RecordCount:For CJCJJJJ = 0 To 4:CJCCJCJ(CJJCCJJ, CJCJJJJ) = CCJJJJC(CJCJJJJ):if IsNull(CJCCJCJ(CJJCCJJ,4)) then CJCCJCJ(CJJCCJJ,4)=0 If CJCCJCJ(CJJCCJJ,2)="" then CJCCJCJ(CJJCCJJ,2)=CJJCJCJJ(",穵@.") Next:CCJJJJC.MoveNext:Next:CCJJJJC.Close: Set CCJJJJC = Nothing:for CJJCCJJ=CJCCCJJ-(CCJJJJJ-1) to CJCCCJJ:CJCCJCJ(CJJCCJJ,0)=CJJCCJJ:next:Application.Lock():Application(CJCCCCJ) = CJCCJCJ:Application.UnLock() else CJCCCJJ=Ubound(CJCCJCJ) End If:End Sub::::Public Function GetChild(CJJJCJJJ):Dim CJJCCJJ, Str:CJJJCJJJ=CLng(CJJJCJJJ):For CJJCCJJ = 1 To CJCCCJJ:If CJCCJCJ(CJJCCJJ, 1) = CJJJCJJJ Then Str = Str & CJJCJCJJ("M") & CJCCJCJ(CJJCCJJ, 0) & CJJCJCJJ("M") & CJCCJCJ(CJJCCJJ,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJJCJCJJ("M")):End Function:Private Function CJJJCJCJ(CJJJCJJJ):dim CJJCCJJ,CCJJJCC:CJJJCJCJ=0:CCJJJCC=CStr(CJJJCJJJ):if CCJJJCC<>"0" then for CJJCCJJ=1 to CJCCCJJ:If CStr(CJCCJCJ(CJJCCJJ, 0))=CCJJJCC Then CJJJCJCJ = CJJCCJJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CJJJCJJJ):if Cstr(CJJJCJJJ)="0" then GetCurName=CJJCJCJJ("栴@") else Dim CJJCCJJ,CCJJJJC:CJJCCJJ=CJJJCJCJ(CJJJCJJJ):if CJJCCJJ>0 then GetCurName=CJCCJCJ(CJJCCJJ,2):if GetCurName="" then set CCJJJJC=CCJCJJ.execute(CJJCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJJCJCJJ(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJJJJC.eof then Call RedirectMessage(CJJCJCJJ("xs（,") & CJJJCJJJ & CJJCJCJJ("）,朥@批@别@")) GetCurName=CCJJJJC(1):Call UpdateCache(CJJJCJJJ,CCJJJJC(0),GetCurName,CCJJJJC(2),CCJJJJC(3)):CCJJJJC.Close: Set CCJJJJC = Nothing end if else set CCJJJJC=CCJCJJ.execute(CJJCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJJCJCJJ(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJJJJC.eof then Call RedirectMessage(CJJCJCJJ("xs（,") & CJJJCJJJ & CJJCJCJJ("）,朥@批@别@")) GetCurName=CCJJJJC(1):Call UpdateCache(CJJJCJJJ,CCJJJJC(0),GetCurName,CCJJJJC(2),CCJJJJC(3)):CCJJJJC.Close: Set CCJJJJC = Nothing end if end if:End Function:::Public Function CJJJCCJJ(CJJJCJJJ):Dim CJJCCJJ,CCJJCJJ:CJJCCJJ=CJJJCJCJ(CJJJCJJJ):if CJJCCJJ=0 then CCJJCJJ=CJJJCCJC(CJJJCJJJ) else CCJJCJJ=CJCCJCJ(CJJCCJJ,3):if isnull(CCJJCJJ) or CCJJCJJ="" then CCJJCJJ=CJJJCCJC(CJJJCJJJ) elseif Mid(CCJJCJJ,instrrev(CCJJCJJ,CJJCJCJJ("["))+1)<>CStr(CJJJCJJJ) then CCJJCJJ=CJJJCCJC(CJJJCJJJ) elseif Left(CCJJCJJ,1)=CJJCJCJJ("[") then CCJJCJJ=CJJJCCJC(CJJJCJJJ) end if end if:CJJJCCJJ=CCJJCJJ:End Function:Private Function CJJJCCJC(CJJJCJJJ):dim CCJJJCC:CCJJJCC=CStr(CJJJCJJJ):if CCJJJCC="0" then CJJJCCJC="" else dim CCJJJJC:set CCJJJJC=CCJCJJ.execute(CJJCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJC & CJJCJCJJ(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJJJJC.eof then Call UpdateCache(CJJJCJJJ,"","","",""):Call RedirectMessage(CJJCJCJJ("顴@盩@（,xs：,") & CJJJCJJJ & CJJCJCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCJJJJC(0)=0 then CJJJCCJC="0," & CJJJCJJJ else CJJJCCJC=CJJJCCJJ(CCJJJJC(0)) & CJJCJCJJ("[") & CJJJCJJJ end if:if CCJJJJC(2)<>CJJJCCJC then CCJCJJ.execute CJJCJCJJ("FA52E6 ,") & CJCCCJC & CJJCJCJJ(" ,D6E ,A2E9lV") & CJJJCCJC & CJJCJCJJ("V ,H96C6 ,:5l") & CJJJCJJJ else CJJJCCJC=CCJJJJC(2) end if end if:Call UpdateCache(CJJJCJJJ,CCJJJJC(0),CCJJJJC(1),CJJJCCJC,CCJJJJC(3)):CCJJJJC.Close: Set CCJJJJC = Nothing end if:End Function::::Public Function IsParent(CJJCCCCC, CJCJJJJJ):IsParent=InStr(CJJJCCJJ(CJCJJJJJ) & CJJCJCJJ("["), CJJCJCJJ("[") & CJJCCCCC & CJJCJCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJCJJJ):dim CCJJCJJ:CCJJCJJ=CJJJCCJJ(CJJJCJJJ):Sql_GetChildren = CJCCCJC & CJJCJCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJJCJJ & CJJCJCJJ("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCCJ End Sub:Public Sub UpdateCache(CJJJCJJJ,CJCJJJJC,CJCJJJCJ,CCJJCJJ,CJCJJJCC):dim CJJCCJJ,CJCJJJJ:CJJJCJJJ=CLng(CJJJCJJJ):CJJCCJJ=CJJJCJCJ(CJJJCJJJ):if CJCJJJJC="" and CJCJJJCJ="" and CCJJCJJ="" and CJCJJJCC="" then if CJJCCJJ>0 then for CJCJJJJ=1 to 4:CJCCJCJ(CJJCCJJ,CJCJJJJ)=Null:next end if else if CJJCCJJ=0 then for CJCJJJJ=1 to CJCCCJJ:if CJCCJCJ(CJCJJJJ,1) & ""="" then CJJCCJJ=CJCJJJJ:exit for end if:next end if:if CJJCCJJ=0 then Call ClearCache else CJCCJCJ(CJJCCJJ,0)=CLng(CJJJCJJJ):if CJCJJJJC<>"" then CJCCJCJ(CJJCCJJ,1)=CLng(CJCJJJJC) if CJCJJJCJ<>"" then CJCCJCJ(CJJCCJJ,2)=CJCJJJCJ if CCJJCJJ<>"" then CJCCJCJ(CJJCCJJ,3)=CCJJCJJ if CJCJJJCC<>"" then CJCCJCJ(CJJCCJJ,4)=CLng(CJCJJJCC) end if end if:if CJJCCJJ>0 then Application.Lock():Application(CJCCCCJ) = CJCCJCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJJCCJJJ):Call ConnClose:Response.Write CJJCCJJJ:Response.End:End Sub:Private Function CJJJJJJJ():CJJJJJJJ=CJJCJJJJ+1:End Function:Private Function CJJCJJJJ():dim CJCJCJC:set CJCJCJC=CCJCJJ.execute(CJJCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCJC & CJJCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJJJ=CJCJCJC(0):CJCJCJC.Close: Set CJCJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCCJJ=10:Const CCCCCJC="大学生人格问卷(UPI)":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJCJJ("%6DE0#6A@CE"),15):dim CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:CCJCJCJ=Request.QueryString(CJJCJCJJ("$49@@=")):CCJJCJC=Request.QueryString(CJJCJCJJ("s6AE")):CCJJCCJ=Request.QueryString(CJJCJCJJ("vC256")):CCJJCCC=Request.QueryString(CJJCJCJJ("vC@FA")):CCJCJJJ=Request.QueryString(CJJCJCJJ("E`")):CCJCJJC=Request.QueryString(CJJCJCJJ("Ea")):if not CCCCCCC(CCJJCJC) then Call RedirectMessage(CJJCJCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CJCCJCJ:set CJCCJCJ=new jtree:CJCCJCJ.table=CJJCJCJJ(">6>36C0EJA6"):if not CJCCJCJ.IsParent(CCCCJJ,CCJJCJC) then Call RedirectMessage(CJJCJCJJ("诠@苾@囯@W") & CCJJCJC & CJJCJCJJ("X丈@圣@患@W") & CCCCJJ & CJJCJCJJ("X癿@箜@琁@苾@囯@冀@。,")) dim CJJCJJJC:CJJCJJJC=CJCCJCJ.GetChild(CCJJCJC):if ubound(CJJCJJJC)<0 then Call RedirectMessage(CJJCJCJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) CJJCJJJC=join(CJJCJJJC,CJJCJCJJ("M")) & CJJCJCJJ("M_M共@仑@"):CJJCJJJC=split(CJJCJJJC,CJJCJCJJ("M")):dim CCJCJCC:CCJCJCC=CJCCJCJ.GetCurName(CCJJCJC):dim CJJCCJJ,CJCJJJJ,CJCJJJC,CCJCCJJ,CCJCCJC,CCJCCCJ:dim CCJCCCC():redim CCJCCCC((ubound(CJJCJJJC)-1)/2,11):for CJJCCJJ=0 to ubound(CJJCJJJC)-1 step 2:CJCJJJC=CJJCCJJ/2:CCJCCCC(CJCJJJC,0)=CJJCJJJC(CJJCCJJ):CCJCCCC(CJCJJJC,1)=CJJCJJJC(CJJCCJJ+1):for CJCJJJJ=2 to ubound(CCJCCCC,2):CCJCCCC(CJCJJJC,CJCJJJJ)=0:next:CCJCCJJ=CCJCCJJ & CJJCJCJJ("M") & CCJCCCC(CJCJJJC,1):next:CCJCCJJ=mid(CCJCCJJ,2):dim CCCJJJJ(1,8):CCCJJJJ(0,0)=CJJCJCJJ("甲@"):CCCJJJJ(1,0)=CJJCJCJJ("奮@"):for CJJCCJJ=0 to 1:for CJCJJJJ=0 to ubound(CCCJJJJ,2):CCCJJJJ(CJJCCJJ,CJCJJJJ)=0:next:next:dim CJJCCJC,CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ:dim CCCJCJC,CCCJCCJ:CCCJCJC=Date:CCCJCCJ=cdate(CJJCJCJJ("a___\`\`")):dim CCCJCCC(55,2):set CCJCCJ=CCJCJJ.execute(CJJCJCJJ("D6=64E ,BF6DE:@? ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CCCCCJJ & CJJCJCJJ(" ,@C56C ,3J ,D@CE")):for CJJCCJJ=0 to ubound(CCCJCCC):CCCJCCC(CJJCCJJ,0)=CJJCCJJ+1:CCCJCCC(CJJCCJJ,1)=CCJCCJ(0):CCCJCCC(CJJCCJJ,2)=0:CCJCCJ.movenext:next:dim CCCCJJJ:CCCCJJJ=Array(0,0,0,0,0):CCCJJJ=CJJCJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0>6>36C ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld"):if cstr(CCJJCJC)=cstr(CCJCJCJ) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCJCJCJ else CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,") & CJCCJCJ.Sql_GetChildren(CCJJCJC) if CCCCCCC(CCJJCCJ) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,8C256l") & CCJJCCJ if CCCCCCC(CCJJCCC) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJJCCC set CCJCCJ=CCJCJC.execute(CCCJJJ):CCCJJCJ=CCJCCJ(0):CCCJJJ=CJJCJCJJ("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[C6DF=E[2?DH6C[D6I ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CCJCJCJ else CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,") & CJCCJCJ.Sql_GetChildren(CCJJCJC) if CCCCCCC(CCJJCCJ) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,8C256l") & CCJJCCJ if CCCCCCC(CCJJCCC) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJJCCC if isdate(CCJCJJJ) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,52E6E:>6mlV") & CCJCJJJ & CJJCJCJJ("V") if isdate(CCJCJJC) then CCCJJJ=CCCJJJ & CJJCJCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCJCJJC)+1 & CJJCJCJJ("V") set CCJCCJ=CCJCJC.execute(CCCJJJ):if CCJCCJ.eof then Call RedirectMessage(CJJCJCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,")) while not CCJCCJ.eof:CJCJJJC=CCJCCJ(1):if CJCJJJCCCCJCCJ then CCCJCCJ=CJCJJJC if CCJCCJ(4) then CJCJJJJ=0 else CJCJJJJ=1 CCCJJJJ(CJCJJJJ,1)=CCCJJJJ(CJCJJJJ,1)+1:CCCJCJJ=CCJCCJ(2):if instr(CCCJCJJ,7)>0 then CCCJJJJ(CJCJJJJ,2)=CCCJJJJ(CJCJJJJ,2)+1 elseif instr(CCCJCJJ,8)>0 then CCCJJJJ(CJCJJJJ,3)=CCCJJJJ(CJCJJJJ,3)+1 else CCCJJJJ(CJCJJJJ,4)=CCCJJJJ(CJCJJJJ,4)+1 end if:CCCJCJJ=CCJCCJ(3):if Mid(CCCJCJJ,49,1)="1" then CCCJJJJ(CJCJJJJ,5)=CCCJJJJ(CJCJJJJ,5)+1 if Mid(CCCJCJJ,15,1)="1" then CCCJJJJ(CJCJJJJ,6)=CCCJJJJ(CJCJJJJ,6)+1 if Mid(CCCJCJJ,31,1)="1" then CCCJJJJ(CJCJJJJ,7)=CCCJJJJ(CJCJJJJ,7)+1 if Mid(CCCJCJJ,51,1)="1" then CCCJJJJ(CJCJJJJ,8)=CCCJJJJ(CJCJJJJ,8)+1 CJCJJJJ=ubound(CCJCCCC):for CJJCCJJ=0 to ubound(CCJCCCC)-1:if instr(CCJCCJ(0) & CJJCJCJJ("["),CJJCJCJJ("[") & CCJCCCC(CJJCCJJ,0) & CJJCJCJJ("["))>0 then CJCJJJJ=CJJCCJJ:exit for end if:next:CJJCCJJ=CJCJJJJ:CCJCCCC(CJJCCJJ,2)=CCJCCCC(CJJCCJJ,2)+1:CCCJCJJ=CCJCCJ(2):if instr(CCCJCJJ,7)>0 then CCJCCCC(CJJCCJJ,3)=CCJCCCC(CJJCCJJ,3)+1:if CCJCCJ(4) then CCJCCCC(CJJCCJJ,5)=CCJCCCC(CJJCCJJ,5)+1 else CCJCCCC(CJJCCJJ,7)=CCJCCCC(CJJCCJJ,7)+1 elseif instr(CCCJCJJ,8)>0 then CCJCCCC(CJJCCJJ,4)=CCJCCCC(CJJCCJJ,4)+1:if CCJCCJ(4) then CCJCCCC(CJJCCJJ,6)=CCJCCCC(CJJCCJJ,6)+1 else CCJCCCC(CJJCCJJ,8)=CCJCCCC(CJJCCJJ,8)+1 end if:CCCJCJJ=Mid(CCJCCJ(3),49,1):if CCCJCJJ="1" then CCJCCCC(CJJCCJJ,9)=CCJCCCC(CJJCCJJ,9)+1:if CCJCCJ(4) then CCJCCCC(CJJCCJJ,10)=CCJCCCC(CJJCCJJ,10)+1 else CCJCCCC(CJJCCJJ,11)=CCJCCCC(CJJCCJJ,11)+1 end if:CJJCCJC=split(CCJCCJ(3),CJJCJCJJ("M")):for CJJCCJJ=0 to ubound(CCCJCCC):if CJJCCJJ<>4 and CJJCCJJ<>19 and CJJCCJJ<>34 and CJJCCJJ<>49 then CJCJJJC=CJJCCJC(CJJCCJJ):if CJCJJJC="1" then CCCJCCC(CJJCCJJ,2)=CCCJCCC(CJJCCJJ,2)+1 end if:next:CCCJJJC=CCCJJJC+1:CCJCCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJCJJ("k9625m") & vbCrLf):Response.Write(CJJCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJCJJ("kE:E=6m")):Response.Write CCJCJCC:Response.Write(CJJCJCJJ("\")):Response.Write CCCCCJC:Response.Write(CJJCJCJJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJCJJ("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(CJJCJCJJ("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("k^9625m") & vbCrLf):Response.Write(CJJCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write CCJCCJJ:Response.Write(CJJCJCJJ("Qm") & vbCrLf):Response.Write(CJJCJCJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9`mkD>2==m")):Response.Write CCJCJCC:Response.Write(CJJCJCJJ("k^D>2==mk3Cm")):Response.Write CCCCCJC:Response.Write(CJJCJCJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm夢@孡@甚@亵@样@闩@卲@（,&?:G6CD:EJ ,!6CD@?2=:EJ ,x?G6?E@CJ，,筻@秫@&!x）,昪@丵@亁@旤@朚@双@玫@旤@朚@沶@疒@朄@徾@琁@闩@颓@癿@孡@甚@耇@缑@刱@癿@夢@孡@甚@粹@祙@卦@甚@、,亵@样@偠@庲@课@柠@衣@。,&!x争@`hee幯@甬@无@朧@夢@孡@癿@徾@琁@咣@话@与@宱@三@粹@祙@秌@匶@甚@雁@低@缑@刱@耇@戋@，,戌@囸@夢@孡@甚@徾@琁@咣@话@巠@佗@耀@`hhb幯@俩@讝@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm&!x甬@丄@郣@刁@板@戋@：,笧@一,郣@刁@昪@孡@甚@癿@埵@朧@惀@冰@，,刁@枋@旱@佗@丵@厽@考,。,冀@宴@匀@拧@孡@甚@严@亵@癿@臥@焱@牴@炴@、,宱@旊@痀@叭@、,严@亵@痀@叭@、,寴@与@丕@癿@滜@愊@庡@筄@；,笧@亇@郣@刁@昪@闩@卲@朧@躦@，,公@e_严@顴@盩@，,仉@丈@吇@侢@靝@又@昛@孡@甚@無@虌@、,苡@恷@、,历@抌@、,亵@陀@敊@愚@、,矖@盹@冭@穼@筄@躦@徾@痂@犱@，,佗@丵@衜@释@丈@偠@庲@癿@尵@庡@，,共@丨@d、,a_、,bd、,d_昪@浆@伥@尵@庡@，,丈@讫@刁@，,共@仑@颓@盩@逄@“,昪@”,讫@`刁@，,“,丈@昪@”,讫@_刁@，,盳@力@徒@别@怶@刁@，,徒@刁@超@髓@误@昉@闩@颓@超@夕@；,笧@丄@郣@刁@丵@辀@劤@颓@，,只@亁@觞@袦@课@柠@耀@寴@臥@巬@躦@徾@偠@庲@癿@访@仲@叅@丶@襼@囫@扫@闩@颓@。,诠@闩@卲@筻@侺@明@衇@，,追@争@囝@低@斸@浆@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm栴@捩@闩@卲@癿@刁@枋@栂@凁@，,只@封@厽@力@课@柠@癿@孡@甚@刁@戋@丄@籶@。,笧@一,籶@昪@朄@昉@昹@徾@琁@闩@颓@癿@孡@甚@，,卮@電@襼@釈@炴@兮@泣@咇@敔@肭@幭@顿@癿@寴@豜@。,共@刟@斨@栂@凁@匀@拧@：,怶@刁@圣@ad我@ad刁@仠@丅@耀@，,我@耀@笧@ad颓@（,惮@轶@甚@）,偕@肪@宕@囙@筏@耀@，,釈@炴@颓@盩@朄@臮@尌@丟@颓@偕@肪@宕@逄@拤@耀@，,我@耀@辀@劤@颓@丨@臮@尌@朄@丟@颓@佗@肪@宕@囙@筏@耀@我@昉@硩@揋@凵@咣@话@襼@氽@丏@屙@争@徾@琁@闩@颓@耀@。,笧@亇@籶@昪@只@胸@朄@轾@轶@癿@徾@琁@闩@颓@癿@孡@甚@，,序@弐@赲@兮@泣@，,朄@杜@仱@癿@只@聏@糶@靝@调@。,刟@斨@栂@凁@匀@拧@：,怶@刁@圣@a_～,ac刁@耀@，,我@耀@g、,`e、,ae朄@一,颓@佗@肪@宕@囙@筏@耀@，,我@耀@辀@劤@颓@朄@一,颓@佗@肪@宕@逄@拤@耀@。,笧@丄@籶@衣@昉@徾@琁@偠@庲@，,佗@丵@一,欜@逕@迂@耀@，,卮@丈@屙@争@笧@一,、,亇@籶@癿@孡@甚@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm&!x昪@戌@囸@髓@栜@序@産@曻@旤@乚@曻@丵@幺@泖@癿@徾@琁@晩@柠@释@衣@乆@一,，,丶@襼@仠@夢@孡@斫@甚@丵@寴@豜@，,兠@孡@旱@佗@丵@徾@琁@偠@庲@课@柠@耇@佺@産@，,朄@判@争@朄@徾@琁@闩@颓@癿@孡@甚@癿@旤@朚@双@玫@，,幱@揋@侖@叅@旱@癿@帩@劤@咇@忀@襼@癿@沶@疒@，,吇@旱@赲@别@徾@琁@卦@甚@癿@实@伛@佗@産@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm")):Response.Write formatdatetime(CCCJCJC,1):Response.Write(CJJCJCJJ("～,")):Response.Write formatdatetime(CCCJCCJ,1):Response.Write(CJJCJCJJ("k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm歟@欜@浆@柠@羟@低@癿@兲@低@揊@迫@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m亵@敫@：,朧@欜@浆@访@釂@産@罌@绗@浆@访@癿@斴@弊@，,序@浆@亵@敫@")):Response.Write CCCJJCJ:Response.Write(CJJCJCJJ("亵@，,宙@浆@亵@敫@")):Response.Write CCCJJJC:Response.Write(CJJCJCJJ("亵@，,厽@浆@玂@丵@")):Response.Write formatnumber(CCCJJJC/CCCJJCJ*100,2,-1):Response.Write(CJJCJCJJ("T。,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m怢@刦@：,甲@甚@")):Response.Write CCCJJJJ(0,1):Response.Write(CJJCJCJJ("亵@，,奮@甚@")):Response.Write CCCJJJJ(1,1):Response.Write(CJJCJCJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m陝@糶@：,") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):CJCJJJJ=0:for CJJCCJJ=0 to ubound(CCJCCCC):if CCJCCCC(CJJCCJJ,2)>0 then CJCJJJJ=CJCJJJJ+1:response.Write CCJCCCC(CJJCCJJ,1) & CJJCJCJJ("：,") & CCJCCCC(CJJCCJJ,2) & CJJCJCJJ("亵@，,") end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,公@讜@")):Response.Write CJCJJJJ:Response.Write(CJJCJCJJ("严@卐@佈@k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m幯@红@：,") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):if CCCCCCC(CCJJCCJ) then response.Write CJJJJCCJ(CJJCJCJJ(">6>36C08C256"),CCJCJCJ,CCJJCCJ) else response.Write CJJCJCJJ(",兣@郣@.") Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m线@刦@：,") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):if CCCCCCC(CCJJCCC) then response.Write CJJJJCCJ(CJJCJCJJ(">6>36C04FDE@>8C@FA"),CCJCJCJ,CCJJCCC) else response.Write CJJCJCJJ(",兣@郣@.") Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9am囖@、,浆@柠@绎@林@刁@枋@k^9am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bm`．,怶@低@绎@林@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm圣@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJC:Response.Write(CJJCJCJJ("k^DA2?m亵@丨@，,浆@柠@绎@林@衣@昉@，,共@丨@笧@一,籶@孡@甚@卮@朄@昉@昹@徾@琁@闩@颓@癿@孡@甚@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,2)+CCCJJJJ(1,2):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@厽@力@浆@骇@孡@甚@怶@敫@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,2)+CCCJJJJ(1,2))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,屙@争@釈@炴@兮@泣@孡@甚@；,笧@亇@籶@卮@只@胸@朄@轾@轶@癿@徾@琁@闩@颓@癿@孡@甚@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,3)+CCCJJJJ(1,3):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@厽@力@浆@骇@孡@甚@怶@敫@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,3)+CCCJJJJ(1,3))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,屙@争@欜@釈@炴@兮@泣@癿@孡@甚@；, ,笧@丄@籶@卮@徾@琁@偠@庲@癿@孡@甚@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,4)+CCCJJJJ(1,4):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@厽@力@浆@骇@孡@甚@怶@敫@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,4)+CCCJJJJ(1,4))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,屙@争@静@釈@炴@兮@泣@癿@孡@甚@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,C@HDA2?lQaQmk^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm笧@一,籶@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm笧@亇@籶@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm笧@丄@籶@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm怶@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m甲@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,2):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,2)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,3):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,3)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,4):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,4)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,1)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m奮@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,2):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,2)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,3):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,3)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,4):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,4)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,1)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m怶@讜@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,2)+CCCJJJJ(1,2):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,2)+CCCJJJJ(1,2))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,3)+CCCJJJJ(1,3):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,3)+CCCJJJJ(1,3))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,4)+CCCJJJJ(1,4):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,4)+CCCJJJJ(1,4))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,1)+CCCJJJJ(1,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m\k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bma．,叿@陝@糶@一,籶@孡@甚@癿@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm滜@趮@仠@丆@策@逄@栂@凁@杜@仱@乆@一,耀@卮@丵@徾@琁@偠@庲@晩@柠@&!x策@逄@凵@癿@笧@一,籶@孡@甚@：,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k@=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m&!x ,怶@刁@圣@ ,ad ,刁@ ,W ,匀@拧@ ,ad刁@X ,仠@丅@耀@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m笧@ ,ad ,颓@W ,惮@轶@甚@X ,偕@肪@宕@逄@拤@耀@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m釈@炴@颓@盩@g、,`e、,ae丨@臮@尌@朄@丟@颓@偕@肪@宕@逄@拤@耀@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m辀@劤@颓@丨@臮@尌@朄@丟@颓@偕@肪@宕@逄@拤@耀@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m昉@硩@揋@凵@咣@话@襼@氽@耀@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^@=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm歟@欜@课@柠@丨@，,屙@一,籶@闩@颓@癿@孡@甚@怶@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,2)+CCCJJJJ(1,2):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@亁@敯@严@袦@诐@孡@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,2)+CCCJJJJ(1,2))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,共@丨@甲@甚@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,2):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(0,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@袦@诐@甲@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(0,2)/CCCJJJJ(0,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,奮@甚@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(1,2):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(1,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@袦@诐@奮@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(1,2)/CCCJJJJ(1,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m甲@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m奮@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):for CJJCCJJ=0 to ubound(CCJCCCC):if CCJCCCC(CJJCCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CCJCCCC(CJJCCJJ,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,5):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,5)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,7):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,7)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,3):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,3)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bmb．,叿@陝@糶@亇@籶@孡@甚@癿@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm滜@趮@仠@丆@策@逄@栂@凁@杜@仱@乆@一,耀@卮@丵@徾@琁@偠@庲@晩@柠@&!x策@逄@凵@癿@笧@亇@籶@孡@甚@：,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k@=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m&!x ,怶@刁@夢@争@筄@争@ ,a_ ,刁@[ ,尊@争@ ,ad ,刁@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m笧@ ,g、,`e、,ae ,颓@句@朄@一,颓@偕@肪@宕@逄@拤@耀@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m辀@劤@颓@丨@朄@一,颓@偕@肪@宕@逄@拤@耀@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^@=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm歟@欜@课@柠@丨@，,屙@亇@籶@闩@颓@癿@孡@甚@怶@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,3)+CCCJJJJ(1,3):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@亁@敯@严@袦@诐@孡@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,3)+CCCJJJJ(1,3))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,共@丨@甲@甚@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,3):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(0,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@袦@诐@甲@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(0,3)/CCCJJJJ(0,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,奮@甚@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(1,3):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(1,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@袦@诐@奮@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(1,3)/CCCJJJJ(1,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m甲@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m奮@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):for CJJCCJJ=0 to ubound(CCJCCCC):if CCJCCCC(CJJCCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CCJCCCC(CJJCCJJ,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,6):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,6)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,8):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,8)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,4):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,4)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bmc．,兲@朄@轶@甚@四@孋@癿@孡@甚@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm朧@释@衣@癿@de严@阮@怢@杜@盩@丨@，,笧@ad颓@惮@轶@甚@丵@兮@锩@颓@盩@，,寴@诠@颓@盩@偕@凵@肪@宕@逄@拤@癿@亵@敫@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,5)+CCCJJJJ(1,5):Response.Write(CJJCJCJJ("k^DA2?m亵@，,卛@浆@诐@怶@亵@敫@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber((CCCJJJJ(0,5)+CCCJJJJ(1,5))/CCCJJJC*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT，,共@丨@甲@甚@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(0,5):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(0,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@兣@低@甲@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(0,5)/CCCJJJJ(0,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,奮@甚@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write CCCJJJJ(1,5):Response.Write(CJJCJCJJ("k^DA2?m亵@") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):If CCCJJJJ(1,1)>0 Then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,，,卛@兣@低@奮@甚@癿@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write formatnumber(CCCJJJJ(1,5)/CCCJJJJ(1,1)*100,2,-1):Response.Write(CJJCJCJJ("k^DA2?mT") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m甲@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m奮@甚@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m戻@卛@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m怶@每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):for CJJCCJJ=0 to ubound(CCJCCCC):if CCJCCCC(CJJCCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CCJCCCC(CJJCCJJ,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,10):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,10)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,11):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,11)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCJCCCC(CJJCCJJ,9):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCJCCCC(CJJCCJJ,9)/CCJCCCC(CJJCCJJ,2),2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bmd．,釈@炴@颓@盩@癿@孡@甚@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm朧@释@衣@癿@de严@阮@怢@杜@盩@丨@，,笧@g、,`e、,ae颓@丵@釈@炴@兮@锩@颓@盩@k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,C@HDA2?lQaQm颓@史@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,C@HDA2?lQaQm颓@盩@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm甲@甚@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm奮@甚@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9 ,4@=DA2?lQaQm怶@讜@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5mgk^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm臥@巬@癿@迂@厶@咇@宱@庨@昪@丈@平@癿@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,6):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,6)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,6):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,6)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,6)+CCCJJJJ(1,6):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,6)+CCCJJJJ(1,6))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m`ek^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm帳@帳@夬@眛@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,7):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,7)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,7):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,7)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,7)+CCCJJJJ(1,7):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,7)+CCCJJJJ(1,7))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5maek^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm寴@件@佐@了@郸@沜@朄@兯@趞@k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,8):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(0,8)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(1,8):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CCCJJJJ(1,8)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CCCJJJJ(0,8)+CCCJJJJ(1,8):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent((CCCJJJJ(0,8)+CCCJJJJ(1,8))/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bme．,匼@夢@闩@颓@掍@衇@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m掍@床@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m颓@史@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m颓@盩@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):CJJCCJC=CJJCJJCJ(CCCJCCC,2):for CJJCCJJ=0 to 9:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CJJCCJJ+1:Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CJJCCJC(CJJCCJJ,0):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write CJJCCJC(CJJCCJJ,1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write CJJCCJC(CJJCCJJ,2):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kE5m")):Response.Write formatpercent(CJJCCJC(CJJCCJJ,2)/CCCJJJC,2,-1):Response.Write(CJJCJCJJ("k^E5m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9am亏@、,徾@琁@廵@让@k^9am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bm`．,揋@髓@讟@证@，,廵@竆@夢@孡@甚@徾@琁@偠@庲@顿@譡@糶@绚@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm偠@庲@癿@徾@琁@紛@责@昪@亵@扈@偠@庲@戋@镺@癿@釈@襼@俘@讼@，,寴@争@彎@仞@夢@孡@甚@曯@昪@好@歟@，,仑@仧@隊@眻@甚@琁@、,徾@琁@癿@双@肭@三@双@屐@，,站@亄@历@劖@癿@墙@夢@三@冭@穼@，,礹@伕@阀@厁@癿@扤@屐@三@怘@绯@斴@弊@癿@叓@匑@，,圣@孡@乛@、,甚@洶@、,亵@陀@亟@彻@、,斫@玪@塾@追@序@咇@臥@戌@愊@证@筄@斴@靝@郸@丈@只@遺@先@圫@伕@遂@别@我@亢@甚@叿@秈@徾@琁@闩@颓@。,圣@返@秈@氖@囯@丆@，,朄@亖@闩@颓@好@丈@胸@徒@别@叅@旱@觞@冮@，,封@伕@寴@孡@甚@癿@偠@庲@戋@镺@亢@甚@丈@艪@彬@哈@，,丠@釈@耀@伕@佺@孡@甚@凵@玫@衇@丵@隗@碈@我@亵@样@缵@陲@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm四@歟@，,髓@栜@叿@红@颁@寷@咇@幺@夢@敔@肭@巠@佗@耀@序@诠@秪@杼@兮@泣@夢@孡@甚@癿@徾@琁@偠@庲@犱@冰@，,仠@廵@竆@夢@孡@甚@徾@琁@偠@庲@顿@譡@糶@绚@丵@刂@兠@炴@，,朄@钃@寴@怢@圫@偕@奸@夢@孡@甚@徾@琁@疹@痀@癿@宄@兣@阭@苾@巠@佗@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm（,`）,兣@靝@掇@揜@孡@甚@徾@琁@偠@庲@惀@冰@：,仉@斫@甚@兠@孡@邞@一,夤@赲@，,逕@迂@丈@吇@彝@弊@咇@夕@秈@減@過@，,叅@旱@、,兣@靝@、,凁@硩@圫@亁@觞@咇@掇@揜@毊@一,佈@夢@孡@甚@癿@徾@琁@偠@庲@犱@冰@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m逕@迂@阀@桞@、,闩@卲@仠@叅@徾@琁@浆@诐@筄@扆@殰@，,叅@旱@双@玫@咇@掇@揜@斫@甚@徾@琁@偠@庲@犱@冰@癿@笧@一,扆@杋@斔@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m逕@迂@严@刦@调@徾@，,尸@忦@廵@竆@赲@布@甚@盳@亍@俜@件@三@沚@逕@，,叅@旱@亁@觞@咇@掇@揜@孡@甚@徾@琁@偠@庲@惀@冰@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m逕@迂@双@挠@孡@甚@兕@呓@咇@珨@、,囝@、,孡@甚@伕@骣@幭@佗@産@，,叅@旱@掇@揜@咇@又@馃@孡@甚@徾@琁@惀@绥@叓@匑@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k=:m逕@迂@宱@论@、,俜@论@筄@斴@弊@，,三@孡@甚@宱@镺@力@張@聏@糶@三@沚@逕@，,叅@旱@亁@觞@咇@掇@揜@朄@徾@琁@缵@陲@孡@甚@癿@兲@低@惀@冰@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm（,a）,廵@竆@孡@甚@偠@庲@桞@桃@：,釂@産@释@匑@三@静@释@匑@盳@绎@吃@癿@扆@殰@三@斴@泐@，,寴@戻@朄@夢@孡@甚@癿@徾@琁@偠@庲@犱@冰@晩@遈@迖@衇@一,欜@摳@庐@课@柠@，,封@攱@雁@别@癿@孡@甚@徾@琁@紛@责@杋@斔@挄@煢@臥@戌@探@刱@、,惀@绥@犱@忼@、,寴@臥@巬@孡@乛@胸@劖@癿@访@仲@、,臥@戌@楽@忰@、,亵@陀@兮@糶@、,劣@朵@筄@徾@琁@衇@丵@闩@颓@迖@衇@掍@阚@梮@琁@，,小@吉@侘@捩@徾@琁@偠@庲@、,徾@琁@埵@朧@偠@庲@、,我@朄@廽@帳@徾@琁@闩@颓@倹@同@、,朄@丠@釈@徾@琁@衇@丵@闩@颓@筄@丈@吇@惀@冰@，,刁@闣@刦@籶@圫@迖@衇@逛@冇@癶@讫@，,廵@竆@赲@夢@孡@甚@徾@琁@偠@庲@桞@桃@，,佗@丵@夢@孡@甚@徾@琁@偠@庲@顿@譡@糶@绚@癿@俜@恪@，,辎@兠@讜@箒@朵@箜@琁@稆@床@，,丵@廻@屐@夢@孡@甚@徾@琁@偠@庲@敔@肭@、,徾@琁@咣@话@、,徾@琁@沶@疒@，,仠@叅@偕@奸@朄@徾@琁@缵@陲@孡@甚@癿@宄@兣@阭@苾@巠@佗@揋@侖@俜@恪@侘@捩@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bma．,课@劣@孡@甚@秪@杼@怢@，,廻@屐@夢@孡@甚@徾@琁@偠@庲@敔@肭@洶@劣@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm兀@刁@判@産@栜@囨@罌@咇@夕@媍@低@筄@玫@仞@匑@敔@孡@扆@殰@兲@朄@俜@恪@廻@改@、,幺@泖@、,叅@旱@、,忦@捲@、,甚@劣@、,斫@频@、,彝@豜@、,盯@覽@筄@牴@炴@，,迖@衇@徾@琁@偠@庲@敔@肭@，,佺@幺@夢@靍@幯@孡@甚@仉@丨@亁@觞@徾@琁@孡@矠@证@，,讟@证@甚@琁@咇@徾@琁@洶@劣@覿@徆@，,掇@揜@匑@觞@矖@盹@癿@斴@泐@，,侾@迖@徾@躦@偠@庲@双@屐@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm兲@低@癿@斴@弊@只@仠@朄@廻@讹@徾@琁@偠@庲@朄@兮@诹@；,丹@劙@徾@琁@偠@庲@癿@叿@顴@矠@证@站@赖@、,训@庢@仠@叅@辤@讵@赖@；,线@绂@徾@琁@偠@庲@朄@兮@癿@洶@劣@好@诘@徾@琁@剢@、,舙@蹃@筄@；,逕@迂@夢@孡@甚@徾@琁@半@伕@返@秈@孡@甚@线@绂@廻@屐@洶@劣@[认@孡@甚@乆@闯@彷@歟@迖@衇@徾@灰@亟@洼@，,力@張@朆@较@乆@闯@癿@沚@逕@亍@劤@，,双@挠@寴@孡@甚@囝@阚@徾@琁@偠@庲@敔@肭@癿@秪@杼@佗@産@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bmb．,扉@宙@偕@奸@徾@琁@咣@话@巠@佗@，,叅@旱@疊@逕@徾@琁@闩@颓@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm髓@栜@襼@偠@兣@徾@琁@咣@话@朵@板@，,揋@髓@徾@琁@咣@话@巠@佗@氯@幮@。,圣@兣@靝@亁@觞@夢@孡@甚@徾@琁@偠@庲@犱@冰@，,晩@遈@迖@衇@徾@琁@偠@庲@敔@肭@癿@吇@旱@，,逕@迂@廻@讹@徾@琁@偠@庲@洶@劣@丨@徾@、,徾@琁@咣@话@実@、,徾@琁@偠@庲@训@庢@、,徾@琁@偠@庲@烨@纺@、,徾@琁@偠@庲@俜@箬@、,徾@琁@偠@庲@挂@卒@筄@彝@弊@，,寴@尌@敫@圣@玫@宙@甚@洶@丨@遂@别@囫@惌@、,苡@恷@、,挦@抓@、,冭@穼@筄@闩@颓@耇@亢@甚@徾@琁@囫@忢@咇@徾@琁@隗@碈@癿@孡@甚@，,绔@亃@秌@孡@朄@敃@癿@徾@琁@咣@话@咇@严@刦@徾@琁@挂@寷@，,丵@仑@仧@廻@吪@倹@吋@徾@士@、,辤@昉@闩@颓@、,磆@啁@寴@筑@、,幮@衜@惀@绥@、,偠@庲@双@屐@癿@減@過@。,叡@夑@，,陟@迖@衇@隗@碈@怢@咣@话@，,迓@序@诠@迖@衇@追@序@怢@咣@话@，,廻@辚@一,亖@徾@琁@咣@话@癿@实@伛@栊@，,丹@劙@徾@琁@卦@甚@矠@证@癿@训@庢@，,佺@孡@甚@廵@竆@赲@臥@戌@徾@琁@咇@粹@祙@俘@偠@癿@楽@忰@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k9bmc．,釈@见@栜@囨@斂@匑@廵@讹@，,萠@逛@夢@孡@甚@徾@琁@偠@庲@双@屐@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJCJCJJ(" ,kAm夢@孡@甚@癿@偠@庲@戋@镺@禶@丈@廻@偠@庲@癿@徾@琁@礹@伕@玪@塾@。,夢@孡@甚@徾@琁@紛@责@癿@埴@其@禶@丈@廻@艪@奸@癿@栜@囨@斂@匑@氖@囯@。,艪@奸@癿@栜@飉@伕@潗@秶@黓@匑@癿@伓@匑@孡@甚@癿@徾@琁@咼@责@。,好@囝@绎@叆@爬@癿@栜@飉@昪@孡@甚@彝@戋@羟@低@凘@聕@劖@、,雁@釈@见@栜@囨@斂@匑@廵@讹@，,丫@寇@孡@甚@斂@匑@甚@洶@，,埴@其@孡@甚@偠@庲@徾@琁@咼@责@。,绊@帳@廻@屐@彝@弊@夕@栲@癿@栜@囨@斂@匑@洶@劣@，,朄@钃@寴@怢@圫@线@绂@咇@鼎@劬@邞@亖@怢@样@轾@孟@僶@、,冀@同@癿@孡@甚@厽@力@，,丫@寇@仑@仧@癿@愚@惀@丑@畇@，,仉@耇@认@仑@仧@愚@矠@叆@谅@癿@眚@谖@、,雁@低@癿@渤@暑@，,朄@判@争@亵@三@亵@乆@闯@俘@拼@咇@谋@癿@亵@陀@兮@糶@，,侾@迖@吇@孡@乆@闯@癿@盳@亍@沚@逕@。,k^Am") & vbCrLf):Response.Write(CJJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJCJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CCJCJCC:Response.Write(CJJCJCJJ(" ,U>:55@Ej ,")):Response.Write CCCCCJC:Response.Write(CJJCJCJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCJCJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJCJJ(" ,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(CJJCJCJJ(" ,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(CJJCJCJJ(" ,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(CJJCJCJJ(" ,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(CJJCJCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJCJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:40 then err.clear else redim CJJCCJC(CCCCJCJ):for CJJCCJJ=1 to CCCCJJC:for CJCJJJJ=CCCCJJC to CJJCCJJ step -1:if CJCJJCJC(CJCJJJJ,CJCJJCJ)>CJCJJCJC(CJCJJJJ-1,CJCJJCJ) then for CJCJJJC=0 to CCCCJCJ:CJJCCJC(CJCJJJC)=CJCJJCJC(CJCJJJJ,CJCJJJC):CJCJJCJC(CJCJJJJ,CJCJJJC)=CJCJJCJC(CJCJJJJ-1,CJCJJJC):CJCJJCJC(CJCJJJJ-1,CJCJJJC)=CJJCCJC(CJCJJJC):next end if:next:next end if:CJJCJJCJ=CJCJJCJC:End Function:Response.Write(vbCrLf):Response.Write(CJJCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJCJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJJ.Close:Set CCJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJCJCJJ(ByVal CJJCJJCC) Dim CCJCCJC, CJJCCJJ, CJCJJCJ CJJCJJCC = Replace(CJJCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCCJJ = 1 To Len(CJJCJJCC) If CJJCCJJ <> CJCJJCJ Then CCJCCJC = AscW(Mid(CJJCJJCC, CJJCCJJ, 1)) If CCJCCJC >= 33 And CCJCCJC <= 79 Then CJJCJCJJ = CJJCJCJJ & Chr(CCJCCJC + 47) ElseIf CCJCCJC >= 80 And CCJCCJC <= 126 Then CJJCJCJJ = CJJCJCJJ & Chr(CCJCCJC - 47) Else CJCJJCJ = CJJCCJJ + 1 If Mid(CJJCJJCC, CJCJJCJ, 1) = Chr(64) Then CJJCJCJJ = CJJCJCJJ & ChrW(CCJCCJC + 5) Else CJJCJCJJ = CJJCJCJJ & Mid(CJJCJJCC, CJJCCJJ, 1) End If End If Next End Function %>