<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,CJCJJJ, CJCJJC, CJCJCJ:Set CJJCCJ = server.CreateObject(CJJJCJJJ("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CJJJCJJJ("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CJJJCJJJ("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
CJCJCJ=CJJJCJJJ("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") & CJCCJJ & CJJJCJJJ("V ,2?5 ,:5l") & CJCJCC
set CJCJJJ=CJJCCJ.execute(CJCJCJ):If CJCJJJ.EOF Then
Call ClearMemberCookie
Else
CJCCJC=CJCJJJ(2) & "":CJCCCJ=CJCJJJ(3):CJCCCC=CJCJJJ(5):CCJJJJ=CJCJJJ(6):CCJJJC=CJCJJJ(9):CCJJCJ=CJCJJJ(15):CCJCJJ=CJCJJJ(0):CCCJCC=CJCJJJ(1):CCCJCJ=CJCJJJ(11) & "":CCJCJC=CJCJJJ(10) & "":CCJJCC=CJCJJJ(12):CCJCCJ=CJCJJJ(14):CCJCCC=CJCJJJ(13):CCCJJJ=CJCJJJ(7) & "":CCCJJC=CJCJJJ(4):CCCCJJ=CJCJJJ(8):if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CCJJJC) or CCJJJC=0 then CCJJJC=CJCCCJ
if isnull(CCCJJC) then CCCJJC=0
if isnull(CJCCCC) then CJCCCC=0
if instr(CJJJCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CJJJCJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CJJJCJJC):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJCC(CJJJCJJC) then
Call RedirectMessage(CJJJCJJJ("朾@陋@W") & CJJJCJJC & CJJJCJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJCC(CJJJCJJC):dim CCCCCJ,CCCCCC:CCCCCC=split(CJJJCJJC,CJJJCJJJ("[")):CCCJJCC=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CCCJJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJJJ("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCCJ,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJC,CJJJCJJJ("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CCCCCJ=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ<DateDiff(CJJJCJJJ("D"), CJJJCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CJJJJJJ(0)):CJCCJJ=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCJJ,CJJJCJCJ):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CJJJCJCJ):CJJJJCJ=mid(CJJJCJCJ,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CCCCCJJ & CJJJCJJJ("]") & CJJJCJCJ & CJJJCJJJ("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJJJ("D"), CJJJCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJJJ("!$*|t|qt#"))=CJJJJCC:End Sub:::Function IIf(CJJJCJCC, CJJJCCJJ, CJJJCCJC):if isnull(CJJJCJCC) or isempty(CJJJCJCC) then
IIf = CJJJCCJC
elseif CJJJCJCC Then
IIf = CJJJCCJJ
Else
IIf = CJJJCCJC
end if:End Function:Const CCCJJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJJJ("FE7\g"):dim CCCCCJ,CJJJJCJ,CJJJCJJ:if isarray(str) then
on error resume next:CCCCCJ=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then
for CCCCCJ=0 to ubound(str):if CCCCCJ>0 then response.Write CJJJCJJJ("k3C ,^m")
response.Write CCCCCJ & CJJJCJJJ("i ,") & str(CCCCCJ):next
else
response.Write CJJJCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCJ=0 to ubound(str,2):response.Write CJJJCJJJ("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CJJJCJJJ("k^E9m")
next:response.Write CJJJCJJJ("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CJJJCJJJ("kECmkE9m") & CCCCCJ & CJJJCJJJ("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CJJJCJJJ("kE5m") & str(CCCCCJ,CJJJJCJ) & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm"):next:response.Write CJJJCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCCJ,CJJJCCCC):dim CJJJJJJ:CJJJJJJ=CJJJCCCJ & CJJJCJJJ("l") & CJJJCCCC & CJJJCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJJJ("$6E\r@@<:6"),CJJJJJJ):End Sub::::::sub ShowMessage(CJJCJJJJ):response.Charset="utf-8":Response.Write CJJJCJJJ("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") & CJJCJJJJ & CJJJCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJCJC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CCCJCJC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJJJCJJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CCCJCJC = CJJJCJC.test(CJJJCJJ):set CJJJCJC=nothing
end if:End Function:Function CCCJCCJ(CJJCJJJC):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CJJJCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJC & CJJJCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCCJ.execute(CJJJCCJ):CCCJCCJ = CJJJCCC(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJCC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJJJ("!$*0|6DD286"),server.URLEncode(CJJCJJJJ)):Response.Redirect CJJJCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJCJ,CJJCJJCC):dim str,CJJJCJJ:str=CJJJCJJJ("!$*0") & Ucase(CJJCJJCJ):if Session(str)<>"" then
CJJJCJJ=DateDiff(CJJJCJJJ("D"),Session(str),Time):if CJJJCJJ<CJJCJJCC and CJJJCJJ>0 then
Call ConnClose:Call ShowMessage(CJJJCJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJJCC & CJJJCJJJ(" ,种@，,迓@剤@ ,") & CJJCJJCC-CJJJCJJ & CJJJCJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCJCJJ):dim CCCCCJ,CJJJJCJ,CJJCJJC,CJJCJCJ:on error resume next:CJJCJJC=ubound(CJJCJCJJ):CJJCJCJ=ubound(CJJCJCJJ,2):if err.number<>0 then
err.clear:for CCCCCJ=0 to CJJCJJC:CJJCJCJJ(CCCCCJ)=0:next
else
for CCCCCJ=0 to CJJCJJC:for CJJJJCJ=0 to CJJCJCJ:CJJCJCJJ(CCCCCJ,CJJJJCJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCJCJC):Application.Contents.Remove CJJCJCJC
End Sub::Class jTree:Private CJCJCJ, CJJCJCC, CJJCCJJ, CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Private Sub Class_Initialize():CJJCCJJ = 0:CJJCCJC = 0:CJCJJJC=10:End Sub:Public Property Let Table(CJJCJCCJ):if CJJCJCCJ="" then Call RedirectMessage(CJJJCJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCCJ=CJJCJCCJ:CJJCCCC=CJJJCJJJ("!$*0") & UCase(CJJCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCJ:End Property:::Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CJCJJCJ,CJCJJCC:CJJCJCC = Application(CJJCCCC):If Not IsArray(CJJCJCC) Then
CJCJCJ = CJJJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCJ:if CJCJJJJ<>"" then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,H96C6 ,") & CJCJJJJ
set CJCJJCJ=CJJCCJ.execute(CJCJCJ):CJCJJCC=CJCJJCJ(0):if CJCJJCC=0 then Call RedirectMessage(CJJJCJJJ("柠@话@W") & CJJCCCJ & CJJJCJJJ("^") & CJCJJJJ & CJJJCJJJ("X沜@朄@绎@林@敫@捩@"))
CJJCCJC=CJCJJCC+CJCJJJC:ReDim CJJCJCC(CJJCCJC, 4):CJCJCJ = CJJJCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJJCJJJ(" ,H:E9 ,W?@=@4<X"):if CJCJJJJ<>"" then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,H96C6 ,") & CJCJJJJ
CJCJCJ=CJCJCJ & CJJJCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCJ=CJJCCJ.execute(CJCJCJ):For CCCCCJ = 1 To CJCJJCC:For CJJJJCJ = 0 To 4:CJJCJCC(CCCCCJ, CJJJJCJ) = CJCJJCJ(CJJJJCJ):if IsNull(CJJCJCC(CCCCCJ,4)) then CJJCJCC(CCCCCJ,4)=0
If CJJCJCC(CCCCCJ,2)="" then CJJCJCC(CCCCCJ,2)=CJJJCJJJ(",穵@.")
Next:CJCJJCJ.MoveNext:Next:CJCJJCJ.Close: Set CJCJJCJ = Nothing:for CCCCCJ=CJJCCJC-(CJCJJJC-1) to CJJCCJC:CJJCJCC(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock()
else
CJJCCJC=Ubound(CJJCJCC)
End If:End Sub::::Public Function GetChild(CCCCCJJ):Dim CCCCCJ, Str:CCCCCJJ=CLng(CCCCCJJ):For CCCCCJ = 1 To CJJCCJC:If CJJCJCC(CCCCCJ, 1) = CCCCCJJ Then Str = Str & CJJJCJJJ("M") & CJJCJCC(CCCCCJ, 0) & CJJJCJJJ("M") & CJJCJCC(CCCCCJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCJJJ("M")):End Function:Private Function CCCCCCJ(CCCCCJJ):dim CCCCCJ,CJCJCJJ:CCCCCCJ=0:CJCJCJJ=CStr(CCCCCJJ):if CJCJCJJ<>"0" then
for CCCCCJ=1 to CJJCCJC:If CStr(CJJCJCC(CCCCCJ, 0))=CJCJCJJ Then
CCCCCCJ = CCCCCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCCCJJ):if Cstr(CCCCCJJ)="0" then
GetCurName=CJJJCJJJ("栴@")
else
Dim CCCCCJ,CJCJJCJ:CCCCCJ=CCCCCCJ(CCCCCJJ):if CCCCCJ>0 then
GetCurName=CJJCJCC(CCCCCJ,2):if GetCurName="" then
set CJCJJCJ=CJJCCJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJJCJJJ(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJJCJ.eof then Call RedirectMessage(CJJJCJJJ("xs（,") & CCCCCJJ & CJJJCJJJ("）,朥@批@别@"))
GetCurName=CJCJJCJ(1):Call UpdateCache(CCCCCJJ,CJCJJCJ(0),GetCurName,CJCJJCJ(2),CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing
end if
else
set CJCJJCJ=CJJCCJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJJCJJJ(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJJCJ.eof then Call RedirectMessage(CJJJCJJJ("xs（,") & CCCCCJJ & CJJJCJJJ("）,朥@批@别@"))
GetCurName=CJCJJCJ(1):Call UpdateCache(CCCCCJJ,CJCJJCJ(0),GetCurName,CJCJJCJ(2),CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing
end if
end if:End Function:::Public Function CJJJJJJJ(CCCCCJJ):Dim CCCCCJ,CJCJCJC:CCCCCJ=CCCCCCJ(CCCCCJJ):if CCCCCJ=0 then
CJCJCJC=CJJJJJJC(CCCCCJJ)
else
CJCJCJC=CJJCJCC(CCCCCJ,3):if isnull(CJCJCJC) or CJCJCJC="" then
CJCJCJC=CJJJJJJC(CCCCCJJ)
elseif Mid(CJCJCJC,instrrev(CJCJCJC,CJJJCJJJ("["))+1)<>CStr(CCCCCJJ) then
CJCJCJC=CJJJJJJC(CCCCCJJ)
elseif Left(CJCJCJC,1)=CJJJCJJJ("[") then
CJCJCJC=CJJJJJJC(CCCCCJJ)
end if
end if:CJJJJJJJ=CJCJCJC:End Function:Private Function CJJJJJJC(CCCCCJJ):dim CJCJCJJ:CJCJCJJ=CStr(CCCCCJJ):if CJCJCJJ="0" then
CJJJJJJC=""
else
dim CJCJJCJ:set CJCJJCJ=CJJCCJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CJJJCJJJ(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJJCJ.eof then
Call UpdateCache(CCCCCJJ,"","","",""):Call RedirectMessage(CJJJCJJJ("顴@盩@（,xs：,") & CCCCCJJ & CJJJCJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJCJ(0)=0 then
CJJJJJJC="0," & CCCCCJJ
else
CJJJJJJC=CJJJJJJJ(CJCJJCJ(0)) & CJJJCJJJ("[") & CCCCCJJ
end if:if CJCJJCJ(2)<>CJJJJJJC then
CJJCCJ.execute CJJJCJJJ("FA52E6 ,") & CJJCCCJ & CJJJCJJJ(" ,D6E ,A2E9lV") & CJJJJJJC & CJJJCJJJ("V ,H96C6 ,:5l") & CCCCCJJ
else
CJJJJJJC=CJCJJCJ(2)
end if
end if:Call UpdateCache(CCCCCJJ,CJCJJCJ(0),CJCJJCJ(1),CJJJJJJC,CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing
end if:End Function::::Public Function IsParent(CJJCJCCC, CJJCCJJJ):IsParent=InStr(CJJJJJJJ(CJJCCJJJ) & CJJJCJJJ("["), CJJJCJJJ("[") & CJJCJCCC & CJJJCJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCCCJJ):dim CJCJCJC:CJCJCJC=CJJJJJJJ(CCCCCJJ):Sql_GetChildren = CJJCCCJ & CJJJCJJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJCJC & CJJJCJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCCC
End Sub:Public Sub UpdateCache(CCCCCJJ,CJJCCJJC,CJJCCJCJ,CJCJCJC,CJJCCJCC):dim CCCCCJ,CJJJJCJ:CCCCCJJ=CLng(CCCCCJJ):CCCCCJ=CCCCCCJ(CCCCCJJ):if CJJCCJJC="" and CJJCCJCJ="" and CJCJCJC="" and CJJCCJCC="" then
if CCCCCJ>0 then
for CJJJJCJ=1 to 4:CJJCJCC(CCCCCJ,CJJJJCJ)=Null:next
end if
else
if CCCCCJ=0 then
for CJJJJCJ=1 to CJJCCJC:if CJJCJCC(CJJJJCJ,1) & ""="" then
CCCCCJ=CJJJJCJ:exit for
end if:next
end if:if CCCCCJ=0 then
Call ClearCache
else
CJJCJCC(CCCCCJ,0)=CLng(CCCCCJJ):if CJJCCJJC<>"" then CJJCJCC(CCCCCJ,1)=CLng(CJJCCJJC)
if CJJCCJCJ<>"" then CJJCJCC(CCCCCJ,2)=CJJCCJCJ
if CJCJCJC<>"" then CJJCJCC(CCCCCJ,3)=CJCJCJC
if CJJCCJCC<>"" then CJJCJCC(CCCCCJ,4)=CLng(CJJCCJCC)
end if
end if:if CCCCCJ>0 then
Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJJJ):Call ConnClose:Response.Write CJJCJJJJ:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CJJJCCC:set CJJJCCC=CJJCCJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCJ & CJJJCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CJJJCCC(0):CJJJCCC.Close: Set CJJJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CCCJJJC=16:Const CCCJJCJ="学习适应性测试（初高中）":Call CheckRight("54,81"):Call CheckQueryTime(CJJJCJJJ("%6DE0#6A@CE"),15):dim CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:CJCCJCC=Request.QueryString(CJJJCJJJ("$49@@=")):CJCJCCJ=Request.QueryString(CJJJCJJJ("s6AE")):CJCJCCC=Request.QueryString(CJJJCJJJ("vC256")):CJCCJJJ=Request.QueryString(CJJJCJJJ("vC@FA")):CJCCCJJ=Request.QueryString(CJJJCJJJ("E6DEEJA6")):CJCCJJC=Request.QueryString(CJJJCJJJ("E`")):CJCCJCJ=Request.QueryString(CJJJCJJJ("Ea")):if not CCCJCJC(CJCJCCJ) then Call RedirectMessage(CJJJCJJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJJCJCC:set CJJCJCC=new jtree:CJJCJCC.table=CJJJCJJJ(">6>36C0EJA6"):if not CJJCJCC.IsParent(CJCCCJ,CJCJCCJ) then Call RedirectMessage(CJJJCJJJ("诠@苾@囯@W") & CJCJCCJ & CJJJCJJJ("X丈@圣@患@W") & CJCCCJ & CJJJCJJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJCCCJC,CJCCCCJ(4):CJCCCJC=Array(CJJJCJJJ("孡@乛@忼@庡@"),CJJJCJJJ("孡@乛@扻@未@"),CJJJCJJJ("孡@乛@玪@塾@"),CJJJCJJJ("徾@躦@偠@庲@"),CJJJCJJJ("怶@刁@")):CJCCCCJ(0)=CJJJCJJJ("孡@乛@忼@庡@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@孡@乛@忼@庡@昪@吡@竪@歞@。,"):CJCCCCJ(1)=CJJJCJJJ("孡@乛@扻@未@四@孋@盩@癿@圣@争@考,柠@孡@甚@癿@孡@乛@斴@泐@昪@吡@秌@孡@。,"):CJCCCCJ(2)=CJJJCJJJ("孡@乛@玪@塾@四@孋@盩@癿@圣@争@考,柠@孡@甚@圣@宱@采@咇@孡@栜@癿@孡@乛@玪@塾@昪@吡@艪@奸@。,"):CJCCCCJ(3)=CJJJCJJJ("徾@躦@偠@庲@四@孋@又@昛@癿@昪@孡@甚@癿@躦@徾@偠@庲@氯@幮@。,"):CJCCCCJ(4)=CJJJCJJJ("怶@刁@仞@衣@孡@乛@追@序@怢@癿@怶@低@氯@幮@。,"):dim CJCCCCC:CJCCCCC=Array(0.07,0.24,0.38,0.24,0.07):dim CJJJJCJC:CJJJJCJC=CJJCJCC.GetChild(CJCJCCJ):if ubound(CJJJJCJC)<0 then Call RedirectMessage(CJJJCJJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJJJJCJC=join(CJJJJCJC,CJJJCJJJ("M")) & CJJJCJJJ("M_M共@仑@"):CJJJJCJC=split(CJJJJCJC,CJJJCJJJ("M")):dim CCJJJJJ:CCJJJJJ=CJJCJCC.GetCurName(CJCJCCJ):dim CCCCCJ,CJJJJCJ,CJJJJCC,CCJJJJC:dim CCJJJCJ():redim CCJJJCJ((ubound(CJJJJCJC)-1)/2,19):for CCCCCJ=0 to ubound(CJJJJCJC)-1 step 2:CJJJJCC=CCCCCJ/2:CCJJJCJ(CJJJJCC,0)=CJJJJCJC(CCCCCJ):CCJJJCJ(CJJJJCC,1)=CJJJJCJC(CCCCCJ+1):for CJJJJCJ=2 to ubound(CCJJJCJ,2):CCJJJCJ(CJJJJCC,CJJJJCJ)=0:next:next:dim CCJJJCC(1,13):Call ArrayInit(CCJJJCC):CCJJJCC(0,0)=CJJJCJJJ("甲@"):CCJJJCC(1,0)=CJJJCJJJ("奮@"):dim CCCCCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CCJJCCJ=Date:CCJJCCC=cdate(CJJJCJJJ("a___\`\`")):dim CCJCJCJ(4,12):Call ArrayInit(CCJCJCJ):CJCJCJ=CJJJCJJJ("D6=64E ,>6>36C0EJA60A2E9 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld"):if cstr(CJCJCCJ)=cstr(CJCCJCC) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCJCC else CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,") & CJJCJCC.Sql_GetChildren(CJCJCCJ)
if CCCJCJC(CJCJCCC) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,8C256l") & CJCJCCC
if CCCJCJC(CJCCJJJ) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCJJJ
set CJCJJJ=CJJCCC.execute(CJCJCJ):if CJCJJJ.eof then Call RedirectMessage(CJJJCJJJ("寴@丈@赲@，,沜@朄@亵@呓@敫@捩@。,"))
while not CJCJJJ.eof:CJJJJCJ=ubound(CCJJJCJ):for CCCCCJ=0 to CJJJJCJ-1:if instr(CJCJJJ(0) & CJJJCJJJ("["),CJJJCJJJ("[") & CCJJJCJ(CCCCCJ,0) & CJJJCJJJ("["))>0 then
CJJJJCJ=CCCCCJ:exit for
end if:next:CCCCCJ=CJJJJCJ:CCJJJCJ(CCCCCJ,2)=CCJJJCJ(CCCCCJ,2)+1:CJCJJJ.movenext:wend:CJCJCJ=CJJJCJJJ("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[C6DF=E[D4@C60E[C62=?2>6[?F>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJJJC & CJJJCJJJ(" ,2?5 ,G2=:5l`"):if cstr(CJCJCCJ)=cstr(CJCCJCC) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCJCC else CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,") & CJJCJCC.Sql_GetChildren(CJCJCCJ)
if CCCJCJC(CJCJCCC) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,8C256l") & CJCJCCC
if CCCJCJC(CJCCJJJ) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCJJJ
if CCCJCJC(CJCCCJJ) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,EJA6l") & CJCCCJJ
if isdate(CJCCJJC) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,52E6E:>6mlV") & CJCCJJC & CJJJCJJJ("V")
if isdate(CJCCJCJ) then CJCJCJ=CJCJCJ & CJJJCJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCCJCJ)+1 & CJJJCJJJ("V")
set CJCJJJ=CJJCCJ.execute(CJCJCJ):if CJCJJJ.eof then Call RedirectMessage(CJJJCJJJ("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CJCJJJ.eof:if isnull(CJCJJJ(4)) then Call RedirectMessage(CJCJJJ(6) & CJJJCJJJ("W") & CJCJJJ(7) & CJJJCJJJ("X癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@，,诲@柠@话@凵@杠@吉@创@陟@！,"))
CJJJJCC=CJCJJJ(3):if CJJJJCC<CCJJCCJ then CCJJCCJ=CJJJJCC
if CJJJJCC>CCJJCCC then CCJJCCC=CJJJJCC
CCCCCC=split(CJCJJJ(4),CJJJCJJJ("M")):for CCCCCJ=0 to 4:CJJJJCC=CCCCCC(CCCCCJ):CCJCJCJ(CCCCCJ,CJJJJCC)=CCJCJCJ(CCCCCJ,CJJJJCC)+1:next:CJJJJCJ=ubound(CCJJJCJ):for CCCCCJ=0 to CJJJJCJ-1:if instr(CJCJJJ(0) & CJJJCJJJ("["),CJJJCJJJ("[") & CCJJJCJ(CCCCCJ,0) & CJJJCJJJ("["))>0 then
CJJJJCJ=CCCCCJ:exit for
end if:next:CCCCCJ=CJJJJCJ:CCJJJCJ(CCCCCJ,3)=CCJJJCJ(CCCCCJ,3)+1:CCCCCC=split(CJCJJJ(5),CJJJCJJJ("M")):for CJJJJCJ=0 to 4:CJJJJCC=CJJJJCJ+5:CCJJJCJ(CCCCCJ,CJJJJCC)=CCJJJCJ(CCCCCJ,CJJJJCC) + CCCCCC(CJJJJCJ):CJJJJCC=CJJJJCJ+15:CCJJJCJ(CCCCCJ,CJJJJCC)=CCJJJCJ(CCCCCJ,CJJJJCC) & CJJJCJJJ("[") & CCCCCC(CJJJJCJ):next:for CCCCCJ=0 to 4:CCJCJCJ(CCCCCJ,10)=CCJCJCJ(CCCCCJ,10) & CJJJCJJJ("M") & CCCCCC(CCCCCJ):next:if CJCJJJ(1) then CJJJJCJ=0 else CJJJJCJ=1
CCJJJCC(CJJJJCJ,1)=CCJJJCC(CJJJJCJ,1)+1:for CCCCCJ=0 to 3:CJJJJCC=CCCCCJ+2:CCJJJCC(CJJJJCJ,CJJJJCC)=CCJJJCC(CJJJJCJ,CJJJJCC)+CCCCCC(CCCCCJ):CJJJJCC=CCCCCJ+10:CCJJJCC(CJJJJCJ,CJJJJCC)=CCJJJCC(CJJJJCJ,CJJJJCC) & CJJJCJJJ("[") & CCCCCC(CCCCCJ):next:CCJJCJJ=CCJJCJJ+1:CJCJJJ.movenext:wend:for CCCCCJ=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCJ,2)>0 then
CCJJJCJ(CCCCCJ,4)=formatpercent(CCJJJCJ(CCCCCJ,3)/CCJJJCJ(CCCCCJ,2),2,-1):if CCJJJCJ(CCCCCJ,3)>0 then
for CJJJJCJ=5 to 9:CJJJJCC=CJJJJCJ+5:CCJJJCJ(CCCCCJ,CJJJJCC)=formatnumber(CCJJJCJ(CCCCCJ,CJJJJCJ)/CCJJJCJ(CCCCCJ,3),2,-1):CJJJJCC=CJJJJCJ+10:CCJJJCJ(CCCCCJ,CJJJJCC)=mid(CCJJJCJ(CCCCCJ,CJJJJCC),3):next
end if
else
CCJJJCJ(CCCCCJ,4)=CJJJCJJJ("\")
end if:next:for CCCCCJ=0 to 4:for CJJJJCJ=0 to 4:CJJJJCC=CJJJJCJ+5:CCJCJCJ(CCCCCJ,CJJJJCC)=CCJCJCJ(CCCCCJ,CJJJJCJ)/CCJJCJJ:next:CCCCCC=CJJJJCCJ(split(Mid(CCJCJCJ(CCCCCJ,10),3),CJJJCJJJ("M"))):CCJCJCJ(CCCCCJ,11)=FormatNumber(CCCCCC(0),2,-1):CCJCJCJ(CCCCCJ,12)=FormatNumber(CCCCCC(1),2,-1):next:for CCCCCJ=0 to 1:for CJJJJCJ=0 to 3:if CCJJJCC(CCCCCJ,1)>0 then
CCJJJCC(CCCCCJ,CJJJJCJ+6)=formatnumber(CCJJJCC(CCCCCJ,CJJJJCJ+2)/CCJJJCC(CCCCCJ,1),2,-1)
else
CCJJJCC(CCCCCJ,CJJJJCJ+6)=CJJJCJJJ("\")
end if:CCJJJCC(CCCCCJ,CJJJJCJ+10)=mid(CCJJJCC(CCCCCJ,CJJJJCJ+10),3):next:next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJJJ("k9625m") & vbCrLf):Response.Write(CJJJCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCJJJ("kE:E=6m")):Response.Write  CCJJJJJ:Response.Write(CJJJCJJJ("\")):Response.Write  CCCJJCJ:Response.Write(CJJJCJJJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCJJJ("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(CJJJCJJJ("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("k^9625m") & vbCrLf):Response.Write(CJJJCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9`mkD>2==m")):Response.Write  CCJJJJJ:Response.Write(CJJJCJJJ("k^D>2==mk3Cm")):Response.Write  CCCJJCJ:Response.Write(CJJJCJJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm孡@乛@追@序@怢@浆@骇@Wpp%X溋@争@无@朧@敔@肭@砏@穱@戻@孡@乛@追@序@怢@浆@骇@砏@穱@郣@缑@刱@癿@《,孡@乛@追@序@怢@浆@骇@》,，,共@丨@囸@牃@昪@甬@卉@丗@布@苾@夢@孡@徾@琁@孡@糶@呣@歠@戋@敔@掃@俩@讝@耇@戋@癿@，,圣@囸@冀@癿@丨@尊@孡@孡@乛@追@序@怢@砏@穱@丨@，,歟@浆@骇@袦@幺@泖@佺@産@，,兲@朄@徃@奸@癿@俜@庡@三@敃@庡@。,朧@浆@骇@丈@什@昪@丨@尊@孡@甚@孡@乛@丈@艪@癿@琁@讵@砏@穱@、,诅@斨@叅@宙@陀@挂@寷@巠@佗@忀@丈@只@尌@癿@巠@兲@，,耇@丏@乚@丵@敔@布@咇@宱@镺@挂@寷@孡@甚@叅@孤@孋@癿@孡@乛@揋@侖@杼@丵@丫@寇@癿@贿@斔@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm朧@浆@骇@産@杠@梻@柠@咇@诅@斨@彬@哈@孡@甚@孡@乛@癿@静@晵@劖@四@紛@咇@玪@塾@四@紛@，,丶@襼@産@争@孡@甚@孡@乛@追@序@丈@艪@癿@诅@斨@三@挂@寷@。,共@丨@戻@匀@否@癿@彬@哈@孡@甚@孡@乛@追@序@怢@癿@丶@襼@四@紛@郸@昪@栴@捩@迌@亖@幯@杠@徾@琁@孡@砏@穱@丨@癿@曻@斫@戋@林@，,幱@绎@吃@幯@红@阱@殰@癿@徾@琁@三@甚@琁@牴@彼@力@仠@缑@刱@。,刘@丨@牃@癿@浆@诐@巠@兲@丶@襼@朄@囖@严@四@孋@：,孡@乛@忼@庡@、,孡@乛@扻@未@、,孡@乛@玪@塾@、,徾@躦@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm")):Response.Write  formatdatetime(CCJJCCJ,1):Response.Write(CJJJCJJJ("～,")):Response.Write  formatdatetime(CCJJCCC,1):Response.Write(CJJJCJJJ("k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m幯@红@怶@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m厽@浆@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m厽@浆@每@來@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):dim CCJCJCC:CCJCJCC=Array(0,0):for CCCCCJ=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCJ,2)>0 and CCJJJCJ(CCCCCJ,3)>0 then
CCJCJCC(0)=CCJCJCC(0)+CCJJJCJ(CCCCCJ,2):CCJCJCC(1)=CCJCJCC(1)+CCJJJCJ(CCCCCJ,3):Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCJ,1):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCJ,2):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCJ,3):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJJJCJ(CCCCCJ,4):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m怶@亵@敫@k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJCJCC(0):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJCJCC(1):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  formatpercent(CCJCJCC(1)/CCJCJCC(0),2,-1):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm怶@刁@仞@衣@孡@乛@追@序@怢@癿@怶@低@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm") & vbCrLf):Response.Write(CJJJCJJJ(" ,孡@甚@怶@刁@栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(4,11):Response.Write(CJJJCJJJ("，,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):if CCJCJCJ(4,11)<=34 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@巩@筄@氯@幮@，,误@昉@孡@甚@怶@低@孡@乛@追@序@怢@癿@幮@坂@氯@幮@壿@争@巩@筄@氯@幮@。,")
elseif CCJCJCJ(4,11)<=44 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@丆@氯@幮@，,误@昉@孡@甚@怶@低@孡@乛@追@序@怢@癿@幮@坂@氯@幮@壿@争@丨@丆@氯@幮@。,")
elseif CCJCJCJ(4,11)<=54 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@筄@氯@幮@，,误@昉@孡@甚@怶@低@孡@乛@追@序@怢@癿@幮@坂@氯@幮@壿@争@丨@筄@氯@幮@。,")
elseif CCJCJCJ(4,11)<=64 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@丅@氯@幮@，,误@昉@孡@甚@怶@低@孡@乛@追@序@怢@癿@幮@坂@氯@幮@壿@争@丨@丅@氯@幮@。,")
else
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@伓@筄@氯@幮@，,误@昉@孡@甚@怶@低@孡@乛@追@序@怢@癿@幮@坂@氯@幮@壿@争@伓@筄@氯@幮@。,")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm") & vbCrLf):Response.Write(CJJJCJJJ(" ,圣@厽@浆@癿@")):Response.Write  CCJJCJJ:Response.Write(CJJJCJJJ("亵@丨@，,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(4,4):Response.Write(CJJJCJJJ("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(4,9),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@栲@朧@癿@卛@每@fT，,")):Response.Write  IIf(CCJCJCJ(4,9)>=CJCCCCC(4),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(4,9)-CJCCCCC(4)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(4,3):Response.Write(CJJJCJJJ("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(4,8),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@栲@朧@癿@卛@每@acT，,")):Response.Write  IIf(CCJCJCJ(4,8)>=CJCCCCC(3),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(4,8)-CJCCCCC(3)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(4,2):Response.Write(CJJJCJJJ("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(4,7),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@bgT，,")):Response.Write  IIf(CCJCJCJ(4,7)>=CJCCCCC(2),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(4,7)-CJCCCCC(2)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(4,1):Response.Write(CJJJCJJJ("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(4,6),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@acT，,")):Response.Write  IIf(CCJCJCJ(4,6)>=CJCCCCC(1),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(4,6)-CJCCCCC(1)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(4,0):Response.Write(CJJJCJJJ("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(4,5),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@fT，,")):Response.Write  IIf(CCJCJCJ(4,5)>=CJCCCCC(0),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(4,5)-CJCCCCC(0)),2,-1):Response.Write(CJJJCJJJ("。,") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm朧@欜@厽@浆@绎@林@癿@叿@严@筄@红@刁@巾@三@帳@樜@栲@朧@盳@每@好@丆@囹@戻@礵@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CJJJCJJJ(",V朧@栜@V[V帳@樜@栲@朧@V.")
for CCCCCJ=4 to 0 step -1:CJJJJCC=CCCCCJ+5:CCJJJJC=CCJJJJC & CJJJCJJJ("[,") & formatnumber(CCJCJCJ(4,CJJJJCC)*100,2,-1) & CJJJCJJJ("[") & CJCCCCC(CCCCCJ)*100 & CJJJCJJJ("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write  CCJJJJC:Response.Write(CJJJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):for CCCCCJ=0 to 3:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k9bm")):Response.Write  CCCCCJ+2 & CJJJCJJJ("．,") & CJCCCJC(CCCCCJ):Response.Write(CJJJCJJJ("k^9bm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm")):Response.Write  CJCCCCJ(CCCCCJ):Response.Write(CJJJCJJJ("k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm") & vbCrLf):Response.Write(CJJJCJJJ(" ,孡@甚@")):Response.Write  CJCCCJC(CCCCCJ):Response.Write(CJJJCJJJ("栂@凁@刁@癿@幮@坂@敫@丵@")):Response.Write  CCJCJCJ(CCCCCJ,11):Response.Write(CJJJCJJJ("，,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):if CCJCJCJ(CCCCCJ,11)<=34 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@巩@筄@氯@幮@，,误@昉@孡@甚@怶@低@") & CJCCCJC(CCCCCJ) & CJJJCJJJ("癿@幮@坂@氯@幮@壿@争@巩@筄@氯@幮@。,")
elseif CCJCJCJ(CCCCCJ,11)<=44 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@丆@氯@幮@，,误@昉@孡@甚@怶@低@") & CJCCCJC(CCCCCJ) & CJJJCJJJ("癿@幮@坂@氯@幮@壿@争@丨@丆@氯@幮@。,")
elseif CCJCJCJ(CCCCCJ,11)<=54 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@筄@氯@幮@，,误@昉@孡@甚@怶@低@") & CJCCCJC(CCCCCJ) & CJJJCJJJ("癿@幮@坂@氯@幮@壿@争@丨@筄@氯@幮@。,")
elseif CCJCJCJ(CCCCCJ,11)<=64 then
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@丨@丅@氯@幮@，,误@昉@孡@甚@怶@低@") & CJCCCJC(CCCCCJ) & CJJJCJJJ("癿@幮@坂@氯@幮@壿@争@丨@丅@氯@幮@。,")
else
Response.Write CJJJCJJJ("壿@争@栂@凁@刁@筄@红@伓@筄@氯@幮@，,误@昉@孡@甚@怶@低@") & CJCCCJC(CCCCCJ) & CJJJCJJJ("癿@幮@坂@氯@幮@壿@争@伓@筄@氯@幮@。,")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm") & vbCrLf):Response.Write(CJJJCJJJ(" ,圣@厽@浆@癿@")):Response.Write  CCJJCJJ:Response.Write(CJJJCJJJ("亵@丨@，,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(CCCCCJ,4):Response.Write(CJJJCJJJ("亵@壿@争@伓@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(CCCCCJ,9),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@栲@朧@癿@卛@每@fT，,")):Response.Write  IIf(CCJCJCJ(CCCCCJ,9)>=CJCCCCC(4),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(CCCCCJ,9)-CJCCCCC(4)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(CCCCCJ,3):Response.Write(CJJJCJJJ("亵@壿@争@丨@丅@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(CCCCCJ,8),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@栲@朧@癿@卛@每@acT，,")):Response.Write  IIf(CCJCJCJ(CCCCCJ,8)>=CJCCCCC(3),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(CCCCCJ,8)-CJCCCCC(3)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(CCCCCJ,2):Response.Write(CJJJCJJJ("亵@壿@争@丨@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(CCCCCJ,7),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@bgT，,")):Response.Write  IIf(CCJCJCJ(CCCCCJ,7)>=CJCCCCC(2),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(CCCCCJ,7)-CJCCCCC(2)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(CCCCCJ,1):Response.Write(CJJJCJJJ("亵@壿@争@丨@丆@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(CCCCCJ,6),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@acT，,")):Response.Write  IIf(CCJCJCJ(CCCCCJ,6)>=CJCCCCC(1),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(CCCCCJ,6)-CJCCCCC(1)),2,-1):Response.Write(CJJJCJJJ("；,") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Response.Write  CCJCJCJ(CCCCCJ,0):Response.Write(CJJJCJJJ("亵@壿@争@巩@筄@氯@幮@，,卛@每@")):Response.Write  formatpercent(CCJCJCJ(CCCCCJ,5),2,-1):Response.Write(CJJJCJJJ("，,盳@每@争@帳@樜@氯@幮@fT，,")):Response.Write  IIf(CCJCJCJ(CCCCCJ,5)>=CJCCCCC(0),CJJJCJJJ("墙@力@"),CJJJCJJJ("凊@尌@")):Response.Write(CJJJCJJJ("亁@")):Response.Write  formatpercent(Abs(CCJCJCJ(CCCCCJ,5)-CJCCCCC(0)),2,-1):Response.Write(CJJJCJJJ("。,") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CJJJCJJJ(",V朧@栜@V[V帳@樜@栲@朧@V.")
for CJJJJCJ=4 to 0 step -1:CJJJJCC=CJJJJCJ+5:CCJJJJC=CCJJJJC & CJJJCJJJ("[,") & formatnumber(CCJCJCJ(CCCCCJ,CJJJJCC)*100,2,-1) & CJJJCJJJ("[") & CJCCCCC(CJJJJCJ)*100 & CJJJCJJJ("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U?lTUIl伓@筄@M丨@丅@M丨@筄@M丨@丆@M巩@筄@UGl")):Response.Write  CCJJJJC:Response.Write(CJJJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am亏@、,丈@吇@四@孋@癿@徒@刁@寴@每@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):for CCCCCJ=0 to 3:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCCJ):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJCJCJ(CCCCCJ,11):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJCJCJ(CCCCCJ,12):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CJJJCJJJ("LV|Vi,")
for CCCCCJ=0 to 3:if CCCCCJ>0 then CCJJJJC=CCJJJJC & CJJJCJJJ("[")
CCJJJJC=CCJJJJC & CCJCJCJ(CCCCCJ,11):next:CCJJJJC=CCJJJJC & CJJJCJJJ(".[V$sVi,")
for CCCCCJ=0 to 3:if CCCCCJ>0 then CCJJJJC=CCJJJJC & CJJJCJJJ("[")
CCJJJJC=CCJJJJC & CCJCJCJ(CCCCCJ,12):next:CCJJJJC=CCJJJJC & CJJJCJJJ(".N"):Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CUIl孡@乛@忼@庡@[孡@乛@扻@未@[孡@乛@玪@塾@[徾@躦@偠@庲@UGl")):Response.Write  CCJJJJC:Response.Write(CJJJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm甬@丅@靝@癿@囹@衣@只@矠@：,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm孡@乛@扻@未@癿@幮@坂@敫@徒@刁@曻@髓@，,躦@徾@偠@庲@癿@徒@刁@曻@佉@，,返@误@昉@栜@斴@序@夕@兮@泣@孡@甚@癿@躦@徾@偠@庲@，,夕@廻@屐@躦@徾@偠@庲@癿@训@庢@，,幱@丏@珨@丶@件@老,布@咇@徾@琁@偠@庲@老,布@序@夕@兮@泣@躦@徾@偠@庲@斴@靝@徒@刁@轾@佉@癿@孡@甚@，,帩@劤@孡@甚@揋@髓@躦@徾@偠@庲@癿@徒@刁@，,认@孡@甚@曯@力@轶@杹@、,偠@庲@癿@孡@乛@；,孡@乛@玪@塾@癿@栂@凁@巩@曻@髓@，,孡@乛@扻@未@癿@栂@凁@巩@曻@佉@，,返@误@昉@孡@甚@孡@乛@玪@塾@徒@刁@癿@巩@廽@轾@夢@，,孡@乛@扻@未@徒@刁@癿@巩@廽@轾@尊@，,揋@礵@栜@斴@序@帩@劤@孡@乛@玪@塾@徒@刁@轾@佉@癿@孡@甚@廵@竆@艪@奸@癿@孡@栜@孡@乛@玪@塾@，,幱@丏@聏@糶@孡@甚@宱@镺@，,丵@孡@甚@宱@镺@廻@屐@训@庢@，,认@宱@镺@亁@觞@宱@庨@孡@乛@玪@塾@寴@孡@甚@孡@乛@癿@彬@哈@，,好@佐@刖@讹@艪@奸@癿@宱@庨@孡@乛@玪@塾@，,帩@劤@孡@甚@廵@竆@艪@奸@癿@孡@乛@玪@塾@筄@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am全@、,丈@吇@幯@红@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m四@孋@^幯@红@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CJJJCJJJ(","):CCJCJJC="":for CCCCCJ=0 to ubound(CCJJJCJ):if CCJJJCJ(CCCCCJ,3)>0 then
Response.Write CJJJCJJJ("kE9m") & CCJJJCJ(CCCCCJ,1) & CJJJCJJJ("（,") & CCJJJCJ(CCCCCJ,3) & CJJJCJJJ("亵@）,k^E9m"):CCJCJJC=CCJCJJC & CJJJCJJJ("[V") & CCJJJCJ(CCCCCJ,1) & CJJJCJJJ("V")
end if:next:CCJJJJC=CCJJJJC & mid(CCJCJJC,2) & CJJJCJJJ("."):Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m昪@吡@巩@廽@昹@葒@（,!k_]_d）,k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):for CCCCCJ=0 to 4:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCCJ):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CCJJJJC & CJJJCJJJ("[,"):CCJCJJC="":for CJJJJCJ=0 to ubound(CCJJJCJ):if CCJJJCJ(CJJJJCJ,3)>0 then
Response.Write CJJJCJJJ("kE5m") & CCJJJCJ(CJJJJCJ,CCCCCJ+10) & CJJJCJJJ("k^E5m"):CCJCJJC=CCJCJJC & CJJJCJJJ("[") & CCJJJCJ(CJJJJCJ,CCCCCJ+10)
end if:next:CCJJJJC=CCJJJJC & mid(CCJCJJC,2) & CJJJCJJJ("."):CCJCJJC="":for CJJJJCJ=0 to ubound(CCJJJCJ):if CCJJJCJ(CJJJJCJ,3)>0 then
CCJCJJC=CCJCJJC & CJJJCJJJ("M") & CCJJJCJ(CJJJJCJ,CCCCCJ+15)
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQA\G2=F6Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  mid(CCJCJJC,2):Response.Write(CJJJCJJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UIl孡@乛@忼@庡@[孡@乛@扻@未@[孡@乛@玪@塾@[徾@躦@偠@庲@[怶@刁@UGl")):Response.Write  CCJJJJC:Response.Write(CJJJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm甬@丅@靝@癿@囹@衣@只@矠@：,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm仉@刘@一,别@刘@丄@，,孡@乛@忼@庡@癿@徒@刁@丈@斨@丅@卂@；,仉@髓@一,别@髓@丄@，,孡@乛@忼@庡@癿@徒@刁@丈@斨@丆@陈@。,共@丨@，,刘@丄@癿@刁@敫@曻@髓@，,髓@丄@癿@刁@敫@曻@佉@。,返@误@昉@，,刘@丄@癿@孡@乛@忼@庡@昪@曻@竪@歞@、,秪@杼@癿@，,耇@髓@丄@癿@孡@乛@忼@庡@昪@曻@巩@癿@。,返@严@绎@林@揋@礵@栜@斴@序@诠@寴@髓@丨@甚@癿@孡@乛@忼@庡@，,牴@刦@昪@髓@丄@，,力@仠@弐@寷@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm刘@丨@甚@癿@孡@乛@扻@未@徒@刁@襼@晩@遈@髓@争@髓@丨@甚@癿@，,共@丨@刘@丄@癿@徒@刁@曻@髓@，,髓@丄@癿@徒@刁@曻@佉@。,返@揋@礵@刘@丨@甚@癿@孡@乛@扻@未@襼@奸@争@髓@丨@甚@癿@，,栜@斴@序@诠@曯@力@兮@泣@髓@丨@甚@，,牴@刦@昪@髓@丄@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@掇@揜@曯@力@秌@孡@癿@孡@乛@斴@泐@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm刘@丄@癿@孡@乛@玪@塾@徒@刁@昪@曻@髓@癿@，,耇@髓@亇@癿@刁@敫@曻@佉@。,返@揋@礵@刘@丄@孡@甚@癿@孡@乛@玪@塾@每@轾@奸@，,耇@髓@亇@孡@甚@癿@孡@乛@玪@塾@盳@寴@轾@巩@。,栜@斴@序@诠@曯@力@兮@泣@髓@亇@孡@甚@，,弐@寷@仑@仧@丵@臥@巬@刖@廵@曯@力@朄@盅@癿@孡@乛@玪@塾@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm刘@丨@甚@癿@徾@躦@偠@庲@徒@刁@襼@髓@争@髓@丨@甚@癿@，,共@丨@刘@丄@癿@徒@刁@曻@髓@，,髓@亇@癿@徒@刁@曻@佉@。,返@揋@礵@刘@丨@甚@癿@徾@躦@偠@庲@襼@奸@争@髓@丨@甚@癿@，,栜@斴@序@诠@曯@力@兮@泣@髓@丨@甚@，,牴@刦@昪@髓@亇@孡@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@丈@斨@揋@髓@徾@躦@偠@庲@癿@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kAm刘@丨@甚@癿@怶@刁@襼@晩@遈@髓@争@髓@丨@甚@癿@，,共@丨@刘@丄@癿@怶@刁@曻@髓@，,髓@亇@癿@怶@刁@曻@佉@。,返@揋@礵@刘@丨@甚@癿@孡@乛@追@序@怢@襼@奸@争@髓@丨@甚@癿@，,栜@斴@序@诠@曯@力@兮@泣@髓@丨@甚@，,釂@发@盳@序@癿@接@斸@帩@劤@仑@仧@揋@髓@孡@乛@追@序@怢@。,k^Am") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k9am七,、,丈@吇@怢@刦@癿@寴@每@k^9am") & vbCrLf):Response.Write(CJJJCJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2E ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJCJJJ=true:for CCCCCJ=0 to 1:if CCJJJCC(CCCCCJ,1)<2 then CCJCJJJ=false
Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m")):Response.Write  CCJJJCC(CCCCCJ,0):Response.Write(CJJJCJJJ("（,")):Response.Write  CCJJJCC(CCCCCJ,1):Response.Write(CJJJCJJJ("亵@）,k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m昪@吡@巩@廽@昹@葒@（,!k_]_d）,k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):for CCCCCJ=0 to 3:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CJCCCJC(CCCCCJ):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):for CJJJJCJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE5m")):Response.Write  CCJJJCC(CJJJJCJ,CCCCCJ+6):Response.Write(CJJJCJJJ("k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQA\G2=F6Q ,52E2\42=lQ")):Response.Write  CCJCJJJ:Response.Write(CJJJCJJJ("Qmk:?AFE ,EJA6lQ9:556?Q ,G2=F6lQ")):Response.Write  CCJJJCC(0,CCCCCJ+10) & CJJJCJJJ("M") & CCJJJCC(1,CCCCCJ+10):Response.Write(CJJJCJJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCJJJJC=CJJJCJJJ(",V甲@V[V奮@V.")
for CCCCCJ=0 to 3:CCJJJJC=CCJJJJC & CJJJCJJJ("[,") & CCJJJCC(0,CCCCCJ+6) & CJJJCJJJ("[") & CCJJJCC(1,CCCCCJ+6) & CJJJCJJJ("."):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnIl孡@乛@忼@庡@[孡@乛@扻@未@[孡@乛@玪@塾@[徾@躦@偠@庲@UGl")):Response.Write  CCJJJJC:Response.Write(CJJJCJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJCJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCJJJJJ:Response.Write(CJJJCJJJ(" ,U>:55@Ej ,")):Response.Write  CCCJJCJ:Response.Write(CJJJCJJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,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(CJJJCJJJ(" ,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(CJJJCJJJ(" ,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(CJJJCJJJ(" ,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(CJJJCJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJCJJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJJCJJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJCJJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJCJJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJCJJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJJCJJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJCJJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJCJJJ(" ,NX") & vbCrLf):Response.Write(CJJJCJJJ(" ,^^ ,刁@枋@斂@孒@揋@礵@") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWV]2>\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CJJJCJJJ(" ,4@?E6?EiV揋@礵@：,诠@斂@朧@幱@静@钃@寴@栲@朧@癿@宙@陀@刁@枋@，,句@昪@栲@來@，,诲@俘@孓@丵@(@C5斂@桞@吉@臥@衇@俩@攴@斂@孒@。,V[") & vbCrLf):Response.Write(CJJJCJJJ(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CJJJCJJJ(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CJJJCJJJ(" ,NX") & vbCrLf):Response.Write(CJJJCJJJ(" ,^^ ,讜@箒@!倷@") & vbCrLf):Response.Write(CJJJCJJJ(" ,G2C ,AC@8C6DD ,l ,S]p|&x]AC@8C6DD") & vbCrLf):Response.Write(CJJJCJJJ(" ,SW5@4F>6?EX]2;2I$E2CEW7F?4E:@?WX ,LAC@8C6DD]DE2CEWXNX") & vbCrLf):Response.Write(CJJJCJJJ(" ,SW5@4F>6?EX]2;2I$E@AW7F?4E:@?WX ,LAC@8C6DD]5@?6WXNX") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWVE5]A\G2=F6VX]92DWV:?AFEVX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJJ(" ,G2C ,SE5lSWE9:DX") & vbCrLf):Response.Write(CJJJCJJJ(" ,:7WSE5]52E2WV42=VXlllVu2=D6VXLSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJCJJJ(" ,6=D6L") & vbCrLf):Response.Write(CJJJCJJJ(" ,G2C ,5lSE5]49:=5C6?WV:?AFEVX]G2=WX") & vbCrLf):Response.Write(CJJJCJJJ(" ,S]A@DEWV^2A:^!0'2=F6]2D9IV[L5i5N[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJCJJJ(" ,AC@8C6DD]:?4WX") & vbCrLf):Response.Write(CJJJCJJJ(" ,:7W;D@?]4@56lll_XLSE5]E6IEW;D@?]52E2k_]_dnV昪@ViV吡@VXN") & vbCrLf):Response.Write(CJJJCJJJ(" ,6=D6LSE5]E6IEWV\VXN") & vbCrLf):Response.Write(CJJJCJJJ(" ,NX") & vbCrLf):Response.Write(CJJJCJJJ(" ,N") & vbCrLf):Response.Write(CJJJCJJJ(" ,NX") & vbCrLf):Response.Write(CJJJCJJJ("NX") & vbCrLf):Response.Write(CJJJCJJJ("k^D4C:AEm") & vbCrLf)::Function CJJJJCCJ(ByVal CJJCCCJC):Dim CCCCCJ, CCJCCJJ, CCJCJCC, CCJCCJC, CCJCCCJ, CCJCCCC:CCJCCJJ = UBound(CJJCCCJC) + 1:CCJCJCC = 0:For CCCCCJ = 0 To CCJCCJJ - 1:CJJCCCJC(CCCCCJ) = CDbl(CJJCCCJC(CCCCCJ)):CCJCJCC = CCJCJCC + CJJCCCJC(CCCCCJ):Next:CCJCCJC = CCJCJCC / CCJCCJJ:CCJCCCJ = 0:For CCCCCJ = 0 To CCJCCJJ - 1:CCJCCCJ = CCJCCCJ + (CJJCCCJC(CCCCCJ) - CCJCCJC) ^ 2:Next:CCJCCCC = Sqr(CCJCCCJ / CCJCCJJ):CJJJJCCJ = Array(CCJCCJC, CCJCCCC):End Function:Response.Write(vbCrLf):Response.Write(CJJJCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJJJ(ByVal CJJJJCCC)
Dim CCJJJJC, CCCCCJ, CJJJCJJ
CJJJJCCC = Replace(CJJJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CJJJJCCC)
If CCCCCJ <> CJJJCJJ Then
CCJJJJC = AscW(Mid(CJJJJCCC, CCCCCJ, 1))
If CCJJJJC >= 33 And CCJJJJC <= 79 Then
CJJJCJJJ = CJJJCJJJ & Chr(CCJJJJC + 47)
ElseIf CCJJJJC >= 80 And CCJJJJC <= 126 Then
CJJJCJJJ = CJJJCJJJ & Chr(CCJJJJC - 47)
Else
CJJJCJJ = CCCCCJ + 1
If Mid(CJJJJCCC, CJJJCJJ, 1) = Chr(64) Then CJJJCJJJ = CJJJCJJJ & ChrW(CCJJJJC + 5) Else CJJJCJJJ = CJJJCJJJ & Mid(CJJJJCCC, CCCCCJ, 1)
End If
End If
Next
End Function
%>