<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CJJJJJJC("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJJJJJJC("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJJJJJC("!$*|t|qt#"))):if CCJJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJC>0 then CJJJJJ=CJJJJJJC("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(CJJJJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJJJC,CJJJCJ) End IF end if:Sub CheckRight(CCCCCJ):dim CCJCJJ,CCJCJC:if CJJJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CCJCJCC(CCCCCJ) then Call RedirectMessage(CJJJJJJC("朾@陋@W") & CCCCCJ & CJJJJJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCJCJCC(CCCCCJ):dim CCJCJJ,CCJCJC:CCJCJC=split(CCCCCJ,CJJJJJJC("[")):CCJCJCC=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then CCJCJCC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJJC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCJ,CCJCCC,CCJCJJ,CCCJJJ,CCCJJC:CCJCCJ=split(CCJJCC,CJJJJJJC("]")):if ubound(CCJCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJCCJ(0)) or len(CCJCCJ(1))<>32 or len(CCJCCJ(2))<>32 then Call ClearMemberCookie else CCJCCC=CCJCCJ(1):for CCJCJJ=1 to len(CCJCCC):CCCJJJ=mid(CCJCCC,CCJCJJ,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ if len(CCCJJC)=7 then exit for next:CCJCCC=CCJCCJ(2):if CCCJJC<>mid(CCJCCC,6,7) then Call ClearMemberCookie else CCCJJJ=mid(CCJCCC,18,10)/2:if CCCJJJ0 then for CCJCJJ=0 to ubound(str):if CCJCJJ>0 then response.Write CJJJJJJC("k3C ,^m") response.Write CCJCJJ & CJJJJJJC("i ,") & str(CCJCJJ):next else response.Write CJJJJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CCJCJJ=0 to ubound(str,2):response.Write CJJJJJJC("kE9 ,2=:8?lV=67EVm") & CCJCJJ & CJJJJJJC("k^E9m") next:response.Write CJJJJJJC("k^ECm"):for CCJCJJ=0 to ubound(str):response.Write CJJJJJJC("kECmkE9m") & CCJCJJ & CJJJJJJC("k^E9m"):for CCCJJJ=0 to ubound(str,2):response.Write CJJJJJJC("kE5m") & str(CCJCJJ,CCCJJJ) & CJJJJJJC("k^E5m"):next:response.Write CJJJJJJC("k^ECm"):next:response.Write CJJJJJJC("k^E23=6m") end if elseif isnull(str) then response.Write CJJJJJJC(",}F==.") else Response.Write replace(str,vbcrlf,CJJJJJJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJJCC,CJJJJCJJ):dim CCJCCJ:CCJCCJ=CJJJJJCC & CJJJJJJC("l") & CJJJJCJJ & CJJJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJC("$6E\r@@<:6"),CCJCCJ):End Sub::::::sub ShowMessage(CJJJJCJC):response.Charset="utf-8":Response.Write CJJJJJJC("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") & CJJJJCJC & CJJJJJJC("k^5:Gmk^5:Gmk3Cm") end sub:Function CCJCCJJ(CCCJCJ):if isnull(CCCJCJ) or trim(CCCJCJ)="" or not isnumeric(CCCJCJ) then CCJCCJJ=false else Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJJJJJJC("/-5ZS"):CCCJCC.IgnoreCase = True:CCJCCJJ = CCCJCC.test(CCCJCJ):set CCCJCC=nothing end if:End Function:Function CCJCCJC(CJJJJCCJ):dim CCCCJJ,CCCCJC:CCCCJJ=CJJJJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJCCJ & CJJJJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJC=CCCJJ.execute(CCCCJJ):CCJCCJC = CCCCJC(0):if isnull(CCJCCJC) then CCJCCJC=1 CCCCJC.close : set CCCCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCJJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCCJC.close : set CCCCJC=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJC("!$*0|6DD286"),server.URLEncode(CJJJJCJC)):Response.Redirect CJJJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCCJJCJ(Table):Dim CCCCJC, CCCCCJ, str(), CCJCJJ,CCCJJJ,CJJJJJJ:CJJJJJJ=UCase(Table):If Not IsArray(Application(CJJJJJJC("!$*0") & CJJJJJJ)) Then CJJJJJ=CJJJJJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJJJJC(". ,@C56C ,3J ,D@CE[:5"):set CCCCJC=server.createobject(CJJJJJJC("25@53]C64@C5D6E")):CCCCJC.open CJJJJJ,CCCJJ,1:CCCCCJ = CCCCJC.RecordCount:ReDim str(CCCCCJ, 2):If CCCCCJ > 0 Then For CCJCJJ = 1 To CCCCCJ:for CCCJJJ=0 to 2:str(CCJCJJ, CCCJJJ) = CCCCJC(CCCJJJ):next:CCCCJC.MoveNext:Next End If:CCCCJC.Close: Set CCCCJC = Nothing:Application(CJJJJJJC("!$*0") & CJJJJJJ) = str End If:CCCJJCJ = Application(CJJJJJJC("!$*0") & CJJJJJJ):End Function::Function CCCJJCC(CJJJJCCJ,CJJJJCCC,CCCJCJC):Dim str, CCJCJJ, CJJJJJC:CJJJJJC = CCCJJCJ(CJJJJCCJ):For CCJCJJ = 1 To UBound(CJJJJJC):if Cstr(CJJJJJC(CCJCJJ,2))=Cstr(CJJJJCCC) and CStr(CJJJJJC(CCJCJJ, 0)) = CCCJCJC & "" then str=CJJJJJC(CCJCJJ,1):exit for end if:Next:if str="" then str=CJJJJJJC(",朥@矠@.") CCCJJCC=str:End Function:::::::Sub CheckQueryTime(CJJJCJJJ,CJJJCJJC):dim str,CCCJCJ:str=CJJJJJJC("!$*0") & Ucase(CJJJCJJJ):if Session(str)<>"" then CCCJCJ=DateDiff(CJJJJJJC("D"),Session(str),Time):if CCCJCJ0 then Call ConnClose:Call ShowMessage(CJJJJJJC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJCJJC & CJJJJJJC(" ,种@，,迓@剤@ ,") & CJJJCJJC-CCCJCJ & CJJJJJJC(" ,种@！,")):response.End() else Session.Contents.Remove(str) end if end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJCJCJ):dim CCJCJJ,CCCJJJ,CJJJJCJ,CJJJJCC:on error resume next:CJJJJCJ=ubound(CJJJCJCJ):CJJJJCC=ubound(CJJJCJCJ,2):if err.number<>0 then err.clear:for CCJCJJ=0 to CJJJJCJ:CJJJCJCJ(CCJCJJ)=0:next else for CCJCJJ=0 to CJJJJCJ:for CCCJJJ=0 to CJJJJCC:CJJJCJCJ(CCJCJJ,CCCJJJ)=0:next:next end if:End Sub:::Sub ClearCache(CJJJCJCC):Application.Contents.Remove CJJJCJCC End Sub::Class jTree:Private CJJJJJ, CJJJCJJ, CJJJCJC, CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Private Sub Class_Initialize():CJJJCJC = 0:CJJJCCJ = 0:CJJCJCJ=10:End Sub:Public Property Let Table(CJJJCCJJ):if CJJJCCJJ="" then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJJJCCC=CJJJCCJJ:CJJCJJJ=CJJJJJJC("!$*0") & UCase(CJJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCCC:End Property:::Private Sub GetTreeArray():Dim CCJCJJ, CCCJJJ, CJJCJCC,RecordCount:CJJJCJJ = Application(CJJCJJJ):If Not IsArray(CJJJCJJ) Then CJJJJJ = CJJJJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCCC:if CJJCJJC<>"" then CJJJJJ=CJJJJJ & CJJJJJJC(" ,H96C6 ,") & CJJCJJC set CJJCJCC=CCCJJ.execute(CJJJJJ):RecordCount=CJJCJCC(0):if RecordCount=0 then Call RedirectMessage(CJJJJJJC("柠@话@W") & CJJJCCC & CJJJJJJC("^") & CJJCJJC & CJJJJJJC("X沜@朄@绎@林@敫@捩@")) CJJJCCJ=RecordCount+CJJCJCJ:ReDim CJJJCJJ(CJJJCCJ, 4):CJJJJJ = CJJJJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJJJJJC(" ,H:E9 ,W?@=@4"" then CJJJJJ=CJJJJJ & CJJJJJJC(" ,H96C6 ,") & CJJCJJC CJJJJJ=CJJJJJ & CJJJJJJC(" ,@C56C ,3J ,D@CE[:5"):set CJJCJCC=CCCJJ.execute(CJJJJJ):For CCJCJJ = 1 To RecordCount:For CCCJJJ = 0 To 4:CJJJCJJ(CCJCJJ, CCCJJJ) = CJJCJCC(CCCJJJ):if IsNull(CJJJCJJ(CCJCJJ,4)) then CJJJCJJ(CCJCJJ,4)=0 If CJJJCJJ(CCJCJJ,2)="" then CJJJCJJ(CCJCJJ,2)=CJJJJJJC(",穵@.") Next:CJJCJCC.MoveNext:Next:CJJCJCC.Close: Set CJJCJCC = Nothing:for CCJCJJ=CJJJCCJ-(CJJCJCJ-1) to CJJJCCJ:CJJJCJJ(CCJCJJ,0)=CCJCJJ:next:Application.Lock():Application(CJJCJJJ) = CJJJCJJ:Application.UnLock() else CJJJCCJ=Ubound(CJJJCJJ) End If:End Sub::::Public Function GetChild(CCCJCJC):Dim CCJCJJ, Str:CCCJCJC=CLng(CCCJCJC):For CCJCJJ = 1 To CJJJCCJ:If CJJJCJJ(CCJCJJ, 1) = CCCJCJC Then Str = Str & CJJJJJJC("M") & CJJJCJJ(CCJCJJ, 0) & CJJJJJJC("M") & CJJJCJJ(CCJCJJ,2) Next:If Str <> "" Then Str = Mid(Str, 2) GetChild = Split(str,CJJJJJJC("M")):End Function:Private Function CCCJCCC(CCCJCJC):dim CCJCJJ,CJJCCJC:CCCJCCC=0:CJJCCJC=CStr(CCCJCJC):if CJJCCJC<>"0" then for CCJCJJ=1 to CJJJCCJ:If CStr(CJJJCJJ(CCJCJJ, 0))=CJJCCJC Then CCCJCCC = CCJCJJ:Exit For End If:Next end if:End Function:Public Function GetCurName(CCCJCJC):if Cstr(CCCJCJC)="0" then GetCurName=CJJJJJJC("栴@") else Dim CCJCJJ,CJJCJCC:CCJCJJ=CCCJCCC(CCCJCJC):if CCJCJJ>0 then GetCurName=CJJJCJJ(CCJCJJ,2):if GetCurName="" then set CJJCJCC=CCCJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJC):if CJJCJCC.eof then Call RedirectMessage(CJJJJJJC("xs（,") & CCCJCJC & CJJJJJJC("）,朥@批@别@")) GetCurName=CJJCJCC(1):Call UpdateCache(CCCJCJC,CJJCJCC(0),GetCurName,CJJCJCC(2),CJJCJCC(3)):CJJCJCC.Close: Set CJJCJCC = Nothing end if else set CJJCJCC=CCCJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJC):if CJJCJCC.eof then Call RedirectMessage(CJJJJJJC("xs（,") & CCCJCJC & CJJJJJJC("）,朥@批@别@")) GetCurName=CJJCJCC(1):Call UpdateCache(CCCJCJC,CJJCJCC(0),GetCurName,CJJCJCC(2),CJJCJCC(3)):CJJCJCC.Close: Set CJJCJCC = Nothing end if end if:End Function:::Public Function CCCCJJC(CCCJCJC):Dim CCJCJJ,CJJCCCJ:CCJCJJ=CCCJCCC(CCCJCJC):if CCJCJJ=0 then CJJCCCJ=CCCCJCJ(CCCJCJC) else CJJCCCJ=CJJJCJJ(CCJCJJ,3):if isnull(CJJCCCJ) or CJJCCCJ="" then CJJCCCJ=CCCCJCJ(CCCJCJC) elseif Mid(CJJCCCJ,instrrev(CJJCCCJ,CJJJJJJC("["))+1)<>CStr(CCCJCJC) then CJJCCCJ=CCCCJCJ(CCCJCJC) elseif Left(CJJCCCJ,1)=CJJJJJJC("[") then CJJCCCJ=CCCCJCJ(CCCJCJC) end if end if:CCCCJJC=CJJCCCJ:End Function:Private Function CCCCJCJ(CCCJCJC):dim CJJCCJC:CJJCCJC=CStr(CCCJCJC):if CJJCCJC="0" then CCCCJCJ="" else dim CJJCJCC:set CJJCJCC=CCCJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJJJJJC(" ,H96C6 ,:5l") & CCCJCJC):if CJJCJCC.eof then Call UpdateCache(CCCJCJC,"","","",""):Call RedirectMessage(CJJJJJJC("顴@盩@（,xs：,") & CCCJCJC & CJJJJJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJJCJCC(0)=0 then CCCCJCJ="0," & CCCJCJC else CCCCJCJ=CCCCJJC(CJJCJCC(0)) & CJJJJJJC("[") & CCCJCJC end if:if CJJCJCC(2)<>CCCCJCJ then CCCJJ.execute CJJJJJJC("FA52E6 ,") & CJJJCCC & CJJJJJJC(" ,D6E ,A2E9lV") & CCCCJCJ & CJJJJJJC("V ,H96C6 ,:5l") & CCCJCJC else CCCCJCJ=CJJCJCC(2) end if end if:Call UpdateCache(CCCJCJC,CJJCJCC(0),CJJCJCC(1),CCCCJCJ,CJJCJCC(3)):CJJCJCC.Close: Set CJJCJCC = Nothing end if:End Function::::Public Function IsParent(CJJJCCJC, CJJJCCCJ):IsParent=InStr(CCCCJJC(CJJJCCCJ) & CJJJJJJC("["), CJJJJJJC("[") & CJJJCCJC & CJJJJJJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJCJC):dim CJJCCCJ:CJJCCCJ=CCCCJJC(CCCJCJC):Sql_GetChildren = CJJJCCC & CJJJJJJC("0A2E9ZV[V ,=:<6 ,V") & CJJCCCJ & CJJJJJJC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJJJ End Sub:Public Sub UpdateCache(CCCJCJC,CJJJCCCC,CJJCJJJJ,CJJCCCJ,CJJCJJJC):dim CCJCJJ,CCCJJJ:CCCJCJC=CLng(CCCJCJC):CCJCJJ=CCCJCCC(CCCJCJC):if CJJJCCCC="" and CJJCJJJJ="" and CJJCCCJ="" and CJJCJJJC="" then if CCJCJJ>0 then for CCCJJJ=1 to 4:CJJJCJJ(CCJCJJ,CCCJJJ)=Null:next end if else if CCJCJJ=0 then for CCCJJJ=1 to CJJJCCJ:if CJJJCJJ(CCCJJJ,1) & ""="" then CCJCJJ=CCCJJJ:exit for end if:next end if:if CCJCJJ=0 then Call ClearCache else CJJJCJJ(CCJCJJ,0)=CLng(CCCJCJC):if CJJJCCCC<>"" then CJJJCJJ(CCJCJJ,1)=CLng(CJJJCCCC) if CJJCJJJJ<>"" then CJJJCJJ(CCJCJJ,2)=CJJCJJJJ if CJJCCCJ<>"" then CJJJCJJ(CCJCJJ,3)=CJJCCCJ if CJJCJJJC<>"" then CJJJCJJ(CCJCJJ,4)=CLng(CJJCJJJC) end if end if:if CCJCJJ>0 then Application.Lock():Application(CJJCJJJ) = CJJJCJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJJJJCJC):Call ConnClose:Response.Write CJJJJCJC:Response.End:End Sub:Private Function CCJCCJC():CCJCCJC=CCCCCJC+1:End Function:Private Function CCCCCJC():dim CCCCJC:set CCCCJC=CCCJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCCC & CJJJJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCJC=CCCCJC(0):CCCCJC.Close: Set CCCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJCJJC=199:Const CCJCJCJ="霍兰德职业兴趣测验":Call CheckRight("54,81"):Call CheckQueryTime(CJJJJJJC("%6DE0#6A@CE"),30):dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:CJCJCJJ=Request.QueryString(CJJJJJJC("$49@@=")):CJJCCCC=Request.QueryString(CJJJJJJC("s6AE")):CJCJJJJ=Request.QueryString(CJJJJJJC("vC256")):CJCJJJC=Request.QueryString(CJJJJJJC("vC@FA")):CJCJJCJ=Request.QueryString(CJJJJJJC("E`")):CJCJJCC=Request.QueryString(CJJJJJJC("Ea")):if not CCJCCJJ(CJJCCCC) then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,")) dim CJJJCJJ:set CJJJCJJ=new jtree:CJJJCJJ.table=CJJJJJJC(">6>36C0EJA6"):if not CJJJCJJ.IsParent(CJJCJJ,CJJCCCC) then Call RedirectMessage(CJJJJJJC("诠@苾@囯@W") & CJJCCCC & CJJJJJJC("X丈@圣@患@W") & CJJCJJ & CJJJJJJC("X癿@箜@琁@苾@囯@冀@。,")) dim CCCCCCJ:CCCCCCJ=CJJJCJJ.GetChild(CJJCCCC):if ubound(CCCCCCJ)<0 then Call RedirectMessage(CJJJJJJC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,")) CCCCCCJ=join(CCCCCCJ,CJJJJJJC("M")) & CJJJJJJC("M_M共@仑@"):CCCCCCJ=split(CCCCCCJ,CJJJJJJC("M")):dim CJCJCJC:CJCJCJC=CJJJCJJ.GetCurName(CJJCCCC):dim CJCJCCJ,CJCJCCC:CJCJCCJ=split(CJJJJJJC("#MxMpM$MtMr"),CJJJJJJC("M")):CJCJCCC=split(CJJJJJJC("玫@宙@垆@M课@砏@垆@M艵@未@垆@M礹@伕@垆@M仼@丕@垆@M帳@覿@垆@"),CJJJJJJC("M")):dim CCJCJJ,CCCJJJ,CCCJJC,CJCCJJJ,CJCCJJC,CJCCJCJ:dim CJCCJCC():redim CJCCJCC((ubound(CCCCCCJ)-1)/2,22):for CCJCJJ=0 to ubound(CCCCCCJ)-1 step 2:CCCJJC=CCJCJJ/2:CJCCJCC(CCCJJC,0)=CCCCCCJ(CCJCJJ):CJCCJCC(CCCJJC,1)=CCCCCCJ(CCJCJJ+1):for CCCJJJ=2 to ubound(CJCCJCC,2):CJCCJCC(CCCJJC,CCCJJJ)=0:next:next:dim CJCCCJJ(1,7):Call ArrayInit(CJCCCJJ):CJCCCJJ(0,0)=CJJJJJJC("甲@"):CJCCCJJ(1,0)=CJJJJJJC("奮@"):dim CJCCCJC(5,2):Call ArrayInit(CJCCCJC):dim CCJCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:dim CCJJJJC,CCJJJCJ:CCJJJJC=Date:CCJJJCJ=cdate(CJJJJJJC("a___\`\`")):CJJJJJ=CJJJJJJC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60C2H[C6DF=E[:5[C62=?2>6[?F>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@46>36C0EJA60E@Al") & CJCJCJJ else CJJJJJ=CJJJJJ & CJJJJJJC(" ,2?5 ,") & CJJJCJJ.Sql_GetChildren(CJJCCCC) if CCJCCJJ(CJCJJJJ) then CJJJJJ=CJJJJJ & CJJJJJJC(" ,2?5 ,8C256l") & CJCJJJJ if CCJCCJJ(CJCJJJC) then CJJJJJ=CJJJJJ & CJJJJJJC(" ,2?5 ,4FDE@>8C@FAl") & CJCJJJC if isdate(CJCJJCJ) then CJJJJJ=CJJJJJ & CJJJJJJC(" ,2?5 ,52E6E:>6mlV") & CJCJJCJ & CJJJJJJC("V") if isdate(CJCJJCC) then CJJJJJ=CJJJJJ & CJJJJJJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCJJCC)+1 & CJJJJJJC("V") set CCCCJ=CCCJC.execute(CJJJJJ):if CCCCJ.eof then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,")) while not CCCCJ.eof:CCCJJC=CCCCJ(1):if CCCJJCCCJJJCJ then CCJJJCJ=CCCJJC if isnull(CCCCJ(3)) then Call RedirectMessage(CCCCJ(6) & CJJJJJJC("（,") & CCCCJ(7) & CJJJJJJC("）,癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@，,诲@创@陟@（,") & CCCCJ(5) & CJJJJJJC("）,。,")) CCJCJC=split(CCCCJ(3),CJJJJJJC("M")):if CCCCJ(2) then CCCJJJ=0 else CCCJJJ=1 CJCCCJJ(CCCJJJ,1)=CJCCCJJ(CCCJJJ,1)+1:for CCJCJJ=0 to 5:CCCJJC=CCJCJJ+2:CJCCCJJ(CCCJJJ,CCCJJC)=CJCCCJJ(CCCJJJ,CCCJJC) & CJJJJJJC("M") & CCJCJC(CCJCJJ):next:for CCJCJJ=0 to 5:CJCCCJC(CCJCJJ,0)=CJCCCJC(CCJCJJ,0) & CJJJJJJC("M") & CCJCJC(CCJCJJ):next:CCCJJJ=ubound(CJCCJCC):for CCJCJJ=0 to CCCJJJ-1:if instr(CCCCJ(0) & CJJJJJJC("["),CJJJJJJC("[") & CJCCJCC(CCJCJJ,0) & CJJJJJJC("["))>0 then CCCJJJ=CCJCJJ:exit for end if:next:CCJCJJ=CCCJJJ:CJCCJCC(CCJCJJ,2)=CJCCJCC(CCJCJJ,2)+1:if CCCCJ(2) then CJCCJCC(CCJCJJ,9)=CJCCJCC(CCJCJJ,9)+1 else CJCCJCC(CCJCJJ,16)=CJCCJCC(CCJCJJ,16)+1 CCJCJC=split(CCCCJ(4),CJJJJJJC("M")):for CCCJJJ=0 to ubound(CCJCJC):CCCJJC=CCJCJC(CCCJJJ):if len(CCCJJC)=1 then CCCJJC=cint(CCCJJC):CJCCJCC(CCJCJJ,CCCJJC+3)=CJCCJCC(CCJCJJ,CCCJJC+3)+1:if CCCCJ(2) then CJCCJCC(CCJCJJ,CCCJJC+10)=CJCCJCC(CCJCJJ,CCCJJC+10)+1 else CJCCJCC(CCJCJJ,CCCJJC+17)=CJCCJCC(CCJCJJ,CCCJJC+17)+1 else exit for end if:next:CJCCCCJ=CJCCCCJ+1:CCCCJ.movenext:wend:for CCJCJJ=0 to ubound(CJCCCJC):CCJCJC=CCCCCCC(split(Mid(CJCCCJC(CCJCJJ,0),3),CJJJJJJC("M"))):CJCCCJC(CCJCJJ,1)=FormatNumber(CCJCJC(0),2,-1):CJCCCJC(CCJCJJ,2)=FormatNumber(CCJCJC(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJC("k9625m") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJJC("kE:E=6m")):Response.Write CJCJCJC:Response.Write(CJJJJJJC("\")):Response.Write CCJCJCJ:Response.Write(CJJJJJJC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJJJJC("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(CJJJJJJC("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("k^9625m") & vbCrLf):Response.Write(CJJJJJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write CJCCJJJ:Response.Write(CJJJJJJC("Qm") & vbCrLf):Response.Write(CJJJJJJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9`mkD>2==m")):Response.Write CJCJCJC:Response.Write(CJJJJJJC("k^D>2==mk3Cm")):Response.Write CCJCJCJ:Response.Write(CJJJJJJC("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm纡@翫@·,霈@八@徲@（,y@9? ,w@==2?5）,昪@羉@囸@纡@翫@·,霈@晩@里@斪@夢@孡@徾@琁@孡@敔@掃@，,羉@囸@葒@合@癿@聇@丕@挂@寷@与@宱@。,仑@争@`hdh幯@揋@凵@亁@兲@朄@幺@泖@礹@伕@彬@哈@癿@聇@丕@兯@趞@琁@讵@。,讟@丵@亵@癿@亵@样@籶@垆@、,兯@趞@三@聇@丕@寁@刂@盳@兮@，,兯@趞@昪@亵@仧@洶@劣@癿@巣@夢@劣@劖@，,凜@昪@兲@朄@聇@丕@兯@趞@癿@聇@丕@，,郸@只@仠@揋@髓@亵@仧@癿@秪@杼@怢@，,侾@佺@亵@仧@秪@杼@圫@、,愄@忦@圫@仉@了@诠@聇@丕@，,聇@丕@兯@趞@三@亵@样@乆@闯@孓@圣@徃@髓@癿@盳@兮@怢@。,w@==2?5讟@丵@亵@样@只@刁@丵@玫@宙@垆@、,课@砏@垆@、,艵@未@垆@、,礹@伕@垆@、,仼@丕@垆@咇@帳@覿@垆@全@秈@籶@垆@，,毊@严@亵@癿@怢@样@郸@昪@返@全@严@绯@庡@癿@丈@吇@稆@庡@线@吃@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm霈@八@徲@聇@丕@兯@趞@浆@诐@仠@霈@八@徲@聇@丕@兯@趞@（,w@==2?5 ,'@42E:@?2= ,x?E6C6DE ,%96@CJ）,琁@讵@丵@埵@砻@，, ,仉@愚@兯@趞@癿@洶@劣@、,擀@镺@癿@洶@劣@、,喗@奸@癿@聇@丕@、,胸@劖@籶@垆@臥@访@囖@严@斴@靝@厶@访@伫@浆@诐@耀@圣@玫@宙@垆@（,#垆@）, ,、,课@砏@垆@（,x垆@）,、,艵@未@垆@（,p垆@）,、,礹@伕@垆@（,$垆@）,、,仼@丕@垆@（,t垆@）,咇@帳@覿@垆@（,r垆@）,全@严@四@孋@徒@刁@，,仠@歟@访@伫@凵@浆@诐@耀@癿@聇@丕@倹@同@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm逕@迂@朧@浆@诐@，,只@仠@帩@劤@浆@诐@耀@轾@丵@凁@硩@圫@亁@觞@臥@躦@癿@严@低@牴@炴@咇@聇@丕@牴@炴@乆@闯@癿@匴@酈@兮@糶@，,吇@旱@丵@浆@诐@耀@圣@迖@衇@与@丕@逄@拤@咇@聇@丕@逄@拤@旱@，,揋@侖@宝@覽@癿@厽@考,侘@捩@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm")):Response.Write formatdatetime(CCJJJJC,1):Response.Write(CJJJJJJC("～,")):Response.Write formatdatetime(CCJJJCJ,1):Response.Write(CJJJJJJC("k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kF=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k=:m亵@敫@：, ,")):Response.Write CJCCCCJ:Response.Write(CJJJJJJC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJJJJJC(" ,k=:m怢@刦@：, ,甲@怢@")):Response.Write CJCCCJJ(0,1):Response.Write(CJJJJJJC("亵@，,奮@怢@")):Response.Write CJCCCJJ(1,1):Response.Write(CJJJJJJC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJJJJJC(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CCCJJJ=0:for CCJCJJ=0 to ubound(CJCCJCC):if CJCCJCC(CCJCJJ,2)>0 then CCCJJJ=CCCJJJ+1:response.Write CJCCJCC(CCJCJJ,1) & CJJJJJJC("：,") & CJCCJCC(CCJCJJ,2) & CJJJJJJC("亵@，,") end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,公@讜@")):Response.Write CCCJJJ:Response.Write(CJJJJJJC("严@卐@佈@。,") & vbCrLf):Response.Write(CJJJJJJC(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJJC(" ,k=:m幯@红@^幯@仸@：,") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CCJCCJJ(CJCJJJJ) then response.Write CCCJJCC(CJJJJJJC(">6>36C08C256"),CJCJCJJ,CJCJJJJ) else response.Write CJJJJJJC(",兣@郣@.") Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJJC(" ,k=:m线@刦@：,") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CCJCCJJ(CJCJJJC) then response.Write CCCJJCC(CJJJJJJC(">6>36C04FDE@>8C@FA"),CJCJCJJ,CJCJJJC) else response.Write CJJJJJJC(",兣@郣@.") Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^F=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am囖@、,浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm`．,怶@低@敫@捩@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,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(CJJJJJJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm四@孋@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,4@=DA2?lQaQm甲@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,4@=DA2?lQaQm奮@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm怶@低@幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm怶@低@栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC=CJJJJJJC(",V甲@V[V奮@V.") for CCJCJJ=0 to 5:CJCCJJC=CJCCJJC & CJJJJJJC("[,"):Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCJCCJ(CCJCJJ):Response.Write(CJJJJJJC(" ,垆@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CCCJJC=CCJCJJ+2:CCJCJC=CCCCCCC(split(Mid(CJCCCJJ(0,CCCJJC),3),CJJJJJJC("M"))):CCJJJJJ=formatnumber(CCJCJC(0),2,-1):CJCCJJC=CJCCJJC & CCJJJJJ:response.Write CCJJJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write formatnumber(CCJCJC(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CCJCJC=CCCCCCC(split(Mid(CJCCCJJ(1,CCCJJC),3),CJJJJJJC("M"))):CCJJJJJ=formatnumber(CCJCJC(0),2,-1):CJCCJJC=CJCCJJC & CJJJJJJC("[") & CCJJJJJ:response.Write CCJJJJJ:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write formatnumber(CCJCJC(1),2,-1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCCCJC(CCJCJJ,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCCCJC(CCJCJJ,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJC=CJCCJJC & CJJJJJJC("."):next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9cm（,`）,怶@低@幮@坂@敫@刁@巾@囹@k^9cm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJJ="":for CCJCJJ=0 to 5:CJCCJJJ=CJCCJJJ & CJJJJJJC("[") & CJCCCJC(CCJCJJ,1):next:CJCCJJJ=mid(CJCCJJJ,2):Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^=3^492CE^D5Dc];DnGl")):Response.Write CJCCJJJ:Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQ2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm泣@：,一,舧@杠@误@，,丟@严@籶@垆@靛@癿@超@迌@，,孾@仧@乆@闯@癿@兮@糶@尬@超@寁@刂@，,返@丟@秈@籶@垆@癿@严@低@乆@闯@癿@公@吇@炴@尬@超@夕@。,好@玫@宙@垆@咇@课@砏@垆@癿@亵@尬@郸@丈@夥@偊@奸@亵@陀@亟@彻@，,返@丟@秈@聇@丕@玪@塾@丨@乚@郸@轾@尌@朵@伕@三@亵@掠@觡@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm又@乆@，,丟@严@籶@垆@禶@癿@超@迗@，,兮@糶@乚@尬@超@尌@，,逕@帳@圣@全@辴@彝@丅@壿@争@寴@觍@佈@罩@癿@籶@垆@乆@闯@卮@丵@盳@寴@兮@糶@，,好@玫@宙@垆@咇@礹@伕@垆@、,课@砏@垆@咇@仼@丕@垆@、,艵@未@垆@咇@礹@伕@垆@筄@，,一,舧@杠@误@，,盳@寴@兮@糶@癿@亵@样@籶@垆@公@吇@炴@徃@尌@，,四@歟@，,一,严@亵@吇@旱@寴@壿@争@盳@寴@兮@糶@癿@丟@秈@聇@丕@郸@徃@愚@兯@趞@癿@惀@冰@匼@刁@尌@覼@。,k^AAm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC(" ,k9cm（,a）,甲@奮@幮@坂@敫@刁@巾@囹@k^9cm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):CJCCJJJ="":for CCJCJJ=0 to 5:CJCCJJJ=CJCCJJJ & CJJJJJJC("[") & CJCJCCC(CCJCJJ) & CJJJJJJC("（,") & CJCJCCJ(CCJCJJ) & CJJJJJJC("）,"):next:CJCCJJJ=mid(CJCCJJJ,2):Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UIl")):Response.Write CJCCJJJ:Response.Write(CJJJJJJC("UGl")):Response.Write CJCCJJC:Response.Write(CJJJJJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bma．,丈@吇@卐@佈@敫@捩@每@轾@k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,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(CJJJJJJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQbQ ,4=2DDlQ2>\E6IE\>:55=6Qm卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQbQ ,4=2DDlQ2>\E6IE\>:55=6Qm怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,C@HDA2?lQbQ ,4=2DDlQ2>\E6IE\>:55=6Qm亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,4@=DA2?lQ`aQm籶@垆@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):for CCJCJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kE9 ,4@=DA2?lQaQm")):Response.Write CJCJCCJ(CCJCJJ):Response.Write(CJJJJJJC(" ,垆@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):for CCJCJJ=0 to 5:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):for CCJCJJ=0 to ubound(CJCCJCC):if CJCCJCC(CCJCJJ,2)>0 then Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5 ,C@HDA2?lQbQ ,4=2DDlQ2>\E6IE\>:55=6Qm")):Response.Write CJCCJCC(CCJCJJ,1):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m甲@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCCJCC(CCJCJJ,9):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CJCCJCC(CCJCJJ,9)=0 then for CCCJJJ=0 to 5:Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m"):next else for CCCJJJ=0 to 5:CCCJJC=CCCJJJ+10:if CJCCJCC(CCJCJJ,CCCJJC)=0 then Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m") else Response.Write CJJJJJJC("kE5m") & CJCCJCC(CCJCJJ,CCCJJC) & CJJJJJJC("k^E5mkE5m") & formatnumber(CJCCJCC(CCJCJJ,CCCJJC)/CJCCJCC(CCJCJJ,9)*100,2,-1) & CJJJJJJC("k^E5m") end if:next end if:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m奮@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCCJCC(CCJCJJ,16):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CJCCJCC(CCJCJJ,9)=0 then for CCCJJJ=0 to 5:Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m"):next else for CCCJJJ=0 to 5:CCCJJC=CCCJJJ+17:if CJCCJCC(CCJCJJ,CCCJJC)=0 then Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m") else Response.Write CJJJJJJC("kE5m") & CJCCJCC(CCJCJJ,CCCJJC) & CJJJJJJC("k^E5mkE5m") & formatnumber(CJCCJCC(CCJCJJ,CCCJJC)/CJCCJCC(CCJCJJ,16)*100,2,-1) & CJJJJJJC("k^E5m") end if:next end if:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m尊@讜@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m")):Response.Write CJCCJCC(CCJCJJ,2):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CJCCJCC(CCJCJJ,2)=0 then for CCCJJJ=0 to 5:Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m"):next else for CCCJJJ=0 to 5:CCCJJC=CCCJJJ+3:if CJCCJCC(CCJCJJ,CCCJJC)=0 then Response.Write CJJJJJJC("kE5m_k^E5mkE5m\k^E5m") else Response.Write CJJJJJJC("kE5m") & CJCCJCC(CCJCJJ,CCCJJC) & CJJJJJJC("k^E5mkE5m") & formatnumber(CJCCJCC(CCJCJJ,CCCJJC)/CJCCJCC(CCJCJJ,2)*100,2,-1) & CJJJJJJC("k^E5m") end if:next end if:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,")) end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kA ,4=2DDlQ2>\E6IE\D>Qm泣@：,尊@讜@每@來@丵@叿@籶@垆@孡@陝@亵@敫@^孡@陝@怶@亵@敫@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am亏@、,聇@丕@双@屐@廵@让@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm兯@趞@昪@戋@劚@癿@釈@襼@掣@劣@劖@，,好@林@胸@多@逄@拤@别@三@臥@巬@兯@趞@爬@奸@盳@笡@吃@癿@聇@丕@，,封@只@仠@佺@臥@巬@圣@巠@佗@丨@批@别@忦@之@咇@滜@趮@愚@，,乚@曯@宴@明@莲@徒@戋@劚@。,聇@丕@徾@琁@孡@癿@砏@穱@衣@昉@，,一,严@亵@寴@柋@秈@巠@佗@朄@兯@趞@，,胸@双@挠@仑@兣@郣@扈@胸@癿@ ,g_T\h_T ,，,幱@丏@胸@镺@旱@闯@俘@拼@髓@敃@玂@耇@丈@愚@别@疭@劮@；,好@林@寴@柋@秈@巠@佗@丈@愚@兯@趞@，,刔@仑@癿@扈@胸@句@胸@双@挠@ ,a_T\b_T ,，,幱@丏@宴@明@疭@劮@。,戻@仠@，,圣@拤@丕@癿@旱@倔@，,序@诠@尸@释@逄@拤@三@臥@躦@兯@趞@盳@匴@酈@癿@聇@丕@籶@垆@咇@聇@丕@玪@塾@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm焱@耇@ ,[ ,圣@宙@陀@癿@聇@丕@逄@拤@丨@，,戌@仧@迓@襼@考,虌@一,亖@刦@癿@四@紛@：,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm馑@元@，,四@丵@严@低@朧@躦@帳@昪@夕@秈@聇@丕@兯@趞@籶@垆@癿@绷@吃@低@，,卐@一,聇@丕@倹@同@昹@葒@穼@凵@癿@惀@冰@彻@彻@幱@丈@夕@覼@，,四@歟@亵@仧@圣@兲@低@拤@丕@癿@旱@倔@，,陟@亁@徒@刁@曻@髓@癿@聇@丕@籶@垆@夑@，,徒@刁@笧@亇@髓@癿@聇@丕@籶@垆@丨@癿@盳@兮@巠@佗@，,朄@旱@吇@栲@乚@只@仠@亃@仠@考,虌@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm共@欜@，,甬@争@兯@趞@癿@只@衇@怢@巩@廽@，,聇@丕@兯@趞@襼@廵@竆@圣@刂@宙@只@衇@癿@埵@砻@乆@丅@，,好@绎@吃@臥@巬@戻@孡@癿@与@丕@、,礹@伕@癿@聇@丕@電@氽@筄@，,曻@吉@扈@胸@徾@惮@了@戋@，,莲@徒@戋@劚@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9am阿@：,全@夢@籶@垆@兲@低@牴@彼@k^9am") & vbCrLf):Response.Write(CJJJJJJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,`）,玫@宙@垆@（,#垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,劣@扆@胸@劖@轾@張@，,喗@欝@宙@陀@擈@佗@。,严@怢@幮@咇@種@釈@，,偕@了@喗@欝@遰@徥@一,宕@癿@覿@刔@。,偕@亵@玫@宙@，,迸@氽@宙@陀@敃@林@咇@宄@宕@、,舍@追@癿@甚@洶@。,佁@昪@，,仑@仧@只@胸@衣@边@胸@劖@丈@張@，,丈@啿@三@亵@亟@陀@，,怘@惮@轾@俘@它@，,惀@愚@低@骇@乚@丈@夥@丫@寇@，,甚@洶@乚@讳@缵@尌@一,亖@惀@趞@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,電@襼@迖@衇@昉@硩@、,兲@低@刁@巠@癿@，,幱@朄@一,宕@稆@床@襼@氽@癿@扻@未@垆@、,扻@胸@垆@巠@佗@。,好@朵@梫@刱@逛@、,廵@筌@、,渏@丕@、,釉@夑@巠@佗@、,巠@稆@扻@未@筄@聇@丕@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,a）,礹@伕@垆@（,$垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,朄@轾@張@癿@礹@伕@贞@件@愚@咇@亵@過@丶@乄@倹@同@，,礹@伕@追@序@胸@劖@轾@張@。,啿@争@三@亵@亟@彻@，,咇@陇@甚@亵@亟@调@毦@旛@囫@隹@，,宴@明@绎@亟@斫@朆@叆@。,喗@欝@呣@囯@朄@刦@亵@孓@圣@，,丈@喗@欝@一,亵@狧@壿@，,喗@欝@厽@力@叿@秈@聕@伕@。,寴@刦@亵@癿@了@徃@朄@兯@趞@，,之@争@帩@劤@刦@亵@觞@冮@隹@颓@，,胸@课@艽@吇@孡@、,吇@了@我@邶@采@兮@糶@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,喗@欝@三@亵@耇@丈@昪@三@了@牤@扎@亟@過@。,返@籶@亵@喗@欝@礹@伕@亟@彻@怢@巠@佗@，,好@敔@布@、,匶@甚@、,抟@壦@、,內@兮@亵@呓@、,萠@铻@亵@呓@筄@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,b）,课@砏@垆@（,x垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,怘@绯@逶@辌@轾@張@，,喗@欝@電@襼@迋@産@晵@劖@癿@洶@劣@，,啿@争@逕@迂@刁@枋@怘@考,觞@冮@靝@丯@癿@隹@颓@。,喗@欝@靝@寴@疌@闩@咇@丈@懃@癿@挌@戓@，,丈@愺@徥@覿@蹃@矤@，,怶@昪@港@朖@刖@斫@。,寴@臥@焱@玫@豜@咇@臥@焱@覿@徆@徃@愚@兯@趞@，,喗@欝@吇@覽@忰@耇@丈@昪@吇@亵@我@了@劜@扎@亟@過@，,寴@巠@佗@朄@眻@杼@夢@癿@烨@惀@，,偕@了@惀@徃@尌@叒@盯@规@我@惀@绥@癿@彬@哈@，,呁@圣@宙@骇@実@采@狧@臥@偕@宙@骇@耇@丈@愚@规@孟@狧@宽@寙@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,啿@争@逕@迂@覽@寚@咇@秌@孡@刁@枋@迖@衇@糶@绚@癿@刖@逛@怢@洶@劣@，,一,舧@癿@砏@穱@寴@豜@侢@釈@争@臥@焱@秌@孡@耇@丈@昪@礹@伕@秌@孡@斴@靝@。,追@吃@返@籶@亵@癿@聇@丕@朄@甚@牤@孡@、,牤@琁@孡@、,氏@豜@孡@、,夤@斂@孡@筄@臥@焱@秌@孡@斴@靝@癿@秌@孡@巠@佗@耀@，,匑@孡@扻@布@，,宙@骇@砏@穱@亵@呓@，,廵@筌@讹@讜@布@，,讜@箒@朵@稆@床@讹@讜@呓@，,巠@稆@布@筄@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,c）,仼@丕@垆@（,t垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,寴@臥@巬@兀@滜@臥@俜@，,喗@欝@站@亄@咇@再@除@，,仉@了@兲@朄@挌@戓@怢@癿@巠@佗@，,喗@欝@狧@辚@蹅@彿@，,丈@愺@徥@覿@蹃@矤@。,圣@巠@佗@丨@喗@欝@狧@臥@筴@刍@，,丈@叒@刦@亵@幭@涄@。,袦@诐@兲@朄@线@绂@、,颁@寷@咇@箜@琁@胸@劖@，,奸@戋@丵@颁@寷@耀@，,攪@酈@仑@亵@，,丈@愺@袦@亵@攪@酈@，,喗@欝@刱@宕@讜@刍@、,厽@力@伕@让@，,仠@臥@巬@癿@愊@忒@彬@哈@刦@亵@癿@衇@丵@，,我@耀@喗@欝@圣@礹@伕@囝@低@丨@拀@件@聇@劜@，,梻@柠@、,访@仲@我@挂@寷@刦@亵@癿@巠@佗@。,丈@愺@仉@了@粹@绁@巠@佗@，,丈@喗@欝@電@襼@镺@朚@夈@朽@怘@绯@癿@巠@佗@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,追@争@仉@了@電@襼@胁@畠@、,再@飉@除@咇@扺@拀@贞@件@癿@洶@劣@。,丶@襼@挂@箜@琁@、,冮@筑@斴@靝@癿@巠@佗@，,好@绊@琁@、,掣@铻@呓@、,田@见@艽@盩@丶@拼@亵@、,攺@沶@宱@筄@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,d）,艵@未@垆@（,p垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,朄@徃@張@癿@臥@戌@衣@玫@欭@，,寴@臥@巬@匼@刁@臥@俜@，,喗@欝@逕@迂@斫@频@癿@讹@讜@弐@赲@刦@亵@惀@愚@丅@癿@公@鸞@。,朄@斂@艵@斴@靝@癿@夤@赆@，,惮@豜@劖@徃@丫@寇@，,刖@逛@劖@徃@張@，,喗@欝@凨@盯@规@偕@凵@刟@斨@，,愚@惀@丫@寇@，,宴@明@冭@劣@，,甕@臮@只@仠@丵@迸@氽@徾@丨@癿@琁@惮@抖@廾@一,刂@。,佁@仑@仧@癿@甚@洶@乚@讳@昪@朽@乬@旛@竛@、,缵@尌@秤@床@癿@。,袦@诐@喗@欝@偕@戊@剢@、,韮@之@、,舙@蹃@我@耀@斫@闶@釂@论@筄@斴@靝@癿@巠@佗@，,狧@竆@丈@倕@、,刖@斫@氽@廽@，,圣@掠@叒@一,顴@斫@件@劜@吉@，,喗@欝@仠@臥@巬@狧@牴@癿@斴@弊@厶@宇@戋@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,啿@争@逕@迂@静@糶@绚@匑@癿@、,臥@甬@癿@洶@劣@迖@衇@艵@未@衣@玫@，,佁@粹@绁@癿@擈@佗@胸@劖@轾@巩@。,盳@序@聇@丕@朄@漏@呓@、,彬@见@巠@佗@亵@呓@、,甶@宱@、,歇@唬@宱@、,韮@之@漏@奊@宱@、,诒@亵@、,佗@宱@、,巠@艵@羉@未@讹@讜@亵@呓@筄@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k9bm（,e）,帳@覿@垆@（,r垆@）,k^9bm") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm怶@低@牴@彼@：,喗@欝@朄@秤@床@癿@、,宄@種@癿@甚@洶@。,偕@了@朄@讜@刍@，,喗@欝@抅@一,刂@郸@宄@掍@徒@敯@敯@齋@齋@，,亐@亐@朄@杜@，,挄@郣@尬@珨@圫@宇@戋@襼@偕@癿@巠@佗@；,踊@宙@種@彎@、,忛@宙@只@靛@；,之@争@扢@衇@丅@红@洹@丆@杠@癿@件@劜@；,沄@靔@耇@丈@明@澻@劣@，,训@氽@粹@硩@，,丈@愺@再@除@；,惮@豜@劖@咇@刖@逛@劖@丈@穼@凵@。,三@玫@宙@垆@癿@亵@匵@刦@圣@争@寴@芬@贴@夢@释@低@劖@咇@脌@劖@癿@洶@劣@丈@愚@兯@趞@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,kAm聇@丕@牴@彼@：,追@吃@丠@样@挄@煢@囵@宕@癿@覿@刔@咇@斴@泐@迖@衇@癿@釈@夈@怢@、,乛@惪@怢@癿@洶@劣@，,胸@多@轾@忦@癿@覼@别@臥@巬@癿@劮@劣@戋@林@，,電@襼@一,宕@癿@臥@探@胸@劖@。,兲@低@聇@丕@朄@伕@讜@、,彐@兠@呓@、,囹@乡@箜@琁@呓@、,宜@讜@呓@、,凵@纮@呓@、,秓@乡@、,邩@逍@呓@、,稉@劜@呓@、,绚@讜@呓@筄@筄@。,k^Am") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJJJJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write CJCJCJC:Response.Write(CJJJJJJC(" ,U>:55@Ej ,")):Response.Write CCJCJCJ:Response.Write(CJJJJJJC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJJJJC(" ,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(CJJJJJJC(" ,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(CJJJJJJC(" ,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(CJJJJJJC(" ,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(CJJJJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4=a5@4IWXNX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\2FE@4VX]@?WV4=:4=m") & vbCrLf)::On Error Resume Next:set CJJJCJJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJJJJC(ByVal CJJJJJJJ) Dim CJCCJJC, CCJCJJ, CCCJCJ CJJJJJJJ = Replace(CJJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCJJ = 1 To Len(CJJJJJJJ) If CCJCJJ <> CCCJCJ Then CJCCJJC = AscW(Mid(CJJJJJJJ, CCJCJJ, 1)) If CJCCJJC >= 33 And CJCCJJC <= 79 Then CJJJJJJC = CJJJJJJC & Chr(CJCCJJC + 47) ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then CJJJJJJC = CJJJJJJC & Chr(CJCCJJC - 47) Else CCCJCJ = CCJCJJ + 1 If Mid(CJJJJJJJ, CCCJCJ, 1) = Chr(64) Then CJJJJJJC = CJJJJJJC & ChrW(CJCCJJC + 5) Else CJJJJJJC = CJJJJJJC & Mid(CJJJJJJJ, CCJCJJ, 1) End If End If Next End Function %>