<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJCJJ, CJJCJC,CJJCCJ, CJJCCC, CJCJJJ:Set CJJCJJ = server.CreateObject(CJJJCJCJ("ps~sq]r@??64E:@?")):CJJCJJ.open Application(CJJJCJCJ("r@??64E:@?$EC:?8")):Set CJJCJC=CJJCJJ::Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC:CCCJCC=Trim(Request.Cookies(CJJJCJCJ("!$*|t|qt#"))):if CCCJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJCJJC>0 then CJCJJJ=CJJJCJCJ("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(CJJJCJCJ("弬@寁@矼@,,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJCJJC,CJCJCJ) End IF end if:Sub CheckRight(CJJJCJCC):dim CCCCJJ,CCCCJC:if CJCJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJCJ("癶@彐@俜@恪@夬@敃@,,诲@釈@斫@癶@彐@。,")) elseIf not CCCJCJC(CJJJCJCC) then Call RedirectMessage(CJJJCJCJ("朾@陋@W") & CJJJCJCC & CJJJCJCJ("X袦@祼@歝@,,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCCJCJC(CJJJCJCC):dim CCCCJJ,CCCCJC:CCCCJC=split(CJJJCJCC,CJJJCJCJ("[")):CCCJCJC=False:for CCCCJJ=0 to ubound(CCCCJC):If Mid(CJCJCC,CCCCJC(CCCCJJ),1)="1" then CCCJCJC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJCJ("!$*|t|qt#"))="":CJCJJC=0:CJCCCJ=0:CJCJCJ=Empty:CJCCJC=0:CCJJJJ=0:CJCCCC=0:CJCCJJ=0:CCJJCJ=False:CCCJJC=False:CCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCJ,CCCCCC,CCCCJJ,CJJJJJJ,CJJJJJC:CCCCCJ=split(CCCJCC,CJJJCJCJ("]")):if ubound(CCCCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCCJ(0)) or len(CCCCCJ(1))<>32 or len(CCCCCJ(2))<>32 then Call ClearMemberCookie else CCCCCC=CCCCCJ(1):for CCCCJJ=1 to len(CCCCCC):CJJJJJJ=mid(CCCCCC,CCCCJJ,1):if isnumeric(CJJJJJJ) then CJJJJJC=CJJJJJC & CJJJJJJ if len(CJJJJJC)=7 then exit for next:CCCCCC=CCCCCJ(2):if CJJJJJC<>mid(CCCCCC,6,7) then Call ClearMemberCookie else CJJJJJJ=mid(CCCCCC,18,10)/2:if CJJJJJJ0 then for CCCCJJ=0 to ubound(str):if CCCCJJ>0 then response.Write CJJJCJCJ("k3C ,^m") response.Write CCCCJJ & CJJJCJCJ("i ,") & str(CCCCJJ):next else response.Write CJJJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CCCCJJ=0 to ubound(str,2):response.Write CJJJCJCJ("kE9 ,2=:8?lV=67EVm") & CCCCJJ & CJJJCJCJ("k^E9m") next:response.Write CJJJCJCJ("k^ECm"):for CCCCJJ=0 to ubound(str):response.Write CJJJCJCJ("kECmkE9m") & CCCCJJ & CJJJCJCJ("k^E9m"):for CJJJJJJ=0 to ubound(str,2):response.Write CJJJCJCJ("kE5m") & str(CCCCJJ,CJJJJJJ) & CJJJCJCJ("k^E5m"):next:response.Write CJJJCJCJ("k^ECm"):next:response.Write CJJJCJCJ("k^E23=6m") end if elseif isnull(str) then response.Write CJJJCJCJ(",}F==.") else Response.Write replace(str,vbcrlf,CJJJCJCJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCJC,CJJJCCCJ):dim CCCCCJ:CCCCCJ=CJJJCCJC & CJJJCJCJ("l") & CJJJCCCJ & CJJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJCJ("$6E\r@@<:6"),CCCCCJ):End Sub::::::sub ShowMessage(CJJJCCCC):response.Charset="utf-8":Response.Write CJJJCJCJ("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") & CJJJCCCC & CJJJCJCJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CCCJCCJ(CJJJJCJ):if isnull(CJJJJCJ) or trim(CJJJJCJ)="" or not isnumeric(CJJJJCJ) then CCCJCCJ=false else Dim CJJJJCC:Set CJJJJCC = New RegExp:CJJJJCC.Pattern = CJJJCJCJ("/-5ZS"):CJJJJCC.IgnoreCase = True:CCCJCCJ = CJJJJCC.test(CJJJJCJ):set CJJJJCC=nothing end if:End Function:Function CCCJCCC(CJJCJJJJ):dim CJJJCJJ,CJJJCJC:CJJJCJJ=CJJJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJJ & CJJJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCJC=CJJCJJ.execute(CJJJCJJ):CCCJCCC = CJJJCJC(0):if isnull(CCCJCCC) then CCCJCCC=1 CJJJCJC.close : set CJJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CJJJCJC.close : set CJJJCJC=nothing:CJJCCC.Close : Set CJJCCC=Nothing:CJJCCJ.Close : Set CJJCCJ=Nothing:CCCCJCC.Close : Set CCCCJCC = Nothing:CJJCJJ.Close : Set CJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJJC,CJJCJJCJ):dim str,CJJJJCJ:str=CJJJCJCJ("!$*0") & Ucase(CJJCJJJC):if Session(str)<>"" then CJJJJCJ=DateDiff(CJJJCJCJ("D"),Session(str),Time):if CJJJJCJ0 then Call ConnClose:Call ShowMessage(CJJJCJCJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJJCJ & CJJJCJCJ(" ,种@,,迓@剤@ ,") & CJJCJJCJ-CJJJJCJ & CJJJCJCJ(" ,种@!,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCJJCC):dim CCCCJJ,CJJJJJJ,CJJJCCC,CJJCJJJ:on error resume next:CJJJCCC=ubound(CJJCJJCC):CJJCJJJ=ubound(CJJCJJCC,2):if err.number<>0 then err.clear:for CCCCJJ=0 to CJJJCCC:CJJCJJCC(CCCCJJ)=0:next else for CCCCJJ=0 to CJJJCCC:for CJJJJJJ=0 to CJJCJJJ:CJJCJJCC(CCCCJJ,CJJJJJJ)=0:next:next end if:End Sub:::Sub ClearCache(CJJCJCJJ):Application.Contents.Remove CJJCJCJJ End Sub::Class jTree:Private CJCJJJ, CJJCJJC, CJJCJCJ, CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Private Sub Class_Initialize():CJJCJCJ = 0:CJJCJCC = 0:CJJCCCC=10:End Sub:Public Property Let Table(CJJCJCJC):if CJJCJCJC="" then Call RedirectMessage(CJJJCJCJ("寴@丈@赲@,,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@!,")) CJJCCJJ=CJJCJCJC:CJJCCJC=CJJJCJCJ("!$*0") & UCase(CJJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCJJ:End Property:::Private Sub GetTreeArray():Dim CCCCJJ, CJJJJJJ, CJCJJJJ,CJCJJJC:CJJCJJC = Application(CJJCCJC):If Not IsArray(CJJCJJC) Then CJCJJJ = CJJJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJJ:if CJJCCCJ<>"" then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,H96C6 ,") & CJJCCCJ set CJCJJJJ=CJJCJJ.execute(CJCJJJ):CJCJJJC=CJCJJJJ(0):if CJCJJJC=0 then Call RedirectMessage(CJJJCJCJ("柠@话@W") & CJJCCJJ & CJJJCJCJ("^") & CJJCCCJ & CJJJCJCJ("X沜@朄@绎@林@敫@捩@")) CJJCJCC=CJCJJJC+CJJCCCC:ReDim CJJCJJC(CJJCJCC, 4):CJCJJJ = CJJJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJCJCJ(" ,H:E9 ,W?@=@4"" then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,H96C6 ,") & CJJCCCJ CJCJJJ=CJCJJJ & CJJJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=CJJCJJ.execute(CJCJJJ):For CCCCJJ = 1 To CJCJJJC:For CJJJJJJ = 0 To 4:CJJCJJC(CCCCJJ, CJJJJJJ) = CJCJJJJ(CJJJJJJ):if IsNull(CJJCJJC(CCCCJJ,4)) then CJJCJJC(CCCCJJ,4)=0 If CJJCJJC(CCCCJJ,2)="" then CJJCJJC(CCCCJJ,2)=CJJJCJCJ(",穵@.") Next:CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:for CCCCJJ=CJJCJCC-(CJJCCCC-1) to CJJCJCC:CJJCJJC(CCCCJJ,0)=CCCCJJ:next:Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock() else CJJCJCC=Ubound(CJJCJJC) End If:End Sub::::Public Function GetChild(CCCCCJC):Dim CCCCJJ, Str:CCCCCJC=CLng(CCCCCJC):For CCCCJJ = 1 To CJJCJCC:If CJJCJJC(CCCCJJ, 1) = CCCCCJC Then Str = Str & CJJJCJCJ("M") & CJJCJJC(CCCCJJ, 0) & CJJJCJCJ("M") & CJJCJJC(CCCCJJ,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJJJCJCJ("M")):End Function:Private Function CCCCCCC(CCCCCJC):dim CCCCJJ,CJCJJCJ:CCCCCCC=0:CJCJJCJ=CStr(CCCCCJC):if CJCJJCJ<>"0" then for CCCCJJ=1 to CJJCJCC:If CStr(CJJCJJC(CCCCJJ, 0))=CJCJJCJ Then CCCCCCC = CCCCJJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CCCCCJC):if Cstr(CCCCCJC)="0" then GetCurName=CJJJCJCJ("栴@") else Dim CCCCJJ,CJCJJJJ:CCCCJJ=CCCCCCC(CCCCCJC):if CCCCJJ>0 then GetCurName=CJJCJJC(CCCCJJ,2):if GetCurName="" then set CJCJJJJ=CJJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJCJCJ(" ,H96C6 ,:5l") & CCCCCJC):if CJCJJJJ.eof then Call RedirectMessage(CJJJCJCJ("xs(,") & CCCCCJC & CJJJCJCJ("),朥@批@别@")) GetCurName=CJCJJJJ(1):Call UpdateCache(CCCCCJC,CJCJJJJ(0),GetCurName,CJCJJJJ(2),CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing end if else set CJCJJJJ=CJJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJCJCJ(" ,H96C6 ,:5l") & CCCCCJC):if CJCJJJJ.eof then Call RedirectMessage(CJJJCJCJ("xs(,") & CCCCCJC & CJJJCJCJ("),朥@批@别@")) GetCurName=CJCJJJJ(1):Call UpdateCache(CCCCCJC,CJCJJJJ(0),GetCurName,CJCJJJJ(2),CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing end if end if:End Function:::Public Function CJJJJJJC(CCCCCJC):Dim CCCCJJ,CJCJJCC:CCCCJJ=CCCCCCC(CCCCCJC):if CCCCJJ=0 then CJCJJCC=CJJJJJCJ(CCCCCJC) else CJCJJCC=CJJCJJC(CCCCJJ,3):if isnull(CJCJJCC) or CJCJJCC="" then CJCJJCC=CJJJJJCJ(CCCCCJC) elseif Mid(CJCJJCC,instrrev(CJCJJCC,CJJJCJCJ("["))+1)<>CStr(CCCCCJC) then CJCJJCC=CJJJJJCJ(CCCCCJC) elseif Left(CJCJJCC,1)=CJJJCJCJ("[") then CJCJJCC=CJJJJJCJ(CCCCCJC) end if end if:CJJJJJJC=CJCJJCC:End Function:Private Function CJJJJJCJ(CCCCCJC):dim CJCJJCJ:CJCJJCJ=CStr(CCCCCJC):if CJCJJCJ="0" then CJJJJJCJ="" else dim CJCJJJJ:set CJCJJJJ=CJJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJCJCJ(" ,H96C6 ,:5l") & CCCCCJC):if CJCJJJJ.eof then Call UpdateCache(CCCCCJC,"","","",""):Call RedirectMessage(CJJJCJCJ("顴@盩@(,xs:,") & CCCCCJC & CJJJCJCJ("),丈@孓@圣@,,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCJJJJ(0)=0 then CJJJJJCJ="0," & CCCCCJC else CJJJJJCJ=CJJJJJJC(CJCJJJJ(0)) & CJJJCJCJ("[") & CCCCCJC end if:if CJCJJJJ(2)<>CJJJJJCJ then CJJCJJ.execute CJJJCJCJ("FA52E6 ,") & CJJCCJJ & CJJJCJCJ(" ,D6E ,A2E9lV") & CJJJJJCJ & CJJJCJCJ("V ,H96C6 ,:5l") & CCCCCJC else CJJJJJCJ=CJCJJJJ(2) end if end if:Call UpdateCache(CCCCCJC,CJCJJJJ(0),CJCJJJJ(1),CJJJJJCJ,CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing end if:End Function::::Public Function IsParent(CJJCJCCJ, CJJCJCCC):IsParent=InStr(CJJJJJJC(CJJCJCCC) & CJJJCJCJ("["), CJJJCJCJ("[") & CJJCJCCJ & CJJJCJCJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCCCJC):dim CJCJJCC:CJCJJCC=CJJJJJJC(CCCCCJC):Sql_GetChildren = CJJCCJJ & CJJJCJCJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJCC & CJJJCJCJ("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJC End Sub:Public Sub UpdateCache(CCCCCJC,CJJCCJJJ,CJJCCJJC,CJCJJCC,CJJCCJCJ):dim CCCCJJ,CJJJJJJ:CCCCCJC=CLng(CCCCCJC):CCCCJJ=CCCCCCC(CCCCCJC):if CJJCCJJJ="" and CJJCCJJC="" and CJCJJCC="" and CJJCCJCJ="" then if CCCCJJ>0 then for CJJJJJJ=1 to 4:CJJCJJC(CCCCJJ,CJJJJJJ)=Null:next end if else if CCCCJJ=0 then for CJJJJJJ=1 to CJJCJCC:if CJJCJJC(CJJJJJJ,1) & ""="" then CCCCJJ=CJJJJJJ:exit for end if:next end if:if CCCCJJ=0 then Call ClearCache else CJJCJJC(CCCCJJ,0)=CLng(CCCCCJC):if CJJCCJJJ<>"" then CJJCJJC(CCCCJJ,1)=CLng(CJJCCJJJ) if CJJCCJJC<>"" then CJJCJJC(CCCCJJ,2)=CJJCCJJC if CJCJJCC<>"" then CJJCJJC(CCCCJJ,3)=CJCJJCC if CJJCCJCJ<>"" then CJJCJJC(CCCCJJ,4)=CLng(CJJCCJCJ) end if end if:if CCCCJJ>0 then Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock() end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCCJCCC():CCCJCCC=CJJJJCJC+1:End Function:Private Function CJJJJCJC():dim CJJJCJC:set CJJJCJC=CJJCJJ.execute(CJJJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJJ & CJJJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJC=CJJJCJC(0):CJJJCJC.Close: Set CJJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJJCC=125:Const CCCJCJJ="工作倦怠调查问卷":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCJCJ("%6DE0#6A@CE"),30):dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:CJCCJJC=Request.QueryString(CJJJCJCJ("$49@@=")):CJCJCJJ=Request.QueryString(CJJJCJCJ("s6AE")):CJCJCJC=Request.QueryString(CJJJCJCJ("vC256")):CJCJCCJ=Request.QueryString(CJJJCJCJ("vC@FA")):CJCJCCC=Request.QueryString(CJJJCJCJ("E`")):CJCCJJJ=Request.QueryString(CJJJCJCJ("Ea")):CJCCJCJ=Request.QueryString(CJJJCJCJ("=6G6=")):if not CCCJCCJ(CJCJCJJ) then Call RedirectMessage(CJJJCJCJ("寴@丈@赲@,,糶@绚@厽@敫@丝@夬@!,")) dim CJJCJJC:set CJJCJJC=new jtree:CJJCJJC.table=CJJJCJCJ(">6>36C0EJA6"):if not CJJCJJC.IsParent(CJCCJJ,CJCJCJJ) then Call RedirectMessage(CJJJCJCJ("诠@苾@囯@W") & CJCJCJJ & CJJJCJCJ("X丈@圣@患@W") & CJCCJJ & CJJJCJCJ("X癿@箜@琁@苾@囯@冀@。,")) dim CJJJJCCJ:CJJJJCCJ=CJJCJJC.GetChild(CJCJCJJ):if ubound(CJJJJCCJ)<0 then Call RedirectMessage(CJJJCJCJ("陝@糶@苾@囯@诲@丈@襼@逄@别@曻@庐@尽@!,")) CJJJJCCJ=join(CJJJJCCJ,CJJJCJCJ("M")) & CJJJCJCJ("M_M共@仑@"):CJJJJCCJ=split(CJJJJCCJ,CJJJCJCJ("M")):dim CJCCJCC:CJCCJCC=CJJCJJC.GetCurName(CJCJCJJ):dim CCCCJJ,CJJJJJJ,CJJJJJC,CJCCCJJ,CJCCCJC,CJCCCCJ:dim CJCCCCC():redim CJCCCCC((ubound(CJJJJCCJ)-1)/2,9):for CCCCJJ=0 to ubound(CJJJJCCJ)-1 step 2:CJJJJJC=CCCCJJ/2:CJCCCCC(CJJJJJC,0)=CJJJJCCJ(CCCCJJ):CJCCCCC(CJJJJJC,1)=CJJJJCCJ(CCCCJJ+1):for CJJJJJJ=2 to ubound(CJCCCCC,2):CJCCCCC(CJJJJJC,CJJJJJJ)=0:next:next:dim CCJJJJJ(1,8):Call ArrayInit(CCJJJJJ):CCJJJJJ(0,0)=CJJJCJCJ("甲@"):CCJJJJJ(1,0)=CJJJCJCJ("奮@"):dim CCCCJC,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ:CCJJCJJ=Date:CCJJCJC=cdate(CJJJCJCJ("a___\`\`")):dim CCJCJJC(3,8):Call ArrayInit(CCJCJJC):CCJCJJC(0,0)=CJJJCJCJ("惀@绥@衫@竨@"):CCJCJJC(1,0)=CJJJCJCJ("亵@样@觞@低@"):CCJCJJC(2,0)=CJJJCJCJ("严@亵@戋@尬@愚@陈@佉@"):CCJCJJC(3,0)=CJJJCJCJ("怶@刁@"):CJCJJJ=CJJJCJCJ("D6=64E ,52E6E:>6[C6DF=E[>6>36C0EJA60A2E9[D4@C60C2H[D6I[E6DE286[?F>36C[C62=?2>6[>6>36CEJA6?2>6[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CJCCJJC else CJCJJJ=CJCJJJ & CJJJCJCJ(" ,2?5 ,") & CJJCJJC.Sql_GetChildren(CJCJCJJ) if CCCJCCJ(CJCJCJC) then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,2?5 ,8C256l") & CJCJCJC if CCCJCCJ(CJCJCCJ) then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CJCJCCJ if isdate(CJCJCCC) then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,2?5 ,52E6E:>6mlV") & CJCJCCC & CJJJCJCJ("V") if isdate(CJCCJJJ) then CJCJJJ=CJCJJJ & CJJJCJCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCCJJJ)+1 & CJJJCJCJ("V") set CJJCCJ=CJJCJC.execute(CJCJJJ):if CJJCCJ.eof then Call RedirectMessage(CJJJCJCJ("寴@丈@赲@,,迓@沜@朄@浆@访@讫@彐@。,")) while not CJJCCJ.eof:CJJJJJC=CJJCCJ(0):if CJJJJJCCCJJCJC then CCJJCJC=CJJJJJC if isnull(CJJCCJ(3)) then Call RedirectMessage(CJJCCJ(7) & CJJJCJCJ("(,") & CJJCCJ(6) & CJJJCJCJ("),癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@(,") & CJJCCJ(9) & CJJJCJCJ("),,,诲@柠@话@凵@杠@吉@创@陟@!,")) CCCCJC=split(CJJCCJ(1),CJJJCJCJ("M")):for CCCCJJ=0 to 3:CJJJJJC=cint(CCCCJC(CCCCJJ))+6:CCJCJJC(CCCCJJ,CJJJJJC)=CCJCJJC(CCCCJJ,CJJJJJC)+1:next:CCCCJC=split(CJJCCJ(3),CJJJCJCJ("M")):for CCCCJJ=0 to 3:CCJCJJC(CCCCJJ,1)=CCJCJJC(CCCCJJ,1) & CJJJCJCJ("M") & CCCCJC(CCCCJJ):next:if right(CJJCCJ(1),1)="2" then CCJJCCC=CCJJCCC & CJJCCJ(6) & CJJJCJCJ("M") & CJJCCJ(7) & CJJJCJCJ("M") & CJJCCJ(8) & CJJJCJCJ("M") & CCCCJC(0) & CJJJCJCJ("M") & CCCCJC(1) & CJJJCJCJ("M") & CCCCJC(2) & CJJJCJCJ("M") & CCCCJC(3) & vbcrlf end if:CJJJJJJ=ubound(CJCCCCC):for CCCCJJ=0 to CJJJJJJ-1:if instr(CJJCCJ(2) & CJJJCJCJ("["),CJJJCJCJ("[") & CJCCCCC(CCCCJJ,0) & CJJJCJCJ("["))>0 then CJJJJJJ=CCCCJJ:exit for end if:next:CCCCJJ=CJJJJJJ:CJCCCCC(CCCCJJ,2)=CJCCCCC(CCCCJJ,2)+1:for CJJJJJC=3 to 6:CJCCCCC(CCCCJJ,CJJJJJC)=CJCCCCC(CCCCJJ,CJJJJJC) & CJJJCJCJ("M") & CCCCJC(CJJJJJC-3):next:CJJJJJC=cint(right(CJJCCJ(1),1))+7:CJCCCCC(CCCCJJ,CJJJJJC)=CJCCCCC(CCCCJJ,CJJJJJC)+1:if CJJCCJ(4) then CCCCJJ=0 else CCCCJJ=1 CCJJJJJ(CCCCJJ,1)=CCJJJJJ(CCCCJJ,1)+1:for CJJJJJJ=0 to 3:CJJJJJC=CJJJJJJ+2:CCJJJJJ(CCCCJJ,CJJJJJC)=CCJJJJJ(CCCCJJ,CJJJJJC) & CJJJCJCJ("M") & CCCCJC(CJJJJJJ):next:CJJJJJC=cint(right(CJJCCJ(1),1))+6:CCJJJJJ(CCCCJJ,CJJJJJC)=CCJJJJJ(CCCCJJ,CJJJJJC)+1:CCJJCCJ=CCJJCCJ+CJJCCJ(5):CCJJJCJ=CCJJJCJ+1:CJJCCJ.movenext:wend:for CCCCJJ=0 to 3:CCCCJC=CJJJJCCC(split(Mid(CCJCJJC(CCCCJJ,1),3),CJJJCJCJ("M"))):CCJCJJC(CCCCJJ,2)=FormatNumber(CCCCJC(0),2,-1):CCJCJJC(CCCCJJ,3)=FormatNumber(CCCCJC(1),2,-1):CCJCJJC(CCCCJJ,4)=CCCCJC(3):CCJCJJC(CCCCJJ,5)=FormatNumber(CCCCJC(4),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJCJ("k9625m") & vbCrLf):Response.Write(CJJJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCJCJ("kE:E=6m")):Response.Write CJCCJCC:Response.Write(CJJJCJCJ("\")):Response.Write CCCJCJJ:Response.Write(CJJJCJCJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJCJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCJCJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCJCJ("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(CJJJCJCJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("k^9625m") & vbCrLf):Response.Write(CJJJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9`mkD>2==m")):Response.Write CJCCJCC:Response.Write(CJJJCJCJ("k^D>2==mk3Cm")):Response.Write CCCJCJJ:Response.Write(CJJJCJCJ("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm巠@佗@倡@怛@课@柠@衣@(,|qx),産@争@浆@诐@巠@佗@亵@呓@一,舧@癿@倡@怛@惀@冰@。,巠@佗@倡@怛@挂@癿@昪@仠@亵@丵@丶@襼@月@劜@寴@豜@癿@聇@丕@颁@埚@丨@,,仉@丕@亵@呓@戻@低@骇@别@癿@一,秈@惀@绥@衫@竨@、,亵@样@觞@低@咇@严@亵@戋@尬@愚@陈@佉@癿@痂@犱@。,巠@佗@倡@怛@牴@刦@宴@明@圣@月@劜@丕@、,敔@肭@筄@衇@丕@丨@亢@甚@,,巠@佗@倡@怛@氯@幮@轾@髓@伕@佺@呓@巠@扺@叒@轾@夢@癿@徾@琁@历@劖@。,严@亵@癿@臥@俜@徾@叒@别@扎@凶@,,寴@巠@佗@癿@烨@惀@、,秪@杼@怢@三@丶@劣@怢@逋@歠@涃@凊@,,甕@臮@伕@凵@玫@躦@徾@夬@课@癿@丈@偠@庲@痀@痂@。,浆@释@严@亵@癿@巠@佗@倡@怛@氯@幮@朄@判@争@帩@劤@呓@巠@叅@旱@亁@觞@巠@佗@绔@臥@巬@帡@杠@癿@冀@徾@癿@历@劖@犱@忼@,,揋@醍@偕@凵@一,宕@癿@课@敯@,,仠@序@寴@咇@觞@冮@巠@佗@倡@怛@闩@颓@,,帩@劤@亵@仧@曯@奸@癿@追@序@好@仅@髓@历@劖@、,忦@艽@奊@癿@礹@伕@玪@塾@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm朧@释@衣@公@孓@圣@丄@严@绯@庡@,,刁@刦@丵@惀@绥@衫@竨@、,亵@样@觞@低@、,严@亵@戋@尬@愚@陈@佉@,,丄@严@绯@庡@徒@刁@乆@咇@丵@释@衣@怶@刁@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm巠@佗@倡@怛@课@柠@衣@叿@绯@庡@觞@釅@k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE9m绯@庡@合@秫@k^E9mkE9m觞@釅@k^E9mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE5m惀@绥@衫@竨@k^E5mkE5m惀@愚@耒@竨@昪@挂@严@低@癿@惀@愚@贿@溋@迂@庡@涃@耒@,,仞@衣@严@亵@寴@历@劖@癿@访@伫@,,疭@乊@丈@堥@,,粹@劖@丢@夬@,,夬@厶@巠@佗@烨@惀@。,_\e刁@,,徒@刁@超@髓@仞@衣@粹@劖@丢@夬@,,惀@愚@衫@竨@超@丠@釈@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE5m亵@样@觞@低@k^E5mkE5m亵@样@觞@低@挂@严@亵@寴@仑@亵@癿@访@伫@,,衣@玫@丵@严@亵@仠@涃@杼@吡@宕@、,麶@朣@丈@亼@癿@忼@庡@寴@往@仑@亵@,,寴@往@月@劜@寴@豜@癿@贚@怢@癿@、,冲@淜@癿@、,迂@庡@疊@迗@癿@忼@庡@。,_\e刁@,,徒@刁@超@髓@仞@衣@寴@往@仑@亵@癿@贚@怢@忼@庡@超@張@烃@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE5m严@亵@戋@尬@愚@陈@佉@k^E5mkE5m严@亵@戋@尬@愚@陈@佉@挂@严@低@寴@臥@巬@巠@佗@癿@愊@乄@三@仲@倷@癿@访@仲@陈@佉@,,巠@佗@戋@尬@癿@丆@陈@。,_\e刁@,,徒@刁@超@髓@仞@衣@严@亵@巠@佗@戋@尬@愚@超@佉@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE5m怶@刁@k^E5mkE5m怶@刁@愊@呮@眻@严@亵@巠@佗@倡@怛@癿@稆@庡@,,疭@争@序@寴@巠@佗@,,徾@琁@历@劖@轾@夢@。,_\e刁@,,徒@刁@超@髓@仞@衣@巠@佗@倡@怛@惀@冰@超@丠@釈@,,徾@琁@历@劖@超@夢@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm")):Response.Write formatdatetime(CCJJCJJ,1):Response.Write(CJJJCJCJ("~,")):Response.Write formatdatetime(CCJJCJC,1):Response.Write(CJJJCJCJ("k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm歟@欜@浆@柠@羟@低@癿@兲@低@揊@迫@好@丆@:,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kF=m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k=:m楽@迫@:, ,公@讜@")):Response.Write CCJJJCJ:Response.Write(CJJJCJCJ("亵@厽@三@,,共@丨@甲@怢@")):Response.Write CCJJJJJ(0,1):Response.Write(CJJJCJCJ("亵@,,奮@怢@")):Response.Write CCJJJJJ(1,1):Response.Write(CJJJCJCJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k=:m幯@齿@:, ,幮@坂@幯@齿@")):Response.Write formatnumber(CCJJCCJ/CCJJJCJ,2,-1):Response.Write(CJJJCJCJ("屼@。,k^=:m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k=:m卐@佈@:,") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):CJJJJJJ=0:for CCCCJJ=0 to ubound(CJCCCCC):if CJCCCCC(CCCCJJ,2)>0 then CJJJJJJ=CJJJJJJ+1:response.Write CJCCCCC(CCCCJJ,1) & CJCCCCC(CCCCJJ,2) & CJJJCJCJ("亵@,,") end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,公@讜@")):Response.Write CJJJJJJ:Response.Write(CJJJCJCJ("严@卐@佈@。,") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bm`] ,阮@怢@梻@凵@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm圣@浆@柠@羟@低@丨@,,朄@")):Response.Write CCJJJCJ-CCJCJJC(3,8):Response.Write(CJJJCJCJ("亵@昪@歞@帳@癿@,,戻@卛@每@來@丵@")):Response.Write FormatPercent((CCJJJCJ-CCJCJJC(3,8))/CCJJJCJ,2,-1):Response.Write(CJJJCJCJ(";,朄@")):Response.Write CCJCJJC(3,8):Response.Write(CJJJCJCJ("亵@巠@佗@倡@怛@氯@幮@轾@髓@,,戻@卛@每@來@丵@")):Response.Write FormatPercent(CCJCJJC(3,8)/CCJJJCJ,2,-1):Response.Write(CJJJCJCJ("。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD4C:AE ,DC4lQ^D4C:AED^492CE];Dn4lA:6U9lad_UIl歞@帳@亵@羟@[轾@髓@巠@佗@倡@怛@亵@羟@UGl")):Response.Write CCJJJCJ-CCJCJJC(3,8):Response.Write(CJJJCJCJ("[")):Response.Write CCJCJJC(3,8):Response.Write(CJJJCJCJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm仠@丆@丵@梻@凵@戋@呓@合@卐@,,诲@釈@炴@兮@泣@仠@丆@梻@凵@亵@呓@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECmkE9m缑@史@k^E9mkE9m姎@合@k^E9mkE9m卐@佈@k^E9mkE9m惀@绥@衫@竨@k^E9mkE9m亵@样@觞@低@k^E9mkE9m严@亵@戋@尬@愚@陈@佉@k^E9mkE9m怶@刁@k^E9mk^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):CCCCJC=split(CCJJCCC,vbcrlf):for CCCCJJ=0 to ubound(CCCCJC)-1:Response.Write CJJJCJCJ("kECm"):CCJJJJC=split(CCCCJC(CCCCJJ),CJJJCJCJ("M")):for CJJJJJJ=0 to ubound(CCJJJJC):Response.Write CJJJCJCJ("kE5m") & CCJJJJC(CJJJJJJ) & CJJJCJCJ("k^E5m"):next:Response.Write CJJJCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bma] ,徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm怶@低@徒@刁@刁@巾@惀@冰@k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m顴@盩@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to 3:Response.Write CJJJCJCJ("kECmkE5m") & CCJCJJC(CCCCJJ,0) & CJJJCJCJ("k^E5m"):for CJJJJJJ=6 to 8:Response.Write CJJJCJCJ("kE5m") & CCJCJJC(CCCCJJ,CJJJJJJ) & CJJJCJCJ("k^E5m"):next:Response.Write CJJJCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):redim CCCCJC(2):for CCCCJJ=0 to 2:CJJJJJJ=CCCCJJ+6:CCCCJC(CCCCJJ)=CCJCJJC(3,CJJJJJJ)/CCJJJCJ:next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kAm怶@刁@徒@刁@轾@佉@亵@羟@卛@每@")):Response.Write FormatPercent(CCCCJC(0),2,-1):Response.Write(CJJJCJCJ(",,徒@刁@丨@筄@亵@羟@卛@每@")):Response.Write FormatPercent(CCCCJC(1),2,-1):Response.Write(CJJJCJCJ(",,徒@刁@轾@髓@亵@羟@卛@每@")):Response.Write FormatPercent(CCCCJC(2),2,-1):Response.Write(CJJJCJCJ("。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):if CCCCJC(0)>=CCCCJC(1) and CCCCJC(0)>=CCCCJC(2) then Response.Write CJJJCJCJ("kAm怶@低@巠@佗@倡@怛@惀@冰@每@轾@之@覽@,,夢@郣@刁@亵@呓@埵@朧@丈@孓@圣@巠@佗@倡@怛@癿@惀@冰@,,什@孓@圣@尌@释@亵@呓@朄@一,宕@癿@巠@佗@倡@怛@,,仑@仧@只@胸@伕@孓@圣@疭@争@序@寴@巠@佗@,,徾@琁@历@劖@轾@夢@癿@惀@冰@。,只@仠@釈@炴@兮@泣@巠@佗@倡@怛@徒@刁@丵@丨@筄@咇@轾@髓@癿@亵@羟@,,牴@刦@昪@梻@凵@合@卐@丨@癿@亵@羟@,,兮@泣@仑@仧@愚@别@疭@倡@癿@厚@四@,,幱@绔@亃@兮@忻@。,k^Am") elseif CCCCJC(1)>=CCCCJC(0) and CCCCJC(1)>=CCCCJC(2) then Response.Write CJJJCJCJ("kAm怶@低@巠@佗@倡@怛@惀@冰@壿@争@丨@筄@氯@幮@,,什@朄@尌@敫@亵@呓@孓@圣@轾@髓@癿@巠@佗@倡@怛@,,夢@夕@敫@亵@呓@孓@圣@丨@筄@癿@巠@佗@倡@怛@,,仑@仧@伕@愚@叒@别@一,亖@巠@佗@癿@历@劖@,,巠@佗@认@仑@仧@愚@规@疭@倡@,,郣@刁@亵@呓@伕@忻@疌@臥@巬@巠@佗@癿@愊@乄@,,忻@疌@臥@巬@癿@胸@劖@,,寴@巠@佗@仲@倷@亢@甚@囫@惌@。,乚@朄@郣@刁@亵@呓@徾@忼@轾@奸@,,圣@巠@佗@丨@鲗@朄@愚@叒@别@历@劖@,,粹@劖@兀@沖@,,胸@多@仉@巠@佗@丨@莲@徒@一,宕@癿@戋@尬@愚@。,诲@釈@炴@兮@泣@巠@佗@倡@怛@轾@髓@癿@梻@凵@亵@呓@,,乚@寴@夢@夕@敫@戋@呓@绔@亃@一,亖@兮@忻@,,陈@佉@一,亖@历@劖@。,k^Am") else Response.Write CJJJCJCJ("kAm怶@低@巠@佗@倡@怛@惀@冰@丈@宴@之@覽@,,轾@夕@亵@呓@孓@圣@丨@筄@我@轾@髓@氯@幮@癿@巠@佗@倡@怛@,,仑@仧@圣@巠@佗@丨@只@胸@叒@别@亁@轾@夕@癿@徾@琁@历@劖@,,圣@巠@佗@旱@每@轾@丈@廻@徾@,,寴@巠@佗@愚@别@疭@倡@,,徾@琁@偠@庲@我@躦@低@偠@庲@只@胸@叒@别@亁@一,宕@癿@彬@哈@,,返@郣@刁@亵@呓@電@襼@一,殰@旱@闯@癿@伌@恪@咇@课@敯@。,k^Am") end if:CJCCCJC=CJJJCJCJ(",V轾@佉@V[V丨@筄@V[V轾@髓@V.") for CCCCJJ=0 to 3:CJCCCJC=CJCCCJC & CJJJCJCJ("[,") & CCJCJJC(CCCCJJ,6) & CJJJCJCJ("[") & CCJCJJC(CCCCJJ,7) & CJJJCJCJ("[") & CCJCJJC(CCCCJJ,8) & CJJJCJCJ("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UEl怶@低@刁@巾@惀@冰@U9lad_UIl惀@绥@衫@竨@M亵@样@觞@低@M严@亵@戋@尬@愚@陈@佉@M怶@刁@UGl")):Response.Write CJCCCJC:Response.Write(CJJJCJCJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bmb] ,徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m绯@庡@合@秫@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m杼@夢@倷@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m杼@尊@倷@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m坂@倷@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to 3:Response.Write CJJJCJCJ("kECmkE5m") & CCJCJJC(CCCCJJ,0) & CJJJCJCJ("k^E5mkE5m") & CCJCJJC(CCCCJJ,2) & CJJJCJCJ("k^E5mkE5m") & CCJCJJC(CCCCJJ,3) & CJJJCJCJ("k^E5mkE5m") & FormatNumber(CCJCJJC(CCCCJJ,4),2,-1) & CJJJCJCJ("k^E5mkE5m") & CCJCJJC(CCCCJJ,5) & CJJJCJCJ("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):Response.Write CJJJCJCJ("kAm【,惀@绥@衫@竨@】,"):if CCJCJJC(0,4)<=2 then Response.Write CJJJCJCJ("叒@浆@羟@低@讟@丵@彎@剈@癿@巠@佗@每@轾@轶@杹@,,圣@巠@佗@丨@徃@尌@伕@愚@叒@别@徃@夢@癿@历@劖@,,偱@小@伕@凵@玫@癿@历@劖@乚@伕@袦@徃@忦@癿@觞@冮@,,亵@仧@癿@惀@绥@犱@忼@静@帳@奸@,,胸@多@仠@兀@沖@癿@洶@劖@靝@寴@巠@佗@,,卮@佺@巠@佗@亁@一,夤@乚@丈@伕@规@徒@徃@疭@倡@。,") elseif CCJCJJC(0,4)<=4 then Response.Write CJJJCJCJ("叒@浆@羟@低@胸@多@愚@叒@别@巠@佗@丨@孓@圣@癿@轾@夢@癿@历@劖@,,惀@绥@壿@圣@轾@疭@劮@癿@犱@忼@,,朄@亖@亵@偱@小@伕@亢@甚@轾@澻@劣@癿@惀@绥@癿@愚@规@,,佁@颌@玂@丈@髓@,,夢@宱@埵@朧@胸@多@课@艽@咇@缎@觞@臥@巬@癿@历@劖@。,") else Response.Write CJJJCJCJ("叒@浆@羟@低@胸@多@愚@叒@别@巠@佗@帡@杠@轾@夢@癿@历@劖@,,巠@佗@历@劖@旱@帳@认@仑@仧@喓@丈@迂@氏@杠@。,甬@争@镺@旱@闯@扺@拀@迂@釈@癿@历@劖@,,朄@亖@亵@伕@旱@帳@亢@甚@寴@巠@佗@厇@烡@癿@惀@绥@。,朄@郣@刁@戋@呓@偱@小@伕@朄@惀@绥@爁@双@癿@惀@冰@,,虸@焱@返@秈@愚@规@徃@矨@晽@,,佁@仈@寴@仑@仧@癿@躦@徾@偠@庲@朄@釈@襼@彬@哈@。,惀@绥@壿@争@杼@明@疭@劮@犱@忼@,,巠@佗@烨@惀@宇@兣@褥@厶@,,卮@佺@沜@朄@夥@夕@低@劖@我@脌@劖@癿@劮@劣@,,佁@圣@巠@佗@一,殰@旱@闯@吉@乚@伕@躦@徾@俬@疭@,,丈@惮@绢@绨@巠@佗@。,") end if:Response.Write CJJJCJCJ("k^Am"):Response.Write CJJJCJCJ("kAm【,亵@样@觞@低@】,"):if CCJCJJC(1,4)<=2 then Response.Write CJJJCJCJ("叒@浆@羟@低@寴@往@巠@佗@、,吇@了@咇@宝@戲@癿@徾@忼@静@帳@秪@杼@,,愺@愊@仠@肪@宕@癿@徾@忼@寴@往@仑@亵@咇@巠@佗@。,咇@仑@亵@癿@沚@逕@每@轾@页@畀@,,愺@愊@掠@纮@仑@亵@癿@惮@泐@咇@廵@让@。,仑@仧@癿@巠@佗@劣@劖@咇@烨@惀@兀@趮@,,寴@巠@佗@匼@刁@愚@兯@趞@,,乚@帇@朖@臥@巬@胸@多@曯@夢@稆@庡@癿@抐@兠@巠@佗@彎@丨@,,幱@愺@愊@丵@巠@佗@咇@宝@戲@偕@凵@臥@巬@癿@贜@猩@。,") elseif CCJCJJC(1,4)<=4 then Response.Write CJJJCJCJ("叒@浆@羟@低@偱@小@伕@亢@甚@一,亖@莦@合@癿@涃@杼@咇@感@丑@嫄@俒@癿@愚@规@,,返@秈@愚@叒@丈@宴@明@袦@琁@觞@。,返@秈@愚@叒@昪@矨@晽@癿@,,仑@仧@偱@小@伕@囙@忁@赲@杠@,,佁@幱@丈@彬@哈@无@帳@癿@巠@佗@。,朄@亖@伕@圣@巠@佗@丨@遂@别@一,亖@囫@隹@,,囫@隹@伕@认@亵@仧@忻@疌@返@亖@巠@佗@昪@吡@倷@徒@仑@仧@仓@凵@轾@夕@癿@劥@劖@,,偕@凵@轾@夢@癿@贜@猩@。,") else Response.Write CJJJCJCJ("叒@浆@羟@低@伕@朄@一,亖@涃@杼@、,感@丑@嫄@俒@癿@愚@规@。,仑@仧@伕@讟@丵@柋@亖@巠@佗@我@耀@宝@戲@圣@柋@秈@稆@庡@丅@丈@倷@徒@偕@凵@贜@猩@,,丈@倷@徒@卛@産@夥@夕@癿@粹@劖@咇@旱@闯@。,朄@亖@亵@讟@丵@吇@了@咇@宝@戲@朄@旱@倔@徃@隹@琁@觞@臥@巬@癿@惮@泐@,,咇@仑@仧@迖@衇@沚@逕@伕@朄@一,亖@囫@隹@。,朄@亖@戋@呓@讟@丵@臥@巬@癿@巠@佗@沜@朄@徒@别@釈@见@,,寴@巠@佗@癿@朚@往@稆@庡@朄@戻@丆@陈@,,寴@往@巠@佗@沜@朄@曻@刘@癿@烨@惀@咇@劣@劖@。,") end if:Response.Write CJJJCJCJ("k^Am"):Response.Write CJJJCJCJ("kAm【,严@亵@戋@尬@愚@陈@佉@】,"):if CCJCJJC(2,4)<=2 then Response.Write CJJJCJCJ("叒@浆@羟@低@徃@滜@愊@臥@巬@彎@剈@宇@戋@癿@巠@佗@,,讟@丵@臥@巬@朄@胸@劖@厶@挌@戓@隹@庡@曯@髓@癿@巠@佗@。,朄@一,宕@隹@庡@癿@巠@佗@胸@绔@仑@仧@帡@杠@匼@趮@癿@戋@尬@愚@,,仑@仧@讟@丵@偕@隹@庡@轾@夢@癿@巠@佗@寴@胸@劖@癿@揋@卂@昪@朄@帩@劤@癿@。,仑@仧@寴@巠@佗@癿@盩@栂@每@轾@渀@晫@,,讟@丵@彎@剈@癿@巠@佗@昪@朄@愊@乄@癿@,,幱@愺@愊@拼@绨@巠@佗@丆@厶@。,") elseif CCJCJJC(2,4)<=4 then Response.Write CJJJCJCJ("叒@浆@羟@低@偱@小@伕@拀@忢@臥@巬@癿@胸@劖@丈@趮@仠@序@仓@彎@剈@癿@巠@佗@,,伕@亢@甚@胸@劖@丈@趮@癿@卬@朵@愚@。,仑@仧@胸@多@愚@叒@别@巠@佗@癿@盩@癿@咇@愊@乄@,,佁@乚@伕@偱@小@忻@疌@臥@巬@癿@胸@劖@咇@巠@佗@癿@斴@同@。,偱@小@伕@丈@滜@愊@臥@巬@偕@迂@癿@了@惀@。,") else Response.Write CJJJCJCJ("叒@浆@羟@低@癿@严@亵@戋@尬@愚@轾@佉@,,仑@仧@彻@彻@伕@规@徒@臥@巬@隹@仠@胗@件@彎@剈@癿@巠@佗@。,臥@躦@癿@胸@劖@虸@焱@圣@丈@斨@揋@髓@,,佁@仈@伕@认@仑@仧@亢@甚@隹@仠@胗@件@巠@佗@癿@惮@泐@,,规@徒@臥@躦@癿@胸@劖@仈@焱@丈@多@。,朄@亖@亵@伕@旱@帳@忻@疌@巠@佗@癿@愊@乄@,,拀@徾@臥@巬@癿@巠@佗@戋@林@昪@吡@偊@禶@巠@佗@朧@躦@戻@電@,,丈@渀@楕@臥@巬@癿@斴@同@三@盩@癿@。,仑@仧@丈@滜@愊@臥@巬@偕@迂@癿@了@惀@,,囙@忁@赲@臥@巬@迂@厶@癿@戋@尬@,,伕@规@徒@返@亖@幱@沜@朄@夥@夕@癿@愊@乄@。,朄@亖@亵@寴@巭@朄@癿@戋@尬@幱@沜@朄@愚@别@徃@廻@徾@,,卯@參@丈@夥@愺@愊@宇@戋@柋@仱@轾@隹@癿@了@惀@。,") end if:Response.Write CJJJCJCJ("k^Am"):Response.Write CJJJCJCJ("kAm【,怶@刁@】,"):if CCJCJJC(3,4)<=2 then Response.Write CJJJCJCJ("叒@浆@羟@低@埵@朧@丈@孓@圣@巠@佗@倡@怛@惀@冰@,,圣@巠@佗@丨@徃@尌@愚@别@历@劖@,,规@徒@巠@佗@每@轾@轶@杹@,,卮@佺@忔@碇@一,敯@夤@,,乚@丈@伕@规@徒@徃@疭@倡@。,仑@仧@寴@巠@佗@癿@忼@庡@匼@刁@秪@杼@,,愺@愊@掠@扆@曯@夕@癿@巠@佗@咇@掠@觡@曯@夕@癿@宝@戲@。,夢@夕@敫@亵@倹@同@争@讟@丵@巠@佗@昪@寴@臥@巬@癿@一,秈@揋@卂@咇@锶@炷@,,胸@多@仉@巠@佗@丨@莲@徒@臥@巬@惮@襼@癿@愄@悡@愚@咇@戋@尬@愚@。,寴@巠@佗@我@耀@衇@丕@兀@滜@俜@徾@,,幱@愺@愊@镺@朚@拼@乀@癿@巠@佗@。,") elseif CCJCJJC(3,4)<=4 then Response.Write CJJJCJCJ("叒@浆@羟@低@巠@佗@倡@怛@稆@庡@丨@筄@。,圣@巠@佗@丨@朄@旱@伕@愚@叒@别@徃@夢@癿@历@劖@,,朄@旱@规@徒@丅@珨@静@帳@紪@。,郣@刁@戋@呓@旱@帳@伕@规@徒@丈@胸@胗@件@玫@圣@癿@巠@佗@,,忻@疌@臥@巬@癿@胸@劖@,,愚@规@丈@胸@朄@敃@圫@觞@冮@巠@佗@丨@凵@玫@癿@闩@颓@。,郣@刁@戋@呓@偱@小@伕@愚@规@别@囫@惌@,,忻@疌@臥@巬@巠@佗@癿@戋@尬@、,仲@倷@咇@愊@乄@。,") else Response.Write CJJJCJCJ("叒@浆@羟@低@巠@佗@倡@怛@稆@庡@轾@髓@。,圣@巠@佗@丨@怶@昪@愚@别@朄@徃@夢@癿@历@劖@,,甕@臮@宴@明@惀@绥@夬@探@。,怶@规@徒@丅@珨@静@帳@紪@。,仑@仧@伕@忻@疌@臥@巬@巠@佗@癿@愊@乄@咇@胸@劖@,,乚@丈@圣@愊@臥@巬@昪@吡@偕@凵@贜@猩@。,朄@亖@亵@规@徒@臥@巬@丈@胸@胗@件@玫@圣@癿@巠@佗@,,卮@佺@觞@冮@亁@巠@佗@丨@凵@玫@癿@隹@颓@,,莲@徒@亁@轾@髓@癿@戋@尬@,,乚@低@骇@丈@别@巠@佗@帡@杠@癿@愄@悡@愚@、,戋@尬@愚@咇@仲@倷@愚@。,") end if:Response.Write CJJJCJCJ("k^Am"):Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am亏@、,丈@吇@卐@佈@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bm`] ,阮@怢@梻@凵@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m卐@佈@合@秫@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m怶@刁@梻@凵@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to ubound(CJCCCCC):if CJCCCCC(CCCCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write CJCCCCC(CCCCJJ,1):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CJCCCCC(CCCCJJ,9):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write formatpercent(CJCCCCC(CCCCJJ,9)/CJCCCCC(CCCCJJ,2),2,-1):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bma] ,怶@刁@徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to ubound(CJCCCCC):if CJCCCCC(CCCCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write CJCCCCC(CCCCJJ,1):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CJCCCCC(CCCCJJ,7):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CJCCCCC(CCCCJJ,8):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CJCCCCC(CCCCJJ,9):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):CJCCCJC=CJJJCJCJ(",V轾@佉@V[V丨@筄@V[V轾@髓@V.") for CCCCJJ=0 to ubound(CJCCCCC):if CJCCCCC(CCCCJJ,2)>0 then CJCCCJJ=CJCCCJJ & CJJJCJCJ("M") & CJCCCCC(CCCCJJ,1):CCJCJJJ="":for CJJJJJJ=7 to 9:CCJCJJJ=CCJCJJJ & CJJJCJCJ("[") & CJCCCCC(CCCCJJ,CJJJJJJ):next:CJCCCJC=CJCCCJC & CJJJCJCJ("[,") & mid(CCJCJJJ,2) & CJJJCJCJ(".") end if:next:CJCCCJJ=mid(CJCCCJJ,2):Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQIQ ,G2=F6lQ")):Response.Write CJCCCJJ:Response.Write(CJJJCJCJ("Qm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write CJCCCJC:Response.Write(CJJJCJCJ("Qm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUE:E=6l叿@卐@佈@怶@刁@刁@巾@惀@冰@UDl`U9l")):Response.Write (ubound(split(CJCCCJJ,CJJJCJCJ("M")))+1)*40+200:Response.Write(CJJJCJCJ("U=l_Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bmb] ,丈@吇@四@孋@癿@徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,C@HDA2?lQaQm卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm惀@绥@衫@竨@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm亵@样@觞@低@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm严@亵@戋@尬@愚@陈@佉@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm怶@刁@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to ubound(CJCCCCC):if CJCCCCC(CCCCJJ,2)>0 then Response.Write CJJJCJCJ("kECmkE5m") & CJCCCCC(CCCCJJ,1) & CJJJCJCJ("k^E5m"):for CJJJJJJ=3 to 6:CCCCJC=CJJJCJJJ(split(Mid(CJCCCCC(CCCCJJ,CJJJJJJ),3),CJJJCJCJ("M"))):Response.Write CJJJCJCJ("kE5m") & formatnumber(CCCCJC(0),2,-1) & CJJJCJCJ("k^E5mkE5m") & formatnumber(CCCCJC(1),2,-1) & CJJJCJCJ("k^E5m"):next:Response.Write CJJJCJCJ("k^ECm") end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am全@、,丈@吇@怢@刦@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bm`] ,阮@怢@梻@凵@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm绚@讜@丈@吇@怢@刦@巠@佗@倡@怛@轾@髓@癿@亵@敫@,,徒@别@绎@林@好@丆@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m怶@刁@梻@凵@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,0):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,8):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write formatpercent(CCJJJJJ(CCCCJJ,8)/CCJJJJJ(CCCCJJ,1),2,-1):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bma] ,徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,0):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,6):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,7):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE5m")):Response.Write CCJJJJJ(CCCCJJ,8):Response.Write(CJJJCJCJ("k^E5m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):CJCCCJC=CJJJCJCJ(",V轾@佉@V[V丨@筄@V[V轾@髓@V.") for CCCCJJ=0 to 1:CJCCCJC=CJCCCJC & CJJJCJCJ("[,") & CCJJJJJ(CCCCJJ,6) & CJJJCJCJ("[") & CCJJJJJ(CCCCJJ,7) & CJJJCJCJ("[") & CCJJJJJ(CCCCJJ,8) & CJJJCJCJ("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lad_UEl怶@刁@丈@吇@怢@刦@刁@巾@惀@冰@UIl甲@怢@M奮@怢@UGl")):Response.Write CJCCCJC:Response.Write(CJJJCJCJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bmb] ,徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,C@HDA2?lQaQm怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm惀@绥@衫@竨@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm亵@样@觞@低@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm严@亵@戋@尬@愚@陈@佉@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9 ,4@=DA2?lQaQm怶@刁@k^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJCJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,")):for CCCCJJ=0 to 1:Response.Write CJJJCJCJ("kECmkE5m") & CCJJJJJ(CCCCJJ,0) & CJJJCJCJ("k^E5m"):for CJJJJJJ=2 to 5:CCCCJC=CJJJCJJJ(split(Mid(CCJJJJJ(CCCCJJ,CJJJJJJ),3),CJJJCJCJ("M"))):Response.Write CJJJCJCJ("kE5m") & formatnumber(CCCCJC(0),2,-1) & CJJJCJCJ("k^E5mkE5m") & formatnumber(CCCCJC(1),2,-1) & CJJJCJCJ("k^E5m"):next:Response.Write CJJJCJCJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJCJCJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJJCJCJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bm`] ,偕@奸@巠@佗@岒@佈@刁@枋@,,宙@玫@亵@岒@吃@琁@酈@罩@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm逕@迂@覿@苾@丕@劜@洼@稆@,,仼@丕@只@仠@寴@巠@佗@迖@衇@釈@斫@讹@讜@咇@宄@掍@,,封@贚@拀@迂@釈@癿@巠@佗@追@彎@凊@轶@,,甬@夕@亵@刁@拀@;,封@迂@争@枪@燠@癿@巠@佗@迖@衇@扤@夢@匑@咇@丫@寇@匑@,,墙@力@巠@佗@冀@宴@,,赆@亃@曯@夕@贞@件@,,佺@呓@巠@愚@叒@别@巠@佗@癿@趞@呮@咇@愊@乄@。,迖@一,歠@昉@硩@岒@佈@聇@贞@乚@胸@丵@呓@巠@癿@绤@敃@考,栳@讹@罩@曯@秌@孡@癿@挂@栂@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bma] ,宇@啿@绤@敃@考,栳@箜@琁@,,宙@玫@歞@靝@澻@劬@佗@産@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm艪@奸@癿@绤@敃@考,栳@只@仠@澻@劬@呓@巠@。,昉@硩@释@匑@栂@凁@,,揋@髓@只@擈@佗@怢@,,绷@吃@访@仲@呓@巠@巠@佗@冀@宴@,,彝@戋@宕@怢@三@宕@释@癿@挂@栂@低@糶@。,搨@廵@畀@逕@癿@沚@逕@減@過@,,澻@劬@呓@巠@,,力@張@考,栳@迂@稆@丨@癿@逊@昉@庡@咇@厽@三@愚@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bmb] ,力@張@徾@琁@偠@庲@秌@晩@,,揋@髓@呓@巠@平@禊@愚@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm徾@琁@偠@庲@昪@亵@圣@戋@镺@咇@双@屐@迂@稆@丨@,,讟@矠@吃@琁@、,惀@绥@種@宕@、,衇@丵@追@彎@、,亵@陀@咇@谋@、,追@序@叓@匑@癿@一,秈@宇@奸@犱@忼@。,呓@巠@聇@丕@倡@怛@惀@冰@三@徾@琁@偠@庲@恪@恪@盳@兮@,,力@張@徾@琁@偠@庲@矠@证@癿@晩@叅@,,胸@多@顿@阭@我@凊@尌@叿@籶@徾@琁@衇@丵@闩@颓@,,揋@髓@呓@巠@巠@佗@、,甚@洶@癿@平@禊@愚@,,侾@迖@徾@琁@偠@庲@,,揋@髓@甚@洶@责@释@。,徾@琁@偠@庲@秌@晩@癿@兲@低@彝@弊@朄@徾@琁@偠@庲@矠@证@训@庢@、,徾@琁@偠@庲@诹@稆@、,囝@低@辀@寷@渳@戊@、,沔@盓@渳@戊@筄@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,k9bmc] ,丵@呓@巠@揋@侖@徾@琁@咣@话@月@劜@,,朄@钃@寴@怢@圫@觞@冮@徾@琁@闩@颓@k^9bm") & vbCrLf):Response.Write(CJJJCJCJ(" ,kAm彎@呓@巠@凵@玫@轾@張@烃@癿@徾@琁@偠@庲@闩@颓@,,我@耀@聇@丕@倡@怛@闩@颓@旱@,,電@襼@迖@衇@叅@旱@壿@琁@,,曻@奸@癿@斴@泐@昪@揋@侖@一,寴@一,癿@徾@琁@咣@话@月@劜@。,徾@琁@咣@话@胸@多@朄@敃@圫@攴@啿@彎@剈@徾@琁@偠@庲@犱@冰@,,胸@多@圣@一,宕@稆@庡@丅@寴@痂@丆@荪@,,觞@冮@徾@琁@偠@庲@闩@颓@。,徾@琁@咣@话@月@劜@癿@彝@弊@朄@匶@陝@、,徾@琁@咣@话@巠@佗@実@癿@靝@寴@靝@亟@洼@;,逕@迂@见@颌@、,田@诘@筄@斴@弊@癿@迗@稆@咣@话@月@劜@。,k^Am") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJCJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJCJCJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJCCJCC:Response.Write(CJJJCJCJ(" ,U>:55@Ej ,")):Response.Write CCCJCJJ:Response.Write(CJJJCJCJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJCJCJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJCJCJ(" ,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(CJJJCJCJ(" ,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(CJJJCJCJ(" ,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(CJJJCJCJ(" ,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(CJJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJCJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJCJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCJCJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CJJCCC.Close:Set CJJCCC=Nothing:CJJCCJ.Close:Set CJJCCJ=Nothing:CJJCJJ.Close:Set CJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJCJCJ(ByVal CJJJCJJC) Dim CJCCCJC, CCCCJJ, CJJJJCJ CJJJCJJC = Replace(CJJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCCJJ = 1 To Len(CJJJCJJC) If CCCCJJ <> CJJJJCJ Then CJCCCJC = AscW(Mid(CJJJCJJC, CCCCJJ, 1)) If CJCCCJC >= 33 And CJCCCJC <= 79 Then CJJJCJCJ = CJJJCJCJ & Chr(CJCCCJC + 47) ElseIf CJCCCJC >= 80 And CJCCCJC <= 126 Then CJJJCJCJ = CJJJCJCJ & Chr(CJCCCJC - 47) Else CJJJJCJ = CCCCJJ + 1 If Mid(CJJJCJJC, CJJJJCJ, 1) = Chr(64) Then CJJJCJCJ = CJJJCJCJ & ChrW(CJCCCJC + 5) Else CJJJCJCJ = CJJJCJCJ & Mid(CJJJCJJC, CCCCJJ, 1) End If End If Next End Function %>