<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCJC, CJJCCJ,CJJCCC, CJCJJJ, CJCJJC:Set CJJCJC = server.CreateObject(CJJCJJCC("ps~sq]r@??64E:@?")):CJJCJC.open Application(CJJCJJCC("r@??64E:@?$EC:?8")):Set CJJCCJ=CJJCJC::Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ:CCCCJJ=Trim(Request.Cookies(CJJCJJCC("!$*|t|qt#"))):if CCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCJ>0 then
CJCJJC=CJJCJJCC("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") & CJCJCC & CJJCJJCC("V ,2?5 ,:5l") & CJCJCJ
set CJJCCC=CJJCJC.execute(CJCJJC):If CJJCCC.EOF Then
Call ClearMemberCookie
Else
CJCCJJ=CJJCCC(2) & "":CJCCJC=CJJCCC(3):CJCCCJ=CJJCCC(5):CJCCCC=CJJCCC(6):CCJJJJ=CJJCCC(9):CCJJJC=CJJCCC(15):CCJJCC=CJJCCC(0):CCCJCJ=CJJCCC(1):CCCJJC=CJJCCC(11) & "":CCJCJJ=CJJCCC(10) & "":CCJJCJ=CJJCCC(12):CCJCJC=CJJCCC(14):CCJCCJ=CJJCCC(13):CCJCCC=CJJCCC(7) & "":CCCJJJ=CJJCCC(4):CCCJCC=CJJCCC(8):if isnull(CCJJJC) then CCJJJC=0
if isnull(CCJJJJ) or CCJJJJ=0 then CCJJJJ=CJCCJC
if isnull(CCCJJJ) then CCCJJJ=0
if isnull(CJCCCJ) then CJCCCJ=0
if instr(CJJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCC)>0 then Call RedirectMessage(CJJCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJCJ,CJCJCC)
End IF
end if:Sub CheckRight(CJCJCCJ):dim CCCCJC,CCCCCJ:if CJCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCJCC(CJCJCCJ) then
Call RedirectMessage(CJJCJJCC("朾@陋@W") & CJCJCCJ & CJJCJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCJCC(CJCJCCJ):dim CCCCJC,CCCCCJ:CCCCCJ=split(CJCJCCJ,CJJCJJCC("[")):CCCCJCC=False:for CCCCJC=0 to ubound(CCCCCJ):If Mid(CJCCJJ,CCCCCJ(CCCCJC),1)="1" then
CCCCJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJCC("!$*|t|qt#"))="":CJCJCJ=0:CJCCCC=0:CJCJCC=Empty:CJCCCJ=0:CCJJJC=0:CCJJJJ=0:CJCCJC=0:CCJJCC=False:CCCJCJ=False:CCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCC,CJJJJJJ,CCCCJC,CJJJJJC,CJJJJCJ:CCCCCC=split(CCCCJJ,CJJCJJCC("]")):if ubound(CCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCCC(0)) or len(CCCCCC(1))<>32 or len(CCCCCC(2))<>32 then
Call ClearMemberCookie
else
CJJJJJJ=CCCCCC(1):for CCCCJC=1 to len(CJJJJJJ):CJJJJJC=mid(CJJJJJJ,CCCCJC,1):if isnumeric(CJJJJJC) then CJJJJCJ=CJJJJCJ & CJJJJJC
if len(CJJJJCJ)=7 then exit for
next:CJJJJJJ=CCCCCC(2):if CJJJJCJ<>mid(CJJJJJJ,6,7) then
Call ClearMemberCookie
else
CJJJJJC=mid(CJJJJJJ,18,10)/2:if CJJJJJC<DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCJ=Clng(CCCCCC(0)):CJCJCC=CCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCCJC,CJJCJCJJ):dim CCCCJC,CJJJJJC,CJJJJCJ:for CCCCJC=1 to len(CJJCJCJJ):CJJJJJC=mid(CJJCJCJJ,CCCCJC,1):if isnumeric(CJJJJJC) then CJJJJCJ=CJJJJCJ & CJJJJJC
if len(CJJJJCJ)=7 then exit for
next:CJJJJCJ=CJJJCCJC & CJJCJJCC("]") & CJJCJCJJ & CJJCJJCC("]") & Fix(10000*(Rnd+1)) & CJJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCC("!$*|t|qt#"))=CJJJJCJ:End Sub::::Const CCCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCJJCC("FE7\g"):dim CCCCJC,CJJJJJC,CJJJJCC:if isarray(str) then
on error resume next:CCCCJC=ubound(str,2):CJJJJCC=err.number:err.clear:on error goto 0:if CJJJJCC<>0 then
for CCCCJC=0 to ubound(str):if CCCCJC>0 then response.Write CJJCJJCC("k3C ,^m")
response.Write CCCCJC & CJJCJJCC("i ,") & str(CCCCJC):next
else
response.Write CJJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCJC=0 to ubound(str,2):response.Write CJJCJJCC("kE9 ,2=:8?lV=67EVm") & CCCCJC & CJJCJJCC("k^E9m")
next:response.Write CJJCJJCC("k^ECm"):for CCCCJC=0 to ubound(str):response.Write CJJCJJCC("kECmkE9m") & CCCCJC & CJJCJJCC("k^E9m"):for CJJJJJC=0 to ubound(str,2):response.Write CJJCJJCC("kE5m") & str(CCCCJC,CJJJJJC) & CJJCJJCC("k^E5m"):next:response.Write CJJCJJCC("k^ECm"):next:response.Write CJJCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJCJC,CJJCJCCJ):dim CCCCCC:CCCCCC=CJJCJCJC & CJJCJJCC("l") & CJJCJCCJ & CJJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCC("$6E\r@@<:6"),CCCCCC):End Sub::::::sub ShowMessage(CJJCJCCC):response.Charset="utf-8":Response.Write CJJCJJCC("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 & CJJCJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCJJ(CJJJJCC):if isnull(CJJJJCC) or trim(CJJJJCC)="" or not isnumeric(CJJJJCC) then
CCCCCJJ=false
else
Dim CJJJCJJ:Set CJJJCJJ = New RegExp:CJJJCJJ.Pattern = CJJCJJCC("/-5ZS"):CJJJCJJ.IgnoreCase = True:CCCCCJJ = CJJJCJJ.test(CJJJJCC):set CJJJCJJ=nothing
end if:End Function:Function CCCCCJC(CJJCCJJJ):dim CJJJCJC,CJJJCCJ:CJJJCJC=CJJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJJJ & CJJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCJ=CJJCJC.execute(CJJJCJC):CCCCCJC = CJJJCCJ(0):if isnull(CCCCCJC) then CCCCCJC=1
CJJJCCJ.close : set CJJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJCJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJJJCCJ.close : set CJJJCCJ=nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CJJCCC.Close : Set CJJCCC=Nothing:CJJJJJJC.Close : Set CJJJJJJC = Nothing:CJJCJC.Close : Set CJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCC("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCCJJC,CJJCCJCJ):dim str,CJJJJCC:str=CJJCJJCC("!$*0") & Ucase(CJJCCJJC):if Session(str)<>"" then
CJJJJCC=DateDiff(CJJCJJCC("D"),Session(str),Time):if CJJJJCC<CJJCCJCJ and CJJJJCC>0 then
Call ConnClose:Call ShowMessage(CJJCJJCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCCJCJ & CJJCJJCC(" ,种@，,迓@剤@ ,") & CJJCCJCJ-CJJJJCC & CJJCJJCC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCCJCC):dim CCCCJC,CJJJJJC,CJJCJJJ,CJJCJJC:on error resume next:CJJCJJJ=ubound(CJJCCJCC):CJJCJJC=ubound(CJJCCJCC,2):if err.number<>0 then
err.clear:for CCCCJC=0 to CJJCJJJ:CJJCCJCC(CCCCJC)=0:next
else
for CCCCJC=0 to CJJCJJJ:for CJJJJJC=0 to CJJCJJC:CJJCCJCC(CCCCJC,CJJJJJC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCCCJJ):Application.Contents.Remove CJJCCCJJ
End Sub::Class jTree:Private CJCJJC, CJJCJCJ, CJJCJCC, CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Private Sub Class_Initialize():CJJCJCC = 0:CJJCCJJ = 0:CJCJJJJ=10:End Sub:Public Property Let Table(CJJCCCJC):if CJJCCCJC="" then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCJC=CJJCCCJC:CJJCCCJ=CJJCJJCC("!$*0") & UCase(CJJCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCJC:End Property:::Private Sub GetTreeArray():Dim CCCCJC, CJJJJJC, CJCJJJC,CJCJJCJ:CJJCJCJ = Application(CJJCCCJ):If Not IsArray(CJJCJCJ) Then
CJCJJC = CJJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJC:if CJJCCCC<>"" then CJCJJC=CJCJJC & CJJCJJCC(" ,H96C6 ,") & CJJCCCC
set CJCJJJC=CJJCJC.execute(CJCJJC):CJCJJCJ=CJCJJJC(0):if CJCJJCJ=0 then Call RedirectMessage(CJJCJJCC("柠@话@W") & CJJCCJC & CJJCJJCC("^") & CJJCCCC & CJJCJJCC("X沜@朄@绎@林@敫@捩@"))
CJJCCJJ=CJCJJCJ+CJCJJJJ:ReDim CJJCJCJ(CJJCCJJ, 4):CJCJJC = CJJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJC & CJJCJJCC(" ,H:E9 ,W?@=@4<X"):if CJJCCCC<>"" then CJCJJC=CJCJJC & CJJCJJCC(" ,H96C6 ,") & CJJCCCC
CJCJJC=CJCJJC & CJJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJC=CJJCJC.execute(CJCJJC):For CCCCJC = 1 To CJCJJCJ:For CJJJJJC = 0 To 4:CJJCJCJ(CCCCJC, CJJJJJC) = CJCJJJC(CJJJJJC):if IsNull(CJJCJCJ(CCCCJC,4)) then CJJCJCJ(CCCCJC,4)=0
If CJJCJCJ(CCCCJC,2)="" then CJJCJCJ(CCCCJC,2)=CJJCJJCC(",穵@.")
Next:CJCJJJC.MoveNext:Next:CJCJJJC.Close: Set CJCJJJC = Nothing:for CCCCJC=CJJCCJJ-(CJCJJJJ-1) to CJJCCJJ:CJJCJCJ(CCCCJC,0)=CCCCJC:next:Application.Lock():Application(CJJCCCJ) = CJJCJCJ:Application.UnLock()
else
CJJCCJJ=Ubound(CJJCJCJ)
End If:End Sub:::::Private Function CJJJJJCC(CJJJCCJC):dim CCCCJC,CJCJJCC:CJJJJJCC=0:CJCJJCC=CStr(CJJJCCJC):if CJCJJCC<>"0" then
for CCCCJC=1 to CJJCCJJ:If CStr(CJJCJCJ(CCCCJC, 0))=CJCJJCC Then
CJJJJJCC = CCCCJC:Exit For
End If:Next
end if:End Function:Public Function CJJJJCJJ(CJJJCCJC):if Cstr(CJJJCCJC)="0" then
CJJJJCJJ=CJJCJJCC("栴@")
else
Dim CCCCJC,CJCJJJC:CCCCJC=CJJJJJCC(CJJJCCJC):if CCCCJC>0 then
CJJJJCJJ=CJJCJCJ(CCCCJC,2):if CJJJJCJJ="" then
set CJCJJJC=CJJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJCCJC):if CJCJJJC.eof then Call RedirectMessage(CJJCJJCC("xs（,") & CJJJCCJC & CJJCJJCC("）,朥@批@别@"))
CJJJJCJJ=CJCJJJC(1):Call UpdateCache(CJJJCCJC,CJCJJJC(0),CJJJJCJJ,CJCJJJC(2),CJCJJJC(3)):CJCJJJC.Close: Set CJCJJJC = Nothing
end if
else
set CJCJJJC=CJJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJCCJC):if CJCJJJC.eof then Call RedirectMessage(CJJCJJCC("xs（,") & CJJJCCJC & CJJCJJCC("）,朥@批@别@"))
CJJJJCJJ=CJCJJJC(1):Call UpdateCache(CJJJCCJC,CJCJJJC(0),CJJJJCJJ,CJCJJJC(2),CJCJJJC(3)):CJCJJJC.Close: Set CJCJJJC = Nothing
end if
end if:End Function:::Public Function CJJJJCJC(CJJJCCJC):Dim CCCCJC,CJCJCJJ:CCCCJC=CJJJJJCC(CJJJCCJC):if CCCCJC=0 then
CJCJCJJ=CJJJJCCJ(CJJJCCJC)
else
CJCJCJJ=CJJCJCJ(CCCCJC,3):if isnull(CJCJCJJ) or CJCJCJJ="" then
CJCJCJJ=CJJJJCCJ(CJJJCCJC)
elseif Mid(CJCJCJJ,instrrev(CJCJCJJ,CJJCJJCC("["))+1)<>CStr(CJJJCCJC) then
CJCJCJJ=CJJJJCCJ(CJJJCCJC)
elseif Left(CJCJCJJ,1)=CJJCJJCC("[") then
CJCJCJJ=CJJJJCCJ(CJJJCCJC)
end if
end if:CJJJJCJC=CJCJCJJ:End Function:Private Function CJJJJCCJ(CJJJCCJC):dim CJCJJCC:CJCJJCC=CStr(CJJJCCJC):if CJCJJCC="0" then
CJJJJCCJ=""
else
dim CJCJJJC:set CJCJJJC=CJJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJCCJC):if CJCJJJC.eof then
Call UpdateCache(CJJJCCJC,"","","",""):Call RedirectMessage(CJJCJJCC("顴@盩@（,xs：,") & CJJJCCJC & CJJCJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJJC(0)=0 then
CJJJJCCJ="0," & CJJJCCJC
else
CJJJJCCJ=CJJJJCJC(CJCJJJC(0)) & CJJCJJCC("[") & CJJJCCJC
end if:if CJCJJJC(2)<>CJJJJCCJ then
CJJCJC.execute CJJCJJCC("FA52E6 ,") & CJJCCJC & CJJCJJCC(" ,D6E ,A2E9lV") & CJJJJCCJ & CJJCJJCC("V ,H96C6 ,:5l") & CJJJCCJC
else
CJJJJCCJ=CJCJJJC(2)
end if
end if:Call UpdateCache(CJJJCCJC,CJCJJJC(0),CJCJJJC(1),CJJJJCCJ,CJCJJJC(3)):CJCJJJC.Close: Set CJCJJJC = Nothing
end if:End Function::Public Function CJJJJCCC(CJJJCCJC):CJJJJCCC = Mid(CJJJJCJC(CJJJCCJC), 3):End Function:Public Function CJJJCJJJ(CJJJCCJC):Dim CCCCJC, CJJJJJC, CJCJCJC,Str, CJCJCJJ, CJCJCCJ, CCCCCJ():CJCJCJJ = CJJJJCCC(CJJJCCJC):CJCJCJJ = Split(CJCJCJJ, CJJCJJCC("[")):for CCCCJC=0 to Ubound(CJCJCJJ):CJCJCJC=CJCJCJJ(CCCCJC):str=str & CJJCJJCC("M") & CJCJCJC & CJJCJJCC("M") & CJJJJCJJ(CJCJCJC):next:if str<>"" then str=Mid(str,2)
CJJJCJJJ=str:End Function:Public Function IsParent(CJJCCCCJ, CJJCCCCC):IsParent=InStr(CJJJJCJC(CJJCCCCC) & CJJCJJCC("["), CJJCJJCC("[") & CJJCCCCJ & CJJCJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJCCJC):dim CJCJCJJ:CJCJCJJ=CJJJJCJC(CJJJCCJC):Sql_GetChildren = CJJCCJC & CJJCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCJCJJ & CJJCJJCC("[TV")
End Function:::Public Function GetPositionStr_From(CJJJCCJC, CJJJCCJJ):if isnull(CJJJCCJC) or isnull(CJJJCCJJ) then
GetPositionStr_From=CJJCJJCC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCCCJC, CCCCCJ, CJCJCCJ, CJCJCCC:CJJJCCJJ = CStr(CJJJCCJJ):If CJJJCCJJ = "0" or CJJJCCJJ = CStr(CJJJCCJC) Then
Str = CJJJJCJJ(CJJJCCJC)
Else
CCCCCJ = Split(CJJJCJJJ(CJJJCCJC), CJJCJJCC("M")):CJCJCCJ = UBound(CCCCCJ):CJCJCCC = False:For CCCCJC = 0 To CJCJCCJ Step 2:If CCCCCJ(CCCCJC) = CJJJCCJJ And Not CJCJCCC Then CJCJCCC = True
If CJCJCCC Then
If Str <> "" Then Str = Str & CJJCJJCC("→,")
Str = Str & CCCCCJ(CCCCJC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCJJCC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJCCCJ
End Sub:Public Sub UpdateCache(CJJJCCJC,CJCJCJC,CJCJJJJJ,CJCJCJJ,CJCJJJJC):dim CCCCJC,CJJJJJC:CJJJCCJC=CLng(CJJJCCJC):CCCCJC=CJJJJJCC(CJJJCCJC):if CJCJCJC="" and CJCJJJJJ="" and CJCJCJJ="" and CJCJJJJC="" then
if CCCCJC>0 then
for CJJJJJC=1 to 4:CJJCJCJ(CCCCJC,CJJJJJC)=Null:next
end if
else
if CCCCJC=0 then
for CJJJJJC=1 to CJJCCJJ:if CJJCJCJ(CJJJJJC,1) & ""="" then
CCCCJC=CJJJJJC:exit for
end if:next
end if:if CCCCJC=0 then
Call ClearCache
else
CJJCJCJ(CCCCJC,0)=CLng(CJJJCCJC):if CJCJCJC<>"" then CJJCJCJ(CCCCJC,1)=CLng(CJCJCJC)
if CJCJJJJJ<>"" then CJJCJCJ(CCCCJC,2)=CJCJJJJJ
if CJCJCJJ<>"" then CJJCJCJ(CCCCJC,3)=CJCJCJJ
if CJCJJJJC<>"" then CJJCJCJ(CCCCJC,4)=CLng(CJCJJJJC)
end if
end if:if CCCCJC>0 then
Application.Lock():Application(CJJCCCJ) = CJJCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCCCJC():CCCCCJC=CJJJCCCJ+1:End Function:Private Function CJJJCCCJ():dim CJJJCCJ:set CJJJCCJ=CJJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJC & CJJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCJ=CJJJCCJ(0):CJJJCCJ.Close: Set CJJJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CCCCJJC=2:Const CCCCJCJ="症状自评量表(SCL-90)":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJJCC("%6DE0#6A@CE"),30):dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCCJC=Request.QueryString(CJJCJJCC("$49@@=")):CJCCJJJ=Request.QueryString(CJJCJJCC("s6AE")):CJCCJJC=Request.QueryString(CJJCJJCC("vC256")):CJCCJCJ=Request.QueryString(CJJCJJCC("vC@FA")):CJCCJCC=Request.QueryString(CJJCJJCC("E`")):CJCCCJJ=Request.QueryString(CJJCJJCC("Ea")):if not CCCCCJJ(CJCCJJJ) then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJJCJCJ:set CJJCJCJ=new jtree:CJJCJCJ.table=CJJCJJCC(">6>36C0EJA6"):if not CJJCJCJ.IsParent(CJCCJC,CJCCJJJ) then Call RedirectMessage(CJJCJJCC("诠@苾@囯@W") & CJCCJJJ & CJJCJJCC("X丈@圣@患@W") & CJCCJC & CJJCJJCC("X癿@箜@琁@苾@囯@冀@。,"))
dim CJCCCCJ:CJCCCCJ=CJJCJCJ.GetPositionStr_From(CJCCJJJ,CJCCCJC):dim CJCCCCC(10),CCJJJJJ(10):CJCJJC=CJJCJJCC("D6=64E ,?2>6[6IA=2:? ,7C@> ,=3724E@C ,H96C6 ,=3l") & CCCCJJC & CJJCJJCC(" ,@C56C ,3J ,D@CE"):set CJJCCC=CJJCJC.execute(CJCJJC):for CCCCJC=0 to 10:CJCCCCC(CCCCJC)=CJJCCC(0):CCJJJJJ(CCCCJC)=CJJCCC(1):CJJCCC.movenext:next:dim CCCCJC,CJJJJJC,CJJJJCJ,CCJJJJC,CCJJJCJ,CCJJJCC:dim CCJJCJJ(1,23):Call ArrayInit(CCJJCJJ):CCJJCJJ(0,0)=CJJCJJCC("甲@"):CCJJCJJ(1,0)=CJJCJJCC("奮@"):dim CCCCCJ,CCJJCJC,CCJJCCJ,CCJJCCC:dim CCJCJJJ,CCJCJJC:CCJCJJJ=Date:CCJCJJC=cdate(CJJCJJCC("a___\`\`")):dim CCJCJCJ(10,5):Call ArrayInit(CCJCJCJ):dim CCJCJCC(10,2):Call ArrayInit(CCJCJCC):dim CCJCCJJ(89,2):set CJJCCC=CJJCJC.execute(CJJCJJCC("D6=64E ,BF6DE:@? ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CCCCJJC & CJJCJJCC(" ,@C56C ,3J ,D@CE")):for CCCCJC=0 to ubound(CCJCCJJ):CCJCCJJ(CCCCJC,0)=CCCCJC+1:CCJCCJJ(CCCCJC,1)=CJJCCC(0):CCJCCJJ(CCCCJC,2)=0:CJJCCC.movenext:next:dim CCJCCJC:CCJCCJC=Array(0,0,0,0,0):CJCJJC=CJJCJJCC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60E[2?DH6C[E6DE286[C62=?2>6[?F>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJJC & CJJCJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJJJ)=cstr(CJCCCJC) then CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCJC else CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,") & CJJCJCJ.Sql_GetChildren(CJCCJJJ)
if CCCCCJJ(CJCCJJC) then CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,8C256l") & CJCCJJC
if CCCCCJJ(CJCCJCJ) then CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCJ
if isdate(CJCCJCC) then CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,52E6E:>6mlV") & CJCCJCC & CJJCJJCC("V")
if isdate(CJCCCJJ) then CJCJJC=CJCJJC & CJJCJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCJJ)+1 & CJJCJJCC("V")
set CJJCCC=CJJCJC.execute(CJCJJC):if CJJCCC.eof then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CJJCCC.eof:CJJJJCJ=CJJCCC(1):if CJJJJCJ<CCJCJJJ then CCJCJJJ=CJJJJCJ
if CJJJJCJ>CCJCJJC then CCJCJJC=CJJJJCJ
if isnull(CJJCCC(3)) then Call RedirectMessage(CJJCCC(6) & CJJCJJCC("W") & CJJCCC(7) & CJJCJJCC("X癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@，,诲@柠@话@凵@杠@吉@创@陟@！,"))
CCCCCJ=split(CJJCCC(3),CJJCJJCC("M")):for CCCCJC=0 to 10:CCCCCJ(CCCCJC)=csng(CCCCCJ(CCCCJC)):CCJCJCJ(CCCCJC,0)=CCJCJCJ(CCCCJC,0) & CJJCJJCC("M") & CCCCCJ(CCCCJC):next:for CCCCJC=0 to 10:CJJJJCJ=CCCCCJ(CCCCJC):if CJJJJCJ>=4 then
CCJCJCC(CCCCJC,2)=CCJCJCC(CCCCJC,2)+1:CCJCJCJ(CCCCJC,5)=CCJCJCJ(CCCCJC,5)+1
elseif CJJJJCJ>=3 then
CCJCJCC(CCCCJC,1)=CCJCJCC(CCCCJC,1)+1:CCJCJCJ(CCCCJC,5)=CCJCJCJ(CCCCJC,5)+1
elseif CJJJJCJ>=2.5 then
CCJCJCC(CCCCJC,0)=CCJCJCC(CCCCJC,0)+1:CCJCJCJ(CCCCJC,4)=CCJCJCJ(CCCCJC,4)+1
else
CCJCJCJ(CCCCJC,3)=CCJCJCJ(CCCCJC,3)+1
end if:next:if CJJCCC(2) then CJJJJJC=0 else CJJJJJC=1
CCJJCJJ(CJJJJJC,1)=CCJJCJJ(CJJJJJC,1)+1:for CCCCJC=0 to 10:CJJJJCJ=CCCCJC+2:CCJJCJJ(CJJJJJC,CJJJJCJ)=CCJJCJJ(CJJJJJC,CJJJJCJ) & CJJCJJCC("M") & CCCCCJ(CCCCJC):if CCCCCJ(CCCCJC)>=2.5 then
CJJJJCJ=CCCCJC+13:CCJJCJJ(CJJJJJC,CJJJJCJ)=CCJJCJJ(CJJJJJC,CJJJJCJ)+1
end if:next:CCJJCCC=CCJJCCC & CJJCJJCC("M") & CJJCCC(5):CCCCCJ=split(CJJCCC(4),CJJCJJCC("M")):for CCCCJC=0 to ubound(CCJCCJJ):CJJJJCJ=cint(CCCCCJ(CCCCJC)):if CJJJJCJ>=3 then CCJCCJJ(CCCCJC,2)=CCJCCJJ(CCCCJC,2)+1
if CCCCJC=14 then
CJJJJCJ=CJJJJCJ-1:CCJCCJC(CJJJJCJ)=CCJCCJC(CJJJJCJ)+1
end if:next:CCJJCJC=CCJJCJC+1:CJJCCC.movenext:wend:for CCCCJC=0 to ubound(CCJCJCJ):CCCCCJ=CJJCJJJJ(split(Mid(CCJCJCJ(CCCCJC,0),3),CJJCJJCC("M"))):CCJCJCJ(CCCCJC,1)=FormatNumber(CCCCCJ(0),2,-1):CCJCJCJ(CCCCJC,2)=FormatNumber(CCCCCJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJCC("k9625m") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJJCC("kE:E=6m")):Response.Write  CJCCCCJ:Response.Write(CJJCJJCC("\")):Response.Write  CCCCJCJ:Response.Write(CJJCJJCC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCJJCC("kDEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("DA2?]F?56C=:?6 ,L ,E6IE\564@C2E:@?i ,F?56C=:?6j ,N") & vbCrLf):Response.Write(CJJCJJCC("DA2?]F?56C=:?6ii367@C6 ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CJJCJJCC("DA2?]F?56C=:?6ii27E6C ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CJJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCJJCC("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(CJJCJJCC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("k^9625m") & vbCrLf):Response.Write(CJJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k9`mkD>2==m")):Response.Write  CJCCCCJ:Response.Write(CJJCJJCC("k^D>2==mk3Cm")):Response.Write  CCCCJCJ:Response.Write(CJJCJJCC("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm痂@犱@臥@访@释@衣@（,$J>AE@> ,r964<=:DE ,h_，,筻@秫@$r{h_）,甬@{] ,#] ,s6C@82E:D争@`hfd幯@缑@刱@，,否@朄@h_严@顴@盩@，,毊@顴@d红@访@刁@。,孾@浆@释@轾@幺@泖@癿@粹@祙@痂@犱@孡@冀@宴@，,匀@拧@愚@规@、,惀@愚@、,怘@绯@、,愊@证@、,衇@丵@、,甚@洶@乛@惪@、,亵@陀@兮@糶@、,饩@飚@睜@眛@筄@，,襼@氽@袦@诐@栴@捩@臥@巬@癿@宙@陀@惀@冰@杠@偕@访@宕@，,浆@徒@癿@昪@一,严@亵@圣@柋@殰@旱@闯@采@（,逕@帳@昪@曻@迌@一,呣@）,癿@痂@犱@氯@幮@。,朧@释@衣@佺@産@筻@侺@，,浆@柠@觍@庡@兣@靝@。,孾@寴@朄@只@胸@壿@争@徾@琁@隗@碈@辴@缓@癿@亵@朄@艪@奸@癿@匵@刁@劚@胸@，,追@産@争@浆@柠@亵@羟@丨@哥@亖@亵@只@胸@朄@徾@琁@隗@碈@、,朄@佐@秈@徾@琁@隗@碈@叅@共@丠@釈@稆@庡@好@佐@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm诠@释@衣@丶@襼@浆@柠@浆@诐@羟@低@圣@匼@严@四@孋@丅@癿@惀@冰@，,匼@严@四@孋@叿@臥@癿@宕@乄@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,`）,躪@低@匑@，,匀@拧@`a严@顴@盩@。,诠@四@孋@丶@襼@又@昛@丶@覽@癿@躦@低@丈@追@愚@，,匀@拧@徾@蠻@箜@、,肾@肛@過@、,呷@吳@過@糶@绚@丶@评@丈@追@，,咇@夯@痖@、,胇@痖@、,肇@肄@酳@痖@叅@無@虌@癿@共@仑@躪@低@衣@玫@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,a）,張@迦@痂@犱@，,匀@拧@`_严@顴@盩@。,诠@四@孋@丶@襼@昪@挂@邞@亖@昉@矠@沜@朄@忀@襼@佁@參@旛@泐@摁@脬@癿@旛@愊@乄@癿@怘@惮@、,冭@劣@、,衇@丵@筄@衣@玫@，,迓@朄@一,亖@每@轾@一,舧@癿@愚@矠@隗@碈@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,b）,亵@陀@兮@糶@敊@愚@，,匀@拧@h严@顴@盩@。,诠@四@孋@丶@襼@挂@柋@亖@严@亵@癿@丈@臥@圣@愚@咇@臥@卌@愚@，,尟@共@昪@三@共@仑@亵@盳@每@轾@旱@曯@丵@穼@凵@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,c）,抌@邼@，,匀@拧@`b严@顴@盩@。,诠@四@孋@又@昛@癿@昪@三@丯@庅@丅@抌@邼@痂@犱@羟@盳@聏@糶@癿@幺@泖@楽@忰@。,抌@邼@苡@闲@癿@愚@惀@咇@徾@塾@昪@仞@衣@怢@痂@犱@，,孾@迓@仠@寴@甚@洶@癿@兯@趞@凊@迻@、,缵@乊@洶@劣@愺@朖@、,丢@夬@洶@劣@劖@筄@丵@牴@彼@，,幱@匀@拧@夬@朖@、,悭@伟@仠@叅@三@抌@邼@盳@聏@糶@癿@共@仑@愚@矠@咇@躪@低@斴@靝@癿@闩@颓@。,诠@四@孋@涄@叅@别@臥@朻@愊@同@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,d）,無@虌@，,匀@拧@`_严@顴@盩@。,诠@四@孋@匀@拧@一,亖@逕@帳@圣@丯@庅@丅@昉@昹@三@無@虌@痂@犱@盳@聏@糶@癿@痂@犱@咇@低@骇@。,無@虌@一,舧@昪@挂@邞@亖@旛@泐@镂@靔@、,祙@绊@迂@敊@、,索@弛@仠@叅@甬@歟@亢@甚@癿@躪@低@痂@僊@（,好@霂@颟@）,。,邞@秈@渳@禶@丈@宕@癿@無@虌@叅@情@恋@双@佗@昪@朧@四@孋@癿@丶@襼@冀@宴@，,孾@迓@匀@拧@一,严@又@昛@“,觞@低@”,癿@顴@盩@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,e）,敇@寴@，,匀@拧@e严@顴@盩@。,诠@四@孋@丶@襼@昪@仉@怘@惮@、,惀@绥@咇@衇@丵@丄@严@斴@靝@杠@又@昛@敇@寴@衣@玫@。,共@顴@盩@丨@匀@拧@亁@仉@厇@烡@、,亄@讵@、,摏@牤@盯@臮@亄@斒@咇@丈@只@抌@刱@癿@冭@劣@爁@双@筄@叿@严@斴@靝@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,f）,恋@惢@，,匀@拧@f严@顴@盩@。,诠@四@孋@三@伛@绚@癿@恋@惢@犱@忼@我@幺@圵@恋@惢@痂@戻@又@昛@癿@冀@宴@埵@朧@一,臯@，,恋@惢@癿@寴@豜@匀@拧@凵@闣@旀@衇@、,穵@旲@圵@圫@、,亵@羟@我@內@公@圵@吃@仠@叅@亟@逕@巠@兲@筄@。,歟@夑@，,迓@匀@拧@礹@亟@恋@惢@癿@顴@盩@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,g）,偊@扢@，,匀@拧@e严@顴@盩@。,诠@四@孋@丶@襼@挂@癿@昪@怘@绯@斴@靝@，,好@抐@寿@怢@怘@绯@、,敇@寴@、,猗@疌@、,兮@糶@奿@惮@、,袦@劣@梻@骇@咇@夳@夢@筄@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,h）,粹@祙@痀@怢@，,匀@拧@`_严@顴@盩@。,诠@四@孋@匀@拧@并@规@、,怘@绯@涞@敞@、,袦@探@刱@愚@、,怘@绯@袦@揍@兠@筄@又@昛@粹@祙@刁@袽@痂@犱@癿@顴@盩@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,`_）,共@仑@，,匀@拧@f严@颓@盩@，,诠@四@孋@昪@又@昛@睜@眛@叅@饩@飚@惀@冰@癿@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm")):Response.Write  formatdatetime(CCJCJJJ,1):Response.Write(CJJCJJCC("～,")):Response.Write  formatdatetime(CCJCJJC,1):Response.Write(CJJCJJCC("k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m亵@敫@：, ,朧@欜@浆@访@釂@産@罌@绗@浆@访@癿@斴@弊@，,宙@浆@亵@敫@")):Response.Write  CCJJCJC:Response.Write(CJJCJJCC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m怢@刦@：, ,甲@怢@")):Response.Write  CCJJCJJ(0,1):Response.Write(CJJCJJCC("亵@，,奮@怢@")):Response.Write  CCJJCJJ(1,1):Response.Write(CJJCJJCC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m幯@齿@：,") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCCCCJ=CJJJCCCC(split(Mid(CCJJCCC,2),CJJCJJCC("M"))):response.Write CJJCJJCC("曻@夢@幯@齿@：,") & CCCCCJ(0) & CJJCJJCC("，,曻@尊@幯@齿@：,") & CCCCCJ(1) & CJJCJJCC("，,幮@坂@幯@齿@：,") & formatnumber(CCCCCJ(3),2,-1) & CJJCJJCC("，,栂@凁@巩@：,") & formatnumber(CCCCCJ(4),2,-1) & CJJCJJCC("。,"):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bm`．,怶@刁@咇@匼@严@四@孋@徒@刁@癿@幮@坂@敫@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJJJJC="":CCJJJCJ="":for CCCCJC=0 to 10:CCJJJJC=CCJJJJC & CJJCJJCC("[") & CJCCCCC(CCCCJC):CCJJJCJ=CCJJJCJ & CJJCJJCC("[,") & CCJCJCJ(CCCCJC,1) & CJJCJJCC("[") & CCJCJCJ(CCCCJC,2) & CJJCJJCC("."):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCCCJC+1:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):Response.Write  CJCCCCC(CCCCJC):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQ>\D5Q ,G2=F6lQ")):Response.Write  Mid(CCJCJCJ(CCCCJC,0),3):Response.Write(CJJCJJCC("Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCJCJ(CCCCJC,1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCJCJ(CCCCJC,2):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJJJCJ=CJJCJJCC("L|i,"):for CCCCJC=0 to 10:if CCCCJC>0 then CCJJJCJ=CCJJJCJ & CJJCJJCC("[")
CCJJJCJ=CCJJJCJ & CCJCJCJ(CCCCJC,1):next:CCJJJCJ=CCJJJCJ & CJJCJJCC(".[$si,"):for CCCCJC=0 to 10:if CCCCJC>0 then CCJJJCJ=CCJJJCJ & CJJCJJCC("[")
CCJJJCJ=CCJJJCJ & CCJCJCJ(CCCCJC,2):next:CCJJJCJ=CCJJJCJ & CJJCJJCC(".N"):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l6CC@C32CU9lb__UIl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJCJJCC("UGl")):Response.Write  CCJJJCJ:Response.Write(CJJCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma．,阮@怢@梻@浆@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,C@HDA2?lQaQm}l")):Response.Write  CCJJCJC:Response.Write(CJJCJJCC("k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQmb＞,四@孋@刁@≥,a]dk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQmc＞,四@孋@刁@≥,bk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm四@孋@刁@≥,ck^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m每@玂@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m每@玂@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m每@玂@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCJC=0 to 10:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CJCCCCC(CCCCJC):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCJCC(CCCCJC,0):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCJCJCC(CCCCJC,0)/CCJJCJC,1,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCJCC(CCCCJC,1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCJCJCC(CCCCJC,1)/CCJJCJC,1,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCJCC(CCCCJC,2):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCJCJCC(CCCCJC,2)/CCJJCJC,1,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kA ,4=2DDlQ2>\E6IE\D>Qm泣@：,b＞,四@孋@刁@≥,a]d丵@轶@庡@痂@犱@；,c＞,四@孋@刁@≥,b丵@丨@庡@痂@犱@；,四@孋@刁@≥,c丵@釈@庡@痂@犱@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmb．,兲@低@刁@枋@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCJC=0 to 10:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k9cm【,")):Response.Write  CJCCCCC(CCCCJC):Response.Write(CJJCJJCC("】,k^9cm") & vbCrLf):Response.Write(CJJCJJCC(" ,kA ,4=2DDlQ2>\2CE:4=6\=625Qm")):Response.Write  CCJJJJJ(CCCCJC):Response.Write(CJJCJJCC("k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm圣@浆@柠@羟@低@丨@，,朄@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  CCJCJCJ(CCCCJC,3):Response.Write(CJJCJJCC("k^DA2?m亵@昪@歞@帳@癿@，,戻@卛@每@來@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  formatpercent(CCJCJCJ(CCCCJC,3)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^DA2?m；,朄@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  CCJCJCJ(CCCCJC,4):Response.Write(CJJCJJCC("k^DA2?m亵@孓@圣@轶@庡@痂@犱@，,戻@卛@每@來@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  formatpercent(CCJCJCJ(CCCCJC,4)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^DA2?m；,朄@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  CCJCJCJ(CCCCJC,5):Response.Write(CJJCJJCC("k^DA2?m亵@只@胸@孓@圣@丨@、,釈@庡@闩@颓@，,戻@卛@每@來@丵@kDA2? ,4=2DDlQF?56C=:?6Qm")):Response.Write  formatpercent(CCJCJCJ(CCCCJC,5)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^DA2?m。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M轶@庡@M丨@釈@庡@UGl")):Response.Write  CCJCJCJ(CCCCJC,3) & CJJCJJCC("[") & CCJCJCJ(CCCCJC,4) & CJJCJJCC("[") & CCJCJCJ(CCCCJC,5):Response.Write(CJJCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am亏@、,丈@吇@怢@刦@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bm`．,叿@四@孋@徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,C@HDA2?lQaQm怢@刦@^四@孋@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm甲@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm奮@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):dim CCJCCCJ,CCJCCCC:CCJJJJC="":CCJCCCJ=CJJCJJCC("LV?2>6ViV甲@V[V52E2Vi,")
CCJCCCC=CJJCJJCC("LV?2>6ViV奮@V[V52E2Vi,")
for CCCCJC=0 to 10:CCJJJJC=CCJJJJC & CJJCJJCC("[") & CJCCCCC(CCCCJC):if CCCCJC>0 then
CCJCCCJ=CCJCCCJ & CJJCJJCC("["):CCJCCCC=CCJCCCC & CJJCJJCC("[")
end if:CJJJJCJ=CCCCJC+2:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CJCCCCC(CCCCJC):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCCCCJ=CJJCJJJJ(split(Mid(CCJJCJJ(0,CJJJJCJ),3),CJJCJJCC("M"))):CCJJCCJ=formatnumber(CCCCCJ(0),2,-1):CCJCCCJ=CCJCCCJ & CCJJCCJ:response.Write CCJJCCJ:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatnumber(CCCCCJ(1),2,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCCCCJ=CJJCJJJJ(split(Mid(CCJJCJJ(1,CJJJJCJ),3),CJJCJJCC("M"))):CCJJCCJ=formatnumber(CCCCCJ(0),2,-1):CCJCCCC=CCJCCCC & CCJJCCJ:response.Write CCJJCCJ:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatnumber(CCCCCJ(1),2,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:CCJCCCJ=CCJCCCJ & CJJCJJCC(".N"):CCJCCCC=CCJCCCC & CJJCJJCC(".N"):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl")):Response.Write  mid(CCJJJJC,2):Response.Write(CJJCJJCC("UGl")):Response.Write  CJJCJJCC(",") & CCJCCCJ & CJJCJJCC("[") & CCJCCCC & CJJCJJCC("."):Response.Write(CJJCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma．,阮@怢@痂@犱@亵@敫@咇@阮@怢@梻@凵@玂@覼@丆@衣@：,k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4=2DDlQ2>\E6IE\>:55=6Q ,4@=DA2?lQaQ ,C@HDA2?lQaQm}l")):Response.Write  CCJJCJC:Response.Write(CJJCJJCC("k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm甲@甚@阮@怢@痂@犱@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,4@=DA2?lQaQm奮@甚@阮@怢@痂@犱@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCJC=0 to 10:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCCCJC+1:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CJCCCCC(CCCCJC):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJJCJJ(0,CCCCJC+13):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCJJCJJ(0,CCCCJC+13)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJJCJJ(1,CCCCJC+13):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCJJCJJ(1,CCCCJC+13)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am全@、,兮@锩@颓@盩@徒@刁@惀@冰@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bm`．,b刁@仠@丅@帳@覼@癿@匼@夢@痂@犱@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm栲@朧@丨@逄@拤@Q痂@犱@丨@筄@叅@仠@丅@Q曻@夕@癿@`_严@痂@犱@k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m掍@床@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m颓@史@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m颓@盩@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m癹@刁@每@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCCCCJ=CJJCJJJC(CCJCCJJ,2):for CCCCJC=0 to 9:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCCCJC+1:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCCCCJ(CCCCJC,0):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CCCCCJ(CCCCJC,1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCCCCJ(CCCCJC,2):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  formatpercent(CCCCCJ(CCCCJC,2)/CCJJCJC,2,-1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma．,笧@`d颓@徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m徒@刁@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m`k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mak^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mbk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mck^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mdk^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCCJC(0):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCCJC(1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCCJC(2):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCCJC(3):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  CCJCCJC(4):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm笧@`d颓@丵@抌@邼@四@孋@丨@癿@一,杜@颓@盩@，,颓@盩@丵@“,惮@绎@杚@臥@巬@癿@甚@呸@”,，,仉@衣@丨@只@仠@眆@凵@，,徒@刁@≥,b刁@卮@逄@拤@丨@庡@、,偊@釈@、,丠@釈@癿@亵@敫@朄@")):Response.Write  CCJCCJC(2)+CCJCCJC(3)+CCJCCJC(4):Response.Write(CJJCJJCC("亵@，,電@襼@寴@返@郣@刁@亵@羟@迖@衇@釈@炴@兮@泣@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bm`．,晩@叅@徾@琁@卦@甚@矠@证@咇@徾@琁@俘@偠@矠@证@，,伛@掃@徾@琁@俘@偠@扻@胸@。,k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,`）,兀@刁@判@産@橬@窒@栊@、,幺@撨@、,罌@竔@筄@媍@仆@，,实@伛@、,晩@叅@徾@琁@偠@庲@矠@证@，,揋@髓@浆@诐@亵@呓@癿@徾@琁@俘@偠@癿@愊@证@，,墙@镺@徾@琁@偠@庲@癿@矠@证@。,抠@刅@、,田@见@、,幺@撨@田@叫@昪@寴@浆@诐@亵@呓@讟@矠@双@甚@轾@夢@彬@哈@佗@産@癿@礹@伕@俜@恪@伛@撨@媍@仆@，,戻@仠@戌@仧@襼@兀@刁@判@産@返@坒@敔@肭@阰@圫@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,a）,栴@捩@浆@诐@亵@呓@公@朄@癿@徾@琁@闩@颓@，,叅@旱@丹@劙@叿@秈@与@颓@训@庢@我@囝@低@徾@琁@辀@寷@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,b）,廻@屐@严@刦@咣@话@，,逕@迂@靝@调@、,俜@凸@、,田@诘@、,罌@丅@圣@纺@亟@洼@筄@彝@弊@廻@屐@严@低@咣@话@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm（,c）,釂@産@庢@调@、,桃@來@刁@枋@、,徾@琁@田@彬@、,囝@低@讨@纾@筄@彝@弊@，,迖@衇@徾@琁@偠@庲@敔@肭@。,钃@寴@丈@吇@癿@徾@琁@闩@颓@籶@垆@，,廻@讹@丈@吇@癿@诹@稆@，,圣@尸@只@胸@夢@癿@苾@囯@冀@釈@见@徾@琁@四@紛@寴@共@亢@甚@癿@彬@哈@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma．,秪@杼@廻@屐@徾@琁@讨@纾@，,揋@髓@徾@琁@臥@戌@课@艽@胸@劖@。,k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm郣@刁@亵@呓@只@胸@严@怢@懡@弬@、,缵@乊@臥@俜@、,孟@僶@冀@同@、,狧@竆@甚@洶@胸@劖@轾@巩@，,四@耇@仑@仧@癿@徾@琁@紛@责@盳@寴@轾@佉@，,亵@陀@亟@彻@丈@半@课@癿@犱@冰@轾@夕@。,钃@寴@返@一,玫@犱@，,只@仠@线@绂@共@迖@衇@夕@欜@癿@徾@琁@紛@责@讨@纾@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmb．,秪@杼@廻@屐@寴@曹@朄@徾@琁@闩@颓@亵@呓@癿@迸@论@巠@佗@。,k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm寴@徾@琁@偠@庲@晩@柠@丨@孓@朄@徾@琁@闩@颓@癿@亵@呓@迖@衇@迸@论@，,盩@癿@昪@亁@觞@仑@仧@逕@迂@徾@琁@咣@话@吉@徾@琁@癿@双@屐@叓@匑@好@佐@，,亁@觞@仑@仧@圣@觞@冮@冀@徾@苡@恷@、,囫@惌@旱@釂@産@癿@兲@低@斴@泐@咇@侘@靛@癿@贿@溋@，,仠@揋@髓@徾@琁@咣@话@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCJJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCCCCJ:Response.Write(CJJCJJCC(" ,U>:55@Ej ,")):Response.Write  CCCCJCJ:Response.Write(CJJCJJCC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,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(CJJCJJCC(" ,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(CJJCJJCC(" ,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(CJJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJCJJCC(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJCJJCC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCJJCC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCJJCC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCJJCC(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJCJJCC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCJJCC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCJJCC(" ,NX") & vbCrLf):Response.Write(CJJCJJCC("NX") & vbCrLf):Response.Write(CJJCJJCC("k^D4C:AEm") & vbCrLf)::Function CJJJCCCC(ByVal CJJCCJCC):Dim CCCCJC,CJJJJJC,CJJJJCC, CCCJJJJ, CCCJJJC, CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCJJCCJ:CJJJJCC = UBound(CJJCCJCC):if CJJJJCC<0 then
CJJJCCCC=Array(0,0,0,0,0):exit function
end if:CCCJJJJ = 0:For CCCCJC = 0 To CJJJJCC:CJJCCJCC(CCCCJC) = CDbl(CJJCCJCC(CCCCJC)):CCCJJJJ = CCCJJJJ + CJJCCJCC(CCCCJC):Next:for CCCCJC=1 to CJJJJCC:for CJJJJJC=CJJJJCC to CCCCJC step -1:if CJJCCJCC(CJJJJJC)<CJJCCJCC(CJJJJJC-1) then
CCJJCCJ=CJJCCJCC(CJJJJJC):CJJCCJCC(CJJJJJC)=CJJCCJCC(CJJJJJC-1):CJJCCJCC(CJJJJJC-1)=CCJJCCJ
end if:next:next:CCCJCJJ=CJJCCJCC(CJJJJCC):CCCJCJC=CJJCCJCC(0):CJJJJCC=CJJJJCC+1:if CJJJJCC mod 2=0 then
CCCCJC=CJJJJCC/2:CCCJCCJ=(CJJCCJCC(CCCCJC-1)+CJJCCJCC(CCCCJC))/2
else
CCCCJC=(CJJJJCC-1)/2:CCCJCCJ=CJJCCJCC(CCCCJC)
end if:CCCJJJC = CCCJJJJ / CJJJJCC:CCCJJCJ = 0:For CCCCJC = 0 To CJJJJCC - 1:CCCJJCJ = CCCJJCJ + (CJJCCJCC(CCCCJC) - CCCJJJC) ^ 2:Next:CCCJJCC = Sqr(CCCJJCJ / CJJJJCC):CJJJCCCC = Array(CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJJJC,CCCJJCC):End Function:Function CJJCJJJJ(ByVal CJCJJJCC):Dim CCCCJC, CCCJCCC, CCCJJJJ, CCCJJJC, CCCJJCJ, CCCJJCC:CCCJCCC = UBound(CJCJJJCC) + 1:if CCCJCCC=0 then
CJJCJJJJ = Array(0, 0)
else
CCCJJJJ = 0:For CCCCJC = 0 To CCCJCCC - 1:CJCJJJCC(CCCCJC) = CDbl(CJCJJJCC(CCCCJC)):CCCJJJJ = CCCJJJJ + CJCJJJCC(CCCCJC):Next:CCCJJJC = CCCJJJJ / CCCJCCC:CCCJJCJ = 0:For CCCCJC = 0 To CCCJCCC - 1:CCCJJCJ = CCCJJCJ + (CJCJJJCC(CCCCJC) - CCCJJJC) ^ 2:Next:CCCJJCC = Sqr(CCCJJCJ / CCCJCCC):CJJCJJJJ = Array(CCCJJJC, CCCJJCC)
end if:End Function:Function CJJCJJJC(byval CJJCCJCC,CJJJJCC):dim CCCCJC,CJJJJJC,CJJJJCJ,CJJCJJJ,CJJCJJC,CCCCCJ(),CCJJCCJ:on error resume next:CJJCJJJ=ubound(CJJCCJCC):CJJCJJC=ubound(CJJCCJCC,2):on error goto 0:if err.number<>0 then
err.clear:for CCCCJC=1 to CJJCJJJ:for CJJJJJC=CJJCJJJ to CCCCJC step -1:if CJJCCJCC(CJJJJJC)>CJJCCJCC(CJJJJJC-1) then
CCJJCCJ=CJJCCJCC(CJJJJJC):CJJCCJCC(CJJJJJC)=CJJCCJCC(CJJJJJC-1):CJJCCJCC(CJJJJJC-1)=CCJJCCJ
end if:next:next
else
redim CCCCCJ(CJJCJJC):for CCCCJC=1 to CJJCJJJ:for CJJJJJC=CJJCJJJ to CCCCJC step -1:if CJJCCJCC(CJJJJJC,CJJJJCC)>CJJCCJCC(CJJJJJC-1,CJJJJCC) then
for CJJJJCJ=0 to CJJCJJC:CCCCCJ(CJJJJCJ)=CJJCCJCC(CJJJJJC,CJJJJCJ):CJJCCJCC(CJJJJJC,CJJJJCJ)=CJJCCJCC(CJJJJJC-1,CJJJJCJ):CJJCCJCC(CJJJJJC-1,CJJJJCJ)=CCCCCJ(CJJJJCJ):next
end if:next:next
end if:CJJCJJJC=CJJCCJCC:End Function:Response.Write(vbCrLf):Response.Write(CJJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCC.Close:Set CJJCCC=Nothing:CJJCJC.Close:Set CJJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJCC(ByVal CJJCJJCJ)
Dim CCJJJCJ, CCCCJC, CJJJJCC
CJJCJJCJ = Replace(CJJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCJC = 1 To Len(CJJCJJCJ)
If CCCCJC <> CJJJJCC Then
CCJJJCJ = AscW(Mid(CJJCJJCJ, CCCCJC, 1))
If CCJJJCJ >= 33 And CCJJJCJ <= 79 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJJCJ + 47)
ElseIf CCJJJCJ >= 80 And CCJJJCJ <= 126 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJJCJ - 47)
Else
CJJJJCC = CCCCJC + 1
If Mid(CJJCJJCJ, CJJJJCC, 1) = Chr(64) Then CJJCJJCC = CJJCJJCC & ChrW(CCJJJCJ + 5) Else CJJCJJCC = CJJCJJCC & Mid(CJJCJJCJ, CCCCJC, 1)
End If
End If
Next
End Function
%>