<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJCJ, CJCJCC,CJCCJJ, CJCCJC, CJCCCJ:Set CJCJCJ = server.CreateObject(CJJJCJJC("ps~sq]r@??64E:@?")):CJCJCJ.open Application(CJJJCJJC("r@??64E:@?$EC:?8")):Set CJCJCC=CJCJCJ::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJJJCJJC("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCCJ=CJJJCJJC("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") & CCJJJJ & CJJJCJJC("V ,2?5 ,:5l") & CJCCCC
set CJCCJJ=CJCJCJ.execute(CJCCCJ):If CJCCJJ.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCCJJ(2) & "":CCJJCJ=CJCCJJ(3):CCJJCC=CJCCJJ(5):CCJCJJ=CJCCJJ(6):CCJCJC=CJCCJJ(9):CCJCCJ=CJCCJJ(15):CCCJJJ=CJCCJJ(0):CCCCCC=CJCCJJ(1):CCCCCJ=CJCCJJ(11) & "":CCCJJC=CJCCJJ(10) & "":CCJCCC=CJCCJJ(12):CCCJCJ=CJCCJJ(14):CCCJCC=CJCCJJ(13):CCCCJJ=CJCCJJ(7) & "":CCCCJC=CJCCJJ(4):CJJJJJJ=CJCCJJ(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJJJCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJJJCJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:Sub CheckRight(CJJJCJCJ):dim CJJJJCJ,CJJJJCC:if CJCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJCJJ(CJJJCJCJ) then
Call RedirectMessage(CJJJCJJC("朾@陋@W") & CJJJCJCJ & CJJJCJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJCJJ(CJJJCJCJ):dim CJJJJCJ,CJJJJCC:CJJJJCC=split(CJJJCJCJ,CJJJCJJC("[")):CCCJCJJ=False:for CJJJJCJ=0 to ubound(CJJJJCC):If Mid(CCJJJC,CJJJJCC(CJJJJCJ),1)="1" then
CCCJCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJJC("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCJJ,CJJJCJC,CJJJJCJ,CJJJCCJ,CJJJCCC:CJJJCJJ=split(CJJJJJC,CJJJCJJC("]")):if ubound(CJJJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCJJ(0)) or len(CJJJCJJ(1))<>32 or len(CJJJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCJC=CJJJCJJ(1):for CJJJJCJ=1 to len(CJJJCJC):CJJJCCJ=mid(CJJJCJC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCJC=CJJJCJJ(2):if CJJJCCC<>mid(CJJJCJC,6,7) then
Call ClearMemberCookie
else
CJJJCCJ=mid(CJJJCJC,18,10)/2:if CJJJCCJ<DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJJJCJJ(0)):CCJJJJ=CJJJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCJJ,CJJJCJCC):dim CJJJJCJ,CJJJCCJ,CJJJCCC:for CJJJJCJ=1 to len(CJJJCJCC):CJJJCCJ=mid(CJJJCJCC,CJJJJCJ,1):if isnumeric(CJJJCCJ) then CJJJCCC=CJJJCCC & CJJJCCJ
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCCCCJJ & CJJJCJJC("]") & CJJJCJCC & CJJJCJJC("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJJC("!$*|t|qt#"))=CJJJCCC:End Sub::::Const CCCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJJC("FE7\g"):dim CJJJJCJ,CJJJCCJ,CJJCJJJ:if isarray(str) then
on error resume next:CJJJJCJ=ubound(str,2):CJJCJJJ=err.number:err.clear:on error goto 0:if CJJCJJJ<>0 then
for CJJJJCJ=0 to ubound(str):if CJJJJCJ>0 then response.Write CJJJCJJC("k3C ,^m")
response.Write CJJJJCJ & CJJJCJJC("i ,") & str(CJJJJCJ):next
else
response.Write CJJJCJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCJ=0 to ubound(str,2):response.Write CJJJCJJC("kE9 ,2=:8?lV=67EVm") & CJJJJCJ & CJJJCJJC("k^E9m")
next:response.Write CJJJCJJC("k^ECm"):for CJJJJCJ=0 to ubound(str):response.Write CJJJCJJC("kECmkE9m") & CJJJJCJ & CJJJCJJC("k^E9m"):for CJJJCCJ=0 to ubound(str,2):response.Write CJJJCJJC("kE5m") & str(CJJJJCJ,CJJJCCJ) & CJJJCJJC("k^E5m"):next:response.Write CJJJCJJC("k^ECm"):next:response.Write CJJJCJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCJJ,CJJJCCJC):dim CJJJCJJ:CJJJCJJ=CJJJCCJJ & CJJJCJJC("l") & CJJJCCJC & CJJJCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJJC("$6E\r@@<:6"),CJJJCJJ):End Sub::::::sub ShowMessage(CJJJCCCJ):response.Charset="utf-8":Response.Write CJJJCJJC("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") & CJJJCCCJ & CJJJCJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJCJC(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then
CCCJCJC=false
else
Dim CJJCJJC:Set CJJCJJC = New RegExp:CJJCJJC.Pattern = CJJJCJJC("/-5ZS"):CJJCJJC.IgnoreCase = True:CCCJCJC = CJJCJJC.test(CJJCJJJ):set CJJCJJC=nothing
end if:End Function:Function CCCJCCJ(CJJJCCCC):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CJJJCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCC & CJJJCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJCJ.execute(CJJCJCJ):CCCJCCJ = CJJCJCC(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJJCJCC.close : set CJJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCCJC.Close : Set CJCCJC=Nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJCJCJ.Close : Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJJC("!$*0|6DD286"),server.URLEncode(CJJJCCCJ)):Response.Redirect CJJJCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJJJ,CJJCJJJC):dim str,CJJCJJJ:str=CJJJCJJC("!$*0") & Ucase(CJJCJJJJ):if Session(str)<>"" then
CJJCJJJ=DateDiff(CJJJCJJC("D"),Session(str),Time):if CJJCJJJ<CJJCJJJC and CJJCJJJ>0 then
Call ConnClose:Call ShowMessage(CJJJCJJC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJJJC & CJJJCJJC(" ,种@，,迓@剤@ ,") & CJJCJJJC-CJJCJJJ & CJJJCJJC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCJJCJ):Application.Contents.Remove CJJCJJCJ
End Sub::Class jTree:Private CJCCCJ, CJJCCJC, CJJCCCJ, CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Private Sub Class_Initialize():CJJCCCJ = 0:CJJCCCC = 0:CJCJJCC=10:End Sub:Public Property Let Table(CJJCJJCC):if CJJCJJCC="" then Call RedirectMessage(CJJJCJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJJJJ=CJJCJJCC:CJCJJJC=CJJJCJJC("!$*0") & UCase(CJCJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJJ:End Property:::Private Sub GetTreeArray():Dim CJJJJCJ, CJJJCCJ, CJCJCJJ,CJCJCJC:CJJCCJC = Application(CJCJJJC):If Not IsArray(CJJCCJC) Then
CJCCCJ = CJJJCJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJJ:if CJCJJCJ<>"" then CJCCCJ=CJCCCJ & CJJJCJJC(" ,H96C6 ,") & CJCJJCJ
set CJCJCJJ=CJCJCJ.execute(CJCCCJ):CJCJCJC=CJCJCJJ(0):if CJCJCJC=0 then Call RedirectMessage(CJJJCJJC("柠@话@W") & CJCJJJJ & CJJJCJJC("^") & CJCJJCJ & CJJJCJJC("X沜@朄@绎@林@敫@捩@"))
CJJCCCC=CJCJCJC+CJCJJCC:ReDim CJJCCJC(CJJCCCC, 4):CJCCCJ = CJJJCJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H:E9 ,W?@=@4<X"):if CJCJJCJ<>"" then CJCCCJ=CJCCCJ & CJJJCJJC(" ,H96C6 ,") & CJCJJCJ
CJCCCJ=CJCCCJ & CJJJCJJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=CJCJCJ.execute(CJCCCJ):For CJJJJCJ = 1 To CJCJCJC:For CJJJCCJ = 0 To 4:CJJCCJC(CJJJJCJ, CJJJCCJ) = CJCJCJJ(CJJJCCJ):if IsNull(CJJCCJC(CJJJJCJ,4)) then CJJCCJC(CJJJJCJ,4)=0
If CJJCCJC(CJJJJCJ,2)="" then CJJCCJC(CJJJJCJ,2)=CJJJCJJC(",穵@.")
Next:CJCJCJJ.MoveNext:Next:CJCJCJJ.Close: Set CJCJCJJ = Nothing:for CJJJJCJ=CJJCCCC-(CJCJJCC-1) to CJJCCCC:CJJCCJC(CJJJJCJ,0)=CJJJJCJ:next:Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
else
CJJCCCC=Ubound(CJJCCJC)
End If:End Sub::::Public Function GetChild(CCCCCJJ):Dim CJJJJCJ, Str:CCCCCJJ=CLng(CCCCCJJ):For CJJJJCJ = 1 To CJJCCCC:If CJJCCJC(CJJJJCJ, 1) = CCCCCJJ Then Str = Str & CJJJCJJC("M") & CJJCCJC(CJJJJCJ, 0) & CJJJCJJC("M") & CJJCCJC(CJJJJCJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCJJC("M")):End Function:Private Function CCCCCCJ(CCCCCJJ):dim CJJJJCJ,CJCJCCJ:CCCCCCJ=0:CJCJCCJ=CStr(CCCCCJJ):if CJCJCCJ<>"0" then
for CJJJJCJ=1 to CJJCCCC:If CStr(CJJCCJC(CJJJJCJ, 0))=CJCJCCJ Then
CCCCCCJ = CJJJJCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCCCJJ):if Cstr(CCCCCJJ)="0" then
GetCurName=CJJJCJJC("栴@")
else
Dim CJJJJCJ,CJCJCJJ:CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJJJCJ>0 then
GetCurName=CJJCCJC(CJJJJCJ,2):if GetCurName="" then
set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then Call RedirectMessage(CJJJCJJC("xs（,") & CCCCCJJ & CJJJCJJC("）,朥@批@别@"))
GetCurName=CJCJCJJ(1):Call UpdateCache(CCCCCJJ,CJCJCJJ(0),GetCurName,CJCJCJJ(2),CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if
else
set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then Call RedirectMessage(CJJJCJJC("xs（,") & CCCCCJJ & CJJJCJJC("）,朥@批@别@"))
GetCurName=CJCJCJJ(1):Call UpdateCache(CCCCCJJ,CJCJCJJ(0),GetCurName,CJCJCJJ(2),CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if
end if:End Function:::Public Function CJJJJJJJ(CCCCCJJ):Dim CJJJJCJ,CJCJCCC:CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJJJCJ=0 then
CJCJCCC=CJJJJJJC(CCCCCJJ)
else
CJCJCCC=CJJCCJC(CJJJJCJ,3):if isnull(CJCJCCC) or CJCJCCC="" then
CJCJCCC=CJJJJJJC(CCCCCJJ)
elseif Mid(CJCJCCC,instrrev(CJCJCCC,CJJJCJJC("["))+1)<>CStr(CCCCCJJ) then
CJCJCCC=CJJJJJJC(CCCCCJJ)
elseif Left(CJCJCCC,1)=CJJJCJJC("[") then
CJCJCCC=CJJJJJJC(CCCCCJJ)
end if
end if:CJJJJJJJ=CJCJCCC:End Function:Private Function CJJJJJJC(CCCCCJJ):dim CJCJCCJ:CJCJCCJ=CStr(CCCCCJJ):if CJCJCCJ="0" then
CJJJJJJC=""
else
dim CJCJCJJ:set CJCJCJJ=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJJ.eof then
Call UpdateCache(CCCCCJJ,"","","",""):Call RedirectMessage(CJJJCJJC("顴@盩@（,xs：,") & CCCCCJJ & CJJJCJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJCJJ(0)=0 then
CJJJJJJC="0," & CCCCCJJ
else
CJJJJJJC=CJJJJJJJ(CJCJCJJ(0)) & CJJJCJJC("[") & CCCCCJJ
end if:if CJCJCJJ(2)<>CJJJJJJC then
CJCJCJ.execute CJJJCJJC("FA52E6 ,") & CJCJJJJ & CJJJCJJC(" ,D6E ,A2E9lV") & CJJJJJJC & CJJJCJJC("V ,H96C6 ,:5l") & CCCCCJJ
else
CJJJJJJC=CJCJCJJ(2)
end if
end if:Call UpdateCache(CCCCCJJ,CJCJCJJ(0),CJCJCJJ(1),CJJJJJJC,CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if:End Function::::Public Function IsParent(CJJCJCJJ, CJJCJCJC):IsParent=InStr(CJJJJJJJ(CJJCJCJC) & CJJJCJJC("["), CJJJCJJC("[") & CJJCJCJJ & CJJJCJJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCCCJJ):dim CJCJCCC:CJCJCCC=CJJJJJJJ(CCCCCJJ):Sql_GetChildren = CJCJJJJ & CJJJCJJC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCC & CJJJCJJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJC
End Sub:Public Sub UpdateCache(CCCCCJJ,CJJCJCCJ,CJJCJCCC,CJCJCCC,CJJCCJJJ):dim CJJJJCJ,CJJJCCJ:CCCCCJJ=CLng(CCCCCJJ):CJJJJCJ=CCCCCCJ(CCCCCJJ):if CJJCJCCJ="" and CJJCJCCC="" and CJCJCCC="" and CJJCCJJJ="" then
if CJJJJCJ>0 then
for CJJJCCJ=1 to 4:CJJCCJC(CJJJJCJ,CJJJCCJ)=Null:next
end if
else
if CJJJJCJ=0 then
for CJJJCCJ=1 to CJJCCCC:if CJJCCJC(CJJJCCJ,1) & ""="" then
CJJJJCJ=CJJJCCJ:exit for
end if:next
end if:if CJJJJCJ=0 then
Call ClearCache
else
CJJCCJC(CJJJJCJ,0)=CLng(CCCCCJJ):if CJJCJCCJ<>"" then CJJCCJC(CJJJJCJ,1)=CLng(CJJCJCCJ)
if CJJCJCCC<>"" then CJJCCJC(CJJJJCJ,2)=CJJCJCCC
if CJCJCCC<>"" then CJJCCJC(CJJJJCJ,3)=CJCJCCC
if CJJCCJJJ<>"" then CJJCCJC(CJJJJCJ,4)=CLng(CJJCCJJJ)
end if
end if:if CJJJJCJ>0 then
Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCJ):Call ConnClose:Response.Write CJJJCCCJ:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CJJCJCC:set CJJCJCC=CJCJCJ.execute(CJJJCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJJ & CJJJCJJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CJJCJCC(0):CJJCJCC.Close: Set CJJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJJCJ=154:Const CCCJJCC="学习适应性测试":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCJJC("%6DE0#6A@CE"),15):dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:CJCCCJC=Request.QueryString(CJJJCJJC("$49@@=")):CJCCJJJ=Request.QueryString(CJJJCJJC("s6AE")):CJCCJJC=Request.QueryString(CJJJCJJC("vC256")):CJCCJCJ=Request.QueryString(CJJJCJJC("vC@FA")):CJCCCCJ=Request.QueryString(CJJJCJJC("E6DEEJA6")):CJCCJCC=Request.QueryString(CJJJCJJC("E`")):CJCCCJJ=Request.QueryString(CJJJCJJC("Ea")):if not CCCJCJC(CJCCJJJ) then Call RedirectMessage(CJJJCJJC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJJCCJC:set CJJCCJC=new jtree:CJJCCJC.table=CJJJCJJC(">6>36C0EJA6"):if not CJJCCJC.IsParent(CCJJCJ,CJCCJJJ) then Call RedirectMessage(CJJJCJJC("诠@苾@囯@W") & CJCCJJJ & CJJJCJJC("X丈@圣@患@W") & CCJJCJ & CJJJCJJC("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJJJCJC:CJJJJCJC=CJJCCJC.GetChild(CJCCJJJ):if ubound(CJJJJCJC)<0 then Call RedirectMessage(CJJJCJJC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
dim CJCCCCC:CJCCCCC=CJJCCJC.GetCurName(CJCCJJJ):dim CJJJJCJ,CJJJCCJ,CJJJCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:dim CCJJJCC():redim CCJJJCC((ubound(CJJJJCJC)-1)/2,8):for CJJJJCJ=0 to ubound(CJJJJCJC)-1 step 2:CJJJCCC=CJJJJCJ/2:CCJJJCC(CJJJCCC,0)=CJJJJCJC(CJJJJCJ):CCJJJCC(CJJJCCC,1)=CJJJJCJC(CJJJJCJ+1):for CJJJCCJ=2 to ubound(CCJJJCC,2):CCJJJCC(CJJJCCC,CJJJCCJ)=0:next:CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJCCC,1):next:CCJJJJJ=mid(CCJJJJJ,2):dim CCJJCJJ(1,1):CCJJCJJ(0,0)=CJJJCJJC("甲@"):CCJJCJJ(1,0)=CJJJCJJC("奮@"):for CJJJJCJ=0 to 1:CCJJCJJ(CJJJJCJ,1)=0:next:dim CJJJJCC,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCCC=Date:CCJCJJJ=cdate(CJJJCJJC("a___\`\`")):dim CCJCJCJ(5,7):for CJJJJCJ=0 to ubound(CCJCJCJ):for CJJJCCJ=0 to ubound(CCJCJCJ,2):CCJCJCJ(CJJJJCJ,CJJJCCJ)=0:next:next:CJCCCJ=CJJJCJJC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJJCJ & CJJJCJJC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJJJ)=cstr(CJCCCJC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCJC else CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,") & CJJCCJC.Sql_GetChildren(CJCCJJJ)
if CCCJCJC(CJCCJJC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,8C256l") & CJCCJJC
if CCCJCJC(CJCCJCJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCJ
if CCCJCJC(CJCCCCJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,EJA6l") & CJCCCCJ
if isdate(CJCCJCC) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,52E6E:>6mlV") & CJCCJCC & CJJJCJJC("V")
if isdate(CJCCCJJ) then CJCCCJ=CJCCCJ & CJJJCJJC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCJJ)+1 & CJJJCJJC("V")
set CJCCJJ=CJCJCJ.execute(CJCCCJ):if CJCCJJ.eof then Call RedirectMessage(CJJJCJJC("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CJCCJJ.eof:CJJJJCC=split(CJCCJJ(4),CJJJCJJC("M")):for CJJJJCJ=0 to 5:CJJJCCC=CJJJJCC(CJJJJCJ):CCJCJCJ(CJJJJCJ,CJJJCCC)=CCJCJCJ(CJJJJCJ,CJJJCCC)+1:next:CJJJJCC=split(CJCCJJ(5),CJJJCJJC("M")):for CJJJJCJ=0 to 5:CCJCJCJ(CJJJJCJ,5)=CCJCJCJ(CJJJJCJ,5) & CJJJCJJC("M") & CJJJJCC(CJJJJCJ):next:for CJJJJCJ=0 to ubound(CCJJJCC):if instr(CJCCJJ(0) & CJJJCJJC("["),CJJJCJJC("[") & CCJJJCC(CJJJJCJ,0) & CJJJCJJC("["))>0 then
CCJJJCC(CJJJJCJ,2)=CCJJJCC(CJJJJCJ,2)+1:for CJJJCCJ=0 to 5:CJJJCCC=CJJJCCJ+3:CCJJJCC(CJJJJCJ,CJJJCCC)=CCJJJCC(CJJJJCJ,CJJJCCC) & CJJJCJJC("M") & CJJJJCC(CJJJCCJ):next:exit for
end if:next:if CJCCJJ(1) then CJJJCCJ=0 else CJJJCCJ=1
CCJJCJJ(CJJJCCJ,1)=CCJJCJJ(CJJJCCJ,1)+1:CJJJCCC=CJCCJJ(3):if CJJJCCC<CCJJCCC then CCJJCCC=CJJJCCC
if CJJJCCC>CCJCJJJ then CCJCJJJ=CJJJCCC
CCJCJJC=CCJCJJC & CJJJCJJC("M") & CJCCJJ(2):CCJJCJC=CCJJCJC+1:CJCCJJ.movenext:wend:for CJJJJCJ=0 to 5:CJJJJCC=CJJJJCCC(split(Mid(CCJCJCJ(CJJJJCJ,5),3),CJJJCJJC("M"))):CCJCJCJ(CJJJJCJ,6)=FormatNumber(CJJJJCC(0),2,-1):CCJCJCJ(CJJJJCJ,7)=FormatNumber(CJJJJCC(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJJC("k9625m") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJJC("kE:E=6m")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC("\")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("^Y昹@礵@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCJJC("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCJJC("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJCJJC("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>i ,a_AIj ,N") & vbCrLf):Response.Write(CJJJCJJC("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCJJC("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJCJJC("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(CJJJCJJC("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(CJJJCJJC("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCJJC("^Y扎@卫@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("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(CJJJCJJC("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("k^9625m") & vbCrLf):Response.Write(CJJJCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CJJJCJJC("Qm") & vbCrLf):Response.Write(CJJJCJJC("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9`m")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC("k3Cm")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm佺@産@孡@乛@追@序@怢@浆@骇@W筻@秫@pp%X。,pp%溋@争@无@朧@敔@肭@砏@穱@戻@孡@乛@追@序@怢@浆@骇@砏@穱@郣@缑@刱@癿@《,孡@乛@追@序@怢@浆@骇@》,，,共@丨@囸@牃@昪@甬@卉@丗@布@苾@夢@孡@徾@琁@糶@呣@歠@戋@敔@掃@俩@讝@耇@戋@癿@，,圣@囸@冀@癿@丨@尊@孡@孡@乛@追@序@怢@砏@穱@丨@，,歟@浆@骇@袦@幺@泖@佺@産@。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAmpp%（,尊@一,尊@亇@）,昪@臥@访@释@衣@，,只@仠@浆@柠@孡@甚@癿@孡@乛@追@序@怢@犱@冰@，,匀@拧@孡@乛@忼@庡@、,吧@诹@斴@泐@、,宱@庨@玪@塾@、,孡@栜@玪@塾@、,狧@竆@怢@咇@毀@劖@筄@斴@靝@癿@冀@宴@。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm")):Response.Write  formatdatetime(CCJJCCC,1):Response.Write(CJJJCJJC("～,")):Response.Write  formatdatetime(CCJCJJJ,1):Response.Write(CJJJCJJC("k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):response.Write CJJJCJJC("公@") & CCJJCJJ(0,1)+CCJJCJJ(1,1) & CJJJCJJC("亵@。,共@丨@甲@甚@") & CCJJCJJ(0,1) & CJJJCJJC("亵@，,奮@甚@") & CCJJCJJ(1,1) & CJJJCJJC("亵@，,"):for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then response.Write CCJJJCC(CJJJJCJ,1) & CJJJCJJC("：,") & CCJJJCC(CJJJJCJ,2) & CJJJCJJC("亵@，,")
next:CJJJJCC=CJJJJCCC(split(Mid(CCJCJJC,2),CJJJCJJC("M"))):response.Write CJJJCJJC("幮@坂@幯@齿@") & formatnumber(CJJJJCC(0),2,-1) & CJJJCJJC("屼@（,栂@凁@巩@") & formatnumber(CJJJJCC(1),2,-1) & CJJJCJJC("）,。,"):Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm怶@刁@仞@衣@孡@乛@追@序@怢@癿@怶@低@氯@幮@。,怶@刁@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(5,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@孡@乛@追@序@怢@丵@")):Response.Write  CJJJJCCJ(CCJCJCJ(5,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(5,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(5,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(5,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(5,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(5,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(5,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("，,")):Response.Write  CCJCJCJ(5,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(5,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(5,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(5,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm孡@乛@追@序@怢@壿@争@丨@筄@仠@丆@咇@巩@筄@癿@亵@敫@每@來@卛@")):Response.Write  FormatPercent((CCJCJCJ(5,1)+CCJCJCJ(5,0))/CCJJCJC,2,-1):Response.Write(CJJJCJJC("，,误@昉@返@郣@刁@孡@甚@癿@孡@乛@追@序@怢@丈@宴@之@覽@。,返@揋@礵@栜@斴@序@诠@釂@发@盳@序@癿@接@斸@杠@帩@劤@返@亖@孡@甚@逋@渋@揋@髓@孡@乛@追@序@怢@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(5,0) & CJJJCJJC("[") & CCJCJCJ(5,1) & CJJJCJJC("[") & CCJCJCJ(5,2) & CJJJCJJC("[") & CCJCJCJ(5,3) & CJJJCJJC("[") & CCJCJCJ(5,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bma．,孡@乛@忼@庡@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm孡@乛@忼@庡@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@孡@乛@忼@庡@昪@吡@竪@歞@。,孡@乛@忼@庡@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(0,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@孡@乛@忼@庡@壿@争@")):Response.Write  CJJJJCCJ(CCJCJCJ(0,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(0,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(0,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(0,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(0,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(0,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(0,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(0,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(0,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(0,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(0,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(0,0) & CJJJCJJC("[") & CCJCJCJ(0,1) & CJJJCJJC("[") & CCJCJCJ(0,2) & CJJJCJJC("[") & CCJCJCJ(0,3) & CJJJCJJC("[") & CCJCJCJ(0,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmb．,吧@诹@斴@泐@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm吧@诹@斴@泐@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@吧@诹@斴@泐@昪@吡@秌@孡@。,吧@诹@斴@泐@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(1,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@吧@诹@斴@泐@壿@争@")):Response.Write  CJJJJCCJ(CCJCJCJ(1,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(1,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(1,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(1,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(1,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(1,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(1,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(1,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(1,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(1,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(1,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(1,0) & CJJJCJJC("[") & CCJCJCJ(1,1) & CJJJCJJC("[") & CCJCJCJ(1,2) & CJJJCJJC("[") & CCJCJCJ(1,3) & CJJJCJJC("[") & CCJCJCJ(1,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmc．,宱@庨@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm宱@庨@玪@塾@四@孋@盩@癿@圣@争@考,柠@孡@甚@圣@宱@采@癿@孡@乛@玪@塾@昪@吡@艪@奸@。,宱@庨@玪@塾@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(2,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@宱@庨@玪@塾@壿@争@")):Response.Write  CJJJJCCJ(CCJCJCJ(2,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(2,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(2,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(2,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(2,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(2,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(2,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(2,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(2,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(2,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(2,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(2,0) & CJJJCJJC("[") & CCJCJCJ(2,1) & CJJJCJJC("[") & CCJCJCJ(2,2) & CJJJCJJC("[") & CCJCJCJ(2,3) & CJJJCJJC("[") & CCJCJCJ(2,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmd．,孡@栜@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm孡@栜@玪@塾@四@孋@又@昛@癿@昪@孡@甚@圣@孡@栜@癿@孡@乛@玪@塾@昪@吡@艪@奸@。,孡@栜@玪@塾@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(3,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@孡@栜@玪@塾@壿@争@")):Response.Write  CJJJJCCJ(CCJCJCJ(3,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(3,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(3,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(3,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(3,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(3,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(3,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(3,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(3,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(3,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(3,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(3,0) & CJJJCJJC("[") & CCJCJCJ(3,1) & CJJJCJJC("[") & CCJCJCJ(3,2) & CJJJCJJC("[") & CCJCJCJ(3,3) & CJJJCJJC("[") & CCJCJCJ(3,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bme．,狧@竆@怢@咇@毀@劖@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm狧@竆@怢@咇@毀@劖@四@孋@又@昛@癿@昪@孡@甚@圣@孡@乛@丨@戻@衣@玫@凵@癿@狧@竆@怢@咇@毀@劖@氯@幮@。,狧@竆@怢@咇@毀@劖@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(4,6):Response.Write(CJJJCJJC("，,误@昉@孡@甚@怶@低@癿@狧@竆@怢@咇@毀@劖@壿@争@")):Response.Write  CJJJJCCJ(CCJCJCJ(4,6)):Response.Write(CJJJCJJC("氯@幮@。,圣@")):Response.Write  CCJJCJC:Response.Write(CJJJCJJC("亵@丨@，,公@朄@")):Response.Write  CCJCJCJ(4,4):Response.Write(CJJJCJJC("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(4,4)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(4,3):Response.Write(CJJJCJJC("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(4,3)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(4,2):Response.Write(CJJJCJJC("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(4,2)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(4,1):Response.Write(CJJJCJJC("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(4,1)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("；,")):Response.Write  CCJCJCJ(4,0):Response.Write(CJJJCJJC("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  FormatPercent(CCJCJCJ(4,0)/CCJJCJC,2,-1):Response.Write(CJJJCJJC("。,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl巩@筄@M丨@丆@M丨@筄@M丨@丅@M伓@筄@UGl")):Response.Write  CCJCJCJ(4,0) & CJJJCJJC("[") & CCJCJCJ(4,1) & CJJJCJJC("[") & CCJCJCJ(4,2) & CJJJCJJC("[") & CCJCJCJ(4,3) & CJJJCJJC("[") & CCJCJCJ(4,4):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am亏@、,丈@吇@四@孋@癿@徒@刁@寴@每@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m孡@乛@忼@庡@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(0,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(0,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m吧@诹@斴@泐@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(1,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(1,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m宱@庨@玪@塾@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(2,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(2,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m孡@栜@玪@塾@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(3,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(3,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m狧@竆@怢@咇@毀@劖@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(4,6):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJCJCJ(4,7):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl孡@乛@忼@庡@M吧@诹@斴@泐@M宱@庨@玪@塾@M孡@栜@玪@塾@M狧@竆@怢@咇@毀@劖@UGl")):Response.Write  CCJCJCJ(0,6) & CJJJCJJC("[") & CCJCJCJ(1,6) & CJJJCJJC("[") & CCJCJCJ(2,6) & CJJJCJJC("[") & CCJCJCJ(3,6) & CJJJCJJC("[") & CCJCJCJ(4,6):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9am全@、,丈@吇@幯@红@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,8),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,亇@幯@红@癿@怶@刁@襼@畠@髓@争@一,幯@红@癿@，,佁@丈@孓@圣@昹@葒@怢@巩@廽@。,返@揋@礵@亇@幯@红@孡@甚@癿@怶@低@孡@乛@追@序@怢@氯@幮@咇@一,幯@红@孡@甚@癿@巩@丈@夕@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bma．,孡@乛@忼@庡@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,3),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,一,幯@红@癿@孡@乛@忼@庡@徒@刁@襼@畠@髓@争@亇@幯@红@癿@，,佁@丈@孓@圣@昹@葒@怢@巩@廽@。,返@误@昉@，,一,、,亇@幯@红@孡@甚@癿@孡@乛@忼@庡@犱@冰@夢@低@丅@巩@丈@夕@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmb．,吧@诹@斴@泐@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,4),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,亇@幯@红@癿@吧@诹@斴@泐@徒@刁@襼@昹@葒@髓@争@一,幯@红@癿@。,返@揋@礵@亇@幯@红@孡@甚@癿@吧@诹@斴@泐@襼@奸@争@一,幯@红@癿@，,栜@斴@序@诠@曯@力@兮@泣@一,幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@掇@揜@曯@力@秌@孡@癿@吧@诹@斴@泐@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmc．,宱@庨@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,5),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,一,幯@红@癿@宱@庨@玪@塾@徒@刁@畠@髓@争@亇@幯@红@癿@，,佁@巩@廽@丈@昹@葒@。,返@揋@礵@一,幯@红@咇@亇@幯@红@孡@甚@癿@宱@庨@孡@乛@玪@塾@惀@冰@夢@低@丅@巩@丈@夕@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bmd．,孡@栜@玪@塾@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,6),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,亇@幯@红@癿@孡@栜@玪@塾@徒@刁@襼@髓@争@一,幯@红@癿@。,返@揋@礵@亇@幯@红@孡@甚@圣@孡@栜@癿@孡@乛@氖@囯@襼@每@一,幯@红@癿@曯@奸@，,栜@斴@序@诠@曯@力@兮@泣@一,幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@圣@孡@栜@癿@孡@乛@氖@囯@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC(" ,k9bme．,狧@竆@怢@咇@毀@劖@k^9bm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCJJJJJ="":CCJJJJC="":for CJJJJCJ=0 to ubound(CCJJJCC):if CCJJJCC(CJJJJCJ,2)>0 then
Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,2):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):CJJJJCC=CJJJJCCC(split(Mid(CCJJJCC(CJJJJCJ,7),3),CJJJCJJC("M"))):CCJJCCJ=formatnumber(CJJJJCC(0),2,-1):CCJJJJJ=CCJJJJJ & CJJJCJJC("M") & CCJJJCC(CJJJJCJ,1):CCJJJJC=CCJJJJC & CJJJCJJC("M") & CCJJCCJ:response.Write CCJJCCJ:Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m")):Response.Write  formatnumber(CJJJJCC(1),2,-1):Response.Write(CJJJCJJC("k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UHldd_U9lb__UIl")):Response.Write  mid(CCJJJJJ,2):Response.Write(CJJJCJJC("UGl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJJCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,kAm【,绎@林@刁@枋@斂@孒@栲@來@：,甬@丅@靝@癿@囹@衣@只@矠@，,亇@幯@红@癿@狧@竆@怢@咇@毀@劖@徒@刁@襼@昹@葒@髓@争@一,幯@红@癿@。,返@揋@礵@亇@幯@红@孡@甚@圣@孡@乛@丨@戻@低@玫@凵@癿@狧@竆@怢@咇@毀@劖@襼@每@一,幯@红@癿@曯@奸@，,栜@斴@序@诠@曯@力@兮@泣@一,幯@红@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@圣@孡@乛@丨@癿@狧@竆@怢@咇@毀@劖@。,】,k^Am") & vbCrLf):Response.Write(CJJJCJJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k3Cm") & vbCrLf):Response.Write(CJJJCJJC("k3Cm") & vbCrLf):Response.Write(CJJJCJJC("k7@@E6Cm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ=Qm")):Response.Write  CJCCCCC:Response.Write(CJJJCJJC(" ,U>:55@Ej ,")):Response.Write  CCCJJCC:Response.Write(CJJJCJJC("绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\AC:?EQm扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\H@C5Qm俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,:5lQ3E?\E@AQm别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCJJC(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJCJJC("NX") & vbCrLf):Response.Write(CJJJCJJC("k^D4C:AEm") & vbCrLf)::Function CJJJJCCJ(CJJJCJCJ):dim CCJCJCC,CJJCJJJ:CJJCJJJ=csng(CJJJCJCJ):if CJJCJJJ<=34 then
CCJCJCC=CJJJCJJC("巩@筄@")
elseif CJJCJJJ<=44 then
CCJCJCC=CJJJCJJC("丨@丆@")
elseif CJJCJJJ<=54 then
CCJCJCC=CJJJCJJC("丨@筄@")
elseif CJJCJJJ<=64 then
CCJCJCC=CJJJCJJC("丨@丅@")
else
CCJCJCC=CJJJCJJC("伓@筄@")
end if:CJJJJCCJ=CCJCJCC:End Function:Function CJJJJCCC(ByVal CJJCCJCJ):Dim CJJJJCJ, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCCCC, CCCJJJJ:CCJCCJJ = UBound(CJJCCJCJ) + 1:CCJCCJC = 0:For CJJJJCJ = 0 To CCJCCJJ - 1:CJJCCJCJ(CJJJJCJ) = CDbl(CJJCCJCJ(CJJJJCJ)):CCJCCJC = CCJCCJC + CJJCCJCJ(CJJJJCJ):Next:CCJCCCJ = CCJCCJC / CCJCCJJ:CCJCCCC = 0:For CJJJJCJ = 0 To CCJCCJJ - 1:CCJCCCC = CCJCCCC + (CJJCCJCJ(CJJJJCJ) - CCJCCCJ) ^ 2:Next:CCCJJJJ = Sqr(CCJCCCC / CCJCCJJ):CJJJJCCC = Array(CCJCCCJ, CCCJJJJ):End Function:Response.Write(vbCrLf):Response.Write(CJJJCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCCJC.Close:Set CJCCJC=Nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCJ.Close:Set CJCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJJC(ByVal CJJJCJJJ)
Dim CCJJJJC, CJJJJCJ, CJJCJJJ
CJJJCJJJ = Replace(CJJJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCJ = 1 To Len(CJJJCJJJ)
If CJJJJCJ <> CJJCJJJ Then
CCJJJJC = AscW(Mid(CJJJCJJJ, CJJJJCJ, 1))
If CCJJJJC >= 33 And CCJJJJC <= 79 Then
CJJJCJJC = CJJJCJJC & Chr(CCJJJJC + 47)
ElseIf CCJJJJC >= 80 And CCJJJJC <= 126 Then
CJJJCJJC = CJJJCJJC & Chr(CCJJJJC - 47)
Else
CJJCJJJ = CJJJJCJ + 1
If Mid(CJJJCJJJ, CJJCJJJ, 1) = Chr(64) Then CJJJCJJC = CJJJCJJC & ChrW(CCJJJJC + 5) Else CJJJCJJC = CJJJCJJC & Mid(CJJJCJJJ, CJJJJCJ, 1)
End If
End If
Next
End Function
%>