<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CJCCC.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJCCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJ>0 then CCJCC=CCCJJCC("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(CCCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJJ,CCCJC) End IF end if:Sub CheckRight(CCCJCJJ):dim CJCCCC,CCJJJJ:if CCCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJCCCCC(CCCJCJJ) then Call RedirectMessage(CCCJJCC("朾@陋@W") & CCCJCJJ & CCCJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCCCCC(CCCJCJJ):dim CJCCCC,CCJJJJ:CCJJJJ=split(CCCJCJJ,CCCJJCC("[")):CJCCCCC=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then CJCCCCC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CCCJJCC("]")):if ubound(CCJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then Call ClearMemberCookie else CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC if len(CCJCJJ)=7 then exit for next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then Call ClearMemberCookie else CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC0 then for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CCCJJCC("k3C ,^m") response.Write CJCCCC & CCCJJCC("i ,") & str(CJCCCC):next else response.Write CCCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCCCC=0 to ubound(str,2):response.Write CCCJJCC("kE9 ,2=:8?lV=67EVm") & CJCCCC & CCCJJCC("k^E9m") next:response.Write CCCJJCC("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CCCJJCC("kECmkE9m") & CJCCCC & CCCJJCC("k^E9m"):for CCJJCC=0 to ubound(str,2):response.Write CCCJJCC("kE5m") & str(CJCCCC,CCJJCC) & CCCJJCC("k^E5m"):next:response.Write CCCJJCC("k^ECm"):next:response.Write CCCJJCC("k^E23=6m") end if elseif isnull(str) then response.Write CCCJJCC(",}F==.") else Response.Write replace(str,vbcrlf,CCCJJCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJCCJ,CCCJCCC):dim CCJJJC:CCJJJC=CCCJCCJ & CCCJJCC("l") & CCCJCCC & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CCJJJC):End Sub::::::sub ShowMessage(CCCCJJJ):response.Charset="utf-8":Response.Write CCCJJCC("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") & CCCCJJJ & CCCJJCC("k^5:Gmk^5:Gmk3Cm") end sub:Function CCJJJJJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then CCJJJJJ=false else Dim CCJCCJ:Set CCJCCJ = New RegExp:CCJCCJ.Pattern = CCCJJCC("/-5ZS"):CCJCCJ.IgnoreCase = True:CCJJJJJ = CCJCCJ.test(CCJCJC):set CCJCCJ=nothing end if:End Function:Function CCJJJJC(CCCCJJC):dim CCJCCC,CCCJJJ:CCJCCC=CCCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCJJC & CCCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJJ=CJCCC.execute(CCJCCC):CCJJJJC = CCCJJJ(0):if isnull(CCJJJJC) then CCJJJJC=1 CCCJJJ.close : set CCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJCJ=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CCCJJJ.close : set CCCJJJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CCJJCJC.Close : Set CCJJCJC = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCJJJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CCCCJCJ,CCCCJCC):dim str,CCJCJC:str=CCCJJCC("!$*0") & Ucase(CCCCJCJ):if Session(str)<>"" then CCJCJC=DateDiff(CCCJJCC("D"),Session(str),Time):if CCJCJC0 then Call ConnClose:Call ShowMessage(CCCJJCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CCCCJCC & CCCJJCC(" ,种@，,迓@剤@ ,") & CCCCJCC-CCJCJC & CCCJJCC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CCCCCJJ):Application.Contents.Remove CCCCCJJ End Sub::Class jTree:Private CCJCC, CCCJCJ, CCCJCC, CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Private Sub Class_Initialize():CCCJCC = 0:CCCCJJ = 0:CJJJJJJ=10:End Sub:Public Property Let Table(CCCCCJC):if CCCCCJC="" then Call RedirectMessage(CCCJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCCCJC=CCCCCJC:CCCCCJ=CCCJJCC("!$*0") & UCase(CCCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCJC:End Property:::Private Sub GetTreeArray():Dim CJCCCC, CCJJCC, CJJJJJC,CJJJJCJ:CCCJCJ = Application(CCCCCJ):If Not IsArray(CCCJCJ) Then CCJCC = CCCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCJC:if CCCCCC<>"" then CCJCC=CCJCC & CCCJJCC(" ,H96C6 ,") & CCCCCC set CJJJJJC=CJCCC.execute(CCJCC):CJJJJCJ=CJJJJJC(0):if CJJJJCJ=0 then Call RedirectMessage(CCCJJCC("柠@话@W") & CCCCJC & CCCJJCC("^") & CCCCCC & CCCJJCC("X沜@朄@绎@林@敫@捩@")) CCCCJJ=CJJJJCJ+CJJJJJJ:ReDim CCCJCJ(CCCCJJ, 4):CCJCC = CCCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CCCJJCC(" ,H:E9 ,W?@=@4"" then CCJCC=CCJCC & CCCJJCC(" ,H96C6 ,") & CCCCCC CCJCC=CCJCC & CCCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJJJJJC=CJCCC.execute(CCJCC):For CJCCCC = 1 To CJJJJCJ:For CCJJCC = 0 To 4:CCCJCJ(CJCCCC, CCJJCC) = CJJJJJC(CCJJCC):if IsNull(CCCJCJ(CJCCCC,4)) then CCCJCJ(CJCCCC,4)=0 If CCCJCJ(CJCCCC,2)="" then CCCJCJ(CJCCCC,2)=CCCJJCC(",穵@.") Next:CJJJJJC.MoveNext:Next:CJJJJJC.Close: Set CJJJJJC = Nothing:for CJCCCC=CCCCJJ-(CJJJJJJ-1) to CCCCJJ:CCCJCJ(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CCCCCJ) = CCCJCJ:Application.UnLock() else CCCCJJ=Ubound(CCCJCJ) End If:End Sub::::Public Function GetChild(CCJJCCC):Dim CJCCCC, Str:CCJJCCC=CLng(CCJJCCC):For CJCCCC = 1 To CCCCJJ:If CCCJCJ(CJCCCC, 1) = CCJJCCC Then Str = Str & CCCJJCC("M") & CCCJCJ(CJCCCC, 0) & CCCJJCC("M") & CCCJCJ(CJCCCC,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CCCJJCC("M")):End Function:Private Function CCJCJJC(CCJJCCC):dim CJCCCC,CJJJJCC:CCJCJJC=0:CJJJJCC=CStr(CCJJCCC):if CJJJJCC<>"0" then for CJCCCC=1 to CCCCJJ:If CStr(CCCJCJ(CJCCCC, 0))=CJJJJCC Then CCJCJJC = CJCCCC:Exit For End If:Next end if:End Function:Public Function GetCurName(CCJJCCC):if Cstr(CCJJCCC)="0" then GetCurName=CCCJJCC("栴@") else Dim CJCCCC,CJJJJJC:CJCCCC=CCJCJJC(CCJJCCC):if CJCCCC>0 then GetCurName=CCCJCJ(CJCCCC,2):if GetCurName="" then set CJJJJJC=CJCCC.execute(CCCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CCCJJCC(" ,H96C6 ,:5l") & CCJJCCC):if CJJJJJC.eof then Call RedirectMessage(CCCJJCC("xs（,") & CCJJCCC & CCCJJCC("）,朥@批@别@")) GetCurName=CJJJJJC(1):Call UpdateCache(CCJJCCC,CJJJJJC(0),GetCurName,CJJJJJC(2),CJJJJJC(3)):CJJJJJC.Close: Set CJJJJJC = Nothing end if else set CJJJJJC=CJCCC.execute(CCCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CCCJJCC(" ,H96C6 ,:5l") & CCJJCCC):if CJJJJJC.eof then Call RedirectMessage(CCCJJCC("xs（,") & CCJJCCC & CCCJJCC("）,朥@批@别@")) GetCurName=CJJJJJC(1):Call UpdateCache(CCJJCCC,CJJJJJC(0),GetCurName,CJJJJJC(2),CJJJJJC(3)):CJJJJJC.Close: Set CJJJJJC = Nothing end if end if:End Function:::Public Function CCJCJCC(CCJJCCC):Dim CJCCCC,CJJJCJJ:CJCCCC=CCJCJJC(CCJJCCC):if CJCCCC=0 then CJJJCJJ=CCJCCJJ(CCJJCCC) else CJJJCJJ=CCCJCJ(CJCCCC,3):if isnull(CJJJCJJ) or CJJJCJJ="" then CJJJCJJ=CCJCCJJ(CCJJCCC) elseif Mid(CJJJCJJ,instrrev(CJJJCJJ,CCCJJCC("["))+1)<>CStr(CCJJCCC) then CJJJCJJ=CCJCCJJ(CCJJCCC) elseif Left(CJJJCJJ,1)=CCCJJCC("[") then CJJJCJJ=CCJCCJJ(CCJJCCC) end if end if:CCJCJCC=CJJJCJJ:End Function:Private Function CCJCCJJ(CCJJCCC):dim CJJJJCC:CJJJJCC=CStr(CCJJCCC):if CJJJJCC="0" then CCJCCJJ="" else dim CJJJJJC:set CJJJJJC=CJCCC.execute(CCCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJC & CCCJJCC(" ,H96C6 ,:5l") & CCJJCCC):if CJJJJJC.eof then Call UpdateCache(CCJJCCC,"","","",""):Call RedirectMessage(CCCJJCC("顴@盩@（,xs：,") & CCJJCCC & CCCJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJJJJJC(0)=0 then CCJCCJJ="0," & CCJJCCC else CCJCCJJ=CCJCJCC(CJJJJJC(0)) & CCCJJCC("[") & CCJJCCC end if:if CJJJJJC(2)<>CCJCCJJ then CJCCC.execute CCCJJCC("FA52E6 ,") & CCCCJC & CCCJJCC(" ,D6E ,A2E9lV") & CCJCCJJ & CCCJJCC("V ,H96C6 ,:5l") & CCJJCCC else CCJCCJJ=CJJJJJC(2) end if end if:Call UpdateCache(CCJJCCC,CJJJJJC(0),CJJJJJC(1),CCJCCJJ,CJJJJJC(3)):CJJJJJC.Close: Set CJJJJJC = Nothing end if:End Function::::Public Function IsParent(CCCCCCJ, CCCCCCC):IsParent=InStr(CCJCJCC(CCCCCCC) & CCCJJCC("["), CCCJJCC("[") & CCCCCCJ & CCCJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJJCCC):dim CJJJCJJ:CJJJCJJ=CCJCJCC(CCJJCCC):Sql_GetChildren = CCCCJC & CCCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJJJCJJ & CCCJJCC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCCCJ End Sub:Public Sub UpdateCache(CCJJCCC,CJJJJJJJ,CJJJJJJC,CJJJCJJ,CJJJJJCJ):dim CJCCCC,CCJJCC:CCJJCCC=CLng(CCJJCCC):CJCCCC=CCJCJJC(CCJJCCC):if CJJJJJJJ="" and CJJJJJJC="" and CJJJCJJ="" and CJJJJJCJ="" then if CJCCCC>0 then for CCJJCC=1 to 4:CCCJCJ(CJCCCC,CCJJCC)=Null:next end if else if CJCCCC=0 then for CCJJCC=1 to CCCCJJ:if CCCJCJ(CCJJCC,1) & ""="" then CJCCCC=CCJJCC:exit for end if:next end if:if CJCCCC=0 then Call ClearCache else CCCJCJ(CJCCCC,0)=CLng(CCJJCCC):if CJJJJJJJ<>"" then CCCJCJ(CJCCCC,1)=CLng(CJJJJJJJ) if CJJJJJJC<>"" then CCCJCJ(CJCCCC,2)=CJJJJJJC if CJJJCJJ<>"" then CCCJCJ(CJCCCC,3)=CJJJCJJ if CJJJJJCJ<>"" then CCCJCJ(CJCCCC,4)=CLng(CJJJJJCJ) end if end if:if CJCCCC>0 then Application.Lock():Application(CCCCCJ) = CCCJCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CCCCJJJ):Call ConnClose:Response.Write CCCCJJJ:Response.End:End Sub:Private Function CCJJJJC():CCJJJJC=CCJCCCC+1:End Function:Private Function CCJCCCC():dim CCCJJJ:set CCCJJJ=CJCCC.execute(CCCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCJC & CCCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCJCCCC=CCCJJJ(0):CCCJJJ.Close: Set CCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CJCCCJC=38:Const CJCCCCJ="小学生心理健康评定量表(MHRSP)":Call CheckRight("54,81"):Call CheckQueryTime(CCCJJCC("%6DE0#6A@CE"),30):dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:CJJCJCJ=Request.QueryString(CCCJJCC("$49@@=")):CJJJCJC=Request.QueryString(CCCJJCC("s6AE")):CJJJCCJ=Request.QueryString(CCCJJCC("vC256")):CJJJCCC=Request.QueryString(CCCJJCC("vC@FA")):CJJCJJJ=Request.QueryString(CCCJJCC("E`")):CJJCJJC=Request.QueryString(CCCJJCC("Ea")):if not CCJJJJJ(CJJJCJC) then Call RedirectMessage(CCCJJCC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CCCJCJ:set CCCJCJ=new jtree:CCCJCJ.table=CCCJJCC(">6>36C0EJA6"):if not CCCJCJ.IsParent(CCCCC,CJJJCJC) then Call RedirectMessage(CCCJJCC("诠@苾@囯@W") & CJJJCJC & CCCJJCC("X丈@圣@患@W") & CCCCC & CCCJJCC("X癿@箜@琁@苾@囯@冀@。,")) dim CCCJJJJ:CCCJJJJ=CCCJCJ.GetChild(CJJJCJC):if ubound(CCCJJJJ)<0 then Call RedirectMessage(CCCJJCC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) dim CJJCJCC:if CCJJJJJ(CJJCJCJ) then CJJCJCC=CCCJCJ.GetCurName(CJJCJCJ) else CJJCJCC=CCCJCJ.GetCurName(CJJJCJC) dim CJCCCC,CCJJCC,CCJCJJ,CJJCCJJ,CJJCCJC,CJJCCCJ:dim CJJCCCC():redim CJJCCCC((ubound(CCCJJJJ)-1)/2,11):for CJCCCC=0 to ubound(CCCJJJJ)-1 step 2:CCJCJJ=CJCCCC/2:CJJCCCC(CCJCJJ,0)=CCCJJJJ(CJCCCC):CJJCCCC(CCJCJJ,1)=CCCJJJJ(CJCCCC+1):for CCJJCC=2 to ubound(CJJCCCC,2):CJJCCCC(CCJCJJ,CCJJCC)=0:next:CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CCJCJJ,1):next:CJJCCJJ=mid(CJJCCJJ,2):dim CJCJJJJ(1,1):CJCJJJJ(0,0)=CCCJJCC("甲@"):CJCJJJJ(1,0)=CCCJJCC("奮@"):for CJCCCC=0 to 1:CJCJJJJ(CJCCCC,1)=0:next:dim CCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:CJCJJCC=Date:CJCJCJJ=cdate(CCCJJCC("a___\`\`")):dim CJCJCCJ(8,4):for CJCCCC=0 to ubound(CJCJCCJ):for CCJJCC=0 to ubound(CJCJCCJ,2):CJCJCCJ(CJCCCC,CCJJCC)=0:next:next:CCJCC=CCCJJCC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[D4@C60C2H ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CJJCJCJ else CCJCC=CCJCC & CCCJJCC(" ,2?5 ,") & CCCJCJ.Sql_GetChildren(CJJJCJC) if CCJJJJJ(CJJJCCJ) then CCJCC=CCJCC & CCCJJCC(" ,2?5 ,8C256l") & CJJJCCJ if CCJJJJJ(CJJJCCC) then CCJCC=CCJCC & CCCJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJJJCCC if isdate(CJJCJJJ) then CCJCC=CCJCC & CCCJJCC(" ,2?5 ,52E6E:>6mlV") & CJJCJJJ & CCCJJCC("V") if isdate(CJJCJJC) then CCJCC=CCJCC & CCCJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJJC)+1 & CCCJJCC("V") set CCJJC=CJCCC.execute(CCJCC):if CCJJC.eof then Call RedirectMessage(CCCJJCC("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,")) while not CCJJC.eof:CCJJJJ=split(CCJJC(4),CCCJJCC("M")):for CJCCCC=0 to 7:CCJCJJ=cint(CCJJJJ(CJCCCC)):if CCJCJJ<=10 then CJCJCCJ(CJCCCC,0)=CJCJCCJ(CJCCCC,0)+1 else CJCJCCJ(CJCCCC,1)=CJCJCCJ(CJCCCC,1)+1 next:CCJCJJ=cint(CCJJJJ(8)):if CCJCJJ<=80 then CJCJCCJ(8,0)=CJCJCCJ(8,0)+1 else CJCJCCJ(8,1)=CJCJCCJ(8,1)+1 for CJCCCC=0 to 8:CJCJCCJ(CJCCCC,2)=CJCJCCJ(CJCCCC,2) & CCCJJCC("M") & CCJJJJ(CJCCCC):next:for CJCCCC=0 to ubound(CJJCCCC):if instr(CCJJC(0) & CCCJJCC("["),CCCJJCC("[") & CJJCCCC(CJCCCC,0) & CCCJJCC("["))>0 then CJJCCCC(CJCCCC,2)=CJJCCCC(CJCCCC,2)+1:for CCJJCC=0 to 8:CCJCJJ=CCJJCC+3:CJJCCCC(CJCCCC,CCJCJJ)=CJJCCCC(CJCCCC,CCJCJJ) & CCCJJCC("M") & CCJJJJ(CCJJCC):next:exit for end if:next:if CCJJC(1) then CCJJCC=0 else CCJJCC=1 CJCJJJJ(CCJJCC,1)=CJCJJJJ(CCJJCC,1)+1:CCJCJJ=CCJJC(3):if CCJCJJCJCJCJJ then CJCJCJJ=CCJCJJ CJCJCJC=CJCJCJC & CCCJJCC("M") & CCJJC(2):CJCJJJC=CJCJJJC+1:CCJJC.movenext:wend:for CJCCCC=0 to 7:CCJJJJ=CCCJJJC(split(Mid(CJCJCCJ(CJCCCC,2),3),CCCJJCC("M"))):CJCJCCJ(CJCCCC,3)=FormatNumber(CCJJJJ(0),2,-1):CJCJCCJ(CJCCCC,4)=FormatNumber(CCJJJJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CCCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m")):Response.Write CJJCJCC:Response.Write(CCCJJCC("\")):Response.Write CJCCCCJ:Response.Write(CCCJJCC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CCCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CCCJJCC("DA2?]F?56C=:?6 ,L ,E6IE\564@C2E:@?i ,F?56C=:?6j ,N") & vbCrLf):Response.Write(CCCJJCC("DA2?]F?56C=:?6ii367@C6 ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CCCJJCC("DA2?]F?56C=:?6ii27E6C ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CCCJJCC("E9]@G6C=:?6 ,L ,E6IE\564@C2E:@?i ,@G6C=:?6j ,N") & vbCrLf):Response.Write(CCCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCCJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCJJCC("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(CCCJJCC("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("k^9625m") & vbCrLf):Response.Write(CCCJJCC("k3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write CJJCCJJ:Response.Write(CCCJJCC("Qm") & vbCrLf):Response.Write(CCCJJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CCCJJCC(" ,k9`mkD>2==m")):Response.Write CJJCJCC:Response.Write(CCCJJCC("k^D>2==mk3Cm")):Response.Write CJCCCCJ:Response.Write(CCCJJCC("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CCCJJCC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,kAm釂@産@尊@孡@甚@徾@琁@偠@庲@访@宕@释@衣@（,|w#$!）,，,诠@释@衣@昪@仑@访@释@衣@，,産@争@绷@吃@访@宕@尊@孡@甚@癿@徾@琁@偠@庲@犱@冰@，,匀@拧@孡@乛@追@序@怢@、,惀@绥@種@宕@怢@、,礹@伕@追@序@怢@叅@衇@丵@乛@惪@筄@斴@靝@癿@惀@冰@。,释@衣@甬@g郣@刁@线@戋@，,公@g_严@颓@盩@，,毊@`_严@顴@盩@线@戋@一,严@刁@释@衣@。,返@g严@刁@释@衣@兲@低@匀@拧@：,孡@乛@隗@碈@、,惀@绥@隗@碈@、,怢@样@缵@陲@、,礹@伕@追@序@隗@碈@、,咼@徲@缵@陲@、,丈@艪@乛@惪@、,衇@丵@隗@碈@、,牴@秈@隗@碈@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,kAm")):Response.Write formatdatetime(CJCJJCC,1):Response.Write(CCCJJCC("～,")):Response.Write formatdatetime(CJCJCJJ,1):Response.Write(CCCJJCC("k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,kAm") & vbCrLf):Response.Write(CCCJJCC(" ,")):response.Write CCCJJCC("公@") & CJCJJJJ(0,1)+CJCJJJJ(1,1) & CCCJJCC("亵@。,共@丨@甲@甚@") & CJCJJJJ(0,1) & CCCJJCC("亵@，,奮@甚@") & CJCJJJJ(1,1) & CCCJJCC("亵@，,"):for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then response.Write CJJCCCC(CJCCCC,1) & CCCJJCC("：,") & CJJCCCC(CJCCCC,2) & CCCJJCC("亵@，,") next:CCJJJJ=CCCJJJC(split(Mid(CJCJCJC,2),CCCJJCC("M"))):response.Write CCCJJCC("幮@坂@幯@齿@") & formatnumber(CCJJJJ(0),2,-1) & CCCJJCC("屼@（,栂@凁@巩@") & formatnumber(CCJJJJ(1),2,-1) & CCCJJCC("）,。,"):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm怶@刁@仞@衣@孡@甚@癿@怶@低@徾@琁@偠@庲@氯@幮@。,圣@兣@低@孡@甚@彎@丨@，,徾@琁@偠@庲@犱@忼@歞@帳@癿@丵@")):Response.Write CJCJCCJ(8,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(8,0)/CJCJJJC,2,-1):Response.Write(CCCJJCC("；,徾@琁@偠@庲@犱@忼@廽@帳@癿@丵@")):Response.Write CJCJCCJ(8,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(8,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@只@胸@孓@圣@柋@亖@徾@琁@闩@颓@，,電@襼@迖@衇@兮@泣@咇@辀@寷@，,帩@劤@仑@仧@揋@髓@徾@琁@偠@庲@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(8,0) & CCCJJCC("[") & CJCJCCJ(8,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bma．,孡@乛@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm孡@乛@隗@碈@四@孋@産@争@浆@柠@孡@甚@昪@吡@孓@圣@孡@乛@斴@靝@癿@隗@碈@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@孡@乛@隗@碈@癿@丵@")):Response.Write CJCJCCJ(0,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(0,0)/CJCJJJC,2,-1):Response.Write(CCCJJCC("；,孓@圣@昉@昹@孡@乛@隗@碈@癿@丵@")):Response.Write CJCJCCJ(0,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(0,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@只@胸@圣@孡@乛@丨@遂@别@亁@一,亖@囫@隹@，,宱@镺@咇@老,布@序@诠@仏@绁@圫@刁@枋@厚@四@，,刱@宕@凵@朄@敃@癿@斴@桃@杠@帩@劤@孤@孋@兆@月@孡@乛@丅@癿@囫@隹@，,埴@其@孤@孋@寴@孡@乛@癿@兯@趞@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(0,0) & CCCJJCC("[") & CJCJCCJ(0,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmb．,惀@绥@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm惀@绥@隗@碈@四@孋@産@争@浆@柠@孡@甚@昪@吡@孓@圣@惀@绥@斴@靝@癿@闩@颓@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@惀@绥@隗@碈@癿@丵@")):Response.Write CJCJCCJ(1,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(1,0)/CJCJJJC,2,-1):Response.Write(CCCJJCC("；,孓@圣@昉@昹@惀@绥@隗@碈@癿@丵@")):Response.Write CJCJCCJ(1,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(1,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@只@胸@孓@圣@一,亖@惀@绥@闩@颓@，,宱@镺@咇@老,布@襼@夕@跚@仑@仧@亟@洼@咇@沚@逕@，,尸@释@帩@劤@仑@仧@觞@廻@徾@绎@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(1,0) & CCCJJCC("[") & CJCJCCJ(1,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmc．,怢@样@缵@陲@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm怢@样@缵@陲@四@孋@産@争@浆@柠@孡@甚@昪@吡@孓@圣@怢@样@斴@靝@癿@缵@陲@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@怢@样@缵@陲@癿@丵@")):Response.Write CJCJCCJ(2,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(2,0)/CJCJJJC,2,-1):Response.Write(CCCJJCC("；,孓@圣@昉@昹@怢@样@缵@陲@癿@丵@")):Response.Write CJCJCCJ(2,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(2,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@怢@样@双@屐@丈@兣@靝@，,只@胸@孓@圣@一,亖@缵@陲@，,宱@镺@咇@老,布@序@诠@绔@亃@盳@序@癿@敔@肭@咇@弐@寷@，,帩@劤@仑@仧@逋@渋@攴@歞@臥@躦@癿@缵@炴@，,认@怢@样@双@屐@徒@曯@力@宇@啿@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(2,0) & CCCJJCC("[") & CJCJCCJ(2,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmd．,礹@伕@追@序@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm礹@伕@追@序@隗@碈@四@孋@産@争@浆@柠@孡@甚@圣@礹@伕@追@序@斴@靝@昪@吡@孓@圣@囫@隹@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@礹@伕@追@序@囫@隹@癿@丵@")):Response.Write CJCJCCJ(3,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(3,0)/CJCJJJC,3,-1):Response.Write(CCCJJCC("；,孓@圣@昉@昹@礹@伕@追@序@囫@隹@癿@丵@")):Response.Write CJCJCCJ(3,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(3,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@丈@夥@追@序@雁@低@甚@洶@，,老,布@咇@宱@镺@序@诠@夕@敔@绔@仑@仧@一,亖@亵@陀@亟@彻@斴@靝@癿@扻@胸@，,帩@劤@仑@仧@逋@歠@揋@髓@礹@伕@追@序@胸@劖@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(3,0) & CCCJJCC("[") & CJCJCCJ(3,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bme．,咼@徲@缵@陲@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm咼@徲@缵@陲@四@孋@産@争@浆@柠@孡@甚@圣@咼@徲@斴@靝@昪@吡@孓@圣@闩@颓@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@咼@徲@闩@颓@癿@丵@")):Response.Write CJCJCCJ(4,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(4,0)/CJCJJJC,3,-1):Response.Write(CCCJJCC("；,孓@圣@昉@昹@咼@徲@闩@颓@癿@丵@")):Response.Write CJCJCCJ(4,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(4,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@只@胸@孓@圣@一,亖@咼@徲@斴@靝@癿@闩@颓@，,老,布@咇@宱@镺@序@诠@耋@徾@圫@弐@寷@仑@仧@，,帩@劤@仑@仧@逋@渋@揋@髓@過@徲@氯@幮@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(4,0) & CCCJJCC("[") & CJCJCCJ(4,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmf．,丈@艪@乛@惪@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm丈@艪@乛@惪@四@孋@産@争@浆@柠@孡@甚@昪@吡@孓@圣@丈@艪@癿@衇@丵@乛@惪@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@丈@艪@乛@惪@癿@丵@")):Response.Write CJCJCCJ(5,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(5,0)/CJCJJJC,3,-1):Response.Write(CCCJJCC("；,孓@圣@丈@艪@乛@惪@癿@丵@")):Response.Write CJCJCCJ(5,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(5,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,返@郣@刁@孡@甚@只@胸@孓@圣@一,亖@丈@艪@癿@衇@丵@乛@惪@，,宱@镺@咇@老,布@襼@泣@愊@叅@旱@纛@歞@仑@仧@丈@艪@癿@乛@惪@，,帩@劤@仑@仧@塌@逛@艪@奸@癿@乛@惪@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(5,0) & CCCJJCC("[") & CJCJCCJ(5,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmg．,衇@丵@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm衇@丵@隗@碈@四@孋@産@争@浆@柠@孡@甚@昪@吡@孓@圣@衇@丵@隗@碈@，,來@好@張@迦@怢@劣@佗@、,夕@劣@筄@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@衇@丵@隗@碈@癿@丵@")):Response.Write CJCJCCJ(6,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(6,0)/CJCJJJC,3,-1):Response.Write(CCCJJCC("；,孓@圣@衇@丵@隗@碈@癿@丵@")):Response.Write CJCJCCJ(6,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(6,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,寴@争@返@郣@刁@孡@甚@，,老,布@咇@宱@镺@序@诠@夕@三@仑@仧@沚@逕@，,襼@倹@吧@仑@仧@冀@徾@癿@士@韮@，,寴@仑@仧@夕@迖@衇@徾@琁@辀@寷@，,迖@耇@攴@啿@仑@仧@癿@衇@丵@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(6,0) & CCCJJCC("[") & CJCJCCJ(6,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmh．,牴@秈@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,kAm牴@秈@隗@碈@四@孋@産@争@浆@柠@孡@甚@圣@掍@沿@、,觻@诨@、,睜@眛@、,迖@飚@筄@斴@靝@昪@吡@孓@圣@一,亖@隗@碈@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@牴@秈@隗@碈@癿@丵@")):Response.Write CJCJCCJ(7,0):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(7,0)/CJCJJJC,3,-1):Response.Write(CCCJJCC("；,孓@圣@牴@秈@隗@碈@癿@丵@")):Response.Write CJCJCCJ(7,1):Response.Write(CCCJJCC("亵@，,戻@卛@每@來@丵@")):Response.Write FormatPercent(CJCJCCJ(7,1)/CJCJJJC,2,-1):Response.Write(CCCJJCC("，,寴@争@返@郣@刁@孡@甚@，,宱@镺@咇@老,布@一,斴@靝@襼@帡@仑@仧@别@匶@陝@迖@衇@梻@柠@，,乚@襼@批@凵@徾@琁@斴@靝@只@胸@孓@圣@癿@闩@颓@幱@力@仠@觞@冮@。,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write CJCJCCJ(7,0) & CCCJJCC("[") & CJCJCCJ(7,1):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,k9am亏@、,丈@吇@四@孋@癿@徒@刁@寴@每@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m孡@乛@隗@碈@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(0,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(0,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m惀@绥@隗@碈@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(1,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(1,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m怢@样@缵@陲@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(2,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(2,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m礹@伕@追@序@隗@碈@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(3,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(3,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m咼@徲@缵@陲@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(4,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(4,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m丈@艪@乛@惪@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(5,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(5,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m衇@丵@隗@碈@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(6,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(6,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m牴@秈@隗@碈@k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(7,3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJCJCCJ(7,4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl孡@乛@隗@碈@M惀@绥@隗@碈@M怢@样@缵@陲@M礹@伕@追@序@隗@碈@M咼@徲@缵@陲@M丈@艪@乛@惪@M衇@丵@隗@碈@M牴@秈@隗@碈@UGl")):Response.Write CJCJCCJ(0,3) & CCCJJCC("[") & CJCJCCJ(1,3) & CCCJJCC("[") & CJCJCCJ(2,3) & CCCJJCC("[") & CJCJCCJ(3,3) & CCCJJCC("[") & CJCJCCJ(4,3) & CCCJJCC("[") & CJCJCCJ(5,3) & CCCJJCC("[") & CJCJCCJ(6,3) & CCCJJCC("[") & CJCJCCJ(7,3):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,孡@甚@圣@怢@样@缵@陲@、,衇@丵@隗@碈@、,孡@乛@隗@碈@斴@靝@癿@徒@刁@偊@髓@，,耇@圣@咼@徲@缵@陲@、,丈@艪@乛@惪@斴@靝@癿@徒@刁@每@轾@佉@。,返@误@昉@孡@甚@癿@怢@样@双@屐@、,无@帳@孡@乛@、,廽@帳@衇@丵@隗@碈@斴@靝@癿@闩@颓@盳@寴@轾@夕@，,電@襼@栜@斴@迖@衇@釈@炴@兮@泣@，,寴@朄@闩@颓@癿@孤@孋@夕@迖@衇@敔@肭@弐@寷@，,帩@劤@仑@仧@觞@冮@闩@颓@，,佺@仑@仧@胸@多@偠@庲@圫@戋@镺@。,孡@甚@圣@咼@徲@双@屐@、,无@帳@衇@丵@乛@惪@斴@靝@癿@衣@玫@盳@寴@轾@奸@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9am全@、,丈@吇@幯@红@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,11),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@怶@刁@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@怶@刁@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@癿@怶@低@徾@琁@偠@庲@犱@冰@盳@寴@曻@巩@，,亇@幯@红@癿@欜@乆@，,耇@一,幯@红@癿@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@丈@斨@揋@髓@徾@琁@偠@庲@氯@幮@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bma．,孡@乛@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,3),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@孡@乛@隗@碈@徒@刁@盳@寴@轾@髓@，,耇@一,、,亇@幯@红@癿@徒@刁@盳@寴@轾@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@孡@乛@斴@靝@遂@别@癿@囫@隹@每@轾@夕@，,耇@一,、,亇@幯@红@孡@甚@遂@别@癿@囫@隹@盳@寴@轾@尌@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@觞@冮@孡@乛@丅@遂@别@癿@闩@颓@，,丈@斨@揋@髓@孡@乛@敃@玂@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmb．,惀@绥@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,4),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@惀@绥@隗@碈@刁@敫@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@惀@绥@斴@靝@凵@玫@癿@闩@颓@曻@夕@，,亇@幯@红@欜@乆@，,耇@一,幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@觞@冮@惀@绥@斴@靝@癿@闩@颓@，,佺@仑@仧@癿@惀@绥@曯@力@種@宕@咇@秪@杼@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmc．,怢@样@缵@陲@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,5),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@怢@样@缵@陲@刁@敫@曻@髓@，,一,幯@红@局@丨@，,亇@幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@怢@样@斴@靝@癿@丈@趮@曻@夕@，,一,幯@红@欜@乆@，,耇@亇@幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@一,幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@双@屐@艪@奸@癿@怢@样@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmd．,礹@伕@追@序@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,6),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@礹@伕@追@序@隗@碈@刁@敫@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@礹@伕@追@序@斴@靝@遂@别@癿@闩@颓@曻@夕@，,亇@幯@红@欜@乆@，,耇@一,幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@曯@奸@圫@追@序@礹@伕@玪@塾@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bme．,咼@徲@缵@陲@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,7),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@咼@徲@缵@陲@刁@敫@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@咼@徲@斴@靝@癿@缵@炴@曻@夕@，,亇@幯@红@欜@乆@，,耇@一,幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@丈@斨@揋@卂@咼@徲@氯@幮@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmf．,丈@艪@乛@惪@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,8),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@丈@艪@乛@惪@刁@敫@曻@髓@，,亇@幯@红@癿@局@丨@，,一,幯@红@癿@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@癿@丈@艪@乛@惪@轾@夕@，,亇@幯@红@孡@甚@欜@乆@，,耇@一,幯@红@孡@甚@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@攴@歞@丈@艪@癿@乛@惪@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmg．,衇@丵@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,9),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@衇@丵@隗@碈@刁@敫@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@衇@丵@隗@碈@斴@靝@癿@衣@玫@曻@巩@，,亇@幯@红@欜@乆@，,耇@一,幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@矦@歞@巭@朄@癿@衇@丵@隗@碈@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k9bmh．,牴@秈@隗@碈@k^9bm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CCCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CJJCCJJ="":CJJCCJC="":for CJCCCC=0 to ubound(CJJCCCC):if CJJCCCC(CJCCCC,2)>0 then Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write CJJCCCC(CJCCCC,2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):CCJJJJ=CCCJJJC(split(Mid(CJJCCCC(CJCCCC,10),3),CCCJJCC("M"))):CJCJJCJ=formatnumber(CCJJJJ(0),2,-1):CJJCCJJ=CJJCCJJ & CCCJJCC("M") & CJJCCCC(CJCCCC,1):CJJCCJC=CJJCCJC & CCCJJCC("M") & CJCJJCJ:response.Write CJCJJCJ:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5m")):Response.Write formatnumber(CCJJJJ(1),2,-1):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn9lb__UClcdUIl")):Response.Write mid(CJJCCJJ,2):Response.Write(CCCJJCC("UGl")):Response.Write mid(CJJCCJC,2):Response.Write(CCCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC(" ,kA ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@牴@秈@隗@碈@刁@敫@曻@髓@，,亇@幯@红@局@丨@，,一,幯@红@癿@刁@敫@曻@佉@。,返@误@昉@，,丄@幯@红@孡@甚@圣@掍@沿@、,觻@诨@、,睜@眛@、,迖@飚@斴@靝@癿@闩@颓@曻@夕@，,亇@幯@红@欜@乆@，,耇@一,幯@红@盳@寴@轾@奸@。,返@揋@礵@栜@斴@序@诠@曯@兮@泣@丄@幯@红@咇@亇@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@觞@冮@返@亖@斴@靝@癿@闩@颓@。,】,k^Am") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CCCJJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJJCJCC:Response.Write(CCCJJCC(" ,U>:55@Ej ,")):Response.Write CJCCCCJ:Response.Write(CCCJJCC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CCCJJCC(" ,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(CCCJJCC(" ,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(CCCJJCC(" ,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(CCCJJCC(" ,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(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CCCJJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CCCJJCC(" ,4@?E6?EiV揋@礵@：,诠@斂@朧@幱@静@钃@寴@栲@朧@癿@宙@陀@刁@枋@，,句@昪@栲@來@，,诲@俘@孓@丵@(@C5斂@桞@吉@臥@衇@俩@攴@斂@孒@。,V[") & vbCrLf):Response.Write(CCCJJCC(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CCCJJCC(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CCCJJCC(" ,NX") & vbCrLf):Response.Write(CCCJJCC("NX") & vbCrLf):Response.Write(CCCJJCC("k^D4C:AEm") & vbCrLf)::Function CCCJJJC(ByVal CJJJJCJJ):Dim CJCCCC, CJCJCCC, CJCCJJJ, CJCCJJC, CJCCJCJ, CJCCJCC:CJCJCCC = UBound(CJJJJCJJ) + 1:CJCCJJJ = 0:For CJCCCC = 0 To CJCJCCC - 1:CJJJJCJJ(CJCCCC) = CDbl(CJJJJCJJ(CJCCCC)):CJCCJJJ = CJCCJJJ + CJJJJCJJ(CJCCCC):Next:CJCCJJC = CJCCJJJ / CJCJCCC:CJCCJCJ = 0:For CJCCCC = 0 To CJCJCCC - 1:CJCCJCJ = CJCCJCJ + (CJJJJCJJ(CJCCCC) - CJCCJJC) ^ 2:Next:CJCCJCC = Sqr(CJCCJCJ / CJCJCCC):CCCJJJC = Array(CJCCJJC, CJCCJCC):End Function:Response.Write(vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCJ=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCCJJCC(ByVal CCCJJCJ) Dim CJJCCJC, CJCCCC, CCJCJC CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCC = 1 To Len(CCCJJCJ) If CJCCCC <> CCJCJC Then CJJCCJC = AscW(Mid(CCCJJCJ, CJCCCC, 1)) If CJJCCJC >= 33 And CJJCCJC <= 79 Then CCCJJCC = CCCJJCC & Chr(CJJCCJC + 47) ElseIf CJJCCJC >= 80 And CJJCCJC <= 126 Then CCCJJCC = CCCJJCC & Chr(CJJCCJC - 47) Else CCJCJC = CJCCCC + 1 If Mid(CCCJJCJ, CCJCJC, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CJJCCJC + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJCCCC, 1) End If End If Next End Function %>