<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJJJC, CCJJCJ,CCJJCC, CCJCJJ, CCJCJC:Set CCJJJC = server.CreateObject(CJJJCCCC("ps~sq]r@??64E:@?")):CCJJJC.open Application(CJJJCCCC("r@??64E:@?$EC:?8")):Set CCJJCJ=CCJJJC::Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ:CJJCJJJ=Trim(Request.Cookies(CJJJCCCC("!$*|t|qt#"))):if CJJCJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJCCJ>0 then CCJCJC=CJJJCCCC("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(CJJJCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCJCCJ,CCJCCC) End IF end if:Sub CheckRight(CJJCJJJJ):dim CJJCJJC,CJJCJCJ:if CCJCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CCCCJCJ(CJJCJJJJ) then Call RedirectMessage(CJJJCCCC("朾@陋@W") & CJJCJJJJ & CJJJCCCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCCCJCJ(CJJCJJJJ):dim CJJCJJC,CJJCJCJ:CJJCJCJ=split(CJJCJJJJ,CJJJCCCC("[")):CCCCJCJ=False:for CJJCJJC=0 to ubound(CJJCJCJ):If Mid(CCCJJJ,CJJCJCJ(CJJCJJC),1)="1" then CCCCJCJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCCC("!$*|t|qt#"))="":CCJCCJ=0:CCCJCC=0:CCJCCC=Empty:CCCJCJ=0:CCCCJC=0:CCCCJJ=0:CCCJJC=0:CCCCCC=False:CJJJCCJ=False:CJJJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJCC,CJJCCJJ,CJJCJJC,CJJCCJC,CJJCCCJ:CJJCJCC=split(CJJCJJJ,CJJJCCCC("]")):if ubound(CJJCJCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCJCC(0)) or len(CJJCJCC(1))<>32 or len(CJJCJCC(2))<>32 then Call ClearMemberCookie else CJJCCJJ=CJJCJCC(1):for CJJCJJC=1 to len(CJJCCJJ):CJJCCJC=mid(CJJCCJJ,CJJCJJC,1):if isnumeric(CJJCCJC) then CJJCCCJ=CJJCCCJ & CJJCCJC if len(CJJCCCJ)=7 then exit for next:CJJCCJJ=CJJCJCC(2):if CJJCCCJ<>mid(CJJCCJJ,6,7) then Call ClearMemberCookie else CJJCCJC=mid(CJJCCJJ,18,10)/2:if CJJCCJC0 then for CJJCJJC=0 to ubound(str):if CJJCJJC>0 then response.Write CJJJCCCC("k3C ,^m") response.Write CJJCJJC & CJJJCCCC("i ,") & str(CJJCJJC):next else response.Write CJJJCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJCJJC=0 to ubound(str,2):response.Write CJJJCCCC("kE9 ,2=:8?lV=67EVm") & CJJCJJC & CJJJCCCC("k^E9m") next:response.Write CJJJCCCC("k^ECm"):for CJJCJJC=0 to ubound(str):response.Write CJJJCCCC("kECmkE9m") & CJJCJJC & CJJJCCCC("k^E9m"):for CJJCCJC=0 to ubound(str,2):response.Write CJJJCCCC("kE5m") & str(CJJCJJC,CJJCCJC) & CJJJCCCC("k^E5m"):next:response.Write CJJJCCCC("k^ECm"):next:response.Write CJJJCCCC("k^E23=6m") end if elseif isnull(str) then response.Write CJJJCCCC(",}F==.") else Response.Write replace(str,vbcrlf,CJJJCCCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJCJ,CJJCJJCC):dim CJJCJCC:CJJCJCC=CJJCJJCJ & CJJJCCCC("l") & CJJCJJCC & CJJJCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCCC("$6E\r@@<:6"),CJJCJCC):End Sub::::::sub ShowMessage(CJJCJCJJ):response.Charset="utf-8":Response.Write CJJJCCCC("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") & CJJCJCJJ & CJJJCCCC("k^5:Gmk^5:Gmk3Cm") end sub:Function CCCCJCC(CJJCCCC):if isnull(CJJCCCC) or trim(CJJCCCC)="" or not isnumeric(CJJCCCC) then CCCCJCC=false else Dim CJCJJJJ:Set CJCJJJJ = New RegExp:CJCJJJJ.Pattern = CJJJCCCC("/-5ZS"):CJCJJJJ.IgnoreCase = True:CCCCJCC = CJCJJJJ.test(CJJCCCC):set CJCJJJJ=nothing end if:End Function:Function CCCCCJJ(CJJCJCJC):dim CJCJJJC,CJCJJCJ:CJCJJJC=CJJJCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJC & CJJJCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJCJ=CCJJJC.execute(CJCJJJC):CCCCCJJ = CJCJJCJ(0):if isnull(CCCCCJJ) then CCCCCJJ=1 CJCJJCJ.close : set CJCJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CJCJJCJ.close : set CJCJJCJ=nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CCJJCC.Close : Set CCJJCC=Nothing:CJJJJJJJ.Close : Set CJJJJJJJ = Nothing:CCJJJC.Close : Set CCJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCCC("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJJCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJCCJ,CJJCJCCC):dim str,CJJCCCC:str=CJJJCCCC("!$*0") & Ucase(CJJCJCCJ):if Session(str)<>"" then CJJCCCC=DateDiff(CJJJCCCC("D"),Session(str),Time):if CJJCCCC0 then Call ConnClose:Call ShowMessage(CJJJCCCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJCCC & CJJJCCCC(" ,种@，,迓@剤@ ,") & CJJCJCCC-CJJCCCC & CJJJCCCC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ End Sub::Class jTree:Private CCJCJC, CJCJCJJ, CJCJCJC, CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:Private Sub Class_Initialize():CJCJCJC = 0:CJCJCCJ = 0:CJCCJCJ=10:End Sub:Public Property Let Table(CJJCCJJC):if CJJCCJJC="" then Call RedirectMessage(CJJJCCCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJCJCCC=CJJCCJJC:CJCCJJJ=CJJJCCCC("!$*0") & UCase(CJCJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCCC:End Property:::Private Sub GetTreeArray():Dim CJJCJJC, CJJCCJC, CJCCJCC,CJCCCJJ:CJCJCJJ = Application(CJCCJJJ):If Not IsArray(CJCJCJJ) Then CCJCJC = CJJJCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCCC:if CJCCJJC<>"" then CCJCJC=CCJCJC & CJJJCCCC(" ,H96C6 ,") & CJCCJJC set CJCCJCC=CCJJJC.execute(CCJCJC):CJCCCJJ=CJCCJCC(0):if CJCCCJJ=0 then Call RedirectMessage(CJJJCCCC("柠@话@W") & CJCJCCC & CJJJCCCC("^") & CJCCJJC & CJJJCCCC("X沜@朄@绎@林@敫@捩@")) CJCJCCJ=CJCCCJJ+CJCCJCJ:ReDim CJCJCJJ(CJCJCCJ, 4):CCJCJC = CJJJCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H:E9 ,W?@=@4"" then CCJCJC=CCJCJC & CJJJCCCC(" ,H96C6 ,") & CJCCJJC CCJCJC=CCJCJC & CJJJCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCJCC=CCJJJC.execute(CCJCJC):For CJJCJJC = 1 To CJCCCJJ:For CJJCCJC = 0 To 4:CJCJCJJ(CJJCJJC, CJJCCJC) = CJCCJCC(CJJCCJC):if IsNull(CJCJCJJ(CJJCJJC,4)) then CJCJCJJ(CJJCJJC,4)=0 If CJCJCJJ(CJJCJJC,2)="" then CJCJCJJ(CJJCJJC,2)=CJJJCCCC(",穵@.") Next:CJCCJCC.MoveNext:Next:CJCCJCC.Close: Set CJCCJCC = Nothing:for CJJCJJC=CJCJCCJ-(CJCCJCJ-1) to CJCJCCJ:CJCJCJJ(CJJCJJC,0)=CJJCJJC:next:Application.Lock():Application(CJCCJJJ) = CJCJCJJ:Application.UnLock() else CJCJCCJ=Ubound(CJCJCJJ) End If:End Sub::::Public Function GetChild(CJJJJJCJ):Dim CJJCJJC, Str:CJJJJJCJ=CLng(CJJJJJCJ):For CJJCJJC = 1 To CJCJCCJ:If CJCJCJJ(CJJCJJC, 1) = CJJJJJCJ Then Str = Str & CJJJCCCC("M") & CJCJCJJ(CJJCJJC, 0) & CJJJCCCC("M") & CJCJCJJ(CJJCJJC,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJJJCCCC("M")):End Function:Private Function CJJJJCJJ(CJJJJJCJ):dim CJJCJJC,CJCCCJC:CJJJJCJJ=0:CJCCCJC=CStr(CJJJJJCJ):if CJCCCJC<>"0" then for CJJCJJC=1 to CJCJCCJ:If CStr(CJCJCJJ(CJJCJJC, 0))=CJCCCJC Then CJJJJCJJ = CJJCJJC:Exit For End If:Next end if:End Function:Public Function GetCurName(CJJJJJCJ):if Cstr(CJJJJJCJ)="0" then GetCurName=CJJJCCCC("栴@") else Dim CJJCJJC,CJCCJCC:CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCJJC>0 then GetCurName=CJCJCJJ(CJJCJJC,2):if GetCurName="" then set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then Call RedirectMessage(CJJJCCCC("xs（,") & CJJJJJCJ & CJJJCCCC("）,朥@批@别@")) GetCurName=CJCCJCC(1):Call UpdateCache(CJJJJJCJ,CJCCJCC(0),GetCurName,CJCCJCC(2),CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing end if else set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then Call RedirectMessage(CJJJCCCC("xs（,") & CJJJJJCJ & CJJJCCCC("）,朥@批@别@")) GetCurName=CJCCJCC(1):Call UpdateCache(CJJJJJCJ,CJCCJCC(0),GetCurName,CJCCJCC(2),CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing end if end if:End Function:::Public Function CJJJJCCJ(CJJJJJCJ):Dim CJJCJJC,CJCCCCJ:CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCJJC=0 then CJCCCCJ=CJJJJCCC(CJJJJJCJ) else CJCCCCJ=CJCJCJJ(CJJCJJC,3):if isnull(CJCCCCJ) or CJCCCCJ="" then CJCCCCJ=CJJJJCCC(CJJJJJCJ) elseif Mid(CJCCCCJ,instrrev(CJCCCCJ,CJJJCCCC("["))+1)<>CStr(CJJJJJCJ) then CJCCCCJ=CJJJJCCC(CJJJJJCJ) elseif Left(CJCCCCJ,1)=CJJJCCCC("[") then CJCCCCJ=CJJJJCCC(CJJJJJCJ) end if end if:CJJJJCCJ=CJCCCCJ:End Function:Private Function CJJJJCCC(CJJJJJCJ):dim CJCCCJC:CJCCCJC=CStr(CJJJJJCJ):if CJCCCJC="0" then CJJJJCCC="" else dim CJCCJCC:set CJCCJCC=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCCJCC.eof then Call UpdateCache(CJJJJJCJ,"","","",""):Call RedirectMessage(CJJJCCCC("顴@盩@（,xs：,") & CJJJJJCJ & CJJJCCCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCCJCC(0)=0 then CJJJJCCC="0," & CJJJJJCJ else CJJJJCCC=CJJJJCCJ(CJCCJCC(0)) & CJJJCCCC("[") & CJJJJJCJ end if:if CJCCJCC(2)<>CJJJJCCC then CCJJJC.execute CJJJCCCC("FA52E6 ,") & CJCJCCC & CJJJCCCC(" ,D6E ,A2E9lV") & CJJJJCCC & CJJJCCCC("V ,H96C6 ,:5l") & CJJJJJCJ else CJJJJCCC=CJCCJCC(2) end if end if:Call UpdateCache(CJJJJJCJ,CJCCJCC(0),CJCCJCC(1),CJJJJCCC,CJCCJCC(3)):CJCCJCC.Close: Set CJCCJCC = Nothing end if:End Function::::Public Function IsParent(CJJCCJCJ, CJJCCJCC):IsParent=InStr(CJJJJCCJ(CJJCCJCC) & CJJJCCCC("["), CJJJCCCC("[") & CJJCCJCJ & CJJJCCCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJCJ):dim CJCCCCJ:CJCCCCJ=CJJJJCCJ(CJJJJJCJ):Sql_GetChildren = CJCJCCC & CJJJCCCC("0A2E9ZV[V ,=:<6 ,V") & CJCCCCJ & CJJJCCCC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJJJ End Sub:Public Sub UpdateCache(CJJJJJCJ,CJJCCCJJ,CJJCCCJC,CJCCCCJ,CJJCCCCJ):dim CJJCJJC,CJJCCJC:CJJJJJCJ=CLng(CJJJJJCJ):CJJCJJC=CJJJJCJJ(CJJJJJCJ):if CJJCCCJJ="" and CJJCCCJC="" and CJCCCCJ="" and CJJCCCCJ="" then if CJJCJJC>0 then for CJJCCJC=1 to 4:CJCJCJJ(CJJCJJC,CJJCCJC)=Null:next end if else if CJJCJJC=0 then for CJJCCJC=1 to CJCJCCJ:if CJCJCJJ(CJJCCJC,1) & ""="" then CJJCJJC=CJJCCJC:exit for end if:next end if:if CJJCJJC=0 then Call ClearCache else CJCJCJJ(CJJCJJC,0)=CLng(CJJJJJCJ):if CJJCCCJJ<>"" then CJCJCJJ(CJJCJJC,1)=CLng(CJJCCCJJ) if CJJCCCJC<>"" then CJCJCJJ(CJJCJJC,2)=CJJCCCJC if CJCCCCJ<>"" then CJCJCJJ(CJJCJJC,3)=CJCCCCJ if CJJCCCCJ<>"" then CJCJCJJ(CJJCJJC,4)=CLng(CJJCCCCJ) end if end if:if CJJCJJC>0 then Application.Lock():Application(CJCCJJJ) = CJCJCJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJJCJCJJ):Call ConnClose:Response.Write CJJCJCJJ:Response.End:End Sub:Private Function CCCCCJJ():CCCCCJJ=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CJCJJCJ:set CJCJJCJ=CCJJJC.execute(CJJJCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCCC & CJJJCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CJCJJCJ(0):CJCJJCJ.Close: Set CJCJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJC=155:Call CheckRight("54,81"):Call CheckQueryTime(CJJJCCCC("%6DE0#6A@CE"),15):dim CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:CCJJCJJ=Request.QueryString(CJJJCCCC("$49@@=")):CJCCCCC=Request.QueryString(CJJJCCCC("s6AE")):CCJJJJJ=Request.QueryString(CJJJCCCC("vC256")):CCJJJJC=Request.QueryString(CJJJCCCC("vC@FA")):CCJJCJC=Request.QueryString(CJJJCCCC("E6DEEJA6")):CCJJJCJ=Request.QueryString(CJJJCCCC("E`")):CCJJJCC=Request.QueryString(CJJJCCCC("Ea")):if not CCCCJCC(CJCCCCC) then Call RedirectMessage(CJJJCCCC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CJCJCJJ:set CJCJCJJ=new jtree:CJCJCJJ.table=CJJJCCCC(">6>36C0EJA6"):if not CJCJCJJ.IsParent(CCCJJC,CJCCCCC) then Call RedirectMessage(CJJJCCCC("诠@苾@囯@W") & CJCCCCC & CJJJCCCC("X丈@圣@患@W") & CCCJJC & CJJJCCCC("X癿@箜@琁@苾@囯@冀@。,")) dim CJJJCJCC:CJJJCJCC=CJCJCJJ.GetChild(CJCCCCC):if ubound(CJJJCJCC)<0 then Call RedirectMessage(CJJJCCCC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) dim CCJJCCJ:CCJJCCJ=CJCJCJJ.GetCurName(CJCCCCC):dim CJJCJJC,CJJCCJC,CJJCCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:dim CCJCJCJ():redim CCJCJCJ((ubound(CJJJCJCC)-1)/2,10):for CJJCJJC=0 to ubound(CJJJCJCC)-1 step 2:CJJCCCJ=CJJCJJC/2:CCJCJCJ(CJJCCCJ,0)=CJJJCJCC(CJJCJJC):CCJCJCJ(CJJCCCJ,1)=CJJJCJCC(CJJCJJC+1):for CJJCCJC=2 to ubound(CCJCJCJ,2):CCJCJCJ(CJJCCCJ,CJJCCJC)=0:next:CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCCCJ,1):next:CCJJCCC=mid(CCJJCCC,2):dim CCJCJCC(1,1):CCJCJCC(0,0)=CJJJCCCC("甲@"):CCJCJCC(1,0)=CJJJCCCC("奮@"):for CJJCJJC=0 to 1:CCJCJCC(CJJCJJC,1)=0:next:dim CJJCJCJ,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:CCJCCCJ=Date:CCJCCCC=cdate(CJJJCCCC("a___\`\`")):dim CCCJJJC(7,7):for CJJCJJC=0 to ubound(CCCJJJC):for CJJCCJC=0 to ubound(CCCJJJC,2):CCCJJJC(CJJCJJC,CJJCCJC)=0:next:next:CCJCJC=CJJJCCCC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CCJJCJJ else CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,") & CJCJCJJ.Sql_GetChildren(CJCCCCC) if CCCCJCC(CCJJJJJ) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,8C256l") & CCJJJJJ if CCCCJCC(CCJJJJC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,4FDE@>8C@FAl") & CCJJJJC if CCCCJCC(CCJJCJC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,EJA6l") & CCJJCJC if isdate(CCJJJCJ) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,52E6E:>6mlV") & CCJJJCJ & CJJJCCCC("V") if isdate(CCJJJCC) then CCJCJC=CCJCJC & CJJJCCCC(" ,2?5 ,52E6E:>6kV") & cdate(CCJJJCC)+1 & CJJJCCCC("V") set CCJJCC=CCJJJC.execute(CCJCJC):if CCJJCC.eof then Call RedirectMessage(CJJJCCCC("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,")) while not CCJJCC.eof:CJJCJCJ=split(CCJJCC(4),CJJJCCCC("M")):for CJJCJJC=0 to 7:CJJCCCJ=CJJCJCJ(CJJCJJC):CCCJJJC(CJJCJJC,CJJCCCJ)=CCCJJJC(CJJCJJC,CJJCCCJ)+1:next:CJJCJCJ=split(CCJJCC(5),CJJJCCCC("M")):for CJJCJJC=0 to 7:CCCJJJC(CJJCJJC,5)=CCCJJJC(CJJCJJC,5) & CJJJCCCC("M") & CJJCJCJ(CJJCJJC):next:for CJJCJJC=0 to ubound(CCJCJCJ):if instr(CCJJCC(0) & CJJJCCCC("["),CJJJCCCC("[") & CCJCJCJ(CJJCJJC,0) & CJJJCCCC("["))>0 then CCJCJCJ(CJJCJJC,2)=CCJCJCJ(CJJCJJC,2)+1:for CJJCCJC=0 to 7:CJJCCCJ=CJJCCJC+3:CCJCJCJ(CJJCJJC,CJJCCCJ)=CCJCJCJ(CJJCJJC,CJJCCCJ) & CJJJCCCC("M") & CJJCJCJ(CJJCCJC):next:exit for end if:next:if CCJJCC(1) then CJJCCJC=0 else CJJCCJC=1 CCJCJCC(CJJCCJC,1)=CCJCJCC(CJJCCJC,1)+1:CJJCCCJ=CCJJCC(3):if CJJCCCJCCJCCCC then CCJCCCC=CJJCCCJ CCCJJJJ=CCCJJJJ & CJJJCCCC("M") & CCJJCC(2):CCJCCJJ=CCJCCJJ+1:CCJJCC.movenext:wend:for CJJCJJC=0 to 7:CJJCJCJ=CJJJCCJC(split(Mid(CCCJJJC(CJJCJJC,5),3),CJJJCCCC("M"))):CCCJJJC(CJJCJJC,6)=FormatNumber(CJJCJCJ(0),2,-1):CCCJJJC(CJJCJJC,7)=FormatNumber(CJJCJCJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCCC("k9625m") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCCC("kE:E=6m")):Response.Write CCJJCCJ:Response.Write(CJJJCCCC("\孡@乛@追@序@怢@浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("^Y昹@礵@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCCCC("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCCCC("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJCCCC("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CJJJCCCC("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCCC("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJCCCC("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCCCC("^Y扎@卫@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCCCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCCC("RA286\4@?E6?E ,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(CJJJCCCC("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("k^9625m") & vbCrLf):Response.Write(CJJJCCCC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write CCJJCCC:Response.Write(CJJJCCCC("Qm") & vbCrLf):Response.Write(CJJJCCCC("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kP\\冀@宴@\\m") & vbCrLf):Response.Write(CJJJCCCC(" ,k9`m")):Response.Write CCJJCCJ:Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC(" ,孡@乛@追@序@怢@浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAmpp%（,尊@丄@尊@囖@）,昪@臥@访@释@衣@，,只@仠@浆@柠@孡@甚@癿@孡@乛@追@序@怢@犱@冰@，,匀@拧@孡@乛@忼@庡@、,吧@诹@斴@泐@、,孡@乛@扻@未@、,宱@庨@玪@塾@、,孡@栜@玪@塾@、,狧@竆@怢@咇@毀@劖@、,徾@躦@偠@庲@筄@斴@靝@癿@冀@宴@。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm")):Response.Write formatdatetime(CCJCCCJ,1):Response.Write(CJJJCCCC("～,")):Response.Write formatdatetime(CCJCCCC,1):Response.Write(CJJJCCCC("k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):response.Write CJJJCCCC("公@") & CCJCJCC(0,1)+CCJCJCC(1,1) & CJJJCCCC("亵@。,共@丨@甲@甚@") & CCJCJCC(0,1) & CJJJCCCC("亵@，,奮@甚@") & CCJCJCC(1,1) & CJJJCCCC("亵@，,"):for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then response.Write CCJCJCJ(CJJCJJC,1) & CJJJCCCC("：,") & CCJCJCJ(CJJCJJC,2) & CJJJCCCC("亵@，,") next:CJJCJCJ=CJJJCCJC(split(Mid(CCCJJJJ,2),CJJJCCCC("M"))):response.Write CJJJCCCC("幮@坂@幯@齿@") & formatnumber(CJJCJCJ(0),2,-1) & CJJJCCCC("屼@（,栂@凁@巩@") & formatnumber(CJJCJCJ(1),2,-1) & CJJJCCCC("）,。,"):Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm怶@刁@仞@衣@孡@乛@追@序@怢@癿@怶@低@氯@幮@。,怶@刁@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(7,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@孡@乛@追@序@怢@丵@")):Response.Write CJJJCCJJ(CCCJJJC(7,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(7,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(7,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(7,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(7,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(7,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(7,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("，,")):Response.Write CCCJJJC(7,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(7,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(7,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(7,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm孡@乛@追@序@怢@壿@争@丨@筄@仠@丆@咇@巩@筄@癿@亵@敫@每@來@卛@")):Response.Write FormatPercent((CCCJJJC(7,3)+CCCJJJC(7,4))/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("，,误@昉@返@郣@刁@孡@甚@癿@孡@乛@追@序@怢@丈@宴@之@覽@。,返@揋@礵@栜@斴@序@诠@釂@发@盳@序@癿@接@斸@杠@帩@劤@返@亖@孡@甚@逋@渋@揋@髓@孡@乛@追@序@怢@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(7,0) & CJJJCCCC("[") & CCCJJJC(7,1) & CJJJCCCC("[") & CCCJJJC(7,2) & CJJJCCCC("[") & CCCJJJC(7,3) & CJJJCCCC("[") & CCCJJJC(7,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bma．,孡@乛@忼@庡@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm孡@乛@忼@庡@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@孡@乛@忼@庡@昪@吡@竪@歞@。,孡@乛@忼@庡@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(0,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@孡@乛@忼@庡@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(0,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(0,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(0,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(0,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(0,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(0,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(0,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(0,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(0,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(0,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(0,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(0,0) & CJJJCCCC("[") & CCCJJJC(0,1) & CJJJCCCC("[") & CCCJJJC(0,2) & CJJJCCCC("[") & CCCJJJC(0,3) & CJJJCCCC("[") & CCCJJJC(0,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmb．,吧@诹@斴@泐@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm吧@诹@斴@泐@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@吧@诹@斴@泐@昪@吡@秌@孡@。,吧@诹@斴@泐@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(1,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@吧@诹@斴@泐@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(1,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(1,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(1,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(1,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(1,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(1,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(1,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(1,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(1,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(1,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(1,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(1,0) & CJJJCCCC("[") & CCCJJJC(1,1) & CJJJCCCC("[") & CCCJJJC(1,2) & CJJJCCCC("[") & CCCJJJC(1,3) & CJJJCCCC("[") & CCCJJJC(1,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmc．,孡@乛@扻@未@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm孡@乛@扻@未@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@孡@乛@斴@泐@昪@吡@秌@孡@。,孡@乛@扻@未@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(2,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@孡@乛@扻@未@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(2,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(2,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(2,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(2,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(2,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(2,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(2,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(2,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(2,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(2,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(2,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(2,0) & CJJJCCCC("[") & CCCJJJC(2,1) & CJJJCCCC("[") & CCCJJJC(2,2) & CJJJCCCC("[") & CCCJJJC(2,3) & CJJJCCCC("[") & CCCJJJC(2,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmd．,宱@庨@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm宱@庨@玪@塾@四@孋@盩@癿@圣@争@考,柠@孡@甚@圣@宱@采@癿@孡@乛@玪@塾@昪@吡@艪@奸@。,宱@庨@玪@塾@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(3,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@宱@庨@玪@塾@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(3,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(3,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(3,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(3,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(3,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(3,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(3,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(3,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(3,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(3,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(3,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(3,0) & CJJJCCCC("[") & CCCJJJC(3,1) & CJJJCCCC("[") & CCCJJJC(3,2) & CJJJCCCC("[") & CCCJJJC(3,3) & CJJJCCCC("[") & CCCJJJC(3,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bme．,孡@栜@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm孡@栜@玪@塾@四@孋@又@昛@癿@昪@孡@甚@圣@孡@栜@癿@孡@乛@玪@塾@昪@吡@艪@奸@。,孡@栜@玪@塾@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(4,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@孡@栜@玪@塾@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(4,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(4,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(4,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(4,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(4,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(4,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(4,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(4,3):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(4,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(4,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(4,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(4,0) & CJJJCCCC("[") & CCCJJJC(4,1) & CJJJCCCC("[") & CCCJJJC(4,2) & CJJJCCCC("[") & CCCJJJC(4,3) & CJJJCCCC("[") & CCCJJJC(4,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmf．,狧@竆@怢@咇@毀@劖@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm狧@竆@怢@咇@毀@劖@四@孋@又@昛@癿@昪@孡@甚@圣@孡@乛@丨@戻@衣@玫@凵@癿@狧@竆@怢@咇@毀@劖@氯@幮@。,狧@竆@怢@咇@毀@劖@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(5,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@狧@竆@怢@咇@毀@劖@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(5,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(5,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(5,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(5,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(5,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(5,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(5,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(5,2):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(5,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(5,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(5,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(5,0) & CJJJCCCC("[") & CCCJJJC(5,1) & CJJJCCCC("[") & CCCJJJC(5,2) & CJJJCCCC("[") & CCCJJJC(5,3) & CJJJCCCC("[") & CCCJJJC(5,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmg．,徾@躦@偠@庲@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm徾@躦@偠@庲@四@孋@又@昛@癿@昪@孡@甚@癿@躦@徾@偠@庲@氯@幮@。,徾@躦@偠@庲@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write CCCJJJC(6,6):Response.Write(CJJJCCCC("，,误@昉@孡@甚@怶@低@癿@躦@徾@偠@庲@壿@争@")):Response.Write CJJJCCJJ(CCCJJJC(6,6)):Response.Write(CJJJCCCC("氯@幮@。,圣@")):Response.Write CCJCCJJ:Response.Write(CJJJCCCC("亵@丨@，,公@朄@")):Response.Write CCCJJJC(6,0):Response.Write(CJJJCCCC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(6,0)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(6,1):Response.Write(CJJJCCCC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(6,1)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(6,2):Response.Write(CJJJCCCC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(6,2)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(6,2):Response.Write(CJJJCCCC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(6,3)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("；,")):Response.Write CCCJJJC(6,4):Response.Write(CJJJCCCC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write FormatPercent(CCCJJJC(6,4)/CCJCCJJ,2,-1):Response.Write(CJJJCCCC("。,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write CCCJJJC(6,0) & CJJJCCCC("[") & CCCJJJC(6,1) & CJJJCCCC("[") & CCCJJJC(6,2) & CJJJCCCC("[") & CCCJJJC(6,3) & CJJJCCCC("[") & CCCJJJC(6,4):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am亏@、,丈@吇@四@孋@癿@徒@刁@寴@每@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m孡@乛@忼@庡@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(0,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(0,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m吧@诹@斴@泐@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(1,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(1,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m孡@乛@扻@未@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(2,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(2,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m宱@庨@玪@塾@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(3,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(3,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m孡@栜@玪@塾@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(4,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(4,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m狧@竆@怢@咇@毀@劖@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(5,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(5,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m徾@躦@偠@庲@k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(6,6):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCCJJJC(6,7):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl孡@乛@忼@庡@M吧@诹@斴@泐@M孡@乛@扻@未@M宱@庨@玪@塾@M孡@栜@玪@塾@M狧@竆@怢@咇@毀@劖@M徾@躦@偠@庲@UGl")):Response.Write CCCJJJC(0,6) & CJJJCCCC("[") & CCCJJJC(1,6) & CJJJCCCC("[") & CCCJJJC(2,6) & CJJJCCCC("[") & CCCJJJC(3,6) & CJJJCCCC("[") & CCCJJJC(4,6) & CJJJCCCC("[") & CCCJJJC(5,6) & CJJJCCCC("[") & CCCJJJC(6,6):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,k9am全@、,丈@吇@幯@红@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,8),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@怶@刁@襼@昹@葒@髓@争@丄@幯@红@癿@。,返@误@昉@囖@幯@红@孡@甚@癿@怶@低@孡@乛@追@序@怢@襼@奸@争@丄@幯@红@癿@，,返@揋@礵@栜@斴@序@诠@曯@力@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@孡@乛@追@序@怢@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bma．,孡@乛@忼@庡@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,3),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@孡@乛@忼@庡@徒@刁@襼@昹@葒@髓@争@丄@幯@红@癿@。,返@误@昉@，,囖@幯@红@孡@甚@癿@孡@乛@忼@庡@襼@每@丄@幯@红@癿@竪@歞@、,秪@杼@。,返@揋@礵@栜@斴@序@诠@寴@丄@幯@红@孡@甚@癿@孡@乛@忼@庡@力@仠@弐@寷@，,帩@劤@仑@仧@埴@其@歞@硩@癿@孡@乛@忼@庡@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmb．,吧@诹@斴@泐@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,4),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@吧@诹@斴@泐@徒@刁@襼@昹@葒@髓@争@丄@幯@红@癿@。,返@揋@礵@囖@幯@红@孡@甚@癿@吧@诹@斴@泐@襼@奸@争@丄@幯@红@癿@，,栜@斴@序@诠@曯@力@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@掇@揜@曯@力@秌@孡@癿@吧@诹@斴@泐@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmc．,孡@乛@扻@未@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,5),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@孡@乛@扻@未@徒@刁@襼@昹@葒@髓@争@丄@幯@红@癿@。,返@揋@礵@囖@幯@红@孡@甚@癿@孡@乛@斴@泐@襼@奸@争@丄@幯@红@癿@，,栜@斴@序@诠@曯@力@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@掇@揜@曯@力@秌@孡@癿@孡@乛@斴@泐@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmd．,宱@庨@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,6),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@、,囖@幯@红@癿@宱@庨@玪@塾@徒@刁@沜@朄@巩@廽@。,返@误@昉@，,丄@幯@红@咇@囖@幯@红@孡@甚@癿@宱@庨@孡@乛@玪@塾@巩@丈@夕@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bme．,孡@栜@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,7),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@孡@栜@玪@塾@徒@刁@襼@髓@争@丄@幯@红@癿@。,返@误@昉@，,囖@幯@红@孡@甚@圣@孡@栜@癿@孡@乛@氖@囯@襼@奸@争@丄@幯@红@孡@甚@癿@。,返@揋@礵@栜@斴@序@诠@夕@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@圣@孡@栜@癿@孡@乛@氖@囯@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmf．,狧@竆@怢@咇@毀@劖@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,8),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,囖@幯@红@癿@狧@竆@怢@咇@毀@劖@徒@刁@襼@髓@争@丄@幯@红@癿@。,返@误@昉@，,囖@幯@红@孡@甚@圣@孡@乛@丨@戻@低@玫@凵@癿@狧@竆@怢@咇@毀@劖@襼@每@丄@幯@红@癿@曯@奸@。,栜@斴@序@诠@曯@力@兮@泣@丄@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@圣@孡@乛@丨@癿@狧@竆@怢@咇@毀@劖@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC(" ,k9bmg．,徾@躦@偠@庲@k^9bm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")):CCJJCCC="":CCJCJJJ="":for CJJCJJC=0 to ubound(CCJCJCJ):if CCJCJCJ(CJJCJJC,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,kECm") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write CCJCJCJ(CJJCJJC,2):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):CJJCJCJ=CJJJCCJC(split(Mid(CCJCJCJ(CJJCJJC,9),3),CJJJCCCC("M"))):CCJCCJC=formatnumber(CJJCJCJ(0),2,-1):CCJJCCC=CCJJCCC & CJJJCCCC("M") & CCJCJCJ(CJJCJJC,1):CCJCJJJ=CCJCJJJ & CJJJCCCC("M") & CCJCCJC:response.Write CCJCCJC:Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,kE5m")):Response.Write formatnumber(CJJCJCJ(1),2,-1):Response.Write(CJJJCCCC("k^E5m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write mid(CCJJCCC,2):Response.Write(CJJJCCCC("UGl")):Response.Write mid(CCJCJJJ,2):Response.Write(CJJJCCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,丄@幯@红@癿@徾@躦@偠@庲@徒@刁@襼@髓@争@囖@幯@红@癿@。,返@误@昉@，,丄@幯@红@孡@甚@躦@徾@偠@庲@犱@冰@襼@伓@争@囖@幯@红@孡@甚@癿@。,返@揋@礵@栜@斴@序@诠@夕@兮@泣@囖@幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@逋@歠@揋@髓@躦@徾@偠@庲@氯@幮@。,】,k^Am") & vbCrLf):Response.Write(CJJJCCCC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC("k3Cm") & vbCrLf):Response.Write(CJJJCCCC("k7@@E6Cm") & vbCrLf):Response.Write(CJJJCCCC(" ,k5:G ,4=2DDlQ=Qm")):Response.Write CCJJCCJ:Response.Write(CJJJCCCC(" ,U>:55@Ej ,孡@乛@追@序@怢@浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\AC:?EQm扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\H@C5Qm俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k3FEE@? ,:5lQ3E?\E@AQm别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCCCC(" ,SWVR3E?\E@AVX]@?WV4=:4=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJCCCC("NX") & vbCrLf):Response.Write(CJJJCCCC("k^D4C:AEm") & vbCrLf)::Function CJJJCCJJ(CJJCJJJJ):dim CCCJJCJ,CJJCCCC:CJJCCCC=csng(CJJCJJJJ):if CJJCCCC>=65 then CCCJJCJ=CJJJCCCC("伓@筄@") elseif CJJCCCC>=55 then CCCJJCJ=CJJJCCCC("丨@丅@") elseif CJJCCCC>=45 then CCCJJCJ=CJJJCCCC("丨@筄@") elseif CJJCCCC>=35 then CCCJJCJ=CJJJCCCC("丨@丆@") else CCCJJCJ=CJJJCCCC("巩@筄@") end if:CJJJCCJJ=CCCJJCJ:End Function:Function CJJJCCJC(ByVal CJCJJJJJ):Dim CJJCJJC, CCCJJCC, CCCJCJJ, CCCJCJC, CCCJCCJ, CCCJCCC:CCCJJCC = UBound(CJCJJJJJ) + 1:CCCJCJJ = 0:For CJJCJJC = 0 To CCCJJCC - 1:CJCJJJJJ(CJJCJJC) = CDbl(CJCJJJJJ(CJJCJJC)):CCCJCJJ = CCCJCJJ + CJCJJJJJ(CJJCJJC):Next:CCCJCJC = CCCJCJJ / CCCJJCC:CCCJCCJ = 0:For CJJCJJC = 0 To CCCJJCC - 1:CCCJCCJ = CCCJCCJ + (CJCJJJJJ(CJJCJJC) - CCCJCJC) ^ 2:Next:CCCJCCC = Sqr(CCCJCCJ / CCCJJCC):CJJJCCJC = Array(CCCJCJC, CCCJCCC):End Function:Response.Write(vbCrLf):Response.Write(CJJJCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCC.Close:Set CCJJCC=Nothing:CCJJJC.Close:Set CCJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJCCCC(ByVal CJJJCCCJ) Dim CCJCJJJ, CJJCJJC, CJJCCCC CJJJCCCJ = Replace(CJJJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCJJC = 1 To Len(CJJJCCCJ) If CJJCJJC <> CJJCCCC Then CCJCJJJ = AscW(Mid(CJJJCCCJ, CJJCJJC, 1)) If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then CJJJCCCC = CJJJCCCC & Chr(CCJCJJJ + 47) ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then CJJJCCCC = CJJJCCCC & Chr(CCJCJJJ - 47) Else CJJCCCC = CJJCJJC + 1 If Mid(CJJJCCCJ, CJJCCCC, 1) = Chr(64) Then CJJJCCCC = CJJJCCCC & ChrW(CCJCJJJ + 5) Else CJJJCCCC = CJJJCCCC & Mid(CJJJCCCJ, CJJCJJC, 1) End If End If Next End Function %>