<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CCCCCJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CCCCCJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CCCCCJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CCCCCJJ("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?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJJJJC & CCCCCJJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CCCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CCCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CCCCCJC):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJJC(CCCCCJC) then
Call RedirectMessage(CCCCCJJ("朾@陋@W") & CCCCCJC & CCCCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJJC(CCCCCJC):dim CCJJCC,CCJCJJ:CCJCJJ=split(CCCCCJC,CCCCCJJ("[")):CCJCJJC=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CCJCJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCCJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJJCC,CCJCCC,CCCJJJ:CCJCJC=split(CCJJCJ,CCCCCJJ("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJJCC=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJC(0)):CJJJJC=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJC,CCCCCCJ):dim CCJJCC,CCJCCC,CCCJJJ:for CCJJCC=1 to len(CCCCCCJ):CCJCCC=mid(CCCCCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCCJJJC & CCCCCJJ("]") & CCCCCCJ & CCCCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJJ("!$*|t|qt#"))=CCCJJJ:End Sub::::Const CCJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCCCJJ("FE7\g"):dim CCJJCC,CCJCCC,CCCJJC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCCJJC=err.number:err.clear:on error goto 0:if CCCJJC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CCCCCJJ("k3C ,^m")
response.Write CCJJCC & CCCCCJJ("i ,") & str(CCJJCC):next
else
response.Write CCCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CCCCCJJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CCCCCJJ("k^E9m")
next:response.Write CCCCCJJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CCCCCJJ("kECmkE9m") & CCJJCC & CCCCCJJ("k^E9m"):for CCJCCC=0 to ubound(str,2):response.Write CCCCCJJ("kE5m") & str(CCJJCC,CCJCCC) & CCCCCJJ("k^E5m"):next:response.Write CCCCCJJ("k^ECm"):next:response.Write CCCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCCC,CJJJJJJJ):dim CCJCJC:CCJCJC=CCCCCCC & CCCCCJJ("l") & CJJJJJJJ & CCCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJJ("$6E\r@@<:6"),CCJCJC):End Sub::::::sub ShowMessage(CJJJJJJC):response.Charset="utf-8":Response.Write CCCCCJJ("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") & CJJJJJJC & CCCCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCJCJ(CCCJJC):if isnull(CCCJJC) or trim(CCCJJC)="" or not isnumeric(CCCJJC) then
CCJCJCJ=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CCCCCJJ("/-5ZS"):CCCJCJ.IgnoreCase = True:CCJCJCJ = CCCJCJ.test(CCCJJC):set CCCJCJ=nothing
end if:End Function:Function CCJCJCC(CJJJJJCJ):dim CCCJCC,CCCCJJ:CCCJCC=CCCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJCJ & CCCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CCJCC.execute(CCCJCC):CCJCJCC = CCCCJJ(0):if isnull(CCJCJCC) then CCJCJCC=1
CCCCJJ.close : set CCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJJJJ=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CCCCJJ.close : set CCCCJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CCJCCCC.Close : Set CCJCCCC = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJJ("!$*0|6DD286"),server.URLEncode(CJJJJJJC)):Response.Redirect CCCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJJJCC,CJJJJCJJ):dim str,CCCJJC:str=CCCCCJJ("!$*0") & Ucase(CJJJJJCC):if Session(str)<>"" then
CCCJJC=DateDiff(CCCCCJJ("D"),Session(str),Time):if CCCJJC<CJJJJCJJ and CCCJJC>0 then
Call ConnClose:Call ShowMessage(CCCCCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJJCJJ & CCCCCJJ(" ,种@，,迓@剤@ ,") & CJJJJCJJ-CCCJJC & CCCCCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJJCJC):dim CCJJCC,CCJCCC,CCCCCJ,CCCCCC:on error resume next:CCCCCJ=ubound(CJJJJCJC):CCCCCC=ubound(CJJJJCJC,2):if err.number<>0 then
err.clear:for CCJJCC=0 to CCCCCJ:CJJJJCJC(CCJJCC)=0:next
else
for CCJJCC=0 to CCCCCJ:for CCJCCC=0 to CCCCCC:CJJJJCJC(CCJJCC,CCJCCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJJJCCJ):Application.Contents.Remove CJJJJCCJ
End Sub::Class jTree:Private CCCCC, CJJJJJJ, CJJJJJC, CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Private Sub Class_Initialize():CJJJJJC = 0:CJJJJCJ = 0:CJJJCCJ=10:End Sub:Public Property Let Table(CJJJJCCC):if CJJJJCCC="" then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJJCC=CJJJJCCC:CJJJCJJ=CCCCCJJ("!$*0") & UCase(CJJJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJCC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCCC, CJJJCCC,CJJCJJJ:CJJJJJJ = Application(CJJJCJJ):If Not IsArray(CJJJJJJ) Then
CCCCC = CCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJCC:if CJJJCJC<>"" then CCCCC=CCCCC & CCCCCJJ(" ,H96C6 ,") & CJJJCJC
set CJJJCCC=CCJCC.execute(CCCCC):CJJCJJJ=CJJJCCC(0):if CJJCJJJ=0 then Call RedirectMessage(CCCCCJJ("柠@话@W") & CJJJJCC & CCCCCJJ("^") & CJJJCJC & CCCCCJJ("X沜@朄@绎@林@敫@捩@"))
CJJJJCJ=CJJCJJJ+CJJJCCJ:ReDim CJJJJJJ(CJJJJCJ, 4):CCCCC = CCCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CCCCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJCJC<>"" then CCCCC=CCCCC & CCCCCJJ(" ,H96C6 ,") & CJJJCJC
CCCCC=CCCCC & CCCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJCCC=CCJCC.execute(CCCCC):For CCJJCC = 1 To CJJCJJJ:For CCJCCC = 0 To 4:CJJJJJJ(CCJJCC, CCJCCC) = CJJJCCC(CCJCCC):if IsNull(CJJJJJJ(CCJJCC,4)) then CJJJJJJ(CCJJCC,4)=0
If CJJJJJJ(CCJJCC,2)="" then CJJJJJJ(CCJJCC,2)=CCCCCJJ(",穵@.")
Next:CJJJCCC.MoveNext:Next:CJJJCCC.Close: Set CJJJCCC = Nothing:for CCJJCC=CJJJJCJ-(CJJJCCJ-1) to CJJJJCJ:CJJJJJJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJJJCJJ) = CJJJJJJ:Application.UnLock()
else
CJJJJCJ=Ubound(CJJJJJJ)
End If:End Sub::::Public Function GetChild(CCCJJJC):Dim CCJJCC, Str:CCCJJJC=CLng(CCCJJJC):For CCJJCC = 1 To CJJJJCJ:If CJJJJJJ(CCJJCC, 1) = CCCJJJC Then Str = Str & CCCCCJJ("M") & CJJJJJJ(CCJJCC, 0) & CCCCCJJ("M") & CJJJJJJ(CCJJCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CCCCCJJ("M")):End Function:Private Function CCCJJCC(CCCJJJC):dim CCJJCC,CJJCJJC:CCCJJCC=0:CJJCJJC=CStr(CCCJJJC):if CJJCJJC<>"0" then
for CCJJCC=1 to CJJJJCJ:If CStr(CJJJJJJ(CCJJCC, 0))=CJJCJJC Then
CCCJJCC = CCJJCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJJJC):if Cstr(CCCJJJC)="0" then
GetCurName=CCCCCJJ("栴@")
else
Dim CCJJCC,CJJJCCC:CCJJCC=CCCJJCC(CCCJJJC):if CCJJCC>0 then
GetCurName=CJJJJJJ(CCJJCC,2):if GetCurName="" then
set CJJJCCC=CCJCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CCCCCJJ(" ,H96C6 ,:5l") & CCCJJJC):if CJJJCCC.eof then Call RedirectMessage(CCCCCJJ("xs（,") & CCCJJJC & CCCCCJJ("）,朥@批@别@"))
GetCurName=CJJJCCC(1):Call UpdateCache(CCCJJJC,CJJJCCC(0),GetCurName,CJJJCCC(2),CJJJCCC(3)):CJJJCCC.Close: Set CJJJCCC = Nothing
end if
else
set CJJJCCC=CCJCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CCCCCJJ(" ,H96C6 ,:5l") & CCCJJJC):if CJJJCCC.eof then Call RedirectMessage(CCCCCJJ("xs（,") & CCCJJJC & CCCCCJJ("）,朥@批@别@"))
GetCurName=CJJJCCC(1):Call UpdateCache(CCCJJJC,CJJJCCC(0),GetCurName,CJJJCCC(2),CJJJCCC(3)):CJJJCCC.Close: Set CJJJCCC = Nothing
end if
end if:End Function:::Public Function CCCJCJC(CCCJJJC):Dim CCJJCC,CJJCJCJ:CCJJCC=CCCJJCC(CCCJJJC):if CCJJCC=0 then
CJJCJCJ=CCCJCCJ(CCCJJJC)
else
CJJCJCJ=CJJJJJJ(CCJJCC,3):if isnull(CJJCJCJ) or CJJCJCJ="" then
CJJCJCJ=CCCJCCJ(CCCJJJC)
elseif Mid(CJJCJCJ,instrrev(CJJCJCJ,CCCCCJJ("["))+1)<>CStr(CCCJJJC) then
CJJCJCJ=CCCJCCJ(CCCJJJC)
elseif Left(CJJCJCJ,1)=CCCCCJJ("[") then
CJJCJCJ=CCCJCCJ(CCCJJJC)
end if
end if:CCCJCJC=CJJCJCJ:End Function:Private Function CCCJCCJ(CCCJJJC):dim CJJCJJC:CJJCJJC=CStr(CCCJJJC):if CJJCJJC="0" then
CCCJCCJ=""
else
dim CJJJCCC:set CJJJCCC=CCJCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCC & CCCCCJJ(" ,H96C6 ,:5l") & CCCJJJC):if CJJJCCC.eof then
Call UpdateCache(CCCJJJC,"","","",""):Call RedirectMessage(CCCCCJJ("顴@盩@（,xs：,") & CCCJJJC & CCCCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJCCC(0)=0 then
CCCJCCJ="0," & CCCJJJC
else
CCCJCCJ=CCCJCJC(CJJJCCC(0)) & CCCCCJJ("[") & CCCJJJC
end if:if CJJJCCC(2)<>CCCJCCJ then
CCJCC.execute CCCCCJJ("FA52E6 ,") & CJJJJCC & CCCCCJJ(" ,D6E ,A2E9lV") & CCCJCCJ & CCCCCJJ("V ,H96C6 ,:5l") & CCCJJJC
else
CCCJCCJ=CJJJCCC(2)
end if
end if:Call UpdateCache(CCCJJJC,CJJJCCC(0),CJJJCCC(1),CCCJCCJ,CJJJCCC(3)):CJJJCCC.Close: Set CJJJCCC = Nothing
end if:End Function::::Public Function IsParent(CJJJCJJJ, CJJJCJJC):IsParent=InStr(CCCJCJC(CJJJCJJC) & CCCCCJJ("["), CCCCCJJ("[") & CJJJCJJJ & CCCCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJJJC):dim CJJCJCJ:CJJCJCJ=CCCJCJC(CCCJJJC):Sql_GetChildren = CJJJJCC & CCCCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJCJ & CCCCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCJJ
End Sub:Public Sub UpdateCache(CCCJJJC,CJJJCJCJ,CJJJCJCC,CJJCJCJ,CJJJCCJJ):dim CCJJCC,CCJCCC:CCCJJJC=CLng(CCCJJJC):CCJJCC=CCCJJCC(CCCJJJC):if CJJJCJCJ="" and CJJJCJCC="" and CJJCJCJ="" and CJJJCCJJ="" then
if CCJJCC>0 then
for CCJCCC=1 to 4:CJJJJJJ(CCJJCC,CCJCCC)=Null:next
end if
else
if CCJJCC=0 then
for CCJCCC=1 to CJJJJCJ:if CJJJJJJ(CCJCCC,1) & ""="" then
CCJJCC=CCJCCC:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CJJJJJJ(CCJJCC,0)=CLng(CCCJJJC):if CJJJCJCJ<>"" then CJJJJJJ(CCJJCC,1)=CLng(CJJJCJCJ)
if CJJJCJCC<>"" then CJJJJJJ(CCJJCC,2)=CJJJCJCC
if CJJCJCJ<>"" then CJJJJJJ(CCJJCC,3)=CJJCJCJ
if CJJJCCJJ<>"" then CJJJJJJ(CCJJCC,4)=CLng(CJJJCCJJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJJJCJJ) = CJJJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJC):Call ConnClose:Response.Write CJJJJJJC:Response.End:End Sub:Private Function CCJCJCC():CCJCJCC=CCCCJJC+1:End Function:Private Function CCCCJJC():dim CCCCJJ:set CCCCJJ=CCJCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJCC & CCCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJJC=CCCCJJ(0):CCCCJJ.Close: Set CCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJJCCC=297:Const CCJCJJJ="1-3年级儿童气质评定建档":Call CheckRight("54,81"):Call CheckQueryTime(CCCCCJJ("%6DE0#6A@CE"),30):dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:CJCJJJJ=Request.QueryString(CCCCCJJ("$49@@=")):CJJCJCC=Request.QueryString(CCCCCJJ("s6AE")):CJJCCJJ=Request.QueryString(CCCCCJJ("vC256")):CJJCCJC=Request.QueryString(CCCCCJJ("vC@FA")):CJJCCCJ=Request.QueryString(CCCCCJJ("E`")):CJJCCCC=Request.QueryString(CCCCCJJ("Ea")):if not CCJCJCJ(CJJCJCC) then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJJJJJJ:set CJJJJJJ=new jtree:CJJJJJJ.table=CCCCCJJ(">6>36C0EJA6"):if not CJJJJJJ.IsParent(CJJJCC,CJJCJCC) then Call RedirectMessage(CCCCCJJ("诠@苾@囯@W") & CJJCJCC & CCCCCJJ("X丈@圣@患@W") & CJJJCC & CCCCCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CCCCJCJ:CCCCJCJ=CJJJJJJ.GetChild(CJJCJCC):if ubound(CCCCJCJ)<0 then Call RedirectMessage(CCCCCJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CCCCJCJ=join(CCCCJCJ,CCCCCJJ("M")) & CCCCCJJ("M_M共@仑@"):CCCCJCJ=split(CCCCJCJ,CCCCCJJ("M")):dim CJCJJJC:CJCJJJC=CJJJJJJ.GetCurName(CJJCJCC):dim CCJJCC,CCJCCC,CCCJJJ,CJCJJCJ,CJCJJCC,CJCJCJJ:dim CJCJCJC():redim CJCJCJC((ubound(CCCCJCJ)-1)/2,15):for CCJJCC=0 to ubound(CCCCJCJ)-1 step 2:CCCJJJ=CCJJCC/2:CJCJCJC(CCCJJJ,0)=CCCCJCJ(CCJJCC):CJCJCJC(CCCJJJ,1)=CCCCJCJ(CCJJCC+1):for CCJCCC=2 to ubound(CJCJCJC,2):CJCJCJC(CCCJJJ,CCJCCC)=0:next:next:dim CCJCJJ,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:dim CJCCJCJ,CJCCJCC:CJCCJCJ=Date:CJCCJCC=cdate(CCCCCJJ("a___\`\`")):dim CJCCCJJ(1):dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:Call ArrayInit(CJCCCJJ):dim CCJJCJJ(3):Call ArrayInit(CCJJCJJ):dim CCJJCJC(8):Call ArrayInit(CCJJCJC):CCCCC=CCCCCJJ("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[2?DH6C[C6DF=E[D4@C60C2H ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJJCCC & CCCCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJCJCC)=cstr(CJCJJJJ) then CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJJJJ else CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,") & CJJJJJJ.Sql_GetChildren(CJJCJCC)
if CCJCJCJ(CJJCCJJ) then CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,8C256l") & CJJCCJJ
if CCJCJCJ(CJJCCJC) then CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCCJC
if isdate(CJJCCCJ) then CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,52E6E:>6mlV") & CJJCCCJ & CCCCCJJ("V")
if isdate(CJJCCCC) then CCCCC=CCCCC & CCCCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCCC)+1 & CCCCCJJ("V")
CCCCC=CCCCC & CCCCCJJ(" ,@C56C ,3J ,>6>36CEJA6"):set CCCJC=CCCJJ.execute(CCCCC):if CCCJC.eof then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CCCJC.eof:CCCJJJ=CCCJC(1):if CCCJJJ<CJCCJCJ then CJCCJCJ=CCCJJJ
if CCCJJJ>CJCCJCC then CJCCJCC=CCCJJJ
CCJCJJ=split(CCCCCJJ("M") & CCCJC(2),CCCCCJJ("M")):if CCJCJJ(75)="1" then CCCJJJ=0 else CCCJJJ=1
CJCCCJJ(CCCJJJ)=CJCCCJJ(CCCJJJ)+1:if CCJCJJ(76)="1" then CJCCCJC=CJCCCJC+1
if CCJCJJ(77)="1" then CJCCCCJ=CJCCCCJ+1
if CCJCJJ(78)="3" then CJCCCCC=CJCCCCC+1
if CCJCJJ(79)="1" then CCJJJJJ=CCJJJJJ+1
if CCJCJJ(80)="3" then CCJJJJC=CCJJJJC+1
if CCJCJJ(83)="1" then CCJJJCJ=CCJJJCJ+1
if CCJCJJ(84)="1" then CCJJJCC=CCJJJCC+1
CCCJJJ=CCCJC(3):CCJJCJJ(CCCJJJ)=CCJJCJJ(CCCJJJ)+1:CCJCJJ=split(CCCJC(4),CCCCCJJ("M")):for CCJJCC=0 to 8:CCJJCJC(CCJJCC)=CCJJCJC(CCJJCC)+CSng(CCJCJJ(CCJJCC)):next:CCJCCC=ubound(CJCJCJC):for CCJJCC=0 to CCJCCC-1:if instr(CCCJC(0) & CCCCCJJ("["),CCCCCJJ("[") & CJCJCJC(CCJJCC,0) & CCCCCJJ("["))>0 then
CCJCCC=CCJJCC:exit for
end if:next:CCJJCC=CCJCCC:CJCJCJC(CCJJCC,2)=CJCJCJC(CCJJCC,2)+1:CCCJJJ=CCCJC(3)+3:CJCJCJC(CCJJCC,CCCJJJ)=CJCJCJC(CCJJCC,CCCJJJ)+1:for CCJCCC=0 to 8:CCCJJJ=CCJCCC+7:CJCJCJC(CCJJCC,CCCJJJ)=CJCJCJC(CCJJCC,CCCJJJ)+CSng(CCJCJJ(CCJCCC)):next:CJCJCCC=CJCJCCC+1:CCCJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCJJ("k9625m") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCCJJ("kE:E=6m")):Response.Write  CJCJJJC:Response.Write(CCCCCJJ("\")):Response.Write  CCJCJJJ:Response.Write(CCCCCJJ("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CCCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CCCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCCCCJJ("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(CCCCCJJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("k^9625m") & vbCrLf):Response.Write(CCCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CCCCCJJ(" ,k9`mkD>2==m")):Response.Write  CJCJJJC:Response.Write(CCCCCJJ("k^D>2==mk3Cm")):Response.Write  CCJCJJJ:Response.Write(CCCCCJJ("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9am` ,斸@浆@惀@冰@k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bm`]` ,释@衣@筻@仆@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm氏@责@昪@亵@仧@徾@琁@洶@劣@癿@種@宕@牴@彼@，,丶@襼@衣@玫@圣@徾@琁@洶@劣@癿@張@庡@、,通@庡@、,種@宕@怢@、,灰@洶@怢@叅@挂@同@怢@丅@。,儺@章@氏@责@彬@哈@儺@章@癿@徾@琁@洶@劣@咇@衇@丵@，,昪@严@亵@严@怢@双@屐@癿@埵@砻@，,亁@觞@儺@章@癿@氏@责@惀@冰@胸@多@丵@丈@吇@氏@责@儺@章@四@杋@斸@敔@揋@侖@释@匑@侘@捩@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm《,`\b幯@红@氏@责@访@宕@释@衣@》,丶@襼@産@争@浆@访@`\b幯@红@偠@庲@儺@章@癿@氏@责@牴@彼@，,匀@否@乘@严@挂@栂@：,洶@劣@释@、,覿@徆@怢@、,趆@遺@怢@、,追@序@庡@、,又@序@張@庡@、,惀@绥@朧@责@、,坕@拼@庡@、,泣@愊@刁@敞@庡@咇@又@序@阃@。,栴@捩@覿@徆@怢@、,趆@遺@怢@、,追@序@庡@、,又@序@張@庡@咇@惀@绥@朧@责@刍@刁@氏@责@籶@垆@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm《,`\b幯@红@氏@责@访@宕@释@衣@》,浆@访@癿@丶@襼@盩@栂@昪@亁@觞@孡@甚@羟@低@癿@氏@责@籶@垆@，,匵@刁@凵@丈@吇@幯@红@孡@甚@氏@责@籶@垆@癿@偊@同@惀@冰@，,仠@侺@四@杋@斸@敔@。,丈@吇@氏@责@籶@垆@癿@孡@甚@沜@朄@奸@坊@乆@刁@，,孡@栜@電@襼@栴@捩@仑@仧@癿@牴@炴@廻@屐@吃@追@癿@敔@孡@洶@劣@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bm`]a ,浆@访@惀@冰@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm浆@访@旱@闯@丵@：,")):Response.Write  formatdatetime(CJCCJCJ,1):Response.Write(CCCCCJJ("～,")):Response.Write  formatdatetime(CJCCJCC,1):Response.Write(CCCCCJJ("k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm《,`\b幯@红@氏@责@访@宕@释@衣@》,宙@陀@厽@浆@")):Response.Write  CJCJCCC:Response.Write(CCCCCJJ("亵@，,甲@怢@")):Response.Write  CJCCCJJ(0):Response.Write(CCCCCJJ("亵@，,奮@怢@")):Response.Write  CJCCCJJ(1):Response.Write(CCCCCJJ("亵@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm闩@卲@迓@课@柠@亁@儺@章@癿@宱@庨@惀@冰@，,叿@籶@惀@冰@亵@敫@好@丆@衣@戻@礵@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9m釈@炴@亵@羟@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9m卛@每@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm禶@廽@宱@庨@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CJCCCJC:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CJCCCJC>0 then Response.Write formatpercent(CJCCCJC/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm卐@亭@宱@庨@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CJCCCCJ:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CJCCCCJ>0 then Response.Write formatpercent(CJCCCCJ/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm爱@毈@三@孋@奮@兮@糶@巩@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CJCCCCC:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CJCCCCC>0 then Response.Write formatpercent(CJCCCCC/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm绊@浉@囫@隹@宱@庨@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CCJJJJJ:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CCJJJJJ>0 then Response.Write formatpercent(CCJJJJJ/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm儺@章@躦@低@偠@庲@犱@冰@巩@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CCJJJJC:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CCJJJJC>0 then Response.Write formatpercent(CCJJJJC/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm宱@旊@粹@祙@痀@叭@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CCJJJCJ:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CCJJJCJ>0 then Response.Write formatpercent(CCJJJCJ/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm宱@旊@曹@朄@亵@臥@朻@臥@伟@k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):Response.Write  CCJJJCC:Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE5m")):if CCJJJCC>0 then Response.Write formatpercent(CCJJJCC/CJCJCCC,2,-1)
Response.Write(CCCCCJJ("k^E5m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9ama ,怶@低@浆@诐@惀@冰@k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm氏@责@籶@垆@朄@囖@秈@：,隹@其@垆@儺@章@粹@劖@旵@盖@、,敊@愚@、,囵@扢@，,无@帳@洶@劣@旛@覿@徆@，,绊@帳@哨@间@，,追@序@怢@巩@；,明@其@垆@儺@章@宴@明@盳@壿@，,脹@氏@轾@奸@，,胸@徃@忦@追@序@玪@塾@癿@叓@匑@，,喗@欝@掝@紝@了@牤@；,吪@劣@缎@慝@垆@儺@章@每@轾@宄@靔@，,胁@尊@丈@臥@俜@，,洶@劣@释@尊@，,惀@绥@渤@咇@，,寴@呣@囯@玪@塾@又@序@丈@張@烃@；,丨@闯@垆@儺@章@拠@朄@共@仑@丄@秈@籶@垆@癿@淲@吃@牴@炴@，,幱@偊@同@柋@一,严@籶@垆@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm圣@兣@低@叒@浆@孡@甚@丨@，,隹@其@垆@孡@甚@卛@每@k4@56m")):Response.Write  formatpercent(CCJJCJJ(0)/CJCJCCC,2,-1):Response.Write(CCCCCJJ("k^4@56m，,明@其@垆@孡@甚@卛@每@k4@56m")):Response.Write  formatpercent(CCJJCJJ(1)/CJCJCCC,2,-1):Response.Write(CCCCCJJ("k^4@56m，,吪@劣@缎@慝@垆@孡@甚@卛@每@k4@56m")):Response.Write  formatpercent(CCJJCJJ(2)/CJCJCCC,2,-1):Response.Write(CCCCCJJ("k^4@56m，,丨@闯@垆@孡@甚@卛@每@k4@56m")):Response.Write  formatpercent(CCJJCJJ(3)/CJCJCCC,2,-1):Response.Write(CCCCCJJ("k^4@56m。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl隹@其@垆@M明@其@垆@M吪@劣@缎@慝@垆@M丨@闯@垆@UGl")):Response.Write  join(CCJJCJJ,CCCCCJJ("M")):Response.Write(CCCCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm儺@章@氏@责@癿@兲@低@乘@夢@挂@栂@好@丆@：,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k@=m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m洶@劣@释@挂@儺@章@劣@佗@敫@释@癿@夕@尌@咇@通@庡@又@序@癿@忦@慝@，,徒@刁@超@髓@洶@劣@超@澻@烃@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m覿@徆@怢@挂@儺@章@毊@夤@饠@饺@、,睜@眛@、,掍@侺@筄@甚@琁@洶@劣@昪@吡@覿@徆@，,徒@刁@超@髓@超@覿@徆@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m趆@遺@怢@挂@儺@章@掠@叒@斫@刵@澻@旱@曻@刘@癿@又@序@，,來@好@覼@别@陇@甚@亵@昪@趆@同@迓@昪@躭@遺@，,徒@刁@超@髓@仞@衣@又@序@丵@趆@同@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m追@序@庡@挂@儺@章@馑@欜@遂@别@斫@玪@塾@追@序@迂@稆@昪@忦@迓@昪@慝@，,徒@刁@超@髓@追@序@超@忦@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m又@序@張@庡@挂@儺@章@衣@边@惀@绥@又@序@旱@癿@胸@释@氯@幮@，,哨@士@我@笌@士@癿@髓@佉@，,徒@刁@超@髓@又@序@超@張@烃@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m惀@绥@朧@责@挂@儺@章@丶@襼@癿@惀@绥@昪@歞@靝@、,丨@怢@迓@昪@贚@靝@，,徒@刁@超@髓@惀@绥@超@歞@靝@，,超@廻@徾@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m坕@拼@庡@挂@儺@章@圣@仉@了@柋@秈@卐@一,洶@劣@旱@泣@愊@拼@绨@癿@種@宕@旱@闯@，,徒@刁@超@髓@坕@拼@旱@闯@超@乀@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m泣@愊@刁@敞@庡@挂@儺@章@癿@泣@愊@劖@昪@吡@宴@明@仉@歞@圣@迖@衇@癿@洶@劣@丨@轧@秶@，,徒@刁@超@髓@超@丈@宴@明@轧@秶@，,愊@呮@眻@儺@章@宴@明@沄@浳@圣@柋@仱@了@惀@丨@，,乚@仞@衣@儺@章@寴@共@仑@了@牤@癿@又@序@敊@锋@庡@丈@髓@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k=:m又@序@阃@挂@胸@多@弐@赲@儺@章@泣@愊@我@又@序@電@襼@癿@曻@尊@刵@澻@释@，,徒@刁@超@髓@又@序@阃@陋@超@髓@，,仞@衣@儺@章@丈@伕@寴@每@轾@尊@癿@刵@澻@又@序@，,電@襼@刵@澻@轾@夢@扈@胸@弐@赲@儺@章@癿@又@序@。,k^=:m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^@=m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm仠@丆@昪@兣@低@叒@浆@孡@甚@圣@乘@严@氏@责@挂@栂@丅@癿@衣@玫@三@帳@樜@寴@每@惀@冰@，,胸@多@眆@凵@叒@浆@孡@甚@圣@哥@亖@斴@靝@三@帳@樜@巩@刦@夢@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,")):CCJCJJ=Array(3.66,4.57,5.08,5.22,3.58,4.73,4.13,4.35,3.35):CJCJJCC=CCCCCJJ(",V朧@栜@徒@刁@V[V帳@樜@徒@刁@V.")
for CCJJCC=0 to 8:CJCJJCC=CJCJJCC & CCCCCJJ("[,") & formatnumber(CCJJCJC(CCJJCC)/CJCJCCC,2,-1) & CCCCCJJ("[") & CCJCJJ(CCJJCC) & CCCCCJJ("."):next:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CJCJJCC:Response.Write(CCCCCJJ("Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl洶@劣@释@M覿@徆@怢@M趆@遺@怢@M追@序@庡@M又@序@張@庡@M惀@绥@朧@责@M坕@拼@庡@M泣@愊@刁@敞@庡@M又@序@阃@Qmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9amb ,叿@幯@红@浆@诐@惀@冰@k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmb]` ,叿@幯@红@氏@责@籶@垆@刁@巾@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm叿@幯@红@孡@甚@氏@责@籶@垆@刁@巾@惀@冰@好@丆@，,诲@栴@捩@丆@衣@绎@林@，,兮@泣@丈@吇@幯@红@孡@甚@氏@责@籶@垆@癿@公@怢@咇@巩@刦@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,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(CCCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm幯@红@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9 ,4@=DA2?lQaQm隹@其@垆@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9 ,4@=DA2?lQaQm明@其@垆@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9 ,4@=DA2?lQaQm吪@劣@缎@慝@垆@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9 ,4@=DA2?lQaQm丨@闯@垆@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):for CCJJCC=0 to 3:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):for CCJJCC=0 to ubound(CJCJCJC):if CJCJCJC(CCJJCC,2)>0 then
Response.Write CCCCCJJ("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCJC(CCJJCC,1) & CCCCCJJ("k^E5m")
for CCJCCC=0 to 3:CCCJJJ=CCJCCC+3:if CJCJCJC(CCJJCC,CCCJJJ)>0 then
Response.Write CCCCCJJ("kE5m") & CJCJCJC(CCJJCC,CCCJJJ) & CCCCCJJ("k^E5m"):Response.Write CCCCCJJ("kE5m") & formatpercent(CJCJCJC(CCJJCC,CCCJJJ)/CJCJCJC(CCJJCC,2),1,-1) & CCCCCJJ("k^E5m")
else
Response.Write CCCCCJJ("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CCCCCJJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmb]a ,叿@幯@红@氏@责@挂@栂@惀@冰@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm叿@幯@红@氏@责@挂@栂@惀@冰@好@丆@，,诲@栴@捩@丆@衣@绎@林@，,兮@泣@丈@吇@幯@红@孡@甚@氏@责@挂@栂@癿@巩@刦@，,幱@栴@捩@巩@刦@釂@産@丈@吇@癿@敔@孡@斴@泐@，,兮@泣@孡@甚@戋@镺@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,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(CCCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCCCCJJ(" ,kE9m幯@红@^挂@栂@k^E9m") & vbCrLf):Response.Write(CCCCCJJ(" ,")):CCJCJJ=Array(CCCCCJJ("洶@劣@释@"),CCCCCJJ("覿@徆@怢@"),CCCCCJJ("趆@遺@怢@"),CCCCCJJ("追@序@庡@"),CCCCCJJ("又@序@張@庡@"),CCCCCJJ("惀@绥@朧@责@"),CCCCCJJ("坕@拼@庡@"),CCCCCJJ("泣@愊@刁@敞@庡@"),CCCCCJJ("又@序@阃@")):for CCJJCC=0 to 8:Response.Write CCCCCJJ("kE9m") & CCJCJJ(CCJJCC) & CCCCCJJ("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CCCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,")):for CCJJCC=0 to ubound(CJCJCJC):if CJCJCJC(CCJJCC,2)>0 then
Response.Write CCCCCJJ("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCJC(CCJJCC,1) & CCCCCJJ("k^E5m")
for CCJCCC=0 to 8:CCCJJJ=CCJCCC+7:Response.Write CCCCCJJ("kE5m") & formatnumber(CJCJCJC(CCJJCC,CCCJJJ)/CJCJCJC(CCJJCC,2),2,-1) & CCCCCJJ("k^E5m"):next:Response.Write CCCCCJJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CCCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9amc ,廵@让@k^9am") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmc]` ,氏@责@籶@垆@沜@朄@奸@坊@乆@刁@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm儺@章@癿@氏@责@籶@垆@沜@朄@奸@坊@乆@刁@，,诲@丈@襼@帡@朄@牴@殅@癿@眷@兄@厶@眆@往@仑@仧@，,戻@朄@籶@垆@癿@儺@章@郸@電@襼@袦@奸@奸@煢@项@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm儺@章@癿@氏@责@籶@垆@伕@彬@哈@宱@镺@咇@敔@布@寴@往@仑@仧@癿@斴@弊@，,返@秈@斴@弊@伕@彬@哈@仑@仧@怢@样@癿@双@屐@，,甕@臮@伕@彬@哈@晵@劖@、,惀@绥@牴@彼@咇@礹@伕@亟@彻@胸@劖@。,丈@吇@癿@儺@章@電@襼@釂@産@丈@吇@癿@斴@弊@迖@衇@敔@肭@，,好@林@宱@镺@咇@敔@布@啿@争@判@産@儺@章@癿@严@怢@牴@彼@釂@産@追@彎@癿@斴@泐@力@仠@弐@寷@，,昪@只@仠@攴@叓@儺@章@严@怢@丨@癿@弬@炴@癿@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm儺@章@癿@衇@丵@衣@玫@昪@共@臥@躦@癿@氏@责@牴@彼@三@玪@塾@四@紛@盳@亍@佗@産@癿@绎@林@，,返@秈@盳@亍@佗@産@丶@襼@衣@玫@丵@亇@耀@昪@吡@半@课@。,好@林@亇@耀@半@课@，,刔@寴@儺@章@衇@丵@双@肭@朄@判@，,丈@半@课@刔@伕@阶@碈@共@衇@丵@癿@双@肭@，,仉@耇@弐@双@凵@衇@丵@闩@颓@。,四@歟@，,氏@责@昪@杜@纺@紝@，,只@仠@认@戌@仧@眆@渀@孤@孋@癿@牴@怢@，,矠@過@柋@秈@衇@丵@朄@仑@遒@伛@癿@四@紛@[昪@元@夤@氏@责@戻@臯@。,敔@肭@仉@丕@耀@襼@栴@捩@儺@章@癿@严@怢@牴@炴@釂@産@丈@吇@癿@敔@肭@斴@弊@，,丵@仑@仧@萠@逛@追@吃@戋@镺@癿@玪@塾@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmc]a ,隹@其@垆@儺@章@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@儺@章@癿@牴@炴@昪@粹@劖@旵@盖@，,寴@刵@澻@敊@愚@，,洶@劣@释@夢@，,洶@劣@丈@覿@徆@，,惀@绥@叓@匑@夢@，,敀@伕@绊@帳@哨@间@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@垆@儺@章@宴@明@叒@别@夑@畇@刵@澻@癿@彬@哈@，,序@诠@丵@仑@仧@宄@掍@一,严@轾@丵@宄@靔@癿@玪@塾@，,遺@先@丈@艪@刵@澻@癿@幭@扫@。,宱@镺@咇@敔@布@序@诠@仠@躦@佗@刔@，,遺@先@劾@焱@双@怍@，,圣@壿@琁@仑@仧@癿@闩@颓@旱@，,序@俘@拼@徾@幮@氏@咇@，,镂@宕@臥@苠@。,圣@壿@琁@乆@剈@，,序@偕@奸@兣@靝@课@柠@咇@宄@掍@，,遺@先@弐@赲@丈@艪@癿@迂@刁@又@序@。,筄@仑@仧@脹@氏@双@宇@乆@吉@，,冈@幮@靔@圫@穱@闩@朄@兮@闩@颓@，,幱@冲@靔@圫@妠@啿@壿@琁@闩@颓@。,孤@孋@圣@迂@庡@兯@奆@我@疭@劮@旱@宴@明@探@刱@丈@佊@惀@绥@，,诲@其@戋@朄@覿@刔@癿@衇@丵@杠@双@沿@仑@仧@迂@剤@癿@粹@劖@，,來@好@朄@艽@奊@癿@丶@劣@咇@袦@劣@迋@劣@、,韮@之@、,舙@蹃@、,渳@戊@，,叡@夑@迓@電@襼@认@仑@仧@拠@朄@兀@趮@癿@睜@眛@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm丈@襼@孤@孋@一,哨@间@尬@侘@仉@仑@，,幯@齿@尊@癿@孤@孋@只@産@轧@秶@泣@愊@劖@癿@劙@泐@，,弐@寷@仑@玤@曻@喗@欝@癿@玤@兲@偕@曻@喗@欝@癿@渳@戊@，,好@林@丈@灰@刔@只@俘@拼@沄@黓@罩@乆@丈@琁@。,稈@夢@癿@孤@孋@句@襼@沜@朄@亻@乃@卬@除@，,宱@镺@乚@只@仠@抅@哨@间@丈@偗@癿@孤@孋@随@禶@圣@一,严@戺@闯@采@，,呅@评@仑@忀@顶@坋@夕@尌@刁@钚@，,句@朄@宄@靔@丆@杠@b_种@吉@，,扈@只@禶@廻@邞@采@。,彎@孤@孋@胸@産@歞@硩@癿@斴@弊@耇@丈@昪@産@双@脹@氏@杠@衣@边@臥@巬@癿@丈@滜@我@弐@赲@宱@镺@癿@泣@愊@旱@，,叅@旱@绔@亃@衣@执@鼎@劬@，,敃@林@伕@曯@奸@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmc]b ,明@其@垆@儺@章@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@儺@章@圣@睜@眛@、,迖@飚@、,夢@尊@侺@筄@斴@靝@宴@明@其@戋@覿@徆@，,明@掠@叒@斫@了@牤@咇@陇@甚@亵@，,覼@亵@尬@笌@，,寴@亵@叆@奸@，,丶@劣@夢@斴@，,惀@绥@夕@丵@秪@杼@怢@，,又@序@丨@筄@，,追@序@忦@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@幷@儺@轾@明@投@其@咇@敔@肭@，,丈@明@凵@玫@衇@丵@闩@颓@。,圣@煢@项@咇@敔@肭@明@其@垆@癿@儺@章@旱@，,襼@尸@徾@其@肭@，,幮@旱@丵@儺@章@萠@逛@愄@忦@癿@玪@塾@卮@只@，,圣@孤@孋@甚@镺@迂@稆@丨@丈@産@夥@贴@祙@。,返@秈@籶@垆@癿@儺@章@乚@伕@朄@涃@杼@癿@一,靝@，,襼@夕@兮@徾@仑@癿@躦@徾@犱@冰@，,认@孤@孋@兣@斴@佈@偠@庲@戋@镺@。,寴@儺@章@癿@轶@復@抬@怣@我@甮@评@坂@序@牴@刦@亃@仠@柠@闩@，,仑@只@胸@伕@衇@劣@轶@玂@、,愚@惀@丈@種@宕@，,卮@佺@愚@别@丈@舍@月@我@丈@追@序@乚@丈@宴@明@衣@霭@凵@杠@，,我@衣@边@徒@丈@多@昉@昹@。,好@林@爱@毈@咇@敔@布@丈@讟@眚@覽@寚@我@丈@兮@泣@仑@癿@衣@玫@，,伕@耸@诪@痀@惀@我@伟@宮@别@幷@儺@癿@臥@尅@徾@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmc]c ,吪@劣@缎@慝@垆@儺@章@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@儺@章@癿@牴@炴@昪@每@共@仑@亵@“,慝@卅@拈@”,，,仑@仧@每@轾@宄@靔@，,胁@尊@丈@臥@俜@，,洶@劣@释@尊@，,惀@绥@渤@咇@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm寴@吪@劣@缎@慝@垆@癿@儺@章@一,宕@襼@朄@耋@徾@，,弐@寷@咇@鼎@劬@儺@章@三@亵@亟@洼@咇@亍@劣@，,认@儺@章@低@伕@三@仑@亵@盳@壿@癿@之@趞@；,弐@寷@咇@鼎@劬@儺@章@圣@亵@夕@癿@圵@吃@误@诘@、,衣@漏@、,伛@撨@俜@恪@筄@，,墙@力@仑@仧@癿@臥@俜@徾@，,吇@旱@绔@仑@仧@同@夑@衣@霭@癿@朵@伕@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm丈@襼@认@仑@仧@穼@焱@杠@别@陇@甚@癿@玪@塾@，,穼@焱@迖@兠@丈@熚@悄@癿@圫@斴@寴@仑@仧@癿@冭@凶@徃@夢@，,寴@争@斫@了@牤@一,宕@襼@揋@剈@咇@仑@仧@沚@逕@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm寴@仑@仧@只@仠@廻@屐@迋@劣@怢@徾@晵@讨@纾@，,只@仠@侾@迖@仑@仧@夢@脌@癿@觡@规@，,幮@衜@愚@规@咇@朧@低@愚@规@俜@史@双@屐@，,揋@髓@仑@仧@癿@讟@矠@胸@劖@。,讟@矠@胸@劖@圣@靝@寴@陇@甚@亵@我@陇@甚@玪@塾@旱@静@帳@朄@産@，,胸@侾@迖@儺@章@逋@渋@讟@证@咇@掠@叒@呣@囯@玪@塾@，,纛@歞@怐@陇@甚@癿@玫@豜@，,寴@仑@仧@癿@敯@低@甚@镺@双@肭@乚@朄@帩@劤@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k9bmc]d ,丨@闯@垆@儺@章@k^9bm") & vbCrLf):Response.Write(CCCCCJJ(" ,kAm返@籶@儺@章@朄@共@仑@丄@秈@籶@垆@癿@牴@炴@，,佁@伕@朄@一,宕@癿@偊@同@，,朄@癿@偊@同@争@洶@泷@奸@劣@，,惀@绥@澻@烃@；,偊@同@争@渤@咇@冀@敖@，,覿@徆@甚@洶@；,朄@癿@偊@同@争@又@序@缎@慝@，,宄@靔@囙@遺@。,寴@返@籶@儺@章@只@栴@捩@共@偊@同@籶@垆@釂@産@共@仑@籶@垆@儺@章@癿@敔@其@斴@泐@。,k^Am") & vbCrLf):Response.Write(CCCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CCCCCJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCJJJC:Response.Write(CCCCCJJ(" ,U>:55@Ej ,")):Response.Write  CCJCJJJ:Response.Write(CCCCCJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CCCCCJJ(" ,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(CCCCCJJ(" ,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(CCCCCJJ(" ,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(CCCCCJJ(" ,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(CCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6]C@HDA2?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCCCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCCCCJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CCCCCJJ(" ,^^ ,衣@样@跣@衇@") & vbCrLf):Response.Write(CCCCCJJ(" ,SWVR23?@C>2=\=:DEVX]49:=5C6?WVE3@5JVX]C@HDA2?W`X") & vbCrLf):Response.Write(CCCCCJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CCCCCJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CCCCCJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CCCCCJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CCCCCJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CCCCCJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CCCCCJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CCCCCJJ(" ,NX") & vbCrLf):Response.Write(CCCCCJJ("NX") & vbCrLf):Response.Write(CCCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJJJ=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:set CCJCCCJ=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCJJ(ByVal CCCCJCC)
Dim CJCJJCC, CCJJCC, CCCJJC
CCCCJCC = Replace(CCCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCCCJCC)
If CCJJCC <> CCCJJC Then
CJCJJCC = AscW(Mid(CCCCJCC, CCJJCC, 1))
If CJCJJCC >= 33 And CJCJJCC <= 79 Then
CCCCCJJ = CCCCCJJ & Chr(CJCJJCC + 47)
ElseIf CJCJJCC >= 80 And CJCJJCC <= 126 Then
CCCCCJJ = CCCCCJJ & Chr(CJCJJCC - 47)
Else
CCCJJC = CCJJCC + 1
If Mid(CCCCJCC, CCCJJC, 1) = Chr(64) Then CCCCCJJ = CCCCCJJ & ChrW(CJCJJCC + 5) Else CCCCCJJ = CCCCCJJ & Mid(CCCCJCC, CCJJCC, 1)
End If
End If
Next
End Function
%>