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