<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJ, CCJCC,CCCJJ, CCCJC, CCCCJ:Set CCJCJ = server.CreateObject(CJJCJJJJ("ps~sq]r@??64E:@?")):CCJCJ.open Application(CJJCJJJJ("r@??64E:@?$EC:?8")):Set CCJCC=CCJCJ::Dim CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC:Dim CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ:Dim CCJJJC:CCJJJC=Trim(Request.Cookies(CJJCJJJJ("!$*|t|qt#"))):if CCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCC>0 then
CCCCJ=CJJCJJJJ("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") & CJJJJJ & CJJCJJJJ("V ,2?5 ,:5l") & CCCCC
set CCCJJ=CCJCJ.execute(CCCCJ):If CCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJC=CCCJJ(2) & "":CJJJCJ=CCCJJ(3):CJJJCC=CCCJJ(5):CJJCJJ=CCCJJ(6):CJJCJC=CCCJJ(9):CJJCCJ=CCCJJ(15):CJCJJJ=CCCJJ(0):CJCCCC=CCCJJ(1):CJCCCJ=CCCJJ(11) & "":CJCJJC=CCCJJ(10) & "":CJJCCC=CCCJJ(12):CJCJCJ=CCCJJ(14):CJCJCC=CCCJJ(13):CJCCJJ=CCCJJ(7) & "":CJCCJC=CCCJJ(4):CCJJJJ=CCCJJ(8):if isnull(CJJCCJ) then CJJCCJ=0
if isnull(CJJCJC) or CJJCJC=0 then CJJCJC=CJJJCJ
if isnull(CJCCJC) then CJCCJC=0
if isnull(CJJJCC) then CJJJCC=0
if instr(CJJCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJ)>0 then Call RedirectMessage(CJJCJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCC,CJJJJJ)
End IF
end if:Sub CheckRight(CJJCJCC):dim CCJJCJ,CCJJCC:if CCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCJJJ(CJJCJCC) then
Call RedirectMessage(CJJCJJJJ("朾@陋@W") & CJJCJCC & CJJCJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCJJJ(CJJCJCC):dim CCJJCJ,CCJJCC:CCJJCC=split(CJJCJCC,CJJCJJJJ("[")):CCCCJJJ=False:for CCJJCJ=0 to ubound(CCJJCC):If Mid(CJJJJC,CCJJCC(CCJJCJ),1)="1" then
CCCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJJJ("!$*|t|qt#"))="":CCCCC=0:CJJCJJ=0:CJJJJJ=Empty:CJJJCC=0:CJJCCJ=0:CJJCJC=0:CJJJCJ=0:CJCJJJ=False:CJCCCC=False:CCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJJCJ,CCJCCJ,CCJCCC:CCJCJJ=split(CCJJJC,CJJCJJJJ("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJJCJ=1 to len(CCJCJC):CCJCCJ=mid(CCJCJC,CCJJCJ,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCJCCC<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCJ=mid(CCJCJC,18,10)/2:if CCJCCJ<DateDiff(CJJCJJJJ("D"), CJJCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCC=Clng(CCJCJJ(0)):CJJJJJ=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJC,CJJCJJJC):dim CCJJCJ,CCJCCJ,CCJCCC:for CCJJCJ=1 to len(CJJCJJJC):CCJCCJ=mid(CJJCJJJC,CCJJCJ,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCCC=CJJJJJJC & CJJCJJJJ("]") & CJJCJJJC & CJJCJJJJ("]") & Fix(10000*(Rnd+1)) & CCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJJJ("D"), CJJCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJJJ("!$*|t|qt#"))=CCJCCC:End Sub:::Function IIf(CJJCJJCJ, CJJCJJCC, CJJCJCJJ):if isnull(CJJCJJCJ) or isempty(CJJCJJCJ) then
IIf = CJJCJCJJ
elseif CJJCJJCJ Then
IIf = CJJCJJCC
Else
IIf = CJJCJCJJ
end if:End Function:Const CCCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCJJJJ("FE7\g"):dim CCJJCJ,CCJCCJ,CCCJJJ:if isarray(str) then
on error resume next:CCJJCJ=ubound(str,2):CCCJJJ=err.number:err.clear:on error goto 0:if CCCJJJ<>0 then
for CCJJCJ=0 to ubound(str):if CCJJCJ>0 then response.Write CJJCJJJJ("k3C ,^m")
response.Write CCJJCJ & CJJCJJJJ("i ,") & str(CCJJCJ):next
else
response.Write CJJCJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCJ=0 to ubound(str,2):response.Write CJJCJJJJ("kE9 ,2=:8?lV=67EVm") & CCJJCJ & CJJCJJJJ("k^E9m")
next:response.Write CJJCJJJJ("k^ECm"):for CCJJCJ=0 to ubound(str):response.Write CJJCJJJJ("kECmkE9m") & CCJJCJ & CJJCJJJJ("k^E9m"):for CCJCCJ=0 to ubound(str,2):response.Write CJJCJJJJ("kE5m") & str(CCJJCJ,CCJCCJ) & CJJCJJJJ("k^E5m"):next:response.Write CJJCJJJJ("k^ECm"):next:response.Write CJJCJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJCJC,CJJCJCCJ):dim CCJCJJ:CCJCJJ=CJJCJCJC & CJJCJJJJ("l") & CJJCJCCJ & CJJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJJJ("$6E\r@@<:6"),CCJCJJ):End Sub::::::sub ShowMessage(CJJCJCCC):response.Charset="utf-8":Response.Write CJJCJJJJ("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") & CJJCJCCC & CJJCJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJCJ(CCCJJJ):if isnull(CCCJJJ) or trim(CCCJJJ)="" or not isnumeric(CCCJJJ) then
CCCCJCJ=false
else
Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJJCJJJJ("/-5ZS"):CCCJJC.IgnoreCase = True:CCCCJCJ = CCCJJC.test(CCCJJJ):set CCCJJC=nothing
end if:End Function:Function CCCCJCC(CJJCCJJJ):dim CCCJCJ,CCCJCC:CCCJCJ=CJJCJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJJJ & CJJCJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJCC=CCJCJ.execute(CCCJCJ):CCCCJCC = CCCJCC(0):if isnull(CCCCJCC) then CCCCJCC=1
CCCJCC.close : set CCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CCCJCC.close : set CCCJCC=nothing:CCCJC.Close : Set CCCJC=Nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCCCCCC.Close : Set CCCCCCC = Nothing:CCJCJ.Close : Set CCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJJJ("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCCJJC,CJJCCJCJ):dim str,CCCJJJ:str=CJJCJJJJ("!$*0") & Ucase(CJJCCJJC):if Session(str)<>"" then
CCCJJJ=DateDiff(CJJCJJJJ("D"),Session(str),Time):if CCCJJJ<CJJCCJCJ and CCCJJJ>0 then
Call ConnClose:Call ShowMessage(CJJCJJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCCJCJ & CJJCJJJJ(" ,种@，,迓@剤@ ,") & CJJCCJCJ-CCCJJJ & CJJCJJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCCJCC):dim CCJJCJ,CCJCCJ,CCCCJC,CCCCCJ:on error resume next:CCCCJC=ubound(CJJCCJCC):CCCCCJ=ubound(CJJCCJCC,2):if err.number<>0 then
err.clear:for CCJJCJ=0 to CCCCJC:CJJCCJCC(CCJJCJ)=0:next
else
for CCJJCJ=0 to CCCCJC:for CCJCCJ=0 to CCCCCJ:CJJCCJCC(CCJJCJ,CCJCCJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCCCJJ):Application.Contents.Remove CJJCCCJJ
End Sub::Class jTree:Private CCCCJ, CCCCCC, CJJJJJJ, CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Private Sub Class_Initialize():CJJJJJJ = 0:CJJJJJC = 0:CJJJCJC=10:End Sub:Public Property Let Table(CJJCCCJC):if CJJCCCJC="" then Call RedirectMessage(CJJCJJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJJCJ=CJJCCCJC:CJJJJCC=CJJCJJJJ("!$*0") & UCase(CJJJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJCJ:End Property:::Private Sub GetTreeArray():Dim CCJJCJ, CCJCCJ, CJJJCCJ,CJJJCCC:CCCCCC = Application(CJJJJCC):If Not IsArray(CCCCCC) Then
CCCCJ = CJJCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJCJ:if CJJJCJJ<>"" then CCCCJ=CCCCJ & CJJCJJJJ(" ,H96C6 ,") & CJJJCJJ
set CJJJCCJ=CCJCJ.execute(CCCCJ):CJJJCCC=CJJJCCJ(0):if CJJJCCC=0 then Call RedirectMessage(CJJCJJJJ("柠@话@W") & CJJJJCJ & CJJCJJJJ("^") & CJJJCJJ & CJJCJJJJ("X沜@朄@绎@林@敫@捩@"))
CJJJJJC=CJJJCCC+CJJJCJC:ReDim CCCCCC(CJJJJJC, 4):CCCCJ = CJJCJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCJ & CJJCJJJJ(" ,H:E9 ,W?@=@4<X"):if CJJJCJJ<>"" then CCCCJ=CCCCJ & CJJCJJJJ(" ,H96C6 ,") & CJJJCJJ
CCCCJ=CCCCJ & CJJCJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJCCJ=CCJCJ.execute(CCCCJ):For CCJJCJ = 1 To CJJJCCC:For CCJCCJ = 0 To 4:CCCCCC(CCJJCJ, CCJCCJ) = CJJJCCJ(CCJCCJ):if IsNull(CCCCCC(CCJJCJ,4)) then CCCCCC(CCJJCJ,4)=0
If CCCCCC(CCJJCJ,2)="" then CCCCCC(CCJJCJ,2)=CJJCJJJJ(",穵@.")
Next:CJJJCCJ.MoveNext:Next:CJJJCCJ.Close: Set CJJJCCJ = Nothing:for CCJJCJ=CJJJJJC-(CJJJCJC-1) to CJJJJJC:CCCCCC(CCJJCJ,0)=CCJJCJ:next:Application.Lock():Application(CJJJJCC) = CCCCCC:Application.UnLock()
else
CJJJJJC=Ubound(CCCCCC)
End If:End Sub::::Public Function GetChild(CJJJJJJC):Dim CCJJCJ, Str:CJJJJJJC=CLng(CJJJJJJC):For CCJJCJ = 1 To CJJJJJC:If CCCCCC(CCJJCJ, 1) = CJJJJJJC Then Str = Str & CJJCJJJJ("M") & CCCCCC(CCJJCJ, 0) & CJJCJJJJ("M") & CCCCCC(CCJJCJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJCJJJJ("M")):End Function:Private Function CJJJJJCC(CJJJJJJC):dim CCJJCJ,CJJCJJJ:CJJJJJCC=0:CJJCJJJ=CStr(CJJJJJJC):if CJJCJJJ<>"0" then
for CCJJCJ=1 to CJJJJJC:If CStr(CCCCCC(CCJJCJ, 0))=CJJCJJJ Then
CJJJJJCC = CCJJCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJJC):if Cstr(CJJJJJJC)="0" then
GetCurName=CJJCJJJJ("栴@")
else
Dim CCJJCJ,CJJJCCJ:CCJJCJ=CJJJJJCC(CJJJJJJC):if CCJJCJ>0 then
GetCurName=CCCCCC(CCJJCJ,2):if GetCurName="" then
set CJJJCCJ=CCJCJ.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJJJC):if CJJJCCJ.eof then Call RedirectMessage(CJJCJJJJ("xs（,") & CJJJJJJC & CJJCJJJJ("）,朥@批@别@"))
GetCurName=CJJJCCJ(1):Call UpdateCache(CJJJJJJC,CJJJCCJ(0),GetCurName,CJJJCCJ(2),CJJJCCJ(3)):CJJJCCJ.Close: Set CJJJCCJ = Nothing
end if
else
set CJJJCCJ=CCJCJ.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJJJC):if CJJJCCJ.eof then Call RedirectMessage(CJJCJJJJ("xs（,") & CJJJJJJC & CJJCJJJJ("）,朥@批@别@"))
GetCurName=CJJJCCJ(1):Call UpdateCache(CJJJJJJC,CJJJCCJ(0),GetCurName,CJJJCCJ(2),CJJJCCJ(3)):CJJJCCJ.Close: Set CJJJCCJ = Nothing
end if
end if:End Function:::Public Function CJJJJCJC(CJJJJJJC):Dim CCJJCJ,CJJCJJC:CCJJCJ=CJJJJJCC(CJJJJJJC):if CCJJCJ=0 then
CJJCJJC=CJJJJCCJ(CJJJJJJC)
else
CJJCJJC=CCCCCC(CCJJCJ,3):if isnull(CJJCJJC) or CJJCJJC="" then
CJJCJJC=CJJJJCCJ(CJJJJJJC)
elseif Mid(CJJCJJC,instrrev(CJJCJJC,CJJCJJJJ("["))+1)<>CStr(CJJJJJJC) then
CJJCJJC=CJJJJCCJ(CJJJJJJC)
elseif Left(CJJCJJC,1)=CJJCJJJJ("[") then
CJJCJJC=CJJJJCCJ(CJJJJJJC)
end if
end if:CJJJJCJC=CJJCJJC:End Function:Private Function CJJJJCCJ(CJJJJJJC):dim CJJCJJJ:CJJCJJJ=CStr(CJJJJJJC):if CJJCJJJ="0" then
CJJJJCCJ=""
else
dim CJJJCCJ:set CJJJCCJ=CCJCJ.execute(CJJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJCJ & CJJCJJJJ(" ,H96C6 ,:5l") & CJJJJJJC):if CJJJCCJ.eof then
Call UpdateCache(CJJJJJJC,"","","",""):Call RedirectMessage(CJJCJJJJ("顴@盩@（,xs：,") & CJJJJJJC & CJJCJJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJCCJ(0)=0 then
CJJJJCCJ="0," & CJJJJJJC
else
CJJJJCCJ=CJJJJCJC(CJJJCCJ(0)) & CJJCJJJJ("[") & CJJJJJJC
end if:if CJJJCCJ(2)<>CJJJJCCJ then
CCJCJ.execute CJJCJJJJ("FA52E6 ,") & CJJJJCJ & CJJCJJJJ(" ,D6E ,A2E9lV") & CJJJJCCJ & CJJCJJJJ("V ,H96C6 ,:5l") & CJJJJJJC
else
CJJJJCCJ=CJJJCCJ(2)
end if
end if:Call UpdateCache(CJJJJJJC,CJJJCCJ(0),CJJJCCJ(1),CJJJJCCJ,CJJJCCJ(3)):CJJJCCJ.Close: Set CJJJCCJ = Nothing
end if:End Function::Public Function CJJJJCCC(CJJJJJJC):CJJJJCCC = Mid(CJJJJCJC(CJJJJJJC), 3):End Function:Public Function CJJJCJJJ(CJJJJJJC):Dim CCJJCJ, CCJCCJ, CJJCJCJ,Str, CJJCJJC, CJJCJCC, CCJJCC():CJJCJJC = CJJJJCCC(CJJJJJJC):CJJCJJC = Split(CJJCJJC, CJJCJJJJ("[")):for CCJJCJ=0 to Ubound(CJJCJJC):CJJCJCJ=CJJCJJC(CCJJCJ):str=str & CJJCJJJJ("M") & CJJCJCJ & CJJCJJJJ("M") & GetCurName(CJJCJCJ):next:if str<>"" then str=Mid(str,2)
CJJJCJJJ=str:End Function:Public Function IsParent(CJJCCCCJ, CJJCCCCC):IsParent=InStr(CJJJJCJC(CJJCCCCC) & CJJCJJJJ("["), CJJCJJJJ("[") & CJJCCCCJ & CJJCJJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJJC):dim CJJCJJC:CJJCJJC=CJJJJCJC(CJJJJJJC):Sql_GetChildren = CJJJJCJ & CJJCJJJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJJC & CJJCJJJJ("[TV")
End Function:::Public Function GetPositionStr_From(CJJJJJJC, CJJJCCJJ):if isnull(CJJJJJJC) or isnull(CJJJCCJJ) then
GetPositionStr_From=CJJCJJJJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCJJCJ, CCJJCC, CJJCJCC, CJJCCJJ:CJJJCCJJ = CStr(CJJJCCJJ):If CJJJCCJJ = "0" or CJJJCCJJ = CStr(CJJJJJJC) Then
Str = GetCurName(CJJJJJJC)
Else
CCJJCC = Split(CJJJCJJJ(CJJJJJJC), CJJCJJJJ("M")):CJJCJCC = UBound(CCJJCC):CJJCCJJ = False:For CCJJCJ = 0 To CJJCJCC Step 2:If CCJJCC(CCJJCJ) = CJJJCCJJ And Not CJJCCJJ Then CJJCCJJ = True
If CJJCCJJ Then
If Str <> "" Then Str = Str & CJJCJJJJ("→,")
Str = Str & CCJJCC(CCJJCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCJJJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJJJCC
End Sub:Public Sub UpdateCache(CJJJJJJC,CJJCJCJ,CJCJJJJJ,CJJCJJC,CJCJJJJC):dim CCJJCJ,CCJCCJ:CJJJJJJC=CLng(CJJJJJJC):CCJJCJ=CJJJJJCC(CJJJJJJC):if CJJCJCJ="" and CJCJJJJJ="" and CJJCJJC="" and CJCJJJJC="" then
if CCJJCJ>0 then
for CCJCCJ=1 to 4:CCCCCC(CCJJCJ,CCJCCJ)=Null:next
end if
else
if CCJJCJ=0 then
for CCJCCJ=1 to CJJJJJC:if CCCCCC(CCJCCJ,1) & ""="" then
CCJJCJ=CCJCCJ:exit for
end if:next
end if:if CCJJCJ=0 then
Call ClearCache
else
CCCCCC(CCJJCJ,0)=CLng(CJJJJJJC):if CJJCJCJ<>"" then CCCCCC(CCJJCJ,1)=CLng(CJJCJCJ)
if CJCJJJJJ<>"" then CCCCCC(CCJJCJ,2)=CJCJJJJJ
if CJJCJJC<>"" then CCCCCC(CCJJCJ,3)=CJJCJJC
if CJCJJJJC<>"" then CCCCCC(CCJJCJ,4)=CLng(CJCJJJJC)
end if
end if:if CCJJCJ>0 then
Application.Lock():Application(CJJJJCC) = CCCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCCJCC():CCCCJCC=CJJJCCJC+1:End Function:Private Function CJJJCCJC():dim CCCJCC:set CCCJCC=CCJCJ.execute(CJJCJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJCJ & CJJCJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJC=CCCJCC(0):CCCJCC.Close: Set CCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCCJ=272:Const CCCJCCC="疫情心理健康自评表":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJJJJ("%6DE0#6A@CE"),30):dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:CJCJJCJ=Request.QueryString(CJJCJJJJ("$49@@=")):CJJCCJC=Request.QueryString(CJJCJJJJ("s6AE")):CJJCCCJ=Request.QueryString(CJJCJJJJ("vC256")):CJJCCCC=Request.QueryString(CJJCJJJJ("vC@FA")):CJCJJJJ=Request.QueryString(CJJCJJJJ("E`")):CJCJJJC=Request.QueryString(CJJCJJJJ("Ea")):if not CCCCJCJ(CJJCCJC) then Call RedirectMessage(CJJCJJJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCCCCC:set CCCCCC=new jtree:CCCCCC.table=CJJCJJJJ(">6>36C0EJA6"):if not CCCCCC.IsParent(CJJJCJ,CJJCCJC) then Call RedirectMessage(CJJCJJJJ("诠@苾@囯@W") & CJJCCJC & CJJCJJJJ("X丈@圣@患@W") & CJJJCJ & CJJCJJJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJJCCCJ:CJJJCCCJ=CCCCCC.GetChild(CJJCCJC):if ubound(CJJJCCCJ)<0 then Call RedirectMessage(CJJCJJJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJJJCCCJ=join(CJJJCCCJ,CJJCJJJJ("M")) & CJJCJJJJ("M_M共@仑@"):CJJJCCCJ=split(CJJJCCCJ,CJJCJJJJ("M")):dim CJCJJCC:CJCJJCC=CCCCCC.GetCurName(CJJCCJC):dim CCJJCJ,CCJCCJ,CCJCCC,CJCJCJJ,CJCJCJC,CJCJCCJ:dim CJCJCCC():redim CJCJCCC((ubound(CJJJCCCJ)-1)/2,10):for CCJJCJ=0 to ubound(CJJJCCCJ)-1 step 2:CCJCCC=CCJJCJ/2:CJCJCCC(CCJCCC,0)=CJJJCCCJ(CCJJCJ):CJCJCCC(CCJCCC,1)=CJJJCCCJ(CCJJCJ+1):for CCJCCJ=2 to ubound(CJCJCCC,2):CJCJCCC(CCJCCC,CCJCCJ)=0:next:next:dim CJCCJJJ(1,1):Call ArrayInit(CJCCJJJ):CJCCJJJ(0,0)=CJJCJJJJ("甲@"):CJCCJJJ(1,0)=CJJCJJJJ("奮@"):dim CCJJCC,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:dim CJCCCCC,CCJJJJJ:CJCCCCC=Date:CCJJJJJ=cdate(CJJCJJJJ("a___\`\`")):dim CCJJJJC:CCJJJJC=0:dim CCJJJCJ(2,1):Call ArrayInit(CCJJJCJ):dim CCJJJCC(2,1):Call ArrayInit(CCJJJCC):dim CCJJCJJ(2,1):Call ArrayInit(CCJJCJJ):dim CCJJCJC(1,1):Call ArrayInit(CCJJCJC):dim CCJJCCJ(3,1):Call ArrayInit(CCJJCCJ):dim CCJJCCC(4,1):Call ArrayInit(CCJJCCC):dim CCJCJJJ(4,1):Call ArrayInit(CCJCJJJ):dim CCJCJJC(4,1):Call ArrayInit(CCJCJJC):dim CCJCJCJ(3,1):Call ArrayInit(CCJCJCJ):dim CCJCJCC(2,1):Call ArrayInit(CCJCJCC):dim CCJCCJJ(4,1):Call ArrayInit(CCJCCJJ):dim CCJCCJC(3,1):Call ArrayInit(CCJCCJC):dim CCJCCCJ(3,1):Call ArrayInit(CCJCCCJ):dim CCJCCCC(4,1):Call ArrayInit(CCJCCCC):dim CCCJJJJ(3,1):Call ArrayInit(CCCJJJJ):dim CCCJJJC(2,1):Call ArrayInit(CCCJJJC):dim CCCJJCJ(7,1):Call ArrayInit(CCCJJCJ):dim CCCJJCC,CCCJCJJ:CCCCJ=CJJCJJJJ("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[C6DF=E[2?DH6C[E6DE286[C62=?2>6[?F>36C[>6>36CEJA6[?@C>2= ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJCCJ & CJJCJJJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJCCJC)=cstr(CJCJJCJ) then CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJJCJ else CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,") & CCCCCC.Sql_GetChildren(CJJCCJC)
if CCCCJCJ(CJJCCCJ) then CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,8C256l") & CJJCCCJ
if CCCCJCJ(CJJCCCC) then CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCCCC
if isdate(CJCJJJJ) then CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,52E6E:>6mlV") & CJCJJJJ & CJJCJJJJ("V")
if isdate(CJCJJJC) then CCCCJ=CCCCJ & CJJCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCJJJC)+1 & CJJCJJJJ("V")
CCCCJ=CCCCJ & CJJCJJJJ(" ,@C56C ,3J ,>6>36CEJA6"):set CCCJJ=CCJCC.execute(CCCCJ):if CCCJJ.eof then Call RedirectMessage(CJJCJJJJ("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CCCJJ.eof:CCJCCC=CCCJJ(1):if CCJCCC<CJCCCCC then CJCCCCC=CCJCCC
if CCJCCC>CCJJJJJ then CCJJJJJ=CCJCCC
if CCCJJ(2) then CCJCCJ=0 else CCJCCJ=1
CJCCJJJ(CCJCCJ,1)=CJCCJJJ(CCJCCJ,1)+1:CCJJJJC=CCJJJJC+CCCJJ(5):CCJJCC=split(CJJCJJJJ("M") & CCCJJ(4),CJJCJJJJ("M")):CCJCCC=cint(CCJJCC(17))-1:CCJJJCJ(CCJCCC,0)=CCJJJCJ(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(18))-1:CCJJJCC(CCJCCC,0)=CCJJJCC(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(3))-1:CCJJCJJ(CCJCCC,0)=CCJJCJJ(CCJCCC,0)+1:if CCJCCC=0 then CJCCCJJ=CJCCCJJ & CCCJJ(6) & CJJCJJJJ("M") & CCCJJ(7) & vbcrlf
CCJCCC=cint(CCJJCC(1))-1:CCJJCJC(CCJCCC,0)=CCJJCJC(CCJCCC,0)+1:if CCJCCC=0 then CJCCCJC=CJCCCJC & CCCJJ(6) & CJJCJJJJ("M") & CCCJJ(7) & vbcrlf
CCJCCC=cint(CCJJCC(8))-1:CCJJCCJ(CCJCCC,0)=CCJJCCJ(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(9))-1:CCJJCCC(CCJCCC,0)=CCJJCCC(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(10))-1:CCJCJJJ(CCJCCC,0)=CCJCJJJ(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(11))-1:CCJCJJC(CCJCCC,0)=CCJCJJC(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(12))-1:CCJCJCJ(CCJCCC,0)=CCJCJCJ(CCJCCC,0)+1:CCJCCC=cint(CCJJCC(13))-1:CCJCJCC(CCJCCC,0)=CCJCJCC(CCJCCC,0)+1:CCJCCC=CCJJCC(16):if CCJCCC=CJJCJJJJ("坕@拼@圣@宱@锶@炷@") then
CCJCCJJ(0,0)=CCJCCJJ(0,0)+1
elseif CCJCCC=CJJCJJJJ("厶@呣@辴@亵@尌@、,穵@旲@圵@戻@锶@炷@") then
CCJCCJJ(1,0)=CCJCCJJ(1,0)+1
elseif CCJCCC=CJJCJJJJ("锶@炷@欜@敫@凊@尌@") then
CCJCCJJ(2,0)=CCJCCJJ(2,0)+1
elseif CCJCCC=CJJCJJJJ("沜@朄@锶@炷@乛@惪@") then
CCJCCJJ(3,0)=CCJCCJJ(3,0)+1
else
CCJCCJJ(4,0)=CCJCCJJ(4,0)+1
end if:CCJCCC=cint(CCJJCC(14))-1:CCJCCJC(CCJCCC,0)=CCJCCJC(CCJCCC,0)+1:for CCJJCJ=0 to 3:CCJCCJ=CCJJCJ+1:if instr(CCJJCC(4),CCJCCJ)>0 then CCJCCCJ(CCJJCJ,0)=CCJCCCJ(CCJJCJ,0)+1
next:for CCJJCJ=0 to 4:CCJCCJ=CCJJCJ+1:if instr(CCJJCC(5),CCJCCJ)>0 then CCJCCCC(CCJJCJ,0)=CCJCCCC(CCJJCJ,0)+1
next:for CCJJCJ=0 to 3:CCJCCJ=CCJJCJ+1:if instr(CCJJCC(6),CCJCCJ)>0 then CCCJJJJ(CCJJCJ,0)=CCCJJJJ(CCJJCJ,0)+1
next:for CCJJCJ=0 to 2:CCJCCJ=CCJJCJ+1:if instr(CCJJCC(7),CCJCCJ)>0 then CCCJJJC(CCJJCJ,0)=CCCJJJC(CCJJCJ,0)+1
next:CCJJCC=split(CCCJJ(3),CJJCJJJJ("M")):for CCJJCJ=0 to 7:CCJCCJ=CCJJCC(CCJJCJ):CCCJJCJ(CCJJCJ,CCJCCJ)=CCCJJCJ(CCJJCJ,CCJCCJ)+1:next:if not CCCJJ(9) then
if CCCJJ(8)<>CCCJJCC then
CCCJJCC=CCCJJ(8):CCCJCJJ=CCCCCC.GetPositionStr_From(CCCJJCC,CJCJJCJ)
end if:CJCCCCJ=CJCCCCJ & CCCJCJJ & CJJCJJJJ("M") & CCCJJ(6):for CCJJCJ=0 to 7:CJCCCCJ=CJCCCCJ & CJJCJJJJ("M") & IIf(CCJJCC(CCJJCJ)="1",CJJCJJJJ("廽@帳@"),""):next:CJCCCCJ=CJCCCCJ & vbcrlf
end if:CCJCCJ=ubound(CJCJCCC):for CCJJCJ=0 to CCJCCJ-1:if instr(CCCJJ(0) & CJJCJJJJ("["),CJJCJJJJ("[") & CJCJCCC(CCJJCJ,0) & CJJCJJJJ("["))>0 then
CCJCCJ=CCJJCJ:exit for
end if:next:CCJJCJ=CCJCCJ:CJCJCCC(CCJJCJ,2)=CJCJCCC(CCJJCJ,2)+1:for CCJCCJ=0 to 7:if CCJJCC(CCJCCJ)="1" then
CCJCCC=CCJCCJ+3:CJCJCCC(CCJJCJ,CCJCCC)=CJCJCCC(CCJJCJ,CCJCCC)+1
end if:next:CJCCJCJ=CJCCJCJ+1:CCCJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJJJ("k9625m") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJJJJ("kE:E=6m")):Response.Write  CJCJJCC:Response.Write(CJJCJJJJ("\")):Response.Write  CCCJCCC:Response.Write(CJJCJJJJ("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJJJJ("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(CJJCJJJJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("k^9625m") & vbCrLf):Response.Write(CJJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9`mkD>2==m")):Response.Write  CJCJJCC:Response.Write(CJJCJJJJ("k^D>2==mk3Cm")):Response.Write  CCCJCCC:Response.Write(CJJCJJJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm朧@欜@课@柠@闩@卲@丵@臥@访@闩@卲@，,丶@襼@浆@柠@叒@浆@羟@低@圣@疦@惀@朚@闯@癿@躦@徾@偠@庲@犱@冰@。,朧@闩@卲@徾@琁@偠@庲@郣@刁@甬@丨@囸@徾@琁@孡@伕@丯@庅@三@咣@话@徾@琁@孡@与@丕@姏@呓@伕@线@绂@，,卉@丨@布@苾@夢@孡@汚@兄@荞@敔@掃@颁@寷@，,匒@产@夢@孡@、,卉@丨@布@苾@夢@孡@筄@夕@宱@朵@板@厽@三@廻@双@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm")):Response.Write  formatdatetime(CJCCCCC,1):Response.Write(CJJCJJJJ("～,")):Response.Write  formatdatetime(CCJJJJJ,1):Response.Write(CJJCJJJJ("k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m楽@迫@：, ,公@讜@")):Response.Write  CJCCJCJ:Response.Write(CJJCJJJJ("亵@厽@三@，,共@丨@甲@怢@")):Response.Write  CJCCJJJ(0,1):Response.Write(CJJCJJJJ("亵@，,奮@怢@")):Response.Write  CJCCJJJ(1,1):Response.Write(CJJCJJJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m幯@齿@：, ,幮@坂@幯@齿@")):Response.Write  formatnumber(CCJJJJC/CJCCJCJ,2,-1):Response.Write(CJJCJJJJ("屼@。,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJCCJ=0:for CCJJCJ=0 to ubound(CJCJCCC):if CJCJCCC(CCJJCJ,2)>0 then
CCJCCJ=CCJCCJ+1:response.Write CJCJCCC(CCJJCJ,1) & CJCJCCC(CCJJCJ,2) & CJJCJJJJ("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,公@讜@")):Response.Write  CCJCCJ:Response.Write(CJJCJJJJ("严@卐@佈@。,") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am囖@、,怶@低@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bm`] ,夈@巠@^夈@诹@犱@忼@叅@斴@弊@k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,`）,夈@巠@^夈@诹@犱@忼@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:CCJJJCJ(CCJJCJ,1)=formatnumber(CCJJJCJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJJJCJ(0,0):Response.Write(CJJCJJJJ("亵@一,盯@沜@朄@偗@巠@^偗@孡@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCJ(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJJCJ(1,0):Response.Write(CJJCJJJJ("巭@夈@巠@^夈@诹@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCJ(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJJCJ(2,0):Response.Write(CJJCJJJJ("朥@夈@巠@^夈@诹@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCJ(2,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m夈@巠@^夈@诹@犱@忼@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m一,盯@沜@朄@偗@巠@^偗@孡@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m巭@夈@巠@^夈@诹@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m朥@夈@巠@^夈@诹@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 2:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJJCJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJJCJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCJJJCJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl一,盯@沜@朄@偗@巠@^偗@孡@[巭@夈@巠@^夈@诹@[朥@夈@巠@^夈@诹@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,a）,夈@巠@^夈@诹@斴@弊@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:CCJJJCC(CCJJCJ,1)=formatnumber(CCJJJCC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJJJCC(0,0):Response.Write(CJJCJJJJ("亵@圣@宱@劙@內@^圣@纺@孡@乛@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCC(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJJCC(1,0):Response.Write(CJJCJJJJ("巭@别@巠@佗@^孡@乛@卐@佈@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCC(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJJCC(2,0):Response.Write(CJJCJJJJ("朥@夈@巠@^夈@诹@，,戻@卛@每@來@丵@")):Response.Write  CCJJJCC(2,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m夈@巠@^夈@诹@斴@弊@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m圣@宱@劙@內@^圣@纺@孡@乛@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m巭@别@巠@佗@^孡@乛@卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m朥@夈@巠@^夈@诹@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 2:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJJCC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJJCC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCJJJCC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl圣@宱@劙@內@^圣@纺@孡@乛@[巭@别@巠@佗@^孡@乛@卐@佈@[朥@夈@巠@^夈@诹@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bma] ,疌@伷@痀@來@掠@觡@叭@课@柠@绎@林@k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,`）,叒@浆@羟@低@戻@壿@犱@忼@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:CCJJCJJ(CCJJCJ,1)=formatnumber(CCJJCJJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJJCJJ(2,0):Response.Write(CJJCJJJJ("亵@壿@争@歞@帳@癿@犱@忼@，,戻@卛@每@來@丵@")):Response.Write  CCJJCJJ(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCJJ(1,0):Response.Write(CJJCJJJJ("亵@壿@争@癿@疌@伷@随@禶@癿@犱@忼@，,戻@卛@每@來@丵@")):Response.Write  CCJJCJJ(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCJJ(0,0):Response.Write(CJJCJJJJ("亵@硩@诅@丵@斫@军@肵@炉@，,戻@卛@每@來@丵@")):Response.Write  CCJJCJJ(0,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m硩@诅@丵@斫@军@肵@炉@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m疌@伷@随@禶@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m歞@帳@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 2:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJCJJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJCJJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCJJCJJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl硩@诅@丵@斫@军@肵@炉@[疌@伷@随@禶@[歞@帳@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,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(CJJCJJJJ(" ,k42AE:@?m斫@军@肵@炉@硩@诅@合@卐@（,")):Response.Write  CCJJCJJ(0,0):Response.Write(CJJCJJJJ("亵@）,k^42AE:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m孡@史@^缑@史@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCC=split(CJCCCJJ,vbcrlf):for CCJJCJ=0 to ubound(CCJJCC)-1:Response.Write CJJCJJJJ("kECmkE5m") & (CCJJCJ+1) & CJJCJJJJ("k^E5m"):CJCCJJC=split(CCJJCC(CCJJCJ),CJJCJJJJ("M")):for CCJCCJ=0 to ubound(CJCCJJC):Response.Write CJJCJJJJ("kE5m") & CJCCJJC(CCJCCJ) & CJJCJJJJ("k^E5m"):next:Response.Write CJJCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,a）,寁@刂@掠@觡@叭@癿@课@柠@绎@林@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 1:CCJJCJC(CCJJCJ,1)=formatnumber(CCJJCJC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,迂@厶@丟@呣@冀@朄@疌@伷@我@硩@诅@痀@來@癿@寁@刂@掠@觡@叭@癿@亵@朄@")):Response.Write  CCJJCJC(0,0):Response.Write(CJJCJJJJ("，,戻@卛@每@來@丵@")):Response.Write  CCJJCJC(0,1):Response.Write(CJJCJJJJ("T；,迂@厶@丟@呣@冀@沜@朄@疌@伷@我@硩@诅@痀@來@癿@寁@刂@掠@觡@叭@癿@亵@朄@")):Response.Write  CCJJCJC(1,0):Response.Write(CJJCJJJJ("，,戻@卛@每@來@丵@")):Response.Write  CCJJCJC(1,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m寁@刂@掠@觡@叭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m迂@厶@丟@呣@冀@朄@疌@伷@我@硩@诅@痀@來@癿@寁@刂@掠@觡@叭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m迂@厶@丟@呣@冀@沜@朄@疌@伷@我@硩@诅@痀@來@癿@寁@刂@掠@觡@叭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 1:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJCJC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJCJC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 1:Response.Write CJJCJJJJ("kE5m") & CCJJCJC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl朄@[沜@朄@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,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(CJJCJJJJ(" ,k42AE:@?m迂@厶@丟@呣@冀@朄@寁@刂@掠@觡@叭@癿@羟@低@合@卐@（,")):Response.Write  CCJJCJC(0,0):Response.Write(CJJCJJJJ("亵@）,k^42AE:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m孡@史@^缑@史@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCC=split(CJCCCJC,vbcrlf):for CCJJCJ=0 to ubound(CCJJCC)-1:Response.Write CJJCJJJJ("kECmkE5m") & (CCJJCJ+1) & CJJCJJJJ("k^E5m"):CJCCJJC=split(CCJJCC(CCJJCJ),CJJCJJJJ("M")):for CCJCCJ=0 to 1:Response.Write CJJCJJJJ("kE5m") & CJCCJJC(CCJCCJ) & CJJCJJJJ("k^E5m"):next:Response.Write CJJCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bmb] ,甚@洶@佗@恪@课@柠@绎@林@k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,`）,饩@飚@偠@庲@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:CCJJCCJ(CCJJCJ,1)=formatnumber(CCJJCCJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,每@仠@剈@曯@力@泣@釈@饩@飚@偠@庲@癿@亵@呓@丵@")):Response.Write  CCJJCCJ(0,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCJ(0,1):Response.Write(CJJCJJJJ("T；,每@轾@泣@釈@饩@飚@偠@庲@癿@亵@呓@丵@")):Response.Write  CCJJCCJ(1,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCJ(1,1):Response.Write(CJJCJJJJ("T；,沜@仠@剈@泣@釈@饩@飚@偠@庲@癿@亵@呓@丵@")):Response.Write  CCJJCCJ(2,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCJ(2,1):Response.Write(CJJCJJJJ("T；,一,盯@丈@夥@泣@釈@饩@飚@偠@庲@癿@亵@呓@丵@")):Response.Write  CCJJCCJ(3,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCJ(3,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m饩@飚@偠@庲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m曯@力@泣@釈@饩@飚@偠@庲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m每@轾@泣@釈@饩@飚@偠@庲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m沜@仠@剈@泣@釈@饩@飚@偠@庲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m一,盯@丈@夥@泣@釈@饩@飚@偠@庲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 3:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJCCJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJCCJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCJJCCJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl曯@力@泣@釈@饩@飚@偠@庲@[每@轾@泣@釈@饩@飚@偠@庲@[沜@仠@剈@泣@釈@饩@飚@偠@庲@[一,盯@丈@夥@泣@釈@饩@飚@偠@庲@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,a）,飚@欭@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:CCJJCCC(CCJJCJ,1)=formatnumber(CCJJCCC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJJCCC(0,0):Response.Write(CJJCJJJJ("亵@飚@欭@静@帳@奸@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCC(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCCC(1,0):Response.Write(CJJCJJJJ("亵@飚@欭@每@轾@奸@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCC(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCCC(2,0):Response.Write(CJJCJJJJ("亵@飚@欭@一,舧@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCC(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCCC(3,0):Response.Write(CJJCJJJJ("亵@飚@欭@每@轾@巩@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCC(3,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJJCCC(4,0):Response.Write(CJJCJJJJ("亵@飚@欭@静@帳@巩@，,戻@卛@每@來@丵@")):Response.Write  CCJJCCC(4,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m飚@欭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m静@帳@奸@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m每@轾@奸@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m一,舧@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m每@轾@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m静@帳@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 4:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJJCCC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJJCCC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJJCCC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl静@帳@奸@[每@轾@奸@[一,舧@[每@轾@巩@[静@帳@巩@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,b）,睜@规@旱@闯@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:CCJCJJJ(CCJJCJ,1)=formatnumber(CCJCJJJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJCJJJ(0,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@兦@炴@仠@剈@睜@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJJ(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJJ(1,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@兦@炴@别@匼@炴@乆@闯@睜@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJJ(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJJ(2,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@匼@炴@别@匼@一,炴@乆@闯@睜@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJJ(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJJ(3,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@匼@一,炴@别@匼@亇@炴@乆@闯@睜@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJJ(3,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJJ(4,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@匼@亇@炴@仠@吉@睜@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJJ(4,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m睜@规@旱@闯@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m兦@炴@仠@剈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m兦@炴@别@匼@炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m匼@炴@别@匼@一,炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m匼@一,炴@别@匼@亇@炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m匼@亇@炴@仠@吉@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 4:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCJJJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCJJJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJCJJJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl兦@炴@仠@剈@[兦@炴@别@匼@炴@[匼@炴@别@匼@一,炴@[匼@一,炴@别@匼@亇@炴@[匼@亇@炴@仠@吉@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,c）,赲@庅@旱@闯@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:CCJCJJC(CCJJCJ,1)=formatnumber(CCJCJJC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJCJJC(0,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@全@炴@仠@剈@赲@庅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJC(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJC(1,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@全@炴@别@兦@炴@乆@闯@赲@庅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJC(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJC(2,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@兦@炴@别@匼@炴@乆@闯@赲@庅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJC(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJC(3,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@匼@炴@别@匼@亇@炴@乆@闯@赲@庅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJC(3,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJJC(4,0):Response.Write(CJJCJJJJ("亵@逕@帳@圣@圣@匼@亇@炴@仠@吉@赲@庅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJJC(4,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m赲@庅@旱@闯@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m全@炴@仠@剈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m全@炴@别@兦@炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m兦@炴@别@匼@炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m匼@炴@别@匼@亇@炴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m匼@亇@炴@仠@吉@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 4:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCJJC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCJJC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJCJJC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl全@炴@仠@剈@[全@炴@别@兦@炴@[兦@炴@别@匼@炴@[匼@炴@别@匼@亇@炴@[匼@亇@炴@仠@吉@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,d）,千@睜@惀@冰@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:CCJCJCJ(CCJJCJ,1)=formatnumber(CCJCJCJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJCJCJ(0,0):Response.Write(CJJCJJJJ("亵@千@睜@旱@闯@圣@`尊@旱@仠@冀@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCJ(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJCJ(1,0):Response.Write(CJJCJJJJ("亵@千@睜@旱@闯@圣@`\a尊@旱@乆@闯@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCJ(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJCJ(2,0):Response.Write(CJJCJJJJ("亵@千@睜@旱@闯@a尊@旱@仠@丅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCJ(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJCJ(3,0):Response.Write(CJJCJJJJ("亵@丈@睜@千@规@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCJ(3,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m千@睜@惀@冰@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m`尊@旱@仠@冀@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m`\a尊@旱@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9ma尊@旱@仠@丅@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m丈@睜@千@规@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 3:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCJCJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCJCJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCJCJCJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl`尊@旱@仠@冀@[`\a尊@旱@[a尊@旱@仠@丅@[丈@睜@千@规@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,e）,紪@讜@睜@眛@旱@闯@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:CCJCJCC(CCJJCJ,1)=formatnumber(CCJCJCC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJCJCC(0,0):Response.Write(CJJCJJJJ("亵@睜@眛@旱@闯@圣@e尊@旱@仠@冀@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCC(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJCC(1,0):Response.Write(CJJCJJJJ("亵@睜@眛@旱@闯@e\g尊@旱@乆@闯@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCC(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCJCC(2,0):Response.Write(CJJCJJJJ("亵@睜@眛@旱@闯@圣@g尊@旱@仠@丅@，,戻@卛@每@來@丵@")):Response.Write  CCJCJCC(2,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m睜@眛@旱@闯@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9me尊@旱@仠@冀@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9me\g尊@旱@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9mg尊@旱@仠@丅@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 2:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCJCC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCJCC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCJCJCC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIle尊@旱@仠@冀@[e\g尊@旱@[g尊@旱@仠@丅@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,f）,锶@炷@惀@冰@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:CCJCCJJ(CCJJCJ,1)=formatnumber(CCJCCJJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,朄@")):Response.Write  CCJCCJJ(0,0):Response.Write(CJJCJJJJ("亵@坕@拼@圣@宱@锶@炷@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJJ(0,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCCJJ(1,0):Response.Write(CJJCJJJJ("亵@逄@拤@厶@呣@辴@亵@尌@、,穵@旲@圵@戻@锶@炷@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJJ(1,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCCJJ(2,0):Response.Write(CJJCJJJJ("亵@锶@炷@癿@欜@敫@凊@尌@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJJ(2,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCCJJ(3,0):Response.Write(CJJCJJJJ("亵@沜@朄@锶@炷@癿@乛@惪@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJJ(3,1):Response.Write(CJJCJJJJ("T；,朄@")):Response.Write  CCJCCJJ(4,0):Response.Write(CJJCJJJJ("亵@逄@拤@共@仑@锶@炷@彝@弊@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJJ(4,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m锶@炷@惀@冰@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m坕@拼@圣@宱@锶@炷@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m厶@呣@辴@亵@尌@、,穵@旲@圵@戻@锶@炷@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m锶@炷@欜@敫@凊@尌@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m沜@朄@锶@炷@乛@惪@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m共@仑@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 4:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCCJJ(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCCJJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJCCJJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl坕@拼@圣@宱@锶@炷@[厶@呣@辴@亵@尌@、,穵@旲@圵@戻@锶@炷@[锶@炷@欜@敫@凊@尌@[沜@朄@锶@炷@乛@惪@[共@仑@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,g）,幮@坂@毊@夤@三@仑@亵@亟@洼@旱@镺@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:CCJCCJC(CCJJCJ,1)=formatnumber(CCJCCJC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kAm圣@叒@浆@羟@低@丨@，,幮@坂@毊@夤@三@仑@亵@亟@洼@旱@镺@圣@`尊@旱@仠@冀@癿@朄@")):Response.Write  CCJCCJC(0,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJC(0,1):Response.Write(CJJCJJJJ("T；,亟@洼@旱@镺@圣@`\b尊@旱@癿@朄@")):Response.Write  CCJCCJC(1,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJC(1,1):Response.Write(CJJCJJJJ("T；,亟@洼@旱@镺@圣@b\d尊@旱@癿@朄@")):Response.Write  CCJCCJC(2,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJC(2,1):Response.Write(CJJCJJJJ("T；,亟@洼@旱@镺@圣@d尊@旱@仠@丅@癿@朄@")):Response.Write  CCJCCJC(3,0):Response.Write(CJJCJJJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  CCJCCJC(3,1):Response.Write(CJJCJJJJ("T。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m三@仑@亵@亟@洼@旱@镺@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m`尊@旱@仠@冀@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m`\b尊@旱@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9mb\d尊@旱@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9md尊@旱@仠@丅@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CJCJCJC="":for CCJJCJ=0 to 3:CJCJCJC=CJCJCJC & CJJCJJJJ("[") & CCJCCJC(CCJJCJ,0):Response.Write CJJCJJJJ("kE5m") & CCJCCJC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCJCCJC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lad_UIl`尊@旱@仠@冀@[`\b尊@旱@[b\d尊@旱@[d尊@旱@仠@丅@UGl")):Response.Write  mid(CJCJCJC,2):Response.Write(CJJCJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bmc] ,曻@拀@徾@癿@闩@颓@k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,`）,拀@徾@癿@闩@颓@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:CCJCCCJ(CCJJCJ,1)=formatnumber(CCJCCCJ(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m拀@徾@癿@闩@颓@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m夢@覿@樜@亵@羟@洼@劣@、,弐@赲@愚@柎@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m敔@実@^宺@興@^劙@內@実@筄@圫@亵@呓@寁@雁@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m臥@躦@抰@抒@劖@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m沜@朄@趮@多@癿@阭@抟@贿@溋@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCJCCCJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCJCCCJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,a）,箜@琁@廵@让@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:CCJCCCC(CCJJCJ,1)=formatnumber(CCJCCCC(CCJJCJ,0)/CJCCJCJ*100,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m箜@琁@廵@让@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m力@張@疦@惀@阭@抟@弐@寷@敔@肭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m寴@丠@釈@疦@匵@亵@羟@癿@徾@琁@辀@寷@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m力@張@甚@呸@宄@兣@敔@肭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m力@張@丈@伛@谞@、,丈@俜@谞@敔@肭@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m力@張@无@帳@箜@琁@卦@甚@梻@柠@筄@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJCCCC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 4:Response.Write CJJCJJJJ("kE5m") & CCJCCCC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,b）,疦@惀@癿@涃@杼@彬@哈@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:CCCJJJJ(CCJJCJ,1)=formatpercent(CCCJJJJ(CCJJCJ,0)/CJCCJCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m涃@杼@彬@哈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m拀@徾@孡@丕@^巠@佗@旛@泐@宇@戋@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m拀@徾@廻@孡@^夈@巠@吉@历@劖@夢@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m偂@朚@丈@矠@好@佐@宄@掍@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m共@仑@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCCJJJJ(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 3:Response.Write CJJCJJJJ("kE5m") & CCCJJJJ(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9cm（,c）,疦@惀@癿@秪@杼@彬@哈@k^9cm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:CCCJJJC(CCJJCJ,1)=formatpercent(CCCJJJC(CCJJCJ,0)/CJCCJCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m秪@杼@彬@哈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m朄@曯@夕@旱@闯@咇@宱@亵@圣@一,赲@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m朄@旱@闯@臥@甬@圫@诶@乡@孡@乛@咇@玤@耈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m揋@卂@亁@柋@亖@扻@胸@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCCJJJC(CCJJCJ,0) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 2:Response.Write CJJCJJJJ("kE5m") & CCCJJJC(CCJJCJ,1) & CJJCJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9bmd] ,徾@琁@偠@庲@犱@冰@k^9bm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm朧@欜@徾@琁@偠@庲@浆@访@公@浆@访@兦@严@绯@庡@癿@徾@琁@偠@庲@犱@冰@，,刁@刦@昪@睜@眛@、,抌@邼@、,澻@惴@、,無@虌@、,疌@痀@、,恋@惢@、,張@迦@咇@躪@低@匑@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k@=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m睜@眛@廽@帳@仞@衣@孓@圣@一,亖@睜@眛@闩@颓@，,明@夬@眛@我@睜@眛@责@释@丈@髓@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m抌@邼@廽@帳@仞@衣@孓@圣@一,亖@惀@绥@佉@萸@癿@闩@颓@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m澻@惴@廽@帳@仞@衣@孓@圣@一,亖@感@怍@惀@绥@咇@收@凶@怢@衇@丵@，,宴@明@袦@夑@畇@了@牤@弐@双@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m無@虌@廽@帳@仞@衣@孓@圣@一,亖@索@弛@丈@宄@癿@惀@绥@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m疌@痀@廽@帳@仞@衣@孓@圣@旱@制@拀@忢@臥@躦@偠@庲@癿@惀@绥@，,乀@乀@丈@胸@幮@夈@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m恋@惢@廽@帳@仞@衣@迂@庡@恋@慇@，,宴@明@轶@俜@谞@觻@筄@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m張@迦@廽@帳@仞@衣@孓@圣@又@夈@洒@扆@、,又@夈@柠@阀@疦@惀@涃@恪@筄@衇@丵@；,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k=:m躪@低@匑@廽@帳@仞@衣@朄@一,亖@躦@低@丅@癿@痂@犱@，,佁@返@亖@痂@犱@昪@四@丵@索@弛@癿@惀@绥@亢@甚@癿@。,k^=:m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^@=m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm仠@丆@昪@叒@浆@羟@低@叿@四@孋@歞@帳@咇@廽@帳@癿@亵@敫@仠@叅@每@來@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCC=split(CJJCJJJJ("睜@眛@M抌@邼@M澻@惴@M無@虌@M疌@痀@M恋@惢@M張@迦@M躪@低@匑@"),CJJCJJJJ("M")):Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m歞@廽@帳@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 7:Response.Write CJJCJJJJ("kECmkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & (CCJJCJ+1) & CJJCJJJJ("k^E5mkE5 ,C@HDA2?lVaV ,4=2DDlV2>\E6IE\>:55=6Vm") & CCJJCC(CCJJCJ) & CJJCJJJJ("k^E5mkE5m歞@帳@k^E5mkE5m") & CCCJJCJ(CCJJCJ,0) & CJJCJJJJ("k^E5mkE5m") & formatpercent(CCCJJCJ(CCJJCJ,0)/CJCCJCJ,2,-1) & CJJCJJJJ("k^E5mk^ECm")
Response.Write CJJCJJJJ("kECmkE5m廽@帳@k^E5mkE5m") & CCCJJCJ(CCJJCJ,1) & CJJCJJJJ("k^E5mkE5m") & formatpercent(CCCJJCJ(CCJJCJ,1)/CJCCJCJ,2,-1) & CJJCJJJJ("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am亏@、,叿@卐@佈@四@孋@阮@怢@梻@浆@惀@冰@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,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(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9 ,4@=DA2?lQaQm卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE9 ,4@=DA2?lQaQm")):Response.Write  CCJJCC(CCJJCJ):Response.Write(CJJCJJJJ("k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m?k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9mTk^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):for CCJJCJ=0 to ubound(CJCJCCC):if CJCJCCC(CCJJCJ,2)>0 then
Response.Write CJJCJJJJ("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCCC(CCJJCJ,1) & CJJCJJJJ("k^E5mkE5m") & CJCJCCC(CCJJCJ,2) & CJJCJJJJ("k^E5m")
for CCJCCJ=0 to 7:CCJCCC=CCJCCJ+3:if CJCJCCC(CCJJCJ,CCJCCC)>0 then
Response.Write CJJCJJJJ("kE5m") & CJCJCCC(CCJJCJ,CCJCCC) & CJJCJJJJ("k^E5m"):Response.Write CJJCJJJJ("kE5m") & formatnumber(CJCJCCC(CCJJCJ,CCJCCC)/CJCJCCC(CCJJCJ,2)*100,1,-1) & CJJCJJJJ("k^E5m")
else
Response.Write CJJCJJJJ("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CJJCJJJJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am全@、,叿@卐@佈@徾@琁@偠@庲@廽@帳@合@卐@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE23=6 ,:5lQ23?@C>2=\=:DEQ ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m睜@眛@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m抌@邼@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m澻@惴@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m無@虌@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m疌@痀@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m恋@惢@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m張@迦@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE9m躪@低@匑@k^E9m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,")):CCJJCC=split(CJCCCCJ,vbcrlf):for CCJJCJ=0 to ubound(CCJJCC)-1:CJCCJJC=split(CCJJCC(CCJJCJ),CJJCJJJJ("M")):Response.Write CJJCJJJJ("kECmkE5m") & (CCJJCJ+1) & CJJCJJJJ("k^E5mkE5 ,4=2DDlV2>\E6IE\=67E ,2>\E6IE\>:55=6Vm") & CJCCJJC(0) & CJJCJJJJ("k^E5m")
for CCJCCJ=1 to 9:Response.Write CJJCJJJJ("kE5m") & CJCCJJC(CCJCCJ) & CJJCJJJJ("k^E5m"):next:Response.Write CJJCJJJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm`] ,朄@兮@卐@佈@线@绂@亵@仧@亁@觞@斫@军@肵@炉@癿@盳@兮@矠@证@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm（,`）,歞@硩@莲@发@疦@惀@俜@恪@，,仉@宓@斴@減@過@莲@发@朄@兮@疦@惀@俜@恪@，,丈@俜@谞@、,丈@伛@谞@，,丈@迂@庡@觞@诶@。,叅@旱@亁@觞@朄@兮@斫@军@犱@痀@母@肵@炉@癿@眚@盳@，,歞@硩@讟@证@痀@母@，,丶@劣@孡@乛@阭@探@矠@证@，,臥@规@秌@孡@阭@疦@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm（,a）,秌@孡@讟@证@疦@惀@怢@责@，,栴@捩@曻@斫@癿@宓@斴@贿@讪@，,侘@捩@了@宙@咇@敫@捩@，,寴@疦@惀@迖@衇@秌@孡@癿@刟@斨@。,坕@宕@戓@胗@疦@惀@癿@忀@胗@俜@徾@，,丈@迂@庡@恋@慇@，,俘@讼@毊@夤@癿@兀@趮@睜@眛@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAma] ,晩@叅@徾@琁@偠@庲@矠@证@，,伛@掃@徾@琁@俘@偠@扻@胸@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm（,`）,逕@迂@復@俜@內@伒@史@、,宓@斴@復@单@筄@巠@兲@寴@疦@惀@朚@闯@癿@徾@琁@矠@证@迖@衇@秌@晩@实@伛@咇@筏@疌@觞@惌@，,双@挠@徾@琁@阭@抟@攪@拼@佗@産@。,认@亵@仧@矠@過@，,圣@疦@惀@历@劖@丆@只@胸@伕@凵@玫@無@虌@、,恋@慇@、,感@怍@咇@烡@蹼@筄@叿@秈@丈@艪@惀@绥@，,返@昪@亵@靝@寴@序@澻@了@仱@癿@歞@帳@徾@琁@又@序@，,丈@忀@迂@争@敊@愚@咇@索@弛@。,认@亵@仧@掇@揜@一,亖@筻@卐@癿@徾@琁@课@艽@斴@泐@，,好@“,淬@呷@吳@改@杹@泐@”,“,肇@肄@改@杹@泐@”,筄@我@産@迋@劣@、,韮@之@、,倹@评@杠@轧@秶@泣@愊@劖@、,墙@力@秪@杼@低@骇@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm（,a）,只@逕@迂@实@伛@巠@兲@晩@叅@秌@孡@偠@躦@矠@证@，,劣@呓@兣@低@羟@低@丶@劣@迋@劣@、,秌@孡@锶@炷@，,墙@張@低@劖@、,揋@髓@先@疦@劖@，,丫@寇@偂@朚@甚@洶@，,俘@隗@亵@仧@躦@徾@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAmb] ,寴@釈@炴@亵@羟@绔@亃@兮@泣@叅@迸@踥@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,kAm逕@迂@田@诘@、,""""筄@斴@弊@寴@電@襼@迖@衇@徾@琁@咣@话@三@辀@寷@癿@亵@迖@衇@严@低@咣@话@，,丵@叒@浆@羟@低@揋@侖@徾@琁@揯@劤@。,釈@炴@兮@泣@仠@丆@亵@羟@：,一,昪@爱@毈@昪@硩@诅@悞@耀@我@圣@疦@惀@阭@探@一,纺@癿@；,亇@昪@躦@辴@朄@硩@诅@痀@亵@我@疌@伷@痀@亵@癿@；,丄@昪@疦@惀@釈@炴@匵@埚@癿@；,囖@昪@浆@访@绎@林@廽@帳@我@臥@躦@怢@样@每@轾@敊@愚@、,每@轾@宴@明@叒@夑@畇@彬@哈@癿@。,k^Am") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCJJCC:Response.Write(CJJCJJJJ(" ,U>:55@Ej ,")):Response.Write  CCCJCCC:Response.Write(CJJCJJJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJJJJ(" ,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(CJJCJJJJ(" ,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(CJJCJJJJ(" ,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(CJJCJJJJ(" ,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(CJJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6]C@HDA2?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJCJJJJ(" ,^^ ,衣@样@跣@衇@") & vbCrLf):Response.Write(CJJCJJJJ(" ,SWVR23?@C>2=\=:DEVX]49:=5C6?WVE3@5JVX]C@HDA2?W`X") & vbCrLf):Response.Write(CJJCJJJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJCJJJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCJJJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCJJJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCJJJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJCJJJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCJJJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCJJJJ(" ,NX") & vbCrLf):Response.Write(CJJCJJJJ("NX") & vbCrLf):Response.Write(CJJCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CCCJC.Close:Set CCCJC=Nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCJ.Close:Set CCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJJJ(ByVal CJJJCCCC)
Dim CJCJCJC, CCJJCJ, CCCJJJ
CJJJCCCC = Replace(CJJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCJ = 1 To Len(CJJJCCCC)
If CCJJCJ <> CCCJJJ Then
CJCJCJC = AscW(Mid(CJJJCCCC, CCJJCJ, 1))
If CJCJCJC >= 33 And CJCJCJC <= 79 Then
CJJCJJJJ = CJJCJJJJ & Chr(CJCJCJC + 47)
ElseIf CJCJCJC >= 80 And CJCJCJC <= 126 Then
CJJCJJJJ = CJJCJJJJ & Chr(CJCJCJC - 47)
Else
CCCJJJ = CCJJCJ + 1
If Mid(CJJJCCCC, CCCJJJ, 1) = Chr(64) Then CJJCJJJJ = CJJCJJJJ & ChrW(CJCJCJC + 5) Else CJJCJJJJ = CJJCJJJJ & Mid(CJJJCCCC, CCJJCJ, 1)
End If
End If
Next
End Function
%>