<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CJJCJCJC("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CJJCJCJC("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CJJCJCJC("!$*|t|qt#"))):if CCCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJCJCC>0 then CJCJCJ=CJJCJCJC("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(CJJCJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJCJCC,CJCCJJ) End IF end if:Sub CheckRight(CJJCJCCJ):dim CCCCCJ,CCCCCC:if CJCJCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJJJJJJ(CJJCJCCJ) then Call RedirectMessage(CJJCJCJC("朾@陋@W") & CJJCJCCJ & CJJCJCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJJJJJJ(CJJCJCCJ):dim CCCCCJ,CCCCCC:CCCCCC=split(CJJCJCCJ,CJJCJCJC("[")):CJJJJJJJ=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then CJJJJJJJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJCJC("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCCJ,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJC,CJJCJCJC("]")):if ubound(CJJJJJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then Call ClearMemberCookie else CJJJJJC=CJJJJJJ(1):for CCCCCJ=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ if len(CJJJJCC)=7 then exit for next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then Call ClearMemberCookie else CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ0 then for CCCCCJ=0 to ubound(str):if CCCCCJ>0 then response.Write CJJCJCJC("k3C ,^m") response.Write CCCCCJ & CJJCJCJC("i ,") & str(CCCCCJ):next else response.Write CJJCJCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CCCCCJ=0 to ubound(str,2):response.Write CJJCJCJC("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CJJCJCJC("k^E9m") next:response.Write CJJCJCJC("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CJJCJCJC("kECmkE9m") & CCCCCJ & CJJCJCJC("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CJJCJCJC("kE5m") & str(CCCCCJ,CJJJJCJ) & CJJCJCJC("k^E5m"):next:response.Write CJJCJCJC("k^ECm"):next:response.Write CJJCJCJC("k^E23=6m") end if elseif isnull(str) then response.Write CJJCJCJC(",}F==.") else Response.Write replace(str,vbcrlf,CJJCJCJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCCJCC,CJJCCCJJ):dim CJJJJJJ:CJJJJJJ=CJJCCJCC & CJJCJCJC("l") & CJJCCCJJ & CJJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCJC("$6E\r@@<:6"),CJJJJJJ):End Sub::::::sub ShowMessage(CJJCCCJC):response.Charset="utf-8":Response.Write CJJCJCJC("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") & CJJCCCJC & CJJCJCJC("k^5:Gmk^5:Gmk3Cm") end sub:Function CJJJJJCJ(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then CJJJJJCJ=false else Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJJCJCJC("/-5ZS"):CJJJCJC.IgnoreCase = True:CJJJJJCJ = CJJJCJC.test(CJJJCJJ):set CJJJCJC=nothing end if:End Function:Function CJJJJJCC(CJJCCCCJ):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CJJCJCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCCCJ & CJJCJCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCCJ.execute(CJJJCCJ):CJJJJJCC = CJJJCCC(0):if isnull(CJJJJJCC) then CJJJJJCC=1 CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJCC=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CJJJJCCC.Close : Set CJJJJCCC = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCJC("!$*0|6DD286"),server.URLEncode(CJJCCCJC)):Response.Redirect CJJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCCCCC,CJCJJJJJ):dim str,CJJJCJJ:str=CJJCJCJC("!$*0") & Ucase(CJJCCCCC):if Session(str)<>"" then CJJJCJJ=DateDiff(CJJCJCJC("D"),Session(str),Time):if CJJJCJJ0 then Call ConnClose:Call ShowMessage(CJJCJCJC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJJJJJ & CJJCJCJC(" ,种@，,迓@剤@ ,") & CJCJJJJJ-CJJJCJJ & CJJCJCJC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJJJJC):dim CCCCCJ,CJJJJCJ,CJJCJJC,CJJCJCJ:on error resume next:CJJCJJC=ubound(CJCJJJJC):CJJCJCJ=ubound(CJCJJJJC,2):if err.number<>0 then err.clear:for CCCCCJ=0 to CJJCJJC:CJCJJJJC(CCCCCJ)=0:next else for CCCCCJ=0 to CJJCJJC:for CJJJJCJ=0 to CJJCJCJ:CJCJJJJC(CCCCCJ,CJJJJCJ)=0:next:next end if:End Sub:::Sub ClearCache(CJCJJJCJ):Application.Contents.Remove CJCJJJCJ End Sub::Class jTree:Private CJCJCJ, CJJCJCC, CJJCCJJ, CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Private Sub Class_Initialize():CJJCCJJ = 0:CJJCCJC = 0:CJCJJJC=10:End Sub:Public Property Let Table(CJCJJJCC):if CJCJJJCC="" then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJJCCCJ=CJCJJJCC:CJJCCCC=CJJCJCJC("!$*0") & UCase(CJJCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCJ:End Property::Public Property Get Count():Count=CJJCCJC-CJCJJJC:End Property:Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CJCJJCJ,CJCJJCC:CJJCJCC = Application(CJJCCCC):If Not IsArray(CJJCJCC) Then CJCJCJ = CJJCJCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCJ:if CJCJJJJ<>"" then CJCJCJ=CJCJCJ & CJJCJCJC(" ,H96C6 ,") & CJCJJJJ set CJCJJCJ=CJJCCJ.execute(CJCJCJ):CJCJJCC=CJCJJCJ(0):if CJCJJCC=0 then Call RedirectMessage(CJJCJCJC("柠@话@W") & CJJCCCJ & CJJCJCJC("^") & CJCJJJJ & CJJCJCJC("X沜@朄@绎@林@敫@捩@")) CJJCCJC=CJCJJCC+CJCJJJC:ReDim CJJCJCC(CJJCCJC, 4):CJCJCJ = CJJCJCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJCJCJC(" ,H:E9 ,W?@=@4"" then CJCJCJ=CJCJCJ & CJJCJCJC(" ,H96C6 ,") & CJCJJJJ CJCJCJ=CJCJCJ & CJJCJCJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCJ=CJJCCJ.execute(CJCJCJ):For CCCCCJ = 1 To CJCJJCC:For CJJJJCJ = 0 To 4:CJJCJCC(CCCCCJ, CJJJJCJ) = CJCJJCJ(CJJJJCJ):if IsNull(CJJCJCC(CCCCCJ,4)) then CJJCJCC(CCCCCJ,4)=0 If CJJCJCC(CCCCCJ,2)="" then CJJCJCC(CCCCCJ,2)=CJJCJCJC(",穵@.") Next:CJCJJCJ.MoveNext:Next:CJCJJCJ.Close: Set CJCJJCJ = Nothing:for CCCCCJ=CJJCCJC-(CJCJJJC-1) to CJJCCJC:CJJCJCC(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock() else CJJCCJC=Ubound(CJJCJCC) End If:End Sub:::::Private Function CJJJCJCJ(CJJCJJJJ):dim CCCCCJ,CJCJCJJ:CJJJCJCJ=0:CJCJCJJ=CStr(CJJCJJJJ):if CJCJCJJ<>"0" then for CCCCCJ=1 to CJJCCJC:If CStr(CJJCJCC(CCCCCJ, 0))=CJCJCJJ Then CJJJCJCJ = CCCCCJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CJJCJJJJ):if Cstr(CJJCJJJJ)="0" then GetCurName=CJJCJCJC("栴@") else Dim CCCCCJ,CJCJJCJ:CCCCCJ=CJJJCJCJ(CJJCJJJJ):if CCCCCJ>0 then GetCurName=CJJCJCC(CCCCCJ,2):if GetCurName="" then set CJCJJCJ=CJJCCJ.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJJ):if CJCJJCJ.eof then Call RedirectMessage(CJJCJCJC("xs（,") & CJJCJJJJ & CJJCJCJC("）,朥@批@别@")) GetCurName=CJCJJCJ(1):Call UpdateCache(CJJCJJJJ,CJCJJCJ(0),GetCurName,CJCJJCJ(2),CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing end if else set CJCJJCJ=CJJCCJ.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJJ):if CJCJJCJ.eof then Call RedirectMessage(CJJCJCJC("xs（,") & CJJCJJJJ & CJJCJCJC("）,朥@批@别@")) GetCurName=CJCJJCJ(1):Call UpdateCache(CJJCJJJJ,CJCJJCJ(0),GetCurName,CJCJJCJ(2),CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing end if end if:End Function:::Public Function CJJJCCJJ(CJJCJJJJ):Dim CCCCCJ,CJCJCJC:CCCCCJ=CJJJCJCJ(CJJCJJJJ):if CCCCCJ=0 then CJCJCJC=CJJJCCJC(CJJCJJJJ) else CJCJCJC=CJJCJCC(CCCCCJ,3):if isnull(CJCJCJC) or CJCJCJC="" then CJCJCJC=CJJJCCJC(CJJCJJJJ) elseif Mid(CJCJCJC,instrrev(CJCJCJC,CJJCJCJC("["))+1)<>CStr(CJJCJJJJ) then CJCJCJC=CJJJCCJC(CJJCJJJJ) elseif Left(CJCJCJC,1)=CJJCJCJC("[") then CJCJCJC=CJJJCCJC(CJJCJJJJ) end if end if:CJJJCCJJ=CJCJCJC:End Function:Private Function CJJJCCJC(CJJCJJJJ):dim CJCJCJJ:CJCJCJJ=CStr(CJJCJJJJ):if CJCJCJJ="0" then CJJJCCJC="" else dim CJCJJCJ:set CJCJJCJ=CJJCCJ.execute(CJJCJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJCJCJC(" ,H96C6 ,:5l") & CJJCJJJJ):if CJCJJCJ.eof then Call UpdateCache(CJJCJJJJ,"","","",""):Call RedirectMessage(CJJCJCJC("顴@盩@（,xs：,") & CJJCJJJJ & CJJCJCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCJJCJ(0)=0 then CJJJCCJC="0," & CJJCJJJJ else CJJJCCJC=CJJJCCJJ(CJCJJCJ(0)) & CJJCJCJC("[") & CJJCJJJJ end if:if CJCJJCJ(2)<>CJJJCCJC then CJJCCJ.execute CJJCJCJC("FA52E6 ,") & CJJCCCJ & CJJCJCJC(" ,D6E ,A2E9lV") & CJJJCCJC & CJJCJCJC("V ,H96C6 ,:5l") & CJJCJJJJ else CJJJCCJC=CJCJJCJ(2) end if end if:Call UpdateCache(CJJCJJJJ,CJCJJCJ(0),CJCJJCJ(1),CJJJCCJC,CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing end if:End Function::::Public Function IsParent(CJCJJCJJ, CJCJJCJC):IsParent=InStr(CJJJCCJJ(CJCJJCJC) & CJJCJCJC("["), CJJCJCJC("[") & CJCJJCJJ & CJJCJCJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCJJJJ):dim CJCJCJC:CJCJCJC=CJJJCCJJ(CJJCJJJJ):Sql_GetChildren = CJJCCCJ & CJJCJCJC("0A2E9ZV[V ,=:<6 ,V") & CJCJCJC & CJJCJCJC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCCC End Sub:Public Sub UpdateCache(CJJCJJJJ,CJCJJCCJ,CJCJJCCC,CJCJCJC,CJCJCJJJ):dim CCCCCJ,CJJJJCJ:CJJCJJJJ=CLng(CJJCJJJJ):CCCCCJ=CJJJCJCJ(CJJCJJJJ):if CJCJJCCJ="" and CJCJJCCC="" and CJCJCJC="" and CJCJCJJJ="" then if CCCCCJ>0 then for CJJJJCJ=1 to 4:CJJCJCC(CCCCCJ,CJJJJCJ)=Null:next end if else if CCCCCJ=0 then for CJJJJCJ=1 to CJJCCJC:if CJJCJCC(CJJJJCJ,1) & ""="" then CCCCCJ=CJJJJCJ:exit for end if:next end if:if CCCCCJ=0 then Call ClearCache else CJJCJCC(CCCCCJ,0)=CLng(CJJCJJJJ):if CJCJJCCJ<>"" then CJJCJCC(CCCCCJ,1)=CLng(CJCJJCCJ) if CJCJJCCC<>"" then CJJCJCC(CCCCCJ,2)=CJCJJCCC if CJCJCJC<>"" then CJJCJCC(CCCCCJ,3)=CJCJCJC if CJCJCJJJ<>"" then CJJCJCC(CCCCCJ,4)=CLng(CJCJCJJJ) end if end if:if CCCCCJ>0 then Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock() end if:End Sub:Private Sub Debug(CJJCCCJC):Call ConnClose:Response.Write CJJCCCJC:Response.End:End Sub:Private Function CJJJJJCC():CJJJJJCC=CJJCJJJC+1:End Function:Private Function CJJCJJJC():dim CJJJCCC:set CJJJCCC=CJJCCJ.execute(CJJCJCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCJ & CJJCJCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJJC=CJJJCCC(0):CJJJCCC.Close: Set CJJJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCCCJ=284:Const CCCCCCC="九龙坡区教委2020年开学前调查问卷":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJCJC("%6DE0#6A@CE"),30):dim CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:CJCCJCC=Request.QueryString(CJJCJCJC("$49@@=")):CJCJCCJ=Request.QueryString(CJJCJCJC("s6AE")):CJCJCCC=Request.QueryString(CJJCJCJC("vC256")):CJCCJJJ=Request.QueryString(CJJCJCJC("vC@FA")):CJCCJJC=Request.QueryString(CJJCJCJC("E`")):CJCCJCJ=Request.QueryString(CJJCJCJC("Ea")):if not CJJJJJCJ(CJCJCCJ) then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CJJCJCC:set CJJCJCC=new jtree:CJJCJCC.table=CJJCJCJC(">6>36C0EJA6"):if not CJJCJCC.IsParent(CJCCCJ,CJCJCCJ) then Call RedirectMessage(CJJCJCJC("诠@苾@囯@W") & CJCJCCJ & CJJCJCJC("X丈@圣@患@W") & CJCCCJ & CJJCJCJC("X癿@箜@琁@苾@囯@冀@。,")) dim CJCCCJJ:CJCCCJJ=CJJCJCC.GetCurName(CJCJCCJ):dim CCCCCJ,CJJJJCJ,CJJJJCC,CJCCCJC,CJCCCCJ,CJCCCCC:dim CCJJJJJ(1,1):Call ArrayInit(CCJJJJJ):CCJJJJJ(0,0)=CJJCJCJC("甲@"):CCJJJJJ(1,0)=CJJCJCJC("奮@"):dim CCCCCC,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:dim CCJJCCC,CCJCJJJ:CCJJCCC=Date:CCJCJJJ=cdate(CJJCJCJC("a___\`\`")):dim CCJCJJC(3,1),CCJCJCJ(3),CCJCJCC(1),CCJCCJJ(1),CCJCCJC(3,1),CCJCCCJ(1),CCJCCCC(1),CCCJJJJ(1),CCCJJJC(1),CCCJJCJ(3),CCCJJCC(1),CCCJCJJ(1),CCCJCJC(8,1),CCCJCCJ(3,1):dim CCCJCCC,CCCCJJJ,CCCCJJC:Call ArrayInit(CCJCJJC):Call ArrayInit(CCJCJCJ):Call ArrayInit(CCJCJCC):Call ArrayInit(CCJCCJJ):Call ArrayInit(CCJCCJC):Call ArrayInit(CCJCCCJ):Call ArrayInit(CCJCCCC):Call ArrayInit(CCCJJJJ):Call ArrayInit(CCCJJJC):Call ArrayInit(CCCJJCJ):Call ArrayInit(CCCJJCC):Call ArrayInit(CCCJCJJ):Call ArrayInit(CCCJCJC):Call ArrayInit(CCCJCCJ):dim CCCCJCJ(5,9):Call ArrayInit(CCCCJCJ):dim CCCCJCC(7,1):Call ArrayInit(CCCCJCC):CJCJCJ=CJJCJCJC("D6=64E ,C62=?2>6[52E6E:>6[?@C>2=[C6DF=E[2?DH6C ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CJCCJCC else CJCJCJ=CJCJCJ & CJJCJCJC(" ,2?5 ,") & CJJCJCC.Sql_GetChildren(CJCJCCJ) if CJJJJJCJ(CJCJCCC) then CJCJCJ=CJCJCJ & CJJCJCJC(" ,2?5 ,8C256l") & CJCJCCC if CJJJJJCJ(CJCCJJJ) then CJCJCJ=CJCJCJ & CJJCJCJC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJJJ if isdate(CJCCJJC) then CJCJCJ=CJCJCJ & CJJCJCJC(" ,2?5 ,52E6E:>6mlV") & CJCCJJC & CJJCJCJC("V") if isdate(CJCCJCJ) then CJCJCJ=CJCJCJ & CJJCJCJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCJCJ)+1 & CJJCJCJC("V") set CJCJJJ=CJJCCC.execute(CJCJCJ):if CJCJJJ.eof then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,")) while not CJCJJJ.eof:CJJJJCC=CJCJJJ(1):if CJJJJCCCCJCJJJ then CCJCJJJ=CJJJJCC CCCCCC=split(CJJCJCJC("M") & CJCJJJ(4),CJJCJCJC("M")):CJJJJCC=CCCCCC(1):for CCCCCJ=0 to 3:CJJJJCJ=CCCCCJ+1:if instr(CJJJJCC,CJJJJCJ)>0 then CCJCJJC(CCCCCJ,1)=CCJCJJC(CCCCCJ,1)+1 next:CJJJJCC=CCCCCC(2):for CCCCCJ=0 to 3:CJJJJCJ=CCCCCJ+1:if instr(CJJJJCC,CJJJJCJ)>0 then CCJCJCJ(CCCCCJ)=CCJCJCJ(CCCCCJ)+1 next:if CCCCCC(3)="2" then CJJJJCC=0 else CJJJJCC=1 CCJCJCC(CJJJJCC)=CCJCJCC(CJJJJCC)+1:if CCCCCC(4)="1" then CCJCCJJ(0)=CCJCCJJ(0)+1 CJJJJCC=cint(CCCCCC(5))-1:CCJCCJC(CJJJJCC,1)=CCJCCJC(CJJJJCC,1)+1:if CCCCCC(6)="1" then CCJCCCJ(0)=CCJCCCJ(0)+1 if CCCCCC(7)="1" then CCCJCCC=CCCJCCC+1 CCCCJJJ=CCCCJJJ & CCCCCC(26):if CCCCCC(8)="1" then CCJCCCC(0)=CCJCCCC(0)+1 if CCCCCC(9)="1" then CCCJJJJ(0)=CCCJJJJ(0)+1 if CCCCCC(10)="1" or CCCCCC(10)="2" then CCCJJJC(0)=CCCJJJC(0)+1 if CCCCCC(12)="1" or CCCCCC(12)="2" then CCCJJCC(0)=CCCJJCC(0)+1 if CCCCCC(13)="1" or CCCCCC(13)="2" then CCCJCJJ(0)=CCCJCJJ(0)+1 CJJJJCC=cint(CCCCCC(11))-1:CCCJJCJ(CJJJJCC)=CCCJJCJ(CJJJJCC)+1:CJJJJCC=CCCCCC(14):for CCCCCJ=0 to 8:CJJJJCJ=CCCCCJ+1:if instr(CJJJJCC,CJJJJCJ)>0 then CCCJCJC(CCCCCJ,0)=CCCJCJC(CCCCCJ,0)+1 next:CJJJJCC=cint(CCCCCC(15))-1:CCCJCCJ(CJJJJCC,0)=CCCJCCJ(CJJJJCC,0)+1:CCCCJJC=CCCCJJC & CCCCCC(27):if CCCCCC(28)="1" then CJJJJCJ=0 else CJJJJCJ=1 CCJJJJJ(CJJJJCJ,1)=CCJJJJJ(CJJJJCJ,1)+1:CJJJJCC=cint(CCCCCC(30))-1:CCCCJCJ(CJJJJCC,1)=CCCCJCJ(CJJJJCC,1)+1:CCCCCC=split(CJCJJJ(3),CJJCJCJC("M")):for CCCCCJ=0 to 7:if CCCCCC(CCCCCJ)="1" then CJJJJCJ=CCCCCJ+2:CCCCJCJ(CJJJJCC,CJJJJCJ)=CCCCJCJ(CJJJJCC,CJJJJCJ)+1 end if:next:if not CJCJJJ(2) then CCJJCJC=CCJJCJC & CJJJJCC & CJJCJCJC("M") & CJCJJJ(0):for CCCCCJ=0 to 7:CCJJCJC=CCJJCJC & CJJCJCJC("M") & IIf(CCCCCC(CCCCCJ)="1",CJJCJCJC("廽@帳@"),""):next:CCJJCJC=CCJJCJC & vbcrlf end if:for CCCCCJ=0 to 7:CJJJJCC=CCCCCC(CCCCCJ):CCCCJCC(CCCCCJ,CJJJJCC)=CCCCJCC(CCCCCJ,CJJJJCC)+1:next:CCJJJCC=CCJJJCC+1:CJCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJCJC("k9625m") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJCJC("kE:E=6m")):Response.Write CJCCCJJ:Response.Write(CJJCJCJC("\")):Response.Write CCCCCCC:Response.Write(CJJCJCJC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("kDEJ=6m") & vbCrLf):Response.Write(CJJCJCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJCJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJCJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJCJC("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(CJJCJCJC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("k^9625m") & vbCrLf):Response.Write(CJJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCJCJC(" ,k9`mkD>2==m")):Response.Write CJCCCJJ:Response.Write(CJJCJCJC("k^D>2==mk3Cm")):Response.Write CCCCCCC:Response.Write(CJJCJCJC("k3Cm囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@闩@卲@昪@乘@龔@坜@匵@敔@姏@a_a_幯@寴@辑@匵@冀@叿@孡@栜@孡@甚@迖@衇@癿@廻@孡@剈@课@柠@，,産@争@亁@觞@孡@甚@圣@疦@惀@朚@闯@孡@乛@咇@甚@洶@癿@惀@冰@，,甬@孡@甚@我@孡@甚@宱@镺@塦@冔@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm兣@闩@卲@公@b_颓@，,共@丨@埵@朧@俜@恪@b颓@，,课@柠@闩@卲@`f颓@，,産@争@课@柠@孡@甚@寴@孡@栜@疦@惀@朚@闯@箜@琁@巠@佗@咇@孡@栜@圣@纺@敔@孡@萸@宙@惀@冰@丟@严@斴@靝@癿@访@仲@；,徾@琁@偠@庲@郣@刁@`_颓@，,産@争@浆@访@孡@甚@疦@惀@朚@闯@癿@徾@琁@惀@冰@、,惀@绥@犱@忼@、,睜@眛@犱@冰@筄@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm")):Response.Write formatdatetime(CCJJCCC,1):Response.Write(CJJCJCJC("～,")):Response.Write formatdatetime(CCJCJJJ,1):Response.Write(CJJCJCJC("k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kF=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m楽@迫@：,公@讜@")):Response.Write CCJJJCC:Response.Write(CJJCJCJC("亵@厽@三@，,共@丨@甲@怢@")):Response.Write CCJJJJJ(0,1):Response.Write(CJJCJCJC("亵@，,奮@怢@")):Response.Write CCJJJJJ(1,1):Response.Write(CJJCJCJC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCCCC=Array(CJJCJCJC("a_`h幯@"),CJJCJCJC("a_`g幯@"),CJJCJCJC("a_`f幯@"),CJJCJCJC("a_`e幯@"),CJJCJCJC("a_`d幯@"),CJJCJCJC("a_`c幯@")):CCJJCCJ="":for CCCCCJ=0 to 5:CCCCJCJ(CCCCCJ,0)=CCCCCC(CCCCCJ):if CCCCJCJ(CCCCCJ,1)>0 then CCJJCCJ=CCJJCCJ & CJJCJCJC("，,") & CCCCJCJ(CCCCCJ,0) & CCCCJCJ(CCCCCJ,1) & CJJCJCJC("亵@") end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k=:m兠@孡@幯@仸@：,")):Response.Write mid(CCJJCCJ,2):Response.Write(CJJCJCJC("。,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am囖@、,怶@低@浆@访@绎@林@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9bm`] ,孡@甚@偠@庲@箜@琁@巠@佗@k^9bm") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@尊@艽@课@柠@孡@栜@疦@惀@朚@闯@孡@甚@偠@庲@箜@琁@巠@佗@癿@囖@严@斴@靝@，,刁@刦@昪@疦@惀@朚@闯@寴@孡@甚@癿@实@伛@巠@佗@惀@冰@，,敔@布@兮@徾@孡@甚@癿@惀@冰@，,孡@栜@俜@恪@逕@矠@孡@甚@昪@吡@叅@旱@，,仠@叅@宱@镺@咇@孡@甚@寴@孡@栜@廻@孡@吉@箜@琁@巠@佗@癿@廵@让@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJCJJ=CCJCJCC(0)/CCJJJCC*100:if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,`）,疦@惀@朚@闯@实@伛@巠@佗@廻@屐@惀@冰@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCCCC=Array(CJJCJCJC("孡@栜@老,布@癿@实@伛@敔@肭@"),CJJCJCJC("宱@镺@癿@敔@肭@"),CJJCJCJC("罌@绗@矠@证@实@伛@"),CJJCJCJC("田@见@癿@实@伛@")):for CCCCCJ=0 to 3:CCJCJJC(CCCCCJ,0)=CCCCCC(CCCCCJ):next:CCCCCC=CJJCJJCC(CCJCJJC,1):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,课@柠@绎@林@昹@礵@，,孡@甚@亁@觞@肵@炉@矠@证@癿@丶@襼@透@彿@昪@")):Response.Write CCCCCC(0,0):Response.Write(CJJCJCJC("。,") & vbCrLf):Response.Write(CJJCJCJC(" ,k4@56m")):Response.Write formatnumber(CCJJCJJ,2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@歞@硩@囙@筏@亁@“,kDA2? ,4=2DDlQ2>\<2:Qm""b：,斫@垆@军@犱@痀@母@肵@炉@昪@甬@亻@乃@弐@赲@癿@、,丶@襼@朄@亖@亻@乃@痂@犱@k^DA2?m”,癿@闩@颓@。,") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJCJJ=0:for CCCCCJ=0 to 3:CCJJCJJ=CCJJCJJ+CCJCJCJ(CCCCCJ)/CCJJJCC*100:next:CCJJCJJ=CCJJCJJ/4:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k4@56m")):Response.Write formatnumber(CCJJCJJ,2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@亁@觞@肵@炉@癿@盳@兮@阭@抟@矠@证@，,矠@過@襼@戯@叞@罤@、,募@洒@扆@、,丈@别@亵@羟@雁@丨@癿@圫@斴@、,夕@廻@窒@逕@飉@。,") & vbCrLf):Response.Write(CJJCJCJC(" ,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJCCJJ(1)=CCJCCJJ(0)/CCJJJCC*100:CCJCCCJ(1)=CCJCCCJ(0)/CCJJJCC*100:CCJJCJJ=(CCJCCJJ(1)+CCJCCCJ(1))/2:if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,a）,疦@惀@朚@闯@兮@徾@孡@甚@癿@巠@佗@惀@冰@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCCCC=Array(CJJCJCJC("毊@夤@`欜@"),CJJCJCJC("毊@呣@`欜@"),CJJCJCJC("毊@會@`欜@"),CJJCJCJC("毊@孞@`欜@")):for CCCCCJ=0 to 3:CCJCCJC(CCCCCJ,0)=CCCCCC(CCCCCJ):next:CCCCCC=CJJCJJCC(CCJCCJC,1):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kAm孡@栜@寴@孡@甚@迖@衇@徾@琁@偠@庲@癿@课@柠@颌@玂@昪@")):Response.Write CCCCCC(0,0):Response.Write(CJJCJCJC("。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmk4@56m")):Response.Write formatnumber(CCJCCJJ(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@衣@礵@，,疦@惀@朚@闯@孡@乛@廻@屐@亁@徾@琁@偠@庲@敔@肭@癿@诹@稆@我@洶@劣@；,k4@56m")):Response.Write formatnumber(CCJCCCJ(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@衣@礵@，,疦@惀@朚@闯@圣@電@襼@帩@劤@旱@胸@多@叅@旱@批@别@朄@兮@老,布@，,幱@莲@徒@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJCJJ=CCCJCCC/CCJJJCC*100:if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,b）,孡@栜@俜@恪@逕@矠@巠@佗@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmk4@56m")):Response.Write formatnumber(CCJJCJJ,2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@讟@丵@孡@栜@俜@恪@逕@矠@巠@佗@宇@戋@轾@奸@，,圣@“,kDA2? ,4=2DDlQ2>\<2:Qm""f：,疦@惀@朚@闯@，,孡@栜@昪@吡@叅@旱@绔@佛@仧@掣@迼@孡@栜@盳@兮@宄@掍@癿@俜@恪@？,k^DA2?m”,一,颓@逄@拤@“,昪@”,。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,c）,孡@甚@廻@孡@吉@癿@電@氽@k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kA ,4=2DDlQ2>\<2:Qm""ae：,佛@讟@丵@廻@孡@吉@孡@栜@序@圣@哥@亖@斴@靝@偕@奸@箜@琁@？,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@颓@丵@廻@改@弊@颓@盩@，,盩@癿@圣@争@攱@雁@孡@甚@咇@宱@镺@寴@廻@孡@吉@箜@琁@巠@佗@癿@廵@让@。,戌@仧@封@仉@孡@甚@囙@筏@癿@斂@孒@丨@彍@纮@丄@顴@箜@琁@廵@让@，,幱@绚@讜@箜@琁@冀@宴@丨@盳@兮@癿@诈@诨@，,刁@枋@凵@玫@欜@敫@曻@夕@癿@冀@宴@咇@诈@诨@。,返@亖@冀@宴@仞@衣@眻@孡@甚@三@宱@镺@帇@朖@孡@栜@仉@哥@亖@斴@靝@力@張@箜@琁@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm力@張@阭@抟@巠@佗@诈@颌@轾@髓@仞@衣@孡@甚@三@宱@镺@帇@朖@孡@栜@胸@多@力@張@孡@甚@癿@阭@抟@巠@佗@，,來@好@張@课@咇@盌@睞@孡@甚@戯@叞@罤@、,偕@奸@寘@実@敔@実@卦@甚@筄@；,凊@尌@痀@母@伛@撨@诈@颌@轾@髓@仞@衣@帇@朖@孡@栜@凊@尌@孡@甚@聕@雁@癿@惀@冰@，,梻@柠@孡@甚@癿@低@渤@惀@冰@，,凊@尌@伛@撨@痀@母@癿@潗@圣@飉@除@；,兮@泣@孡@甚@偠@庲@诈@颌@轾@髓@仞@衣@帇@朖@孡@栜@兮@泣@孡@甚@癿@甚@呸@、,飚@咼@宄@兣@咇@徾@琁@偠@庲@犱@冰@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJJJC=Array(CJJCJCJC("力@張@阭@抟@巠@佗@"),CJJCJCJC("凊@尌@痀@母@伛@撨@"),CJJCJCJC("兮@泣@孡@甚@偠@庲@")):CCJJJCJ=Array(CJJCJCJC("卦@甚@M痀@母@M阭@抟@M叞@罤@"),CJJCJCJC("低@渤@M聕@雁@M梻@柠@M伛@撨@"),CJJCJCJC("宄@兣@M偠@庲@M飚@咼@宄@兣@M徾@琁@")):CCJJCJJ=ubound(CCJJJCJ):redim CCCCCC(CCJJCJJ):for CCCCCJ=0 to CCJJCJJ:CCCCCC(CCCCCJ)=CJJCJJCJ(CCCCJJJ,CCJJJCJ(CCCCCJ)):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m箜@琁@冀@宴@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m匀@否@诈@诨@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m诈@颌@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 2:Response.Write CJJCJCJC("kECmkE5m") & CCJJJJC(CCCCCJ) & CJJCJCJC("k^E5mkE5m") & replace(CCJJJCJ(CCCCCJ),CJJCJCJC("M"),CJJCJCJC("、,")) & CJJCJCJC("k^E5mkE5m") & CCCCCC(CCCCCJ) & CJJCJCJC("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lC252CU9lb__UIl")):Response.Write join(CCJJJJC,CJJCJCJC("[")):Response.Write(CJJCJCJC("UGl")):Response.Write join(CCCCCC,CJJCJCJC("[")):Response.Write(CJJCJCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9bma] ,圣@纺@敔@孡@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@尊@艽@课@柠@孡@栜@疦@惀@朚@闯@圣@纺@敔@孡@巠@佗@癿@丄@严@斴@靝@，,刁@刦@昪@圣@纺@敔@孡@癿@线@绂@惀@冰@，,敔@布@圣@纺@敔@孡@癿@敃@林@咇@圣@纺@敔@孡@巠@兲@癿@惀@冰@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJCCCC(1)=CCJCCCC(0)/CCJJJCC*100:CCCJJJJ(1)=CCCJJJJ(0)/CCJJJCC*100:CCJJCJJ=(CCJCCCC(1)+CCCJJJJ(1))/2:if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,`）,圣@纺@敔@孡@线@绂@惀@冰@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmk4@56m")):Response.Write formatnumber(CCJCCCC(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@讟@丵@孡@栜@揋@侖@癿@敔@孡@幮@叫@斴@侺@只@産@，,擈@佗@筻@卐@渀@晫@。,k4@56m")):Response.Write formatnumber(CCCJJJJ(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@讟@丵@老,布@诹@稆@宄@掍@吃@琁@，,逕@矠@叅@旱@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCJJJC(1)=CCCJJJC(0)/CCJJJCC*100:CCCJJCC(1)=CCCJJCC(0)/CCJJJCC*100:CCCJCJJ(1)=CCCJCJJ(0)/CCJJJCC*100:CCJJCJJ=(CCCJJJC(1)+CCCJJCC(1)+CCCJCJJ(1))/3:if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,a）,敔@布@圣@纺@敔@孡@敃@林@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmk4@56m")):Response.Write formatnumber(CCCJJJC(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@衣@礵@敔@布@夢@郣@刁@敔@布@丅@诹@每@轾@凁@旱@。,k4@56m")):Response.Write formatnumber(CCCJJCC(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@寴@老,布@宄@掍@癿@诹@稆@冀@宴@咇@矠@证@炴@彍@纮@每@轾@滜@愊@。,k4@56m")):Response.Write formatnumber(CCCJCJJ(1),2,-1):Response.Write(CJJCJCJC("Tk^4@56m癿@孡@甚@寴@老,布@扴@攴@佗@丕@、,囙@筏@闩@颓@癿@惀@冰@每@轾@滜@愊@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kA ,4=2DDlQ2>\<2:Qm""``：,佛@寴@叿@孡@秌@巭@孡@矠@证@掇@揜@徒@怉@乃@栲@？,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm孡@甚@圣@宱@孡@乛@朚@闯@掇@揜@矠@证@癿@惀@冰@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m静@帳@奸@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m每@轾@奸@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m丈@夥@奸@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m静@帳@丈@奸@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 3:Response.Write CJJCJCJC("kE5m") & formatpercent(CCCJJCJ(CCCCCJ)/CCJJJCC,2,-1) & CJJCJCJC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 3:CCCJCCJ(CCCCCJ,1)=CCCJCCJ(CCCCCJ,0)/CCJJJCC*100:next:CCJJCJJ=CCCJCCJ(0,1)+CCCJCCJ(1,1):if CCJJCJJ>=80 then CCJJCCJ=CJJCJCJC("轾@奸@") elseif CCJJCJJ>=60 then CCJJCCJ=CJJCJCJC("一,舧@") else CCJJCCJ=CJJCJCJC("轾@巩@") end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k9cm（,b）,圣@纺@敔@孡@斴@弊@")):Response.Write CCJJCCJ:Response.Write(CJJCJCJC("k^9cm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm孡@甚@寴@圣@纺@敔@孡@斴@弊@癿@滜@愊@庡@惀@冰@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m匼@刁@滜@愊@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m滜@愊@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m一,舧@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m丈@滜@愊@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 3:Response.Write CJJCJCJC("kE5m") & CCCJCCJ(CCCCCJ,0) & CJJCJCJC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 3:Response.Write CJJCJCJC("kE5m") & formatnumber(CCCJCCJ(CCCCCJ,1),2,-1) & CJJCJCJC("Tk^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,kA ,4=2DDlQ2>\<2:Qm""`c：,圣@纺@孡@乛@斴@靝@丶@襼@靝@丯@癿@闩@颓@昪@亻@乃@？,（,夕@逄@）,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@颓@课@柠@孡@甚@圣@纺@孡@乛@旱@遂@别@癿@闩@颓@，,颌@玂@超@髓@仞@衣@诠@逄@顴@仞@衣@癿@闩@颓@超@穼@凵@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJCCJ="":for CCCCCJ=0 to 8:CCCJCJC(CCCCCJ,1)=formatnumber(CCCJCJC(CCCCCJ,0)/CCJJJCC*100,2,-1):CCJJCCJ=CCJJCCJ & CJJCJCJC("[") & CCCJCJC(CCCCCJ,1):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UClcdU?lTU=l_U3l_U>l`U9lb__UIl罌@绗@讹@夂@朄@闩@颓@M孡@乛@玪@塾@丈@奸@M缵@乊@宱@镺@盌@睞@M缵@尌@三@吇@孡@癿@沚@逕@亟@洼@M圣@纺@旱@闯@镺@M老,布@训@诹@沜@朄@吳@弐@劖@M孡@乛@历@劖@夢@M缵@乊@敔@杋@M敔@布@敔@孡@氯@幮@丈@趮@UGl")):Response.Write mid(CCJJCCJ,2):Response.Write(CJJCJCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC(" ,kA ,4=2DDlQ2>\<2:Qm""af：,诲@冔@丆@佛@寴@圣@纺@敔@孡@返@秈@斴@弊@癿@愊@覼@我@耀@廵@让@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@颓@丵@廻@改@弊@颓@盩@，,盩@癿@圣@争@攱@雁@孡@甚@咇@宱@镺@寴@圣@纺@敔@孡@癿@廵@让@。,戌@仧@封@仉@孡@甚@囙@筏@癿@斂@孒@丨@彍@纮@凵@囖@顴@廵@让@，,幱@绚@讜@盳@兮@诈@诨@，,刁@枋@凵@玫@欜@敫@曻@夕@癿@廵@让@。,返@亖@廵@让@仞@衣@眻@孡@甚@三@宱@镺@寴@歟@欜@圣@纺@敔@孡@癿@眆@泐@三@忼@庡@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm孡@甚@见@劖@诈@颌@轾@髓@仞@衣@宱@镺@揋@凵@癿@闩@颓@咇@廵@让@郸@昪@囯@绐@孡@甚@镺@朚@眆@田@脌@届@幐@帡@杠@癿@见@劖@闩@颓@癿@拀@忢@；,罌@绗@闩@颓@诈@颌@轾@髓@仞@衣@孡@甚@咇@宱@镺@讟@丵@罌@绗@朄@廱@迚@、,罌@卜@咇@丅@诹@旱@士@韮@癿@闩@颓@绔@仑@仧@癿@囫@扫@曻@夕@，,帇@朖@返@凛@严@斴@靝@胸@朄@戻@攴@啿@；,三@敔@布@亍@劣@闩@颓@诈@颌@髓@仞@衣@孡@甚@三@宱@镺@讟@丵@罌@绗@敔@孡@每@伛@绚@敔@孡@圣@诹@埽@亍@劣@咇@宙@旱@沚@逕@丅@衣@玫@轾@巩@；,孡@乛@矠@证@诈@颌@轾@髓@仞@衣@敔@布@训@诹@旱@迖@庡@只@胸@夥@忦@，,孡@乛@跚@丈@丅@，,耇@丏@罌@绗@敔@孡@缵@夬@斂@朧@、,!!%我@共@仑@敔@孡@贿@斔@，,孡@甚@孡@乛@孓@圣@囫@隹@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCJJJJC=Array(CJJCJCJC("孡@甚@见@劖@"),CJJCJCJC("罌@绗@闩@颓@"),CJJCJCJC("三@敔@布@亍@劣@"),CJJCJCJC("孡@乛@矠@证@")):CCJJJCJ=Array(CJJCJCJC("见@劖@M眷@睖@M俘@偠@擈@"),CJJCJCJC("罌@卜@M廱@迚@M士@韮@"),CJJCJCJC("敔@孡@M亍@劣@M沚@逕@"),CJJCJCJC("矠@证@炴@M贿@斔@M跚@丈@丅@")):CCJJCJJ=ubound(CCJJJCJ):redim CCCCCC(CCJJCJJ):for CCCCCJ=0 to CCJJCJJ:CCCCCC(CCCCCJ)=CJJCJJCJ(CCCCJJC,CCJJJCJ(CCCCCJ)):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m廵@让@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m匀@否@诈@诨@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m诈@颌@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 3:Response.Write CJJCJCJC("kECmkE5m") & CCJJJJC(CCCCCJ) & CJJCJCJC("k^E5mkE5m") & replace(CCJJJCJ(CCCCCJ),CJJCJCJC("M"),CJJCJCJC("、,")) & CJJCJCJC("k^E5mkE5m") & CCCCCC(CCCCCJ) & CJJCJCJC("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lC252CU9lb__UIl")):Response.Write join(CCJJJJC,CJJCJCJC("[")):Response.Write(CJJCJCJC("UGl")):Response.Write join(CCCCCC,CJJCJCJC("[")):Response.Write(CJJCJCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9bmb] ,孡@甚@疦@惀@朚@闯@徾@琁@偠@庲@犱@冰@k^9bm") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm朧@浆@访@徾@琁@偠@庲@郣@刁@昪@寴@孡@甚@徾@琁@惀@冰@癿@筻@卐@衜@释@，,共@丨@柋@柋@四@孋@廽@帳@仞@衣@眻@孡@甚@圣@仠@丆@斴@靝@孓@圣@眻@囫@扫@，,幱@丈@仞@衣@孓@圣@痂@犱@我@耀@丠@釈@闩@颓@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm浆@访@一,公@逄@産@亁@兦@严@徾@琁@偠@庲@犱@冰@癿@四@孋@，,刁@刦@昪@睜@眛@、,抌@邼@、,澻@惴@、,無@虌@、,疌@痀@、,恋@惢@、,張@迦@咇@躪@低@匑@，,觞@釅@好@丆@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k@=m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m睜@眛@廽@帳@：,仞@衣@孓@圣@一,亖@睜@眛@闩@颓@，,明@夬@眛@我@睜@眛@责@释@丈@髓@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m抌@邼@廽@帳@：,仞@衣@孓@圣@一,亖@惀@绥@佉@萸@癿@闩@颓@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m澻@惴@廽@帳@：,仞@衣@孓@圣@一,亖@感@怍@惀@绥@咇@收@凶@怢@衇@丵@，,宴@明@袦@夑@畇@了@牤@弐@双@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m無@虌@廽@帳@：,仞@衣@孓@圣@一,亖@索@弛@丈@宄@癿@惀@绥@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m疌@痀@廽@帳@：,仞@衣@孓@圣@旱@制@拀@忢@臥@躦@偠@庲@癿@惀@绥@，,乀@乀@丈@胸@幮@夈@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m恋@惢@廽@帳@：,仞@衣@迂@庡@恋@慇@，,宴@明@轶@俜@谞@觻@筄@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m張@迦@廽@帳@：,仞@衣@孓@圣@又@夈@洒@扆@、,又@夈@柠@阀@疦@惀@涃@恪@筄@衇@丵@；,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k=:m躪@低@匑@廽@帳@：,仞@衣@朄@一,亖@躦@低@丅@癿@痂@犱@，,佁@返@亖@痂@犱@昪@四@丵@索@弛@癿@惀@绥@亢@甚@癿@。,k^=:m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^@=m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm仠@丆@昪@叒@浆@羟@低@叿@四@孋@歞@帳@咇@廽@帳@癿@亵@敫@仠@叅@每@來@，,廽@帳@癿@亵@敫@超@夕@、,每@來@超@髓@仞@衣@眻@诠@四@孋@癿@闩@颓@圣@孡@甚@羟@低@丨@晩@遈@孓@圣@，,孡@栜@電@襼@夕@夕@兮@泣@幱@叅@旱@釂@发@接@斸@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCCCC=split(CJJCJCJC("睜@眛@M抌@邼@M澻@惴@M無@虌@M疌@痀@M恋@惢@M張@迦@M躪@低@匑@"),CJJCJCJC("M")):Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m歞@廽@帳@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 7:Response.Write CJJCJCJC("kECmkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & (CCCCCJ+1) & CJJCJCJC("k^E5mkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & CCCCCC(CCCCCJ) & CJJCJCJC("k^E5mkE5m歞@帳@k^E5mkE5m") & CCCCJCC(CCCCCJ,0) & CJJCJCJC("k^E5mkE5m") & formatpercent(CCCCJCC(CCCCCJ,0)/CCJJJCC,2,-1) & CJJCJCJC("k^E5mk^ECm") Response.Write CJJCJCJC("kECmkE5m廽@帳@k^E5mkE5m") & CCCCJCC(CCCCCJ,1) & CJJCJCJC("k^E5mkE5m") & formatpercent(CCCCJCC(CCCCCJ,1)/CCJJJCC,2,-1) & CJJCJCJC("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am亏@、,叿@幯@红@四@孋@阮@怢@梻@浆@惀@冰@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm仠@丆@昪@叿@幯@红@叒@浆@羟@低@丈@吇@四@孋@癿@廽@帳@亵@羟@每@來@，,叿@四@孋@廽@帳@每@來@轾@髓@癿@卐@佈@昪@孡@栜@電@襼@釈@炴@兮@泣@癿@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,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(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9 ,4@=DA2?lQaQm卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kE9 ,4@=DA2?lQaQm")):Response.Write CCCCCC(CCCCCJ):Response.Write(CJJCJCJC("k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kE9m?k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mTk^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):for CCCCCJ=0 to ubound(CCCCJCJ):if CCCCJCJ(CCCCCJ,1)>0 then Response.Write CJJCJCJC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CCCCJCJ(CCCCCJ,0) & CJJCJCJC("k^E5mkE5m") & CCCCJCJ(CCCCCJ,1) & CJJCJCJC("k^E5m") for CJJJJCJ=0 to 7:CJJJJCC=CJJJJCJ+2:if CCCCJCJ(CCCCCJ,CJJJJCC)>0 then Response.Write CJJCJCJC("kE5m") & CCCCJCJ(CCCCCJ,CJJJJCC) & CJJCJCJC("k^E5m"):Response.Write CJJCJCJC("kE5m") & formatnumber(CCCCJCJ(CCCCCJ,CJJJJCC)/CCCCJCJ(CCCCCJ,1)*100,1,-1) & CJJCJCJC("k^E5m") else Response.Write CJJCJCJC("kE5mk^E5mkE5mk^E5m") end if:next:Response.Write CJJCJCJC("k^ECm") end if:next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am全@、,叿@幯@红@徾@琁@偠@庲@廽@帳@合@卐@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm返@昪@叿@卐@佈@孓@圣@徾@琁@偠@庲@闩@颓@癿@合@卐@，,吇@一,严@亵@只@胸@圣@夕@严@四@孋@丅@徒@刁@丵@廽@帳@，,返@仞@衣@眻@仑@^奴@孓@圣@夕@严@四@孋@癿@囫@扫@。,來@好@弛@丄@圣@睜@眛@、,抌@邼@咇@無@虌@丄@严@四@孋@丅@衣@玫@丵@廽@帳@，,返@仞@衣@眻@迌@丟@呣@冀@，,弛@丄@孓@圣@夬@眛@、,惀@绥@佉@萸@癿@惀@冰@咇@索@弛@丈@宄@癿@犱@忼@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm钃@寴@叒@浆@亵@羟@徾@琁@偠@庲@犱@忼@癿@丈@吇@，,只@仠@釂@发@丈@吇@癿@序@寴@接@斸@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,:5lQ23?@C>2=\=:DEQ ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m睜@眛@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m抌@邼@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m澻@惴@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m無@虌@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m疌@痀@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m恋@惢@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m張@迦@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m躪@低@匑@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):CCCCCC=split(CCJJCJC,vbcrlf):CCJJCJJ=ubound(CCCCCC)-1:redim CCJJJCJ(CCJJCJJ,9):for CCCCCJ=0 to CCJJCJJ:CCJJJJC=split(CCCCCC(CCCCCJ),CJJCJCJC("M")):CCJJJCJ(CCCCCJ,0)=cint(CCJJJJC(0)):for CJJJJCJ=1 to 9:CCJJJCJ(CCCCCJ,CJJJJCJ)=CCJJJJC(CJJJJCJ):next:next:CCCCCC=CJJCJJCC(CCJJJCJ,0):for CCCCCJ=0 to CCJJCJJ:Response.Write CJJCJCJC("kECmkE5m") & (CCCCCJ+1) & CJJCJCJC("k^E5mkE5 ,4=2DDlV2>\E6IE\>:55=6Vm") & (2019-CCCCCC(0,0)) & CJJCJCJC("红@k^E5m") for CJJJJCJ=1 to 9:Response.Write CJJCJCJC("kE5m") & CCCCCC(CCCCCJ,CJJJJCJ) & CJJCJCJC("k^E5m"):next:Response.Write CJJCJCJC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJCJCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm`] ,夈@孡@吉@，,一,亖@孡@甚@只@胸@侘@焱@伕@孓@圣@寴@疦@惀@癿@索@弛@、,無@虌@、,恋@慇@筄@惀@绥@，,廵@让@孡@栜@只@仠@逕@迂@卫@刱@徾@琁@课@追@孡@乛@扆@冇@、,弛@贯@实@伛@浲@抠@、,廻@屐@训@庢@癿@彝@弊@同@孡@甚@晩@叅@徾@琁@课@追@矠@证@，,伛@掃@课@艽@筑@畠@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAma] ,兀@刁@双@挠@与@（,具@）,聇@徾@琁@偠@庲@敔@布@佗@産@，,线@绂@夕@秈@彝@弊@秪@杼@丶@劣@兮@徾@孡@甚@，,吇@旱@釂@发@珨@囝@阚@诹@、,诹@闯@亟@洼@调@徾@筄@斴@弊@线@绂@孡@甚@乆@闯@迖@衇@惀@愚@亟@洼@，,歞@靝@弐@寷@、,舍@缎@、,釅@改@孡@甚@索@弛@惀@绥@咇@孡@丕@历@劖@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmb] ,萠@逛@秪@杼@偠@庲@同@丅@癿@栜@囨@斂@匑@氖@囯@，,埴@其@孡@甚@秪@杼@癿@徾@忼@，,揋@卂@徾@琁@偠@庲@紛@其@，,墙@張@阭@疦@抒@疦@癿@歞@胸@释@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmc] ,寴@争@孓@圣@叿@秈@徾@琁@囫@扫@癿@孡@甚@，,孡@栜@只@朄@钃@寴@怢@癿@廻@屐@严@低@我@囝@低@辀@寷@，,宙@斸@严@怢@匑@癿@徾@琁@辀@寷@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmd] ,晩@叅@秌@孡@偠@躦@矠@证@，,劣@呓@兣@低@孡@甚@丶@劣@迋@劣@、,秌@孡@锶@炷@，,墙@張@低@劖@、,揋@髓@先@疦@劖@，,丫@寇@甚@洶@，,俘@隗@孡@甚@躦@徾@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAme] ,史@叧@宱@镺@秪@杼@兮@泣@孋@奮@徾@琁@劣@同@。,馑@元@，,宱@镺@臥@躦@序@彎@泣@愊@课@艽@奸@臥@巬@癿@惀@绥@犱@忼@，,吃@琁@佗@恪@，,覿@徆@巠@佗@，,彝@戋@秪@杼@、,歞@胸@释@癿@宱@庨@氖@囯@，,遺@先@伛@逍@涃@杼@贚@胸@释@俜@恪@绔@孋@奮@。,共@欜@，,只@廻@屐@一,亖@亭@孋@洶@劣@，,墙@力@彷@歟@愚@惀@，,一,赲@锶@炷@、,敞@歠@、,偕@宱@劜@筄@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmf] ,廻@孡@剈@一,丟@呣@，,圣@老,布@癿@挂@寷@丆@，,宱@镺@只@叅@旤@帩@孤@孋@课@敯@佗@恪@旱@闯@，,认@盩@剈@局@宱@癿@孤@孋@佗@恪@旱@闯@三@迏@栜@夈@孡@吉@孡@栜@癿@佗@恪@旱@闯@盳@吶@吃@，,追@庡@廱@镺@孤@孋@孡@乛@旱@闯@，,帩@劤@孤@孋@夈@乛@巭@孡@癿@劚@诹@，,仠@侺@宙@玫@“,趀@镺@偂@朚@”,三@“,迏@栜@夈@孡@”,癿@旛@缘@寴@掠@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAmg] ,寴@丈@吇@徾@琁@偠@庲@犱@冰@孡@甚@癿@廵@让@：,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\9@G6C ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m徾@琁@偠@庲@囫@惌@咇@闩@颓@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m寴@筑@三@廵@让@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m睜@眛@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm夬@眛@丶@襼@衣@玫@丵@兠@睜@囫@隹@、,睜@眛@责@释@丆@陈@、,睜@眛@旱@闯@凊@尌@筄@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm只@寴@孡@甚@迖@衇@睜@眛@卦@甚@敔@肭@，,伛@逍@睜@眛@矠@证@。,來@好@睜@眛@剈@遺@先@佺@産@兯@奆@牤@责@（,茱@、,咑@啜@、,配@粹@）,，,睜@眛@剈@遺@先@剢@烃@迋@劣@，,遺@先@夢@叾@夢@喘@，,睜@眛@剈@一,尊@旱@丈@眆@扆@朵@我@田@见@，,俘@拼@覿@徆@癿@佗@恪@旱@闯@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm索@弛@咇@無@虌@吇@栲@只@胸@弐@双@夬@眛@，,圣@睜@眛@剈@迖@衇@肇@肄@改@杹@咇@腴@弊@呷@吳@讨@纾@伕@攴@啿@睜@眛@犱@冰@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m抌@邼@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm抌@邼@癿@丶@襼@牴@彼@昪@惀@绥@佉@萸@，,帳@衣@玫@丵@忢@惼@、,诨@觻@劣@佗@凊@尌@、,帳@帳@臥@卌@、,臥@贞@筄@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm迋@劣@只@仠@轧@秶@泣@愊@劖@，,认@亵@仧@仉@贚@靝@惀@绥@觞@脬@凵@杠@，,敞@歠@、,跌@歠@、,渳@泮@伕@认@亵@圣@徾@琁@丅@愚@别@轶@杹@愄@忦@，,仉@耇@攴@啿@贚@靝@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm乡@冔@、,讫@彐@彎@剈@癿@惀@绥@低@骇@，,寴@贚@靝@了@仱@偕@凵@宇@敯@癿@、,朄@愊@乄@癿@叔@了@，,觞@釅@了@仱@癿@赲@四@、,绊@迂@、,绎@林@，,甕@臮@昪@攱@莲@，,只@仠@釅@改@丈@艪@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm同@仑@亵@倹@评@只@仠@凊@尌@臥@躦@癿@历@劖@，,缎@觞@丈@艪@癿@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m澻@惴@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm澻@惴@衣@玫@丵@宴@明@袦@尊@了@弐@双@感@怍@、,谤@驽@、,甕@臮@收@凶@，,明@澻@惴@昪@一,秈@迂@庡@又@序@癿@惀@绥@犱@忼@，,剢@烃@耇@拼@绨@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm觞@冮@斴@泐@馑@元@昪@寚@规@臥@躦@犱@忼@，,孡@甚@電@襼@覽@寚@幱@怘@考,臥@躦@佐@旱@伕@袦@澻@双@感@怍@，,圣@卮@封@感@怍@旱@淬@呷@吳@，,冲@靔@、,改@杹@，,诐@眻@幮@靔@丆@杠@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm吃@琁@癿@实@沿@乚@只@仠@觞@冮@澻@惴@犱@忼@，,寴@抒@怢@癿@迋@劣@胸@多@朄@敃@实@沿@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m無@虌@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm無@虌@丶@襼@衣@玫@丵@索@弛@丈@宄@，,拼@绨@癿@拀@忢@，,徾@跮@力@忦@筄@，,無@虌@昪@歞@帳@癿@惀@绥@，,尌@释@無@虌@伕@揋@髓@孡@乛@巠@佗@癿@敃@玂@，,佁@迂@庡@無@虌@伕@彬@哈@躦@徾@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm孡@甚@電@襼@孡@伕@歞@硩@靝@寴@历@劖@，,圣@遂@别@挦@抓@旱@元@冲@靔@轧@秶@盩@栂@，,冈@怘@考,觞@冮@斴@泐@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm实@沿@昪@涃@耒@無@虌@惀@绥@癿@奸@斴@泐@，,迋@劣@、,娬@之@郸@只@仠@朄@敃@圫@凊@尌@贚@靝@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m疌@痀@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm疌@痀@挂@寴@躦@低@愚@规@佗@丈@刂@宙@陀@癿@痀@忼@觞@釅@，,怶@昪@拀@徾@臥@巬@甚@痀@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm返@昪@寴@疹@痀@癿@锔@诪@讟@矠@仠@叅@恋@惢@寷@臯@癿@，,電@襼@同@孡@甚@伛@逍@秌@孡@癿@疹@痀@矠@证@，,歞@硩@讟@证@疹@痀@癿@痂@犱@、,衣@玫@咇@寴@躦@低@癿@捚@宮@稆@庡@，,认@孡@甚@琁@觞@疹@痀@幱@丈@只@怐@，,襼@盳@俜@秌@孡@，,规@徒@躦@低@丈@舍@月@旱@只@仠@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m恋@惢@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm恋@惢@挂@寴@丈@忀@襼@恋@惢@癿@了@牤@亢@甚@恋@慇@癿@惀@绥@，,來@好@寴@穵@旲@癿@幺@圵@、,黌@夗@、,寁@门@癿@穵@闯@亢@甚@癿@恋@惢@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm返@秈@恋@惢@惀@绥@丈@吃@琁@、,丈@忀@襼@，,佁@亵@仧@卯@旛@泐@探@刱@，,來@好@礹@亟@恋@惢@、,圵@戻@恋@惢@、,牴@宕@了@牤@恋@惢@。,好@林@恋@惢@犱@冰@每@轾@丠@釈@，,丏@镺@旱@闯@丈@胸@缎@觞@電@襼@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m張@迦@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm張@迦@衣@玫@丵@釈@夈@偕@一,亖@昉@矠@沜@朄@愊@乄@，,卯@旛@泐@探@刱@厶@偕@癿@了@惀@，,來@好@張@迦@怢@洒@扆@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm寴@争@朄@張@迦@衇@丵@癿@孡@甚@，,只@仠@同@仑@伛@逍@張@迦@衇@丵@幱@丈@昪@津@氯@猖@典@癿@覽@忰@。,轶@復@癿@張@迦@衇@丵@籶@伷@争@以@弊@怢@癿@劣@佗@，,只@仠@封@張@迦@衇@丵@见@丵@朆@叆@，,咇@張@迦@衇@丵@咇@幮@盳@壿@，,丈@忀@丵@臥@巬@癿@衇@丵@愚@别@烡@恷@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m躪@低@匑@廽@帳@k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm躪@低@匑@挂@惀@绥@闩@颓@袦@历@抌@，,轧@耇@叓@戋@躪@低@痂@犱@衣@玫@凵@杠@，,來@好@彎@一,严@亵@索@弛@旱@，,張@忈@眻@索@弛@只@胸@伕@亢@甚@夯@疷@、,肾@疷@、,咮@嗸@筄@痂@犱@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm彎@孓@圣@返@亖@痂@犱@旱@，,馑@元@襼@考,虌@噣@责@怢@痀@叓@，,叅@旱@尬@匶@，,冈@考,虌@昪@吡@昪@惀@绥@癿@闩@颓@寷@臯@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,kAm躪@低@匑@癿@栴@溋@昪@袦@历@抌@癿@惀@绥@，,掝@讣@電@襼@批@别@寴@序@癿@惀@绥@，,琁@觞@惀@绥@幱@舍@缎@惀@绥@，,躦@低@癿@丈@追@乚@伕@徒@别@缎@觞@。,k^Am") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJCJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJCCCJJ:Response.Write(CJJCJCJC(" ,U>:55@Ej ,")):Response.Write CCCCCCC:Response.Write(CJJCJCJC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJCJC(" ,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(CJJCJCJC(" ,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(CJJCJCJC(" ,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(CJJCJCJC(" ,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(CJJCJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6]C@HDA2?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVR3E?\2FE@4VX]@?WV4=:42=\=:DEVX]49:=5C6?WVE3@5JVX]C@HDA2?W`X") & vbCrLf):Response.Write(CJJCJCJC(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJCJCJC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCJCJC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCJCJC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCJCJC(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJCJCJC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCJCJC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCJCJC(" ,NX") & vbCrLf):Response.Write(CJJCJCJC("NX") & vbCrLf):Response.Write(CJJCJCJC("k^D4C:AEm") & vbCrLf)::Function CJJCJJCJ(str,CJCJCJCJ):if isnull(str) or str="" or CJCJCJCJ="" then CJJCJJCJ=0:exit function end if:Dim CJJJCJC,CCCCCJJ:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJCJCJCJ:CJJJCJC.Global = True:CJJJCJC.IgnoreCase = True:set CCCCCJJ=CJJJCJC.Execute(str):CJJCJJCJ=CCCCCJJ.count:set CCCCCJJ=nothing:set CJJJCJC=nothing:End Function:Function CJJCJJCC(byval CJCJJJJC,CJJJCJJ):dim CCCCCJ,CJJJJCJ,CJJJJCC,CJJCJJC,CJJCJCJ,CCCCCC(),CCJJCJJ:on error resume next:CJJCJJC=ubound(CJCJJJJC):CJJCJCJ=ubound(CJCJJJJC,2):on error goto 0:if err.number<>0 then err.clear:for CCCCCJ=1 to CJJCJJC:for CJJJJCJ=CJJCJJC to CCCCCJ step -1:if CJCJJJJC(CJJJJCJ)>CJCJJJJC(CJJJJCJ-1) then CCJJCJJ=CJCJJJJC(CJJJJCJ):CJCJJJJC(CJJJJCJ)=CJCJJJJC(CJJJJCJ-1):CJCJJJJC(CJJJJCJ-1)=CCJJCJJ end if:next:next else redim CCCCCC(CJJCJCJ):for CCCCCJ=1 to CJJCJJC:for CJJJJCJ=CJJCJJC to CCCCCJ step -1:if CJCJJJJC(CJJJJCJ,CJJJCJJ)>CJCJJJJC(CJJJJCJ-1,CJJJCJJ) then for CJJJJCC=0 to CJJCJCJ:CCCCCC(CJJJJCC)=CJCJJJJC(CJJJJCJ,CJJJJCC):CJCJJJJC(CJJJJCJ,CJJJJCC)=CJCJJJJC(CJJJJCJ-1,CJJJJCC):CJCJJJJC(CJJJJCJ-1,CJJJJCC)=CCCCCC(CJJJJCC):next end if:next:next end if:CJJCJJCC=CJCJJJJC:End Function:Response.Write(vbCrLf):Response.Write(CJJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCC=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJCJCJC(ByVal CJJCJCJJ) Dim CJCCCCJ, CCCCCJ, CJJJCJJ CJJCJCJJ = Replace(CJJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCCCJ = 1 To Len(CJJCJCJJ) If CCCCCJ <> CJJJCJJ Then CJCCCCJ = AscW(Mid(CJJCJCJJ, CCCCCJ, 1)) If CJCCCCJ >= 33 And CJCCCCJ <= 79 Then CJJCJCJC = CJJCJCJC & Chr(CJCCCCJ + 47) ElseIf CJCCCCJ >= 80 And CJCCCCJ <= 126 Then CJJCJCJC = CJJCJCJC & Chr(CJCCCCJ - 47) Else CJJJCJJ = CCCCCJ + 1 If Mid(CJJCJCJJ, CJJJCJJ, 1) = Chr(64) Then CJJCJCJC = CJJCJCJC & ChrW(CJCCCCJ + 5) Else CJJCJCJC = CJJCJCJC & Mid(CJJCJCJJ, CCCCCJ, 1) End If End If Next End Function %>