<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCJJC, CCCJCJ,CCCJCC, CCCCJJ, CCCCJC:Set CCCJJC = server.CreateObject(CJCJJCJC("ps~sq]r@??64E:@?")):CCCJJC.open Application(CJCJJCJC("r@??64E:@?$EC:?8")):Set CCCJCJ=CCCJJC::Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ:CJCJJJJ=Trim(Request.Cookies(CJCJJCJC("!$*|t|qt#"))):if CJCJJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCCJ>0 then CCCCJC=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(CCCCCJ,CCCCCC) End IF end if:Sub CheckRight(CCJCJCJ):dim CJCJJJC,CJCJJCJ:if CCCCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJJCCJJ(CCJCJCJ) then Call RedirectMessage(CJCJJCJC("朾@陋@W") & CCJCJCJ & CJCJJCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJJCCJJ(CCJCJCJ):dim CJCJJJC,CJCJJCJ:CJCJJCJ=split(CCJCJCJ,CJCJJCJC("[")):CJJJCCJJ=False:for CJCJJJC=0 to ubound(CJCJJCJ):If Mid(CJJJJJJ,CJCJJCJ(CJCJJJC),1)="1" then CJJJCCJJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJJCJC("!$*|t|qt#"))="":CCCCCJ=0:CJJJJCC=0:CCCCCC=Empty:CJJJJCJ=0:CJJJCJC=0:CJJJCJJ=0:CJJJJJC=0:CJJJCCC=False:CJJCCCJ=False:CJJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJJJC,CJCJCJC,CJCJCCJ:CJCJJCC=split(CJCJJJJ,CJCJJCJC("]")):if ubound(CJCJJCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then Call ClearMemberCookie else CJCJCJJ=CJCJJCC(1):for CJCJJJC=1 to len(CJCJCJJ):CJCJCJC=mid(CJCJCJJ,CJCJJJC,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC if len(CJCJCCJ)=7 then exit for next:CJCJCJJ=CJCJJCC(2):if CJCJCCJ<>mid(CJCJCJJ,6,7) then Call ClearMemberCookie else CJCJCJC=mid(CJCJCJJ,18,10)/2:if CJCJCJC0 then for CJCJJJC=0 to ubound(str):if CJCJJJC>0 then response.Write CJCJJCJC("k3C ,^m") response.Write CJCJJJC & CJCJJCJC("i ,") & str(CJCJJJC):next else response.Write CJCJJCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJJJC=0 to ubound(str,2):response.Write CJCJJCJC("kE9 ,2=:8?lV=67EVm") & CJCJJJC & CJCJJCJC("k^E9m") next:response.Write CJCJJCJC("k^ECm"):for CJCJJJC=0 to ubound(str):response.Write CJCJJCJC("kECmkE9m") & CJCJJJC & CJCJJCJC("k^E9m"):for CJCJCJC=0 to ubound(str,2):response.Write CJCJJCJC("kE5m") & str(CJCJJJC,CJCJCJC) & 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 CJCJJCC:CJCJJCC=CJCJCJCJ & CJCJJCJC("l") & CJCJCJCC & CJCJJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCJC("$6E\r@@<:6"),CJCJJCC):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 CJJJCCCJ(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then CJJJCCCJ=false else Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CJCJJCJC("/-5ZS"):CJCCJJJ.IgnoreCase = True:CJJJCCCJ = CJCCJJJ.test(CJCJCCC):set CJCCJJJ=nothing end if:End Function:Function CJJJCCCC(CJCJCCJC):dim CJCCJJC,CJCCJCJ:CJCCJJC=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 CJCCJCJ=CCCJJC.execute(CJCCJJC):CJJJCCCC = CJCCJCJ(0):if isnull(CJJJCCCC) then CJJJCCCC=1 CJCCJCJ.close : set CJCCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CJCCJCJ.close : set CJCCJCJ=nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJCC.Close : Set CCCJCC=Nothing:CJJCJJCC.Close : Set CJJCJJCC = Nothing:CCCJJC.Close : Set CCCJJC = 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,CJCJCCC:str=CJCJJCJC("!$*0") & Ucase(CJCJCCCJ):if Session(str)<>"" then CJCJCCC=DateDiff(CJCJJCJC("D"),Session(str),Time):if CJCJCCC0 then Call ConnClose:Call ShowMessage(CJCJJCJC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJCCCC & CJCJJCJC(" ,种@，,迓@剤@ ,") & CJCJCCCC-CJCJCCC & CJCJJCJC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCCJJJJ):dim CJCJJJC,CJCJCJC,CJCCCJJ,CJCCCJC:on error resume next:CJCCCJJ=ubound(CJCCJJJJ):CJCCCJC=ubound(CJCCJJJJ,2):if err.number<>0 then err.clear:for CJCJJJC=0 to CJCCCJJ:CJCCJJJJ(CJCJJJC)=0:next else for CJCJJJC=0 to CJCCCJJ:for CJCJCJC=0 to CJCCCJC:CJCCJJJJ(CJCJJJC,CJCJCJC)=0:next:next end if:End Sub:::Sub ClearCache(CJCCJJJC):Application.Contents.Remove CJCCJJJC End Sub::Class jTree:Private CCCCJC, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CJCCJJCJ):if CJCCJJCJ="" then Call RedirectMessage(CJCJJCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCJJJJC=CJCCJJCJ:CCJJJCJ=CJCJJCJC("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property:::Private Sub GetTreeArray():Dim CJCJJJC, CJCJCJC, CCJJCJC,CCJJCCJ:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then CCCCJC = CJCJJCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then CCCCJC=CCCCJC & CJCJJCJC(" ,H96C6 ,") & CCJJJCC set CCJJCJC=CCCJJC.execute(CCCCJC):CCJJCCJ=CCJJCJC(0):if CCJJCCJ=0 then Call RedirectMessage(CJCJJCJC("柠@话@W") & CCJJJJC & CJCJJCJC("^") & CCJJJCC & CJCJJCJC("X沜@朄@绎@林@敫@捩@")) CCJJJJJ=CCJJCCJ+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):CCCCJC = CJCJJCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCJC(" ,H:E9 ,W?@=@4"" then CCCCJC=CCCCJC & CJCJJCJC(" ,H96C6 ,") & CCJJJCC CCCCJC=CCCCJC & CJCJJCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CCCJJC.execute(CCCCJC):For CJCJJJC = 1 To CCJJCCJ:For CJCJCJC = 0 To 4:CJCCCCJ(CJCJJJC, CJCJCJC) = CCJJCJC(CJCJCJC):if IsNull(CJCCCCJ(CJCJJJC,4)) then CJCCCCJ(CJCJJJC,4)=0 If CJCCCCJ(CJCJJJC,2)="" then CJCCCCJ(CJCJJJC,2)=CJCJJCJC(",穵@.") Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CJCJJJC=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CJCJJJC,0)=CJCJJJC:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock() else CCJJJJJ=Ubound(CJCCCCJ) End If:End Sub::::Public Function GetChild(CJJCJCJC):Dim CJCJJJC, Str:CJJCJCJC=CLng(CJJCJCJC):For CJCJJJC = 1 To CCJJJJJ:If CJCCCCJ(CJCJJJC, 1) = CJJCJCJC Then Str = Str & CJCJJCJC("M") & CJCCCCJ(CJCJJJC, 0) & CJCJJCJC("M") & CJCCCCJ(CJCJJJC,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJCJJCJC("M")):End Function:Private Function CJJCJCCC(CJJCJCJC):dim CJCJJJC,CCJJCCC:CJJCJCCC=0:CCJJCCC=CStr(CJJCJCJC):if CCJJCCC<>"0" then for CJCJJJC=1 to CCJJJJJ:If CStr(CJCCCCJ(CJCJJJC, 0))=CCJJCCC Then CJJCJCCC = CJCJJJC:Exit For End If:Next end if:End Function:Public Function GetCurName(CJJCJCJC):if Cstr(CJJCJCJC)="0" then GetCurName=CJCJJCJC("栴@") else Dim CJCJJJC,CCJJCJC:CJCJJJC=CJJCJCCC(CJJCJCJC):if CJCJJJC>0 then GetCurName=CJCCCCJ(CJCJJJC,2):if GetCurName="" then set CCJJCJC=CCCJJC.execute(CJCJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCJC(" ,H96C6 ,:5l") & CJJCJCJC):if CCJJCJC.eof then Call RedirectMessage(CJCJJCJC("xs（,") & CJJCJCJC & CJCJJCJC("）,朥@批@别@")) GetCurName=CCJJCJC(1):Call UpdateCache(CJJCJCJC,CCJJCJC(0),GetCurName,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing end if else set CCJJCJC=CCCJJC.execute(CJCJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCJC(" ,H96C6 ,:5l") & CJJCJCJC):if CCJJCJC.eof then Call RedirectMessage(CJCJJCJC("xs（,") & CJJCJCJC & CJCJJCJC("）,朥@批@别@")) GetCurName=CCJJCJC(1):Call UpdateCache(CJJCJCJC,CCJJCJC(0),GetCurName,CCJJCJC(2),CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing end if end if:End Function:::Public Function CJJCCJJC(CJJCJCJC):Dim CJCJJJC,CCJCJJJ:CJCJJJC=CJJCJCCC(CJJCJCJC):if CJCJJJC=0 then CCJCJJJ=CJJCCJCJ(CJJCJCJC) else CCJCJJJ=CJCCCCJ(CJCJJJC,3):if isnull(CCJCJJJ) or CCJCJJJ="" then CCJCJJJ=CJJCCJCJ(CJJCJCJC) elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CJCJJCJC("["))+1)<>CStr(CJJCJCJC) then CCJCJJJ=CJJCCJCJ(CJJCJCJC) elseif Left(CCJCJJJ,1)=CJCJJCJC("[") then CCJCJJJ=CJJCCJCJ(CJJCJCJC) end if end if:CJJCCJJC=CCJCJJJ:End Function:Private Function CJJCCJCJ(CJJCJCJC):dim CCJJCCC:CCJJCCC=CStr(CJJCJCJC):if CCJJCCC="0" then CJJCCJCJ="" else dim CCJJCJC:set CCJJCJC=CCCJJC.execute(CJCJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCJJCJC(" ,H96C6 ,:5l") & CJJCJCJC):if CCJJCJC.eof then Call UpdateCache(CJJCJCJC,"","","",""):Call RedirectMessage(CJCJJCJC("顴@盩@（,xs：,") & CJJCJCJC & CJCJJCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCJJCJC(0)=0 then CJJCCJCJ="0," & CJJCJCJC else CJJCCJCJ=CJJCCJJC(CCJJCJC(0)) & CJCJJCJC("[") & CJJCJCJC end if:if CCJJCJC(2)<>CJJCCJCJ then CCCJJC.execute CJCJJCJC("FA52E6 ,") & CCJJJJC & CJCJJCJC(" ,D6E ,A2E9lV") & CJJCCJCJ & CJCJJCJC("V ,H96C6 ,:5l") & CJJCJCJC else CJJCCJCJ=CCJJCJC(2) end if end if:Call UpdateCache(CJJCJCJC,CCJJCJC(0),CCJJCJC(1),CJJCCJCJ,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing end if:End Function::Public Function CJJCCJCC(CJJCJCJC):CJJCCJCC = Mid(CJJCCJJC(CJJCJCJC), 3):End Function:Public Function CJJCCCJJ(CJJCJCJC):Dim CJCJJJC, CJCJCJC, CCJCJJC,Str, CCJCJJJ, CCJCJCJ, CJCJJCJ():CCJCJJJ = CJJCCJCC(CJJCJCJC):CCJCJJJ = Split(CCJCJJJ, CJCJJCJC("[")):for CJCJJJC=0 to Ubound(CCJCJJJ):CCJCJJC=CCJCJJJ(CJCJJJC):str=str & CJCJJCJC("M") & CCJCJJC & CJCJJCJC("M") & GetCurName(CCJCJJC):next:if str<>"" then str=Mid(str,2) CJJCCCJJ=str:End Function:Public Function IsParent(CJCCJJCC, CJCCJCJJ):IsParent=InStr(CJJCCJJC(CJCCJCJJ) & CJCJJCJC("["), CJCJJCJC("[") & CJCCJJCC & CJCJJCJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCJCJC):dim CCJCJJJ:CCJCJJJ=CJJCCJJC(CJJCJCJC):Sql_GetChildren = CCJJJJC & CJCJJCJC("0A2E9ZV[V ,=:<6 ,V") & CCJCJJJ & CJCJJCJC("[TV") End Function:::Public Function GetPositionStr_From(CJJCJCJC, CJCJJJJJ):if isnull(CJJCJCJC) or isnull(CJCJJJJJ) then GetPositionStr_From=CJCJJCJC(",厽@敫@锔@诪@."):exit function end if:Dim Str, CJCJJJC, CJCJJCJ, CCJCJCJ, CCJCJCC:CJCJJJJJ = CStr(CJCJJJJJ):If CJCJJJJJ = "0" or CJCJJJJJ = CStr(CJJCJCJC) Then Str = GetCurName(CJJCJCJC) Else CJCJJCJ = Split(CJJCCCJJ(CJJCJCJC), CJCJJCJC("M")):CCJCJCJ = UBound(CJCJJCJ):CCJCJCC = False:For CJCJJJC = 0 To CCJCJCJ Step 2:If CJCJJCJ(CJCJJJC) = CJCJJJJJ And Not CCJCJCC Then CCJCJCC = True If CCJCJCC Then If Str <> "" Then Str = Str & CJCJJCJC("→,") Str = Str & CJCJJCJ(CJCJJJC + 1) End If:Next End If:str=Mid(str,instr(str,CJCJJCJC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ End Sub:Public Sub UpdateCache(CJJCJCJC,CCJCJJC,CJCCJCJC,CCJCJJJ,CJCCJCCJ):dim CJCJJJC,CJCJCJC:CJJCJCJC=CLng(CJJCJCJC):CJCJJJC=CJJCJCCC(CJJCJCJC):if CCJCJJC="" and CJCCJCJC="" and CCJCJJJ="" and CJCCJCCJ="" then if CJCJJJC>0 then for CJCJCJC=1 to 4:CJCCCCJ(CJCJJJC,CJCJCJC)=Null:next end if else if CJCJJJC=0 then for CJCJCJC=1 to CCJJJJJ:if CJCCCCJ(CJCJCJC,1) & ""="" then CJCJJJC=CJCJCJC:exit for end if:next end if:if CJCJJJC=0 then Call ClearCache else CJCCCCJ(CJCJJJC,0)=CLng(CJJCJCJC):if CCJCJJC<>"" then CJCCCCJ(CJCJJJC,1)=CLng(CCJCJJC) if CJCCJCJC<>"" then CJCCCCJ(CJCJJJC,2)=CJCCJCJC if CCJCJJJ<>"" then CJCCCCJ(CJCJJJC,3)=CCJCJJJ if CJCCJCCJ<>"" then CJCCCCJ(CJCJJJC,4)=CLng(CJCCJCCJ) end if end if:if CJCJJJC>0 then Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJCJCCJJ):Call ConnClose:Response.Write CJCJCCJJ:Response.End:End Sub:Private Function CJJJCCCC():CJJJCCCC=CJCJJJJC+1:End Function:Private Function CJCJJJJC():dim CJCCJCJ:set CJCCJCJ=CCCJJC.execute(CJCJJCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CJCJJCJC(" ,@C56C ,3J ,:5 ,56D4")):CJCJJJJC=CJCCJCJ(0):CJCCJCJ.Close: Set CJCCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCJCJ=286:Const CJJJCJCC="中小学复学前调查问卷（2020）":Call CheckRight("54,81"):Call CheckQueryTime(CJCJJCJC("%6DE0#6A@CE"),30):dim CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC:CCCJJJC=Request.QueryString(CJCJJCJC("$49@@=")):CCJCCJJ=Request.QueryString(CJCJJCJC("s6AE")):CCJCCJC=Request.QueryString(CJCJJCJC("vC256")):CCJCCCJ=Request.QueryString(CJCJJCJC("vC@FA")):CCJCCCC=Request.QueryString(CJCJJCJC("E`")):CCCJJJJ=Request.QueryString(CJCJJCJC("Ea")):if not CJJJCCCJ(CCJCCJJ) then Call RedirectMessage(CJCJJCJC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CJCJJCJC(">6>36C0EJA6"):if not CJCCCCJ.IsParent(CJJJJJC,CCJCCJJ) then Call RedirectMessage(CJCJJCJC("诠@苾@囯@W") & CCJCCJJ & CJCJJCJC("X丈@圣@患@W") & CJJJJJC & CJCJJCJC("X癿@箜@琁@苾@囯@冀@。,")) dim CJCJJJCJ:CJCJJJCJ=CJCCCCJ.GetChild(CCJCCJJ):if ubound(CJCJJJCJ)<0 then Call RedirectMessage(CJCJJCJC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) CJCJJJCJ=join(CJCJJJCJ,CJCJJCJC("M")) & CJCJJCJC("M_M共@仑@"):CJCJJJCJ=split(CJCJJJCJ,CJCJJCJC("M")):dim CCCJJCJ:CCCJJCJ=CJCCCCJ.GetCurName(CCJCCJJ):dim CJCJJJC,CJCJCJC,CJCJCCJ,CCCJJCC,CCCJCJJ,CCCJCJC:dim CCCJCCJ():redim CCCJCCJ((ubound(CJCJJJCJ)-1)/2,10):for CJCJJJC=0 to ubound(CJCJJJCJ)-1 step 2:CJCJCCJ=CJCJJJC/2:CCCJCCJ(CJCJCCJ,0)=CJCJJJCJ(CJCJJJC):CCCJCCJ(CJCJCCJ,1)=CJCJJJCJ(CJCJJJC+1):for CJCJCJC=2 to ubound(CCCJCCJ,2):CCCJCCJ(CJCJCCJ,CJCJCJC)=0:next:next:dim CCCJCCC(1,1):Call ArrayInit(CCCJCCC):CCCJCCC(0,0)=CJCJJCJC("甲@"):CCCJCCC(1,0)=CJCJJCJC("奮@"):dim CJCJJCJ,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC:dim CCCCCJJ,CCCCCJC:CCCCCJJ=Date:CCCCCJC=cdate(CJCJJCJC("a___\`\`")):dim CCCCCCJ(2),CCCCCCC(1),CJJJJJJJ(1),CJJJJJJC(1),CJJJJJCJ(2),CJJJJJCC,CJJJJCJJ(4,2):Call ArrayInit(CCCCCCJ):Call ArrayInit(CCCCCCC):Call ArrayInit(CJJJJJJJ):Call ArrayInit(CJJJJJJC):Call ArrayInit(CJJJJJCJ):Call ArrayInit(CJJJJCJJ):dim CJJJJCJC(8,3):Call ArrayInit(CJJJJCJC):dim CJJJJCCJ(7,1):Call ArrayInit(CJJJJCCJ):dim CJJJJCCC,CJJJCJJJ:CCCCJC=CJCJJCJC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[C6DF=E[2?DH6C[C62=?2>6[>6>36CEJA6[?@C>2= ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CCCJJJC else CCCCJC=CCCCJC & CJCJJCJC(" ,2?5 ,") & CJCCCCJ.Sql_GetChildren(CCJCCJJ) if CJJJCCCJ(CCJCCJC) then CCCCJC=CCCCJC & CJCJJCJC(" ,2?5 ,8C256l") & CCJCCJC if CJJJCCCJ(CCJCCCJ) then CCCCJC=CCCCJC & CJCJJCJC(" ,2?5 ,4FDE@>8C@FAl") & CCJCCCJ if isdate(CCJCCCC) then CCCCJC=CCCCJC & CJCJJCJC(" ,2?5 ,52E6E:>6mlV") & CCJCCCC & CJCJJCJC("V") if isdate(CCCJJJJ) then CCCCJC=CCCCJC & CJCJJCJC(" ,2?5 ,52E6E:>6kV") & cdate(CCCJJJJ)+1 & CJCJJCJC("V") CCCCJC=CCCCJC & CJCJJCJC(" ,@C56C ,3J ,>6>36CEJA6"):set CCCJCC=CCCJCJ.execute(CCCCJC):if CCCJCC.eof then Call RedirectMessage(CJCJJCJC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,")) while not CCCJCC.eof:CJCJCCJ=CCCJCC(1):if CJCJCCJCCCCCJC then CCCCCJC=CJCJCCJ if CCCJCC(2) then CJCJCJC=0 else CJCJCJC=1 CCCJCCC(CJCJCJC,1)=CCCJCCC(CJCJCJC,1)+1:CJCJJCJ=split(CJCJJCJC("M") & CCCJCC(4),CJCJJCJC("M")):if CJCJJCJ(1)="1" or CJCJJCJ(1)="2" then CJCJCCJ=0 elseif CJCJJCJ(1)="3" then CJCJCCJ=1 else CJCJCCJ=2 end if:CCCCCCJ(CJCJCCJ)=CCCCCCJ(CJCJCCJ)+1:if (CJCJJCJ(2)="2" or CJCJJCJ(2)="3") and (CJCJJCJ(3)="3" or CJCJJCJ(3)="4" or CJCJJCJ(3)="5") and (CJCJJCJ(4)="1" or CJCJJCJ(4)="2") then CJCJCCJ=0 else CJCJCCJ=1 end if:CCCCCCC(CJCJCCJ)=CCCCCCC(CJCJCCJ)+1:if CJCJJCJ(5)="1" or CJCJJCJ(5)="2" then CJCJCCJ=0 else CJCJCCJ=1 end if:CJJJJJJJ(CJCJCCJ)=CJJJJJJJ(CJCJCCJ)+1:if CJCJJCJ(6)="1" or CJCJJCJ(6)="2" then CJCJCCJ=0 else CJCJCCJ=1 end if:CJJJJJJC(CJCJCCJ)=CJJJJJJC(CJCJCCJ)+1:if CJCJJCJ(7)="1" or CJCJJCJ(7)="2" then CJCJCCJ=0 elseif CJCJJCJ(7)="3" then CJCJCCJ=1 else CJCJCCJ=2 end if:CJJJJJCJ(CJCJCCJ)=CJJJJJCJ(CJCJCCJ)+1:if CJCJJCJ(9)="1" then CJJJJJCC=CJJJJJCC+1 CJCJCCJ=CJCJJCJ(8):for CJCJJJC=0 to 4:CJCJCJC=CJCJJJC+1:if instr(CJCJCCJ,CJCJCJC)>0 then CJJJJCJJ(CJCJJJC,1)=CJJJJCJJ(CJCJJJC,1)+1 next:CJCJJCJ=split(CCCJCC(3),CJCJJCJC("M")):for CJCJJJC=0 to 8:if CJCJJCJ(CJCJJJC)="1" then CJCJCJC=0 else CJCJCJC=2 CJJJJCJC(CJCJJJC,CJCJCJC)=CJJJJCJC(CJCJJJC,CJCJCJC)+1:next:for CJCJJJC=9 to 16:CJCJCJC=CJCJJJC-9:CJCJCCJ=CJCJJCJ(CJCJJJC):CJJJJCCJ(CJCJCJC,CJCJCCJ)=CJJJJCCJ(CJCJCJC,CJCJCCJ)+1:next:if not CCCJCC(7) then if CCCJCC(6)<>CJJJJCCC then CJJJJCCC=CCCJCC(6):CJJJCJJJ=CJCCCCJ.GetPositionStr_From(CJJJJCCC,CCCJJJC) end if:CCCCJCC=CCCCJCC & CJJJCJJJ & CJCJJCJC("M") & CCCJCC(5):for CJCJJJC=9 to 16:CCCCJCC=CCCCJCC & CJCJJCJC("M") & IIf(CJCJJCJ(CJCJJJC)="1",CJCJJCJC("廽@帳@"),""):next:CCCCJCC=CCCCJCC & vbcrlf end if:CJCJCJC=ubound(CCCJCCJ):for CJCJJJC=0 to CJCJCJC-1:if instr(CCCJCC(0) & CJCJJCJC("["),CJCJJCJC("[") & CCCJCCJ(CJCJJJC,0) & CJCJJCJC("["))>0 then CJCJCJC=CJCJJJC:exit for end if:next:CJCJJJC=CJCJCJC:CCCJCCJ(CJCJJJC,2)=CCCJCCJ(CJCJJJC,2)+1:for CJCJCJC=9 to 16:if CJCJJCJ(CJCJCJC)="1" then CJCJCCJ=CJCJCJC-6:CCCJCCJ(CJCJJJC,CJCJCCJ)=CCCJCCJ(CJCJJJC,CJCJCCJ)+1 end if:next:CCCCJJC=CCCCJJC+1:CCCJCC.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 CCCJJCJ:Response.Write(CJCJJCJC("\")):Response.Write CJJJCJCC: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]>:?];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 CCCJJCJ:Response.Write(CJCJJCJC("k^D>2==mk3Cm")):Response.Write CJJJCJCC:Response.Write(CJCJJCJC("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJCJJCJC(" ,k9am一,、,释@衣@筻@仆@k^9am") & vbCrLf):Response.Write(CJCJJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm丨@尊@孡@夈@孡@剈@课@柠@闩@卲@（,a_a_）,昪@一,奒@雁@夈@孡@课@柠@闩@卲@咇@徾@琁@偠@庲@浆@访@争@一,低@癿@浆@访@闩@卲@。,闩@卲@仉@疦@惀@盳@兮@、,孡@乛@盳@兮@咇@徾@琁@偠@庲@丄@严@绯@庡@攱@雁@孡@甚@局@宱@孡@乛@、,甚@洶@癿@惀@冰@，,亁@觞@孡@甚@孡@乛@犱@忼@、,孡@乛@胸@劖@，,幱@筻@襼@浆@访@孡@甚@癿@徾@琁@偠@庲@犱@冰@。,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^D64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm")):Response.Write formatdatetime(CCCCCJJ,1):Response.Write(CJCJJCJC("～,")):Response.Write formatdatetime(CCCCCJC,1):Response.Write(CJCJJCJC("k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,k9am丄@、,浆@访@羟@低@k^9am") & vbCrLf):Response.Write(CJCJJCJC(" ,kF=m") & vbCrLf):Response.Write(CJCJJCJC(" ,k=:m楽@迫@：, ,公@讜@")):Response.Write CCCCJJC:Response.Write(CJCJJCJC("亵@厽@三@，,共@丨@甲@怢@")):Response.Write CCCJCCC(0,1):Response.Write(CJCJJCJC("亵@，,奮@怢@")):Response.Write CCCJCCC(1,1):Response.Write(CJCJJCJC("亵@。,k^=:m") & vbCrLf):Response.Write(CJCJJCJC(" ,k=:m幯@红@：,") & vbCrLf):Response.Write(CJCJJCJC(" ,")):CJCJCJC=0:for CJCJJJC=0 to ubound(CCCJCCJ):if CCCJCCJ(CJCJJJC,2)>0 then CJCJCJC=CJCJCJC+1:response.Write CCCJCCJ(CJCJJJC,1) & CCCJCCJ(CJCJJJC,2) & CJCJJCJC("亵@，,") end if:next:Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,公@讜@")):Response.Write CJCJCJC:Response.Write(CJCJJCJC("严@幯@红@。,") & vbCrLf):Response.Write(CJCJJCJC(" ,k^=:m") & vbCrLf):Response.Write(CJCJJCJC(" ,k^F=m") & 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(" ,k9cm（,`）,孡@甚@寴@疦@惀@癿@兮@泣@稆@庡@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm圣@叒@浆@孡@甚@丨@，,k4@56m")):Response.Write formatpercent(CCCCCCJ(0)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@寴@疦@惀@癿@兮@泣@稆@庡@轾@髓@，,k4@56m")):Response.Write formatpercent(CCCCCCJ(1)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@寴@疦@惀@兮@泣@稆@庡@一,舧@，,k4@56m")):Response.Write formatpercent(CCCCCCJ(2)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@寴@疦@惀@兮@泣@稆@庡@轾@佉@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,k9cm（,a）,旱@闯@箜@琁@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm课@柠@绎@林@昹@礵@，,圣@旱@闯@箜@琁@斴@靝@，,绷@吃@叒@浆@孡@甚@圣@睜@眛@旱@闯@、,孡@乛@旱@闯@咇@娬@之@旱@闯@丅@癿@囙@筏@，,k4@56m")):Response.Write formatpercent(CCCCCCC(0)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m孡@甚@朄@轾@奸@癿@旱@闯@箜@琁@愊@证@，,圣@旱@闯@癿@刁@酈@丅@轾@丵@吃@琁@，,俘@讼@亁@睜@眛@旱@闯@、,孡@乛@旱@闯@咇@娬@之@旱@闯@癿@坂@衜@刁@酈@；,k4@56m")):Response.Write formatpercent(CCCCCCC(1)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@缵@乊@旱@闯@箜@琁@癿@愊@证@，,圣@叿@顴@洶@劣@癿@旱@闯@刁@酈@丅@缵@乊@吃@琁@怢@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,k9cm（,b）,孡@乛@犱@冰@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm逕@迂@寴@孡@甚@圣@纺@孡@乛@敃@林@癿@课@柠@，,绎@林@昹@礵@，,k4@56m")):Response.Write formatpercent(CJJJJJJJ(0)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@寴@圣@纺@孡@乛@癿@敃@林@愚@别@滜@愊@，,k4@56m")):Response.Write formatpercent(CJJJJJJJ(1)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@圣@纺@孡@乛@癿@敃@林@丈@琁@惮@。,k4@56m")):Response.Write formatpercent(CJJJJJJC(0)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@寴@叿@孡@秌@矠@证@掇@揜@徒@轾@奸@；,k4@56m")):Response.Write formatpercent(CJJJJJJC(1)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@寴@叿@孡@秌@矠@证@掇@揜@徒@丈@多@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,k9cm（,c）,宱@庨@兮@糶@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm宱@庨@兮@糶@昪@宱@庨@戋@呓@乆@闯@囵@朄@癿@牴@宕@兮@糶@，,衣@玫@丵@丈@吇@宱@庨@戋@呓@乆@闯@癿@丈@吇@聏@糶@斴@弊@咇@亍@劤@斴@弊@，,昪@聏@绎@宱@庨@戋@呓@乆@闯@癿@纸@帡@。,艪@奸@癿@宱@庨@兮@糶@昪@俘@隗@靍@尌@幯@偠@庲@戋@镺@癿@朄@判@透@彿@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm圣@叒@浆@孡@甚@丨@，,k4@56m")):Response.Write formatpercent(CJJJJJCJ(0)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@癿@宱@庨@兮@糶@艪@奸@，,宱@庨@戋@呓@闯@朄@盳@亍@圫@鼎@劬@咇@攪@拼@；,k4@56m")):Response.Write formatpercent(CJJJJJCJ(1)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@癿@宱@庨@兮@糶@一,舧@，,宱@庨@戋@呓@乆@闯@虸@焱@朄@盳@亍@癿@鼎@劬@咇@攪@拼@，,佁@欜@敫@丈@夕@；,k4@56m")):Response.Write formatpercent(CJJJJJCJ(2)/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@癿@宱@庨@兮@糶@丈@夥@奸@，,宱@庨@戋@呓@乆@闯@缵@乊@鼎@劬@咇@攪@拼@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,k9cm（,d）,疦@惀@彬@哈@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,")):CJCJJCJ=Array(CJCJJCJC("同@仑@亵@倹@评@"),CJCJJCJC("偕@迋@劣@"),CJCJJCJC("睜@规@"),CJCJJCJC("逕@迂@叾@我@喘@实@沿@"),CJCJJCJC("玤@扆@朵@我@耀@田@脌@")):for CJCJJJC=0 to 4:CJJJJCJJ(CJCJJJC,0)=CJCJJCJ(CJCJJJC):CJJJJCJJ(CJCJJJC,2)=formatpercent(CJJJJCJJ(CJCJJJC,1)/CCCCJJC,2,-1):next:CJCJJCJ=CJCJJJCC(CJJJJCJJ,1):Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,kAm圣@叒@浆@孡@甚@丨@，,k4@56m")):Response.Write formatpercent(CJJJJJCC/CCCCJJC,2,-1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@讟@丵@臥@巬@電@襼@徾@琁@咣@话@。,彎@孡@甚@遨@遂@惀@绥@闩@颓@旱@，,仑@仧@帳@逕@迂@仠@丆@斴@弊@课@艽@惀@绥@：,")):Response.Write CJCJJCJ(0,0):Response.Write(CJCJJCJC("、,")):Response.Write CJCJJCJ(1,0):Response.Write(CJCJJCJC("、,")):Response.Write CJCJJCJ(2,0):Response.Write(CJCJJCJC("。,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\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(" ,")):CCCJJCC="":CCCJCJJ="":for CJCJJJC=0 to 4:CCCJJCC=CCCJJCC & CJCJJCJC("[") & CJJJJCJJ(CJCJJJC,0):CCCJCJJ=CCCJCJJ & CJCJJCJC("[") & Left(CJJJJCJJ(CJCJJJC,2),Len(CJJJJCJJ(CJCJJJC,2))-1):Response.Write CJCJJCJC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJJJJCJJ(CJCJJJC,0) & CJCJJCJC("k^E5mkE5m") & CJJJJCJJ(CJCJJJC,1) & CJCJJCJC("k^E5mkE5m") & CJJJJCJJ(CJCJJJC,2) & CJCJJCJC("k^E5mk^ECm") next:Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__U?lTUIl")):Response.Write mid(CCCJJCC,2):Response.Write(CJCJJCJC("UGl")):Response.Write mid(CCCJCJJ,2):Response.Write(CJCJJCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,k9bma] ,孡@乛@盳@兮@k^9bm") & vbCrLf):Response.Write(CJCJJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm返@一,郣@刁@丶@襼@课@柠@癿@昪@孡@甚@癿@孡@乛@盩@栂@、,孡@乛@忼@庡@叅@孡@乛@筑@畠@癿@佺@産@惀@冰@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,")):for CJCJJJC=0 to 8:CJJJJCJC(CJCJJJC,1)=formatpercent(CJJJJCJC(CJCJJJC,0)/CCCCJJC,2,-1):CJJJJCJC(CJCJJJC,3)=formatpercent(CJJJJCJC(CJCJJJC,2)/CCCCJJC,2,-1):next:Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,k9cm（,`）,孡@乛@盩@栂@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm捩@课@柠@绎@林@昹@礵@，,圣@叒@浆@孡@甚@丨@，,k4@56m")):Response.Write CJJJJCJC(0,1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@朄@昉@硩@癿@孡@乛@盩@栂@，,朄@k4@56m")):Response.Write CJJJJCJC(0,3):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@寴@臥@巬@癿@孡@乛@盩@栂@幱@丈@昉@硩@。,k^Am") & 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(" ,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(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(0,0):Response.Write(CJCJJCJC("k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(0,2):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(" ,kE5m")):Response.Write CJJJJCJC(0,1):Response.Write(CJCJJCJC("k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(0,3):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(" ,k9cm（,a）,孡@乛@忼@庡@k^9cm") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm圣@叒@浆@孡@甚@丨@，,k4@56m")):Response.Write CJJJJCJC(1,1):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@朄@艪@奸@癿@孡@乛@忼@庡@，,秪@杼@怢@咇@丶@劣@怢@轾@髓@，,k4@56m")):Response.Write CJJJJCJC(1,3):Response.Write(CJCJJCJC("k^4@56m癿@孡@甚@孡@乛@忼@庡@一,舧@，,孡@乛@癿@秪@杼@怢@咇@丶@劣@怢@郸@丈@髓@。,k^Am") & 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(" ,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(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(1,0):Response.Write(CJCJJCJC("k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(1,2):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(" ,kE5m")):Response.Write CJJJJCJC(1,1):Response.Write(CJCJJCJC("k^E5m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE5m")):Response.Write CJJJJCJC(1,3):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(" ,k9cm（,b）,孡@乛@筑@畠@k^9cm") & 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课@探@筑@畠@j挂@寴@臥@巬@癿@孡@乛@迖@稆@迖@衇@访@伫@幱@栴@捩@宙@陀@惀@冰@寴@讜@刍@、,孡@乛@迖@稆@戻@釂@産@癿@筑@畠@迖@衇@课@敯@。,k^=:m") & vbCrLf):Response.Write(CJCJJCJC(" ,k=:m又@怘@筑@畠@i挂@圣@讜@刍@、,盌@探@咇@课@探@癿@埵@砻@丅@又@怘@敯@严@孡@乛@洼@稆@，,柠@漊@衠@缵@。,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(" ,")):CJCJJCJ=Array(CJCJJCJC("讜@刍@筑@畠@"),CJCJJCJC("盌@探@筑@畠@"),CJCJJCJC("课@探@筑@畠@"),CJCJJCJC("又@怘@筑@畠@"),CJCJJCJC("惀@愚@筑@畠@"),CJCJJCJC("劥@劖@箜@琁@筑@畠@"),CJCJJCJC("寶@氽@攪@拼@筑@畠@")):redim CCCCJJJ(6,1):for CJCJJJC=0 to 6:CCCCJJJ(CJCJJJC,0)=CJCJJCJ(CJCJJJC):CCCCJJJ(CJCJJJC,1)=CJJJJCJC(CJCJJJC+2,0):next:CCCCJJJ=CJCJJJCC(CCCCJJJ,1):Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,kAm朧@欜@课@柠@绎@林@昹@礵@，,圣@叒@浆@孡@甚@丨@，,仑@仧@帳@産@癿@孡@乛@筑@畠@丵@：,")):Response.Write CCCCJJJ(0,0):Response.Write(CJCJJCJC("、,")):Response.Write CCCCJJJ(1,0):Response.Write(CJCJJCJC("、,")):Response.Write CCCCJJJ(2,0):Response.Write(CJCJJCJC("、,")):Response.Write CCCCJJJ(3,0):Response.Write(CJCJJCJC("。,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\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 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm昪@吡@釂@发@丆@划@孡@乛@筑@畠@k^E9m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE9 ,4@=DA2?lQaQm昪@k^E9m") & vbCrLf):Response.Write(CJCJJCJC(" ,kE9 ,4@=DA2?lQaQm吡@k^E9m") & 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(" ,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(" ,")):CCCJCJJ=CJCJJCJC(",V昪@V[V吡@V.") for CJCJJJC=2 to 8:CCCJCJJ=CCCJCJJ & CJCJJCJC("[,") & Left(CJJJJCJC(CJCJJJC,1),Len(CJJJJCJC(CJCJJJC,1))-1) & CJCJJCJC("[") & Left(CJJJJCJC(CJCJJJC,3),Len(CJJJJCJC(CJCJJJC,3))-1) & CJCJJCJC("."):Response.Write CJCJJCJC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJJCJ(CJCJJJC-2) & CJCJJCJC("k^E5m") for CJCJCJC=0 to 3:Response.Write CJCJJCJC("kE5m") & CJJJJCJC(CJCJJJC,CJCJCJC) & 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(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__U?lTUClb_UIl")):Response.Write join(CJCJJCJ,CJCJJCJC("[")):Response.Write(CJCJJCJC("UGl")):Response.Write CCCJCJJ:Response.Write(CJCJJCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,k9bmb] ,徾@琁@偠@庲@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@=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^@=m") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm仠@丆@昪@叒@浆@羟@低@叿@四@孋@歞@帳@咇@廽@帳@癿@亵@敫@仠@叅@每@來@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,")):CJCJJCJ=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 CJCJJJC=0 to 7:Response.Write CJCJJCJC("kECmkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & (CJCJJJC+1) & CJCJJCJC("k^E5mkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & CJCJJCJ(CJCJJJC) & CJCJJCJC("k^E5mkE5m歞@帳@k^E5mkE5m") & CJJJJCCJ(CJCJJJC,0) & CJCJJCJC("k^E5mkE5m") & formatpercent(CJJJJCCJ(CJCJJJC,0)/CCCCJJC,2,-1) & CJCJJCJC("k^E5mk^ECm") Response.Write CJCJJCJC("kECmkE5m廽@帳@k^E5mkE5m") & CJJJJCCJ(CJCJJJC,1) & CJCJJCJC("k^E5mkE5m") & formatpercent(CJJJJCCJ(CJCJJJC,1)/CCCCJJC,2,-1) & CJCJJCJC("k^E5mk^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(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,k9am亏@、,叿@幯@红@四@孋@阮@怢@梻@浆@惀@冰@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 CJCJJJC=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJCJC(" ,kE9 ,4@=DA2?lQaQm")):Response.Write CJCJJCJ(CJCJJJC):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 CJCJJJC=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 CJCJJJC=0 to ubound(CCCJCCJ):if CCCJCCJ(CJCJJJC,2)>0 then Response.Write CJCJJCJC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CCCJCCJ(CJCJJJC,1) & CJCJJCJC("k^E5mkE5m") & CCCJCCJ(CJCJJJC,2) & CJCJJCJC("k^E5m") for CJCJCJC=0 to 7:CJCJCCJ=CJCJCJC+3:if CCCJCCJ(CJCJJJC,CJCJCCJ)>0 then Response.Write CJCJJCJC("kE5m") & CCCJCCJ(CJCJJJC,CJCJCCJ) & CJCJJCJC("k^E5m"):Response.Write CJCJJCJC("kE5m") & formatnumber(CCCJCCJ(CJCJJJC,CJCJCCJ)/CCCJCCJ(CJCJJJC,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(" ,k9am全@、,叿@幯@红@徾@琁@偠@庲@廽@帳@合@卐@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(" ,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(" ,")):CJCJJCJ=split(CCCCJCC,vbcrlf):for CJCJJJC=0 to ubound(CJCJJCJ)-1:CCCCJJJ=split(CJCJJCJ(CJCJJJC),CJCJJCJC("M")):Response.Write CJCJJCJC("kECmkE5m") & (CJCJJJC+1) & CJCJJCJC("k^E5mkE5 ,4=2DDlV2>\E6IE\=67E ,2>\E6IE\>:55=6Vm") & CCCCJJJ(0) & CJCJJCJC("k^E5m") for CJCJCJC=1 to 9:Response.Write CJCJJCJC("kE5m") & CCCCJJJ(CJCJCJC) & 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(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJCJJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJCJC(" ,kAm`] ,夈@孡@吉@，,一,亖@孡@甚@只@胸@侘@焱@伕@孓@圣@寴@疦@惀@癿@索@弛@、,無@虌@、,恋@慇@筄@惀@绥@，,廵@让@孡@栜@只@仠@逕@迂@卫@刱@徾@琁@课@追@孡@乛@扆@冇@、,弛@贯@实@伛@浲@抠@、,廻@屐@训@庢@癿@彝@弊@同@孡@甚@晩@叅@徾@琁@课@追@矠@证@，,伛@掃@课@艽@筑@畠@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAma] ,兀@刁@双@挠@与@（,具@）,聇@徾@琁@偠@庲@敔@布@佗@産@，,线@绂@夕@秈@彝@弊@秪@杼@丶@劣@兮@徾@孡@甚@，,吇@旱@釂@发@珨@囝@阚@诹@、,诹@闯@亟@洼@调@徾@筄@斴@弊@线@绂@孡@甚@乆@闯@迖@衇@惀@愚@亟@洼@，,歞@靝@弐@寷@、,舍@缎@、,釅@改@孡@甚@索@弛@惀@绥@咇@孡@丕@历@劖@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAmb] ,萠@逛@秪@杼@偠@庲@同@丅@癿@栜@囨@斂@匑@氖@囯@，,埴@其@孡@甚@秪@杼@癿@徾@忼@，,揋@卂@徾@琁@偠@庲@紛@其@，,墙@張@阭@疦@抒@疦@癿@歞@胸@释@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAmc] ,寴@争@孓@圣@叿@秈@徾@琁@囫@扫@癿@孡@甚@，,孡@栜@只@朄@钃@寴@怢@癿@廻@屐@严@低@我@囝@低@辀@寷@，,宙@斸@严@怢@匑@癿@徾@琁@辀@寷@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAmd] ,晩@叅@秌@孡@偠@躦@矠@证@，,劣@呓@兣@低@孡@甚@丶@劣@迋@劣@、,秌@孡@锶@炷@，,墙@張@低@劖@、,揋@髓@先@疦@劖@，,丫@寇@甚@洶@，,俘@隗@孡@甚@躦@徾@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAme] ,史@叧@宱@镺@秪@杼@兮@泣@孋@奮@徾@琁@劣@同@。,馑@元@，,宱@镺@臥@躦@序@彎@泣@愊@课@艽@奸@臥@巬@癿@惀@绥@犱@忼@，,吃@琁@佗@恪@，,覿@徆@巠@佗@，,彝@戋@秪@杼@、,歞@胸@释@癿@宱@庨@氖@囯@，,遺@先@伛@逍@涃@杼@贚@胸@释@俜@恪@绔@孋@奮@。,共@欜@，,只@廻@屐@一,亖@亭@孋@洶@劣@，,墙@力@彷@歟@愚@惀@，,一,赲@锶@炷@、,敞@歠@、,偕@宱@劜@筄@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAmf] ,廻@孡@剈@一,丟@呣@，,圣@老,布@癿@挂@寷@丆@，,宱@镺@只@叅@旤@帩@孤@孋@课@敯@佗@恪@旱@闯@，,认@盩@剈@局@宱@癿@孤@孋@佗@恪@旱@闯@三@迏@栜@夈@孡@吉@孡@栜@癿@佗@恪@旱@闯@盳@吶@吃@，,追@庡@廱@镺@孤@孋@孡@乛@旱@闯@，,帩@劤@孤@孋@夈@乛@巭@孡@癿@劚@诹@，,仠@侺@宙@玫@“,趀@镺@偂@朚@”,三@“,迏@栜@夈@孡@”,癿@旛@缘@寴@掠@。,k^Am") & vbCrLf):Response.Write(CJCJJCJC(" ,kAmg] ,寴@丈@吇@徾@琁@偠@庲@犱@冰@孡@甚@癿@廵@让@：,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(" ,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(" ,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^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 CCCJJCJ:Response.Write(CJCJJCJC(" ,U>:55@Ej ,")):Response.Write CJJJCJCC: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)::Function CJCJJJCC(byval CJCCJJJJ,CJCJCCC):dim CJCJJJC,CJCJCJC,CJCJCCJ,CJCCCJJ,CJCCCJC,CJCJJCJ(),CCCCJCJ:on error resume next:CJCCCJJ=ubound(CJCCJJJJ):CJCCCJC=ubound(CJCCJJJJ,2):on error goto 0:if err.number<>0 then err.clear:for CJCJJJC=1 to CJCCCJJ:for CJCJCJC=CJCCCJJ to CJCJJJC step -1:if CJCCJJJJ(CJCJCJC)>CJCCJJJJ(CJCJCJC-1) then CCCCJCJ=CJCCJJJJ(CJCJCJC):CJCCJJJJ(CJCJCJC)=CJCCJJJJ(CJCJCJC-1):CJCCJJJJ(CJCJCJC-1)=CCCCJCJ end if:next:next else redim CJCJJCJ(CJCCCJC):for CJCJJJC=1 to CJCCCJJ:for CJCJCJC=CJCCCJJ to CJCJJJC step -1:if CJCCJJJJ(CJCJCJC,CJCJCCC)>CJCCJJJJ(CJCJCJC-1,CJCJCCC) then for CJCJCCJ=0 to CJCCCJC:CJCJJCJ(CJCJCCJ)=CJCCJJJJ(CJCJCJC,CJCJCCJ):CJCCJJJJ(CJCJCJC,CJCJCCJ)=CJCCJJJJ(CJCJCJC-1,CJCJCCJ):CJCCJJJJ(CJCJCJC-1,CJCJCCJ)=CJCJJCJ(CJCJCCJ):next end if:next:next end if:CJCJJJCC=CJCCJJJJ:End Function:Response.Write(vbCrLf):Response.Write(CJCJJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:set CJJCJJCJ=nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJJCJC(ByVal CJCJJCJJ) Dim CCCJCJJ, CJCJJJC, CJCJCCC CJCJJCJJ = Replace(CJCJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJJC = 1 To Len(CJCJJCJJ) If CJCJJJC <> CJCJCCC Then CCCJCJJ = AscW(Mid(CJCJJCJJ, CJCJJJC, 1)) If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then CJCJJCJC = CJCJJCJC & Chr(CCCJCJJ + 47) ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then CJCJJCJC = CJCJJCJC & Chr(CCCJCJJ - 47) Else CJCJCCC = CJCJJJC + 1 If Mid(CJCJJCJJ, CJCJCCC, 1) = Chr(64) Then CJCJJCJC = CJCJJCJC & ChrW(CCCJCJJ + 5) Else CJCJJCJC = CJCJJCJC & Mid(CJCJJCJJ, CJCJJJC, 1) End If End If Next End Function %>