<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCJ, CCJJCC,CCJCJJ, CCJCJC, CCJCCJ:Set CCJJCJ = server.CreateObject(CJJCCCJJ("ps~sq]r@??64E:@?")):CCJJCJ.open Application(CJJCCCJJ("r@??64E:@?$EC:?8")):Set CCJJCC=CCJJCJ::Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC:CJJCJJC=Trim(Request.Cookies(CJJCCCJJ("!$*|t|qt#"))):if CJJCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCC>0 then
CCJCCJ=CJJCCCJJ("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") & CCCJJJ & CJJCCCJJ("V ,2?5 ,:5l") & CCJCCC
set CCJCJJ=CCJJCJ.execute(CCJCCJ):If CCJCJJ.EOF Then
Call ClearMemberCookie
Else
CCCJJC=CCJCJJ(2) & "":CCCJCJ=CCJCJJ(3):CCCJCC=CCJCJJ(5):CCCCJJ=CCJCJJ(6):CCCCJC=CCJCJJ(9):CCCCCJ=CCJCJJ(15):CJJJJJJ=CCJCJJ(0):CJJJCCC=CCJCJJ(1):CJJJCCJ=CCJCJJ(11) & "":CJJJJJC=CCJCJJ(10) & "":CCCCCC=CCJCJJ(12):CJJJJCJ=CCJCJJ(14):CJJJJCC=CCJCJJ(13):CJJJCJJ=CCJCJJ(7) & "":CJJJCJC=CCJCJJ(4):CJJCJJJ=CCJCJJ(8):if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCCCJC) or CCCCJC=0 then CCCCJC=CCCJCJ
if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CCCJCC) then CCCJCC=0
if instr(CJJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJJ)>0 then Call RedirectMessage(CJJCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCCC,CCCJJJ)
End IF
end if:Sub CheckRight(CCJJJCC):dim CJJCJCJ,CJJCJCC:if CCJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJJCJC(CCJJJCC) then
Call RedirectMessage(CJJCCCJJ("朾@陋@W") & CCJJJCC & CJJCCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJJCJC(CCJJJCC):dim CJJCJCJ,CJJCJCC:CJJCJCC=split(CCJJJCC,CJJCCCJJ("[")):CJJJJCJC=False:for CJJCJCJ=0 to ubound(CJJCJCC):If Mid(CCCJJC,CJJCJCC(CJJCJCJ),1)="1" then
CJJJJCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCJJ("!$*|t|qt#"))="":CCJCCC=0:CCCCJJ=0:CCCJJJ=Empty:CCCJCC=0:CCCCCJ=0:CCCCJC=0:CCCJCJ=0:CJJJJJJ=False:CJJJCCC=False:CJJCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCJCJ,CJJCCCJ,CJJCCCC:CJJCCJJ=split(CJJCJJC,CJJCCCJJ("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCJCJ=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJJCCCC<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCC=Clng(CJJCCJJ(0)):CCCJJJ=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCCC,CJJCCCJC):dim CJJCJCJ,CJJCCCJ,CJJCCCC:for CJJCJCJ=1 to len(CJJCCCJC):CJJCCCJ=mid(CJJCCCJC,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCCC=CJJCJCCC & CJJCCCJJ("]") & CJJCCCJC & CJJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJJ("!$*|t|qt#"))=CJJCCCC:End Sub::::Const CJJJJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCCCJJ("FE7\g"):dim CJJCJCJ,CJJCCCJ,CJCJJJJ:if isarray(str) then
on error resume next:CJJCJCJ=ubound(str,2):CJCJJJJ=err.number:err.clear:on error goto 0:if CJCJJJJ<>0 then
for CJJCJCJ=0 to ubound(str):if CJJCJCJ>0 then response.Write CJJCCCJJ("k3C ,^m")
response.Write CJJCJCJ & CJJCCCJJ("i ,") & str(CJJCJCJ):next
else
response.Write CJJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCJ=0 to ubound(str,2):response.Write CJJCCCJJ("kE9 ,2=:8?lV=67EVm") & CJJCJCJ & CJJCCCJJ("k^E9m")
next:response.Write CJJCCCJJ("k^ECm"):for CJJCJCJ=0 to ubound(str):response.Write CJJCCCJJ("kECmkE9m") & CJJCJCJ & CJJCCCJJ("k^E9m"):for CJJCCCJ=0 to ubound(str,2):response.Write CJJCCCJJ("kE5m") & str(CJJCJCJ,CJJCCCJ) & CJJCCCJJ("k^E5m"):next:response.Write CJJCCCJJ("k^ECm"):next:response.Write CJJCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCCCCJ,CJJCCCCC):dim CJJCCJJ:CJJCCJJ=CJJCCCCJ & CJJCCCJJ("l") & CJJCCCCC & CJJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJJ("$6E\r@@<:6"),CJJCCJJ):End Sub::::::sub ShowMessage(CJCJJJJJ):response.Charset="utf-8":Response.Write CJJCCCJJ("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") & CJCJJJJJ & CJJCCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJJCCJ(CJCJJJJ):if isnull(CJCJJJJ) or trim(CJCJJJJ)="" or not isnumeric(CJCJJJJ) then
CJJJJCCJ=false
else
Dim CJCJJJC:Set CJCJJJC = New RegExp:CJCJJJC.Pattern = CJJCCCJJ("/-5ZS"):CJCJJJC.IgnoreCase = True:CJJJJCCJ = CJCJJJC.test(CJCJJJJ):set CJCJJJC=nothing
end if:End Function:Function CJJJJCCC(CJCJJJJC):dim CJCJJCJ,CJCJJCC:CJCJJCJ=CJJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJJJC & CJJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJCC=CCJJCJ.execute(CJCJJCJ):CJJJJCCC = CJCJJCC(0):if isnull(CJJJJCCC) then CJJJJCCC=1
CJCJJCC.close : set CJCJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCC=nothing:set CJJJCJJJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:CJCJJCC.close : set CJCJJCC=nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CJJJCJCC.Close : Set CJJJCJCC = Nothing:CCJJCJ.Close : Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJJ("!$*0|6DD286"),server.URLEncode(CJCJJJJJ)):Response.Redirect CJJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJCJJJCJ,CJCJJJCC):dim str,CJCJJJJ:str=CJJCCCJJ("!$*0") & Ucase(CJCJJJCJ):if Session(str)<>"" then
CJCJJJJ=DateDiff(CJJCCCJJ("D"),Session(str),Time):if CJCJJJJ<CJCJJJCC and CJCJJJJ>0 then
Call ConnClose:Call ShowMessage(CJJCCCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJJJCC & CJJCCCJJ(" ,种@，,迓@剤@ ,") & CJCJJJCC-CJCJJJJ & CJJCCCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJJCJJ):dim CJJCJCJ,CJJCCCJ,CJCJCJC,CJCJCCJ:on error resume next:CJCJCJC=ubound(CJCJJCJJ):CJCJCCJ=ubound(CJCJJCJJ,2):if err.number<>0 then
err.clear:for CJJCJCJ=0 to CJCJCJC:CJCJJCJJ(CJJCJCJ)=0:next
else
for CJJCJCJ=0 to CJCJCJC:for CJJCCCJ=0 to CJCJCCJ:CJCJJCJJ(CJJCJCJ,CJJCCCJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJCJJCJC):Application.Contents.Remove CJCJJCJC
End Sub::Class jTree:Private CCJCCJ, CJCJCCC, CJCCJJJ, CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:Private Sub Class_Initialize():CJCCJJJ = 0:CJCCJJC = 0:CJCCCJC=10:End Sub:Public Property Let Table(CJCJJCCJ):if CJCJJCCJ="" then Call RedirectMessage(CJJCCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCCJCJ=CJCJJCCJ:CJCCJCC=CJJCCCJJ("!$*0") & UCase(CJCCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJCJ:End Property:::Private Sub GetTreeArray():Dim CJJCJCJ, CJJCCCJ, CJCCCCJ,CJCCCCC:CJCJCCC = Application(CJCCJCC):If Not IsArray(CJCJCCC) Then
CCJCCJ = CJJCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCJ:if CJCCCJJ<>"" then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,H96C6 ,") & CJCCCJJ
set CJCCCCJ=CCJJCJ.execute(CCJCCJ):CJCCCCC=CJCCCCJ(0):if CJCCCCC=0 then Call RedirectMessage(CJJCCCJJ("柠@话@W") & CJCCJCJ & CJJCCCJJ("^") & CJCCCJJ & CJJCCCJJ("X沜@朄@绎@林@敫@捩@"))
CJCCJJC=CJCCCCC+CJCCCJC:ReDim CJCJCCC(CJCCJJC, 4):CCJCCJ = CJJCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CJJCCCJJ(" ,H:E9 ,W?@=@4<X"):if CJCCCJJ<>"" then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,H96C6 ,") & CJCCCJJ
CCJCCJ=CCJCCJ & CJJCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCJ=CCJJCJ.execute(CCJCCJ):For CJJCJCJ = 1 To CJCCCCC:For CJJCCCJ = 0 To 4:CJCJCCC(CJJCJCJ, CJJCCCJ) = CJCCCCJ(CJJCCCJ):if IsNull(CJCJCCC(CJJCJCJ,4)) then CJCJCCC(CJJCJCJ,4)=0
If CJCJCCC(CJJCJCJ,2)="" then CJCJCCC(CJJCJCJ,2)=CJJCCCJJ(",穵@.")
Next:CJCCCCJ.MoveNext:Next:CJCCCCJ.Close: Set CJCCCCJ = Nothing:for CJJCJCJ=CJCCJJC-(CJCCCJC-1) to CJCCJJC:CJCJCCC(CJJCJCJ,0)=CJJCJCJ:next:Application.Lock():Application(CJCCJCC) = CJCJCCC:Application.UnLock()
else
CJCCJJC=Ubound(CJCJCCC)
End If:End Sub:::::Private Function CJJJCCJC(CJJCJCCC):dim CJJCJCJ,CCJJJJJ:CJJJCCJC=0:CCJJJJJ=CStr(CJJCJCCC):if CCJJJJJ<>"0" then
for CJJCJCJ=1 to CJCCJJC:If CStr(CJCJCCC(CJJCJCJ, 0))=CCJJJJJ Then
CJJJCCJC = CJJCJCJ:Exit For
End If:Next
end if:End Function:Public Function CJJJCCCJ(CJJCJCCC):if Cstr(CJJCJCCC)="0" then
CJJJCCCJ=CJJCCCJJ("栴@")
else
Dim CJJCJCJ,CJCCCCJ:CJJCJCJ=CJJJCCJC(CJJCJCCC):if CJJCJCJ>0 then
CJJJCCCJ=CJCJCCC(CJJCJCJ,2):if CJJJCCCJ="" then
set CJCCCCJ=CCJJCJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CJJCJCCC):if CJCCCCJ.eof then Call RedirectMessage(CJJCCCJJ("xs（,") & CJJCJCCC & CJJCCCJJ("）,朥@批@别@"))
CJJJCCCJ=CJCCCCJ(1):Call UpdateCache(CJJCJCCC,CJCCCCJ(0),CJJJCCCJ,CJCCCCJ(2),CJCCCCJ(3)):CJCCCCJ.Close: Set CJCCCCJ = Nothing
end if
else
set CJCCCCJ=CCJJCJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CJJCJCCC):if CJCCCCJ.eof then Call RedirectMessage(CJJCCCJJ("xs（,") & CJJCJCCC & CJJCCCJJ("）,朥@批@别@"))
CJJJCCCJ=CJCCCCJ(1):Call UpdateCache(CJJCJCCC,CJCCCCJ(0),CJJJCCCJ,CJCCCCJ(2),CJCCCCJ(3)):CJCCCCJ.Close: Set CJCCCCJ = Nothing
end if
end if:End Function:::Public Function CJJJCCCC(CJJCJCCC):Dim CJJCJCJ,CCJJJJC:CJJCJCJ=CJJJCCJC(CJJCJCCC):if CJJCJCJ=0 then
CCJJJJC=CJJCJJJJ(CJJCJCCC)
else
CCJJJJC=CJCJCCC(CJJCJCJ,3):if isnull(CCJJJJC) or CCJJJJC="" then
CCJJJJC=CJJCJJJJ(CJJCJCCC)
elseif Mid(CCJJJJC,instrrev(CCJJJJC,CJJCCCJJ("["))+1)<>CStr(CJJCJCCC) then
CCJJJJC=CJJCJJJJ(CJJCJCCC)
elseif Left(CCJJJJC,1)=CJJCCCJJ("[") then
CCJJJJC=CJJCJJJJ(CJJCJCCC)
end if
end if:CJJJCCCC=CCJJJJC:End Function:Private Function CJJCJJJJ(CJJCJCCC):dim CCJJJJJ:CCJJJJJ=CStr(CJJCJCCC):if CCJJJJJ="0" then
CJJCJJJJ=""
else
dim CJCCCCJ:set CJCCCCJ=CCJJCJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CJJCJCCC):if CJCCCCJ.eof then
Call UpdateCache(CJJCJCCC,"","","",""):Call RedirectMessage(CJJCCCJJ("顴@盩@（,xs：,") & CJJCJCCC & CJJCCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCCCJ(0)=0 then
CJJCJJJJ="0," & CJJCJCCC
else
CJJCJJJJ=CJJJCCCC(CJCCCCJ(0)) & CJJCCCJJ("[") & CJJCJCCC
end if:if CJCCCCJ(2)<>CJJCJJJJ then
CCJJCJ.execute CJJCCCJJ("FA52E6 ,") & CJCCJCJ & CJJCCCJJ(" ,D6E ,A2E9lV") & CJJCJJJJ & CJJCCCJJ("V ,H96C6 ,:5l") & CJJCJCCC
else
CJJCJJJJ=CJCCCCJ(2)
end if
end if:Call UpdateCache(CJJCJCCC,CJCCCCJ(0),CJCCCCJ(1),CJJCJJJJ,CJCCCCJ(3)):CJCCCCJ.Close: Set CJCCCCJ = Nothing
end if:End Function::Public Function CJJCJJJC(CJJCJCCC):CJJCJJJC = Mid(CJJJCCCC(CJJCJCCC), 3):End Function:Public Function CJJCJJCJ(CJJCJCCC):Dim CJJCJCJ, CJJCCCJ, CCJJJCJ,Str, CCJJJJC, CCJJJCC, CJJCJCC():CCJJJJC = CJJCJJJC(CJJCJCCC):CCJJJJC = Split(CCJJJJC, CJJCCCJJ("[")):for CJJCJCJ=0 to Ubound(CCJJJJC):CCJJJCJ=CCJJJJC(CJJCJCJ):str=str & CJJCCCJJ("M") & CCJJJCJ & CJJCCCJJ("M") & CJJJCCCJ(CCJJJCJ):next:if str<>"" then str=Mid(str,2)
CJJCJJCJ=str:End Function:Public Function IsParent(CJCJJCCC, CJCJCJJJ):IsParent=InStr(CJJJCCCC(CJCJCJJJ) & CJJCCCJJ("["), CJJCCCJJ("[") & CJCJJCCC & CJJCCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCJCCC):dim CCJJJJC:CCJJJJC=CJJJCCCC(CJJCJCCC):Sql_GetChildren = CJCCJCJ & CJJCCCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJJJJC & CJJCCCJJ("[TV")
End Function:::Public Function GetPositionStr_From(CJJCJCCC, CJJCJCCJ):if isnull(CJJCJCCC) or isnull(CJJCJCCJ) then
GetPositionStr_From=CJJCCCJJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJJCJCJ, CJJCJCC, CCJJJCC, CCJJCJJ:CJJCJCCJ = CStr(CJJCJCCJ):If CJJCJCCJ = "0" or CJJCJCCJ = CStr(CJJCJCCC) Then
Str = CJJJCCCJ(CJJCJCCC)
Else
CJJCJCC = Split(CJJCJJCJ(CJJCJCCC), CJJCCCJJ("M")):CCJJJCC = UBound(CJJCJCC):CCJJCJJ = False:For CJJCJCJ = 0 To CCJJJCC Step 2:If CJJCJCC(CJJCJCJ) = CJJCJCCJ And Not CCJJCJJ Then CCJJCJJ = True
If CCJJCJJ Then
If Str <> "" Then Str = Str & CJJCCCJJ("→,")
Str = Str & CJJCJCC(CJJCJCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCCCJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCC
End Sub:Public Sub UpdateCache(CJJCJCCC,CCJJJCJ,CJCJCJJC,CCJJJJC,CJCJCJCJ):dim CJJCJCJ,CJJCCCJ:CJJCJCCC=CLng(CJJCJCCC):CJJCJCJ=CJJJCCJC(CJJCJCCC):if CCJJJCJ="" and CJCJCJJC="" and CCJJJJC="" and CJCJCJCJ="" then
if CJJCJCJ>0 then
for CJJCCCJ=1 to 4:CJCJCCC(CJJCJCJ,CJJCCCJ)=Null:next
end if
else
if CJJCJCJ=0 then
for CJJCCCJ=1 to CJCCJJC:if CJCJCCC(CJJCCCJ,1) & ""="" then
CJJCJCJ=CJJCCCJ:exit for
end if:next
end if:if CJJCJCJ=0 then
Call ClearCache
else
CJCJCCC(CJJCJCJ,0)=CLng(CJJCJCCC):if CCJJJCJ<>"" then CJCJCCC(CJJCJCJ,1)=CLng(CCJJJCJ)
if CJCJCJJC<>"" then CJCJCCC(CJJCJCJ,2)=CJCJCJJC
if CCJJJJC<>"" then CJCJCCC(CJJCJCJ,3)=CCJJJJC
if CJCJCJCJ<>"" then CJCJCCC(CJJCJCJ,4)=CLng(CJCJCJCJ)
end if
end if:if CJJCJCJ>0 then
Application.Lock():Application(CJCCJCC) = CJCJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJJJJ):Call ConnClose:Response.Write CJCJJJJJ:Response.End:End Sub:Private Function CJJJJCCC():CJJJJCCC=CJJCCJJJ+1:End Function:Private Function CJJCCJJJ():dim CJCJJCC:set CJCJJCC=CCJJCJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCJ & CJJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCJJJ=CJCJJCC(0):CJCJJCC.Close: Set CJCJJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJJJCC=125:Const CJJJJCJJ="工作倦怠调查问卷":Call CheckRight("54,81"):Call CheckQueryTime(CJJCCCJJ("%6DE0#6A@CE"),30):dim CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:CCJCJCJ=Request.QueryString(CJJCCCJJ("$49@@=")):CCJJCJC=Request.QueryString(CJJCCCJJ("s6AE")):CCJJCCJ=Request.QueryString(CJJCCCJJ("vC256")):CCJJCCC=Request.QueryString(CJJCCCJJ("vC@FA")):CCJCJJJ=Request.QueryString(CJJCCCJJ("E`")):CCJCJJC=Request.QueryString(CJJCCCJJ("Ea")):CCJCJCC=Request.QueryString(CJJCCCJJ("=6G6=")):if not CJJJJCCJ(CCJJCJC) then Call RedirectMessage(CJJCCCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJCJCCC:set CJCJCCC=new jtree:CJCJCCC.table=CJJCCCJJ(">6>36C0EJA6"):if not CJCJCCC.IsParent(CCCJCJ,CCJJCJC) then Call RedirectMessage(CJJCCCJJ("诠@苾@囯@W") & CCJJCJC & CJJCCCJJ("X丈@圣@患@W") & CCCJCJ & CJJCCCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CCJCCJJ:CCJCCJJ=CJCJCCC.GetPositionStr_From(CCJJCJC,CCJCJCJ):dim CJJCJCJ,CJJCCCJ,CJJCCCC,CCJCCJC,CCJCCCJ,CCJCCCC:dim CCCJJJJ(1,8):Call ArrayInit(CCCJJJJ):CCCJJJJ(0,0)=CJJCCCJJ("甲@"):CCCJJJJ(1,0)=CJJCCCJJ("奮@"):dim CJJCJCC,CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ:CCCJCJJ=Date:CCCJCJC=cdate(CJJCCCJJ("a___\`\`")):dim CCCCJJC(3,8):Call ArrayInit(CCCCJJC):CCCCJJC(0,0)=CJJCCCJJ("惀@绥@衫@竨@"):CCCCJJC(1,0)=CJJCCCJJ("亵@样@觞@低@"):CCCCJJC(2,0)=CJJCCCJJ("严@亵@戋@尬@愚@陈@佉@"):CCCCJJC(3,0)=CJJCCCJJ("怶@刁@"):CCJCCJ=CJJCCCJJ("D6=64E ,52E6E:>6[C6DF=E[>6>36C0EJA60A2E9[D4@C60C2H[D6I[E6DE286[?F>36C[C62=?2>6[>6>36CEJA6?2>6[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJJJCC & CJJCCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CCJJCJC)=cstr(CCJCJCJ) then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCJCJCJ else CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,") & CJCJCCC.Sql_GetChildren(CCJJCJC)
if CJJJJCCJ(CCJJCCJ) then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,8C256l") & CCJJCCJ
if CJJJJCCJ(CCJJCCC) then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJJCCC
if isdate(CCJCJJJ) then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,52E6E:>6mlV") & CCJCJJJ & CJJCCCJJ("V")
if isdate(CCJCJJC) then CCJCCJ=CCJCCJ & CJJCCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCJCJJC)+1 & CJJCCCJJ("V")
set CCJCJJ=CCJJCC.execute(CCJCCJ):if CCJCJJ.eof then Call RedirectMessage(CJJCCCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@。,"))
while not CCJCJJ.eof:CJJCCCC=CCJCJJ(0):if CJJCCCC<CCCJCJJ then CCCJCJJ=CJJCCCC
if CJJCCCC>CCCJCJC then CCCJCJC=CJJCCCC
if isnull(CCJCJJ(3)) then Call RedirectMessage(CCJCJJ(7) & CJJCCCJJ("（,") & CCJCJJ(6) & CJJCCCJJ("）,癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@（,") & CCJCJJ(9) & CJJCCCJJ("）,，,诲@柠@话@凵@杠@吉@创@陟@！,"))
CJJCJCC=split(CCJCJJ(1),CJJCCCJJ("M")):for CJJCJCJ=0 to 3:CJJCCCC=cint(CJJCJCC(CJJCJCJ))+6:CCCCJJC(CJJCJCJ,CJJCCCC)=CCCCJJC(CJJCJCJ,CJJCCCC)+1:next:CJJCJCC=split(CCJCJJ(3),CJJCCCJJ("M")):for CJJCJCJ=0 to 3:CCCCJJC(CJJCJCJ,1)=CCCCJJC(CJJCJCJ,1) & CJJCCCJJ("M") & CJJCJCC(CJJCJCJ):next:if right(CCJCJJ(1),1)="2" then
CCCJCCC=CCCJCCC & CCJCJJ(6) & CJJCCCJJ("M") & CCJCJJ(7) & CJJCCCJJ("M") & CCJCJJ(8) & CJJCCCJJ("M") & CJJCJCC(0) & CJJCCCJJ("M") & CJJCJCC(1) & CJJCCCJJ("M") & CJJCJCC(2) & CJJCCCJJ("M") & CJJCJCC(3) & vbcrlf
end if:if CCJCJJ(4) then CJJCJCJ=0 else CJJCJCJ=1
CCCJJJJ(CJJCJCJ,1)=CCCJJJJ(CJJCJCJ,1)+1:for CJJCCCJ=0 to 3:CJJCCCC=CJJCCCJ+2:CCCJJJJ(CJJCJCJ,CJJCCCC)=CCCJJJJ(CJJCJCJ,CJJCCCC) & CJJCCCJJ("M") & CJJCJCC(CJJCCCJ):next:CJJCCCC=cint(right(CCJCJJ(1),1))+6:CCCJJJJ(CJJCJCJ,CJJCCCC)=CCCJJJJ(CJJCJCJ,CJJCCCC)+1:CCCJCCJ=CCCJCCJ+CCJCJJ(5):CCCJJCJ=CCCJJCJ+1:CCJCJJ.movenext:wend:for CJJCJCJ=0 to 3:CJJCJCC=CJJCCJJC(split(Mid(CCCCJJC(CJJCJCJ,1),3),CJJCCCJJ("M"))):CCCCJJC(CJJCJCJ,2)=FormatNumber(CJJCJCC(0),2,-1):CCCCJJC(CJJCJCJ,3)=FormatNumber(CJJCJCC(1),2,-1):CCCCJJC(CJJCJCJ,4)=CJJCJCC(3):CCCCJJC(CJJCJCJ,5)=FormatNumber(CJJCJCC(4),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCJJ("k9625m") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCJJ("kE:E=6m")):Response.Write  CCJCCJJ:Response.Write(CJJCCCJJ("\")):Response.Write  CJJJJCJJ:Response.Write(CJJCCCJJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCCCJJ("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(CJJCCCJJ("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9`mkD>2==m")):Response.Write  CCJCCJJ:Response.Write(CJJCCCJJ("k^D>2==mk3Cm")):Response.Write  CJJJJCJJ:Response.Write(CJJCCCJJ("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm巠@佗@倡@怛@课@柠@衣@（,|qx）,産@争@浆@诐@巠@佗@亵@呓@一,舧@癿@倡@怛@惀@冰@。,巠@佗@倡@怛@挂@癿@昪@仠@亵@丵@丶@襼@月@劜@寴@豜@癿@聇@丕@颁@埚@丨@，,仉@丕@亵@呓@戻@低@骇@别@癿@一,秈@惀@绥@衫@竨@、,亵@样@觞@低@咇@严@亵@戋@尬@愚@陈@佉@癿@痂@犱@。,巠@佗@倡@怛@牴@刦@宴@明@圣@月@劜@丕@、,敔@肭@筄@衇@丕@丨@亢@甚@，,巠@佗@倡@怛@氯@幮@轾@髓@伕@佺@呓@巠@扺@叒@轾@夢@癿@徾@琁@历@劖@。,严@亵@癿@臥@俜@徾@叒@别@扎@凶@，,寴@巠@佗@癿@烨@惀@、,秪@杼@怢@三@丶@劣@怢@逋@歠@涃@凊@，,甕@臮@伕@凵@玫@躦@徾@夬@课@癿@丈@偠@庲@痀@痂@。,浆@释@严@亵@癿@巠@佗@倡@怛@氯@幮@朄@判@争@帩@劤@呓@巠@叅@旱@亁@觞@巠@佗@绔@臥@巬@帡@杠@癿@冀@徾@癿@历@劖@犱@忼@，,揋@醍@偕@凵@一,宕@癿@课@敯@，,仠@序@寴@咇@觞@冮@巠@佗@倡@怛@闩@颓@，,帩@劤@亵@仧@曯@奸@癿@追@序@好@仅@髓@历@劖@、,忦@艽@奊@癿@礹@伕@玪@塾@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm朧@释@衣@公@孓@圣@丄@严@绯@庡@，,刁@刦@丵@惀@绥@衫@竨@、,亵@样@觞@低@、,严@亵@戋@尬@愚@陈@佉@，,丄@严@绯@庡@徒@刁@乆@咇@丵@释@衣@怶@刁@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm巠@佗@倡@怛@课@柠@衣@叿@绯@庡@觞@釅@k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE9m绯@庡@合@秫@k^E9mkE9m觞@釅@k^E9mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE5m惀@绥@衫@竨@k^E5mkE5m惀@愚@耒@竨@昪@挂@严@低@癿@惀@愚@贿@溋@迂@庡@涃@耒@，,仞@衣@严@亵@寴@历@劖@癿@访@伫@，,疭@乊@丈@堥@，,粹@劖@丢@夬@，,夬@厶@巠@佗@烨@惀@。,_\e刁@，,徒@刁@超@髓@仞@衣@粹@劖@丢@夬@，,惀@愚@衫@竨@超@丠@釈@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE5m亵@样@觞@低@k^E5mkE5m亵@样@觞@低@挂@严@亵@寴@仑@亵@癿@访@伫@，,衣@玫@丵@严@亵@仠@涃@杼@吡@宕@、,麶@朣@丈@亼@癿@忼@庡@寴@往@仑@亵@，,寴@往@月@劜@寴@豜@癿@贚@怢@癿@、,冲@淜@癿@、,迂@庡@疊@迗@癿@忼@庡@。,_\e刁@，,徒@刁@超@髓@仞@衣@寴@往@仑@亵@癿@贚@怢@忼@庡@超@張@烃@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE5m严@亵@戋@尬@愚@陈@佉@k^E5mkE5m严@亵@戋@尬@愚@陈@佉@挂@严@低@寴@臥@巬@巠@佗@癿@愊@乄@三@仲@倷@癿@访@仲@陈@佉@，,巠@佗@戋@尬@癿@丆@陈@。,_\e刁@，,徒@刁@超@髓@仞@衣@严@亵@巠@佗@戋@尬@愚@超@佉@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE5m怶@刁@k^E5mkE5m怶@刁@愊@呮@眻@严@亵@巠@佗@倡@怛@癿@稆@庡@，,疭@争@序@寴@巠@佗@，,徾@琁@历@劖@轾@夢@。,_\e刁@，,徒@刁@超@髓@仞@衣@巠@佗@倡@怛@惀@冰@超@丠@釈@，,徾@琁@历@劖@超@夢@。,k^E5mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm")):Response.Write  formatdatetime(CCCJCJJ,1):Response.Write(CJJCCCJJ("～,")):Response.Write  formatdatetime(CCCJCJC,1):Response.Write(CJJCCCJJ("k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm歟@欜@浆@柠@羟@低@癿@兲@低@揊@迫@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kF=m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k=:m楽@迫@：, ,公@讜@")):Response.Write  CCCJJCJ:Response.Write(CJJCCCJJ("亵@厽@三@，,共@丨@甲@怢@")):Response.Write  CCCJJJJ(0,1):Response.Write(CJJCCCJJ("亵@，,奮@怢@")):Response.Write  CCCJJJJ(1,1):Response.Write(CJJCCCJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k=:m幯@齿@：, ,幮@坂@幯@齿@")):Response.Write  formatnumber(CCCJCCJ/CCCJJCJ,2,-1):Response.Write(CJJCCCJJ("屼@。,k^=:m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bm`．,阮@怢@梻@凵@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm圣@浆@柠@羟@低@丨@，,朄@")):Response.Write  CCCJJCJ-CCCCJJC(3,8):Response.Write(CJJCCCJJ("亵@昪@歞@帳@癿@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent((CCCJJCJ-CCCCJJC(3,8))/CCCJJCJ,2,-1):Response.Write(CJJCCCJJ("；,朄@")):Response.Write  CCCCJJC(3,8):Response.Write(CJJCCCJJ("亵@巠@佗@倡@怛@氯@幮@轾@髓@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCJJC(3,8)/CCCJJCJ,2,-1):Response.Write(CJJCCCJJ("。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD4C:AE ,DC4lQ^D4C:AED^492CE];Dn4lA:6U9lad_UIl歞@帳@亵@羟@[轾@髓@巠@佗@倡@怛@亵@羟@UGl")):Response.Write  CCCJJCJ-CCCCJJC(3,8):Response.Write(CJJCCCJJ("[")):Response.Write  CCCCJJC(3,8):Response.Write(CJJCCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm仠@丆@丵@梻@凵@戋@呓@合@卐@，,诲@釈@炴@兮@泣@仠@丆@梻@凵@亵@呓@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECmkE9m缑@史@k^E9mkE9m姎@合@k^E9mkE9m卐@佈@k^E9mkE9m惀@绥@衫@竨@k^E9mkE9m亵@样@觞@低@k^E9mkE9m严@亵@戋@尬@愚@陈@佉@k^E9mkE9m怶@刁@k^E9mk^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):CJJCJCC=split(CCCJCCC,vbcrlf):for CJJCJCJ=0 to ubound(CJJCJCC)-1:Response.Write CJJCCCJJ("kECm"):CCCJJJC=split(CJJCJCC(CJJCJCJ),CJJCCCJJ("M")):for CJJCCCJ=0 to ubound(CCCJJJC):Response.Write CJJCCCJJ("kE5m") & CCCJJJC(CJJCCCJ) & CJJCCCJJ("k^E5m"):next:Response.Write CJJCCCJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bma．,徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm怶@低@徒@刁@刁@巾@惀@冰@k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m顴@盩@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CJJCJCJ=0 to 3:Response.Write CJJCCCJJ("kECmkE5m") & CCCCJJC(CJJCJCJ,0) & CJJCCCJJ("k^E5m"):for CJJCCCJ=6 to 8:Response.Write CJJCCCJJ("kE5m") & CCCCJJC(CJJCJCJ,CJJCCCJ) & CJJCCCJJ("k^E5m"):next:Response.Write CJJCCCJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):redim CJJCJCC(2):for CJJCJCJ=0 to 2:CJJCCCJ=CJJCJCJ+6:CJJCJCC(CJJCJCJ)=CCCCJJC(3,CJJCCCJ)/CCCJJCJ:next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kAm怶@刁@徒@刁@轾@佉@亵@羟@卛@每@")):Response.Write  FormatPercent(CJJCJCC(0),2,-1):Response.Write(CJJCCCJJ("，,徒@刁@丨@筄@亵@羟@卛@每@")):Response.Write  FormatPercent(CJJCJCC(1),2,-1):Response.Write(CJJCCCJJ("，,徒@刁@轾@髓@亵@羟@卛@每@")):Response.Write  FormatPercent(CJJCJCC(2),2,-1):Response.Write(CJJCCCJJ("。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):if CJJCJCC(0)>=CJJCJCC(1) and CJJCJCC(0)>=CJJCJCC(2) then
Response.Write CJJCCCJJ("kAm怶@低@巠@佗@倡@怛@惀@冰@每@轾@之@覽@，,夢@郣@刁@亵@呓@埵@朧@丈@孓@圣@巠@佗@倡@怛@癿@惀@冰@，,什@孓@圣@尌@释@亵@呓@朄@一,宕@癿@巠@佗@倡@怛@，,仑@仧@只@胸@伕@孓@圣@疭@争@序@寴@巠@佗@，,徾@琁@历@劖@轾@夢@癿@惀@冰@。,只@仠@釈@炴@兮@泣@巠@佗@倡@怛@徒@刁@丵@丨@筄@咇@轾@髓@癿@亵@羟@，,牴@刦@昪@梻@凵@合@卐@丨@癿@亵@羟@，,兮@泣@仑@仧@愚@别@疭@倡@癿@厚@四@，,幱@绔@亃@兮@忻@。,k^Am")
elseif CJJCJCC(1)>=CJJCJCC(0) and CJJCJCC(1)>=CJJCJCC(2) then
Response.Write CJJCCCJJ("kAm怶@低@巠@佗@倡@怛@惀@冰@壿@争@丨@筄@氯@幮@，,什@朄@尌@敫@亵@呓@孓@圣@轾@髓@癿@巠@佗@倡@怛@，,夢@夕@敫@亵@呓@孓@圣@丨@筄@癿@巠@佗@倡@怛@，,仑@仧@伕@愚@叒@别@一,亖@巠@佗@癿@历@劖@，,巠@佗@认@仑@仧@愚@规@疭@倡@，,郣@刁@亵@呓@伕@忻@疌@臥@巬@巠@佗@癿@愊@乄@，,忻@疌@臥@巬@癿@胸@劖@，,寴@巠@佗@仲@倷@亢@甚@囫@惌@。,乚@朄@郣@刁@亵@呓@徾@忼@轾@奸@，,圣@巠@佗@丨@鲗@朄@愚@叒@别@历@劖@，,粹@劖@兀@沖@，,胸@多@仉@巠@佗@丨@莲@徒@一,宕@癿@戋@尬@愚@。,诲@釈@炴@兮@泣@巠@佗@倡@怛@轾@髓@癿@梻@凵@亵@呓@，,乚@寴@夢@夕@敫@戋@呓@绔@亃@一,亖@兮@忻@，,陈@佉@一,亖@历@劖@。,k^Am")
else
Response.Write CJJCCCJJ("kAm怶@低@巠@佗@倡@怛@惀@冰@丈@宴@之@覽@，,轾@夕@亵@呓@孓@圣@丨@筄@我@轾@髓@氯@幮@癿@巠@佗@倡@怛@，,仑@仧@圣@巠@佗@丨@只@胸@叒@别@亁@轾@夕@癿@徾@琁@历@劖@，,圣@巠@佗@旱@每@轾@丈@廻@徾@，,寴@巠@佗@愚@别@疭@倡@，,徾@琁@偠@庲@我@躦@低@偠@庲@只@胸@叒@别@亁@一,宕@癿@彬@哈@，,返@郣@刁@亵@呓@電@襼@一,殰@旱@闯@癿@伌@恪@咇@课@敯@。,k^Am")
end if:CCJCCCJ=CJJCCCJJ(",V轾@佉@V[V丨@筄@V[V轾@髓@V.")
for CJJCJCJ=0 to 3:CCJCCCJ=CCJCCCJ & CJJCCCJJ("[,") & CCCCJJC(CJJCJCJ,6) & CJJCCCJJ("[") & CCCCJJC(CJJCJCJ,7) & CJJCCCJJ("[") & CCCCJJC(CJJCJCJ,8) & CJJCCCJJ("."):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UEl怶@低@刁@巾@惀@冰@U9lad_UIl惀@绥@衫@竨@M亵@样@觞@低@M严@亵@戋@尬@愚@陈@佉@M怶@刁@UGl")):Response.Write  CCJCCCJ:Response.Write(CJJCCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bmb．,徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m绯@庡@合@秫@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m杼@夢@倷@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m杼@尊@倷@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m坂@倷@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CJJCJCJ=0 to 3:Response.Write CJJCCCJJ("kECmkE5m") & CCCCJJC(CJJCJCJ,0) & CJJCCCJJ("k^E5mkE5m") & CCCCJJC(CJJCJCJ,2) & CJJCCCJJ("k^E5mkE5m") & CCCCJJC(CJJCJCJ,3) & CJJCCCJJ("k^E5mkE5m") & FormatNumber(CCCCJJC(CJJCJCJ,4),2,-1) & CJJCCCJJ("k^E5mkE5m") & CCCCJJC(CJJCJCJ,5) & CJJCCCJJ("k^E5mk^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Response.Write CJJCCCJJ("kAm【,惀@绥@衫@竨@】,"):if CCCCJJC(0,4)<=2 then
Response.Write CJJCCCJJ("叒@浆@羟@低@讟@丵@彎@剈@癿@巠@佗@每@轾@轶@杹@，,圣@巠@佗@丨@徃@尌@伕@愚@叒@别@徃@夢@癿@历@劖@，,偱@小@伕@凵@玫@癿@历@劖@乚@伕@袦@徃@忦@癿@觞@冮@，,亵@仧@癿@惀@绥@犱@忼@静@帳@奸@，,胸@多@仠@兀@沖@癿@洶@劖@靝@寴@巠@佗@，,卮@佺@巠@佗@亁@一,夤@乚@丈@伕@规@徒@徃@疭@倡@。,")
elseif CCCCJJC(0,4)<=4 then
Response.Write CJJCCCJJ("叒@浆@羟@低@胸@多@愚@叒@别@巠@佗@丨@孓@圣@癿@轾@夢@癿@历@劖@，,惀@绥@壿@圣@轾@疭@劮@癿@犱@忼@，,朄@亖@亵@偱@小@伕@亢@甚@轾@澻@劣@癿@惀@绥@癿@愚@规@，,佁@颌@玂@丈@髓@，,夢@宱@埵@朧@胸@多@课@艽@咇@缎@觞@臥@巬@癿@历@劖@。,")
else
Response.Write CJJCCCJJ("叒@浆@羟@低@胸@多@愚@叒@别@巠@佗@帡@杠@轾@夢@癿@历@劖@，,巠@佗@历@劖@旱@帳@认@仑@仧@喓@丈@迂@氏@杠@。,甬@争@镺@旱@闯@扺@拀@迂@釈@癿@历@劖@，,朄@亖@亵@伕@旱@帳@亢@甚@寴@巠@佗@厇@烡@癿@惀@绥@。,朄@郣@刁@戋@呓@偱@小@伕@朄@惀@绥@爁@双@癿@惀@冰@，,虸@焱@返@秈@愚@规@徃@矨@晽@，,佁@仈@寴@仑@仧@癿@躦@徾@偠@庲@朄@釈@襼@彬@哈@。,惀@绥@壿@争@杼@明@疭@劮@犱@忼@，,巠@佗@烨@惀@宇@兣@褥@厶@，,卮@佺@沜@朄@夥@夕@低@劖@我@脌@劖@癿@劮@劣@，,佁@圣@巠@佗@一,殰@旱@闯@吉@乚@伕@躦@徾@俬@疭@，,丈@惮@绢@绨@巠@佗@。,")
end if:Response.Write CJJCCCJJ("k^Am"):Response.Write CJJCCCJJ("kAm【,亵@样@觞@低@】,"):if CCCCJJC(1,4)<=2 then
Response.Write CJJCCCJJ("叒@浆@羟@低@寴@往@巠@佗@、,吇@了@咇@宝@戲@癿@徾@忼@静@帳@秪@杼@，,愺@愊@仠@肪@宕@癿@徾@忼@寴@往@仑@亵@咇@巠@佗@。,咇@仑@亵@癿@沚@逕@每@轾@页@畀@，,愺@愊@掠@纮@仑@亵@癿@惮@泐@咇@廵@让@。,仑@仧@癿@巠@佗@劣@劖@咇@烨@惀@兀@趮@，,寴@巠@佗@匼@刁@愚@兯@趞@，,乚@帇@朖@臥@巬@胸@多@曯@夢@稆@庡@癿@抐@兠@巠@佗@彎@丨@，,幱@愺@愊@丵@巠@佗@咇@宝@戲@偕@凵@臥@巬@癿@贜@猩@。,")
elseif CCCCJJC(1,4)<=4 then
Response.Write CJJCCCJJ("叒@浆@羟@低@偱@小@伕@亢@甚@一,亖@莦@合@癿@涃@杼@咇@感@丑@嫄@俒@癿@愚@规@，,返@秈@愚@叒@丈@宴@明@袦@琁@觞@。,返@秈@愚@叒@昪@矨@晽@癿@，,仑@仧@偱@小@伕@囙@忁@赲@杠@，,佁@幱@丈@彬@哈@无@帳@癿@巠@佗@。,朄@亖@伕@圣@巠@佗@丨@遂@别@一,亖@囫@隹@，,囫@隹@伕@认@亵@仧@忻@疌@返@亖@巠@佗@昪@吡@倷@徒@仑@仧@仓@凵@轾@夕@癿@劥@劖@，,偕@凵@轾@夢@癿@贜@猩@。,")
else
Response.Write CJJCCCJJ("叒@浆@羟@低@伕@朄@一,亖@涃@杼@、,感@丑@嫄@俒@癿@愚@规@。,仑@仧@伕@讟@丵@柋@亖@巠@佗@我@耀@宝@戲@圣@柋@秈@稆@庡@丅@丈@倷@徒@偕@凵@贜@猩@，,丈@倷@徒@卛@産@夥@夕@癿@粹@劖@咇@旱@闯@。,朄@亖@亵@讟@丵@吇@了@咇@宝@戲@朄@旱@倔@徃@隹@琁@觞@臥@巬@癿@惮@泐@，,咇@仑@仧@迖@衇@沚@逕@伕@朄@一,亖@囫@隹@。,朄@亖@戋@呓@讟@丵@臥@巬@癿@巠@佗@沜@朄@徒@别@釈@见@，,寴@巠@佗@癿@朚@往@稆@庡@朄@戻@丆@陈@，,寴@往@巠@佗@沜@朄@曻@刘@癿@烨@惀@咇@劣@劖@。,")
end if:Response.Write CJJCCCJJ("k^Am"):Response.Write CJJCCCJJ("kAm【,严@亵@戋@尬@愚@陈@佉@】,"):if CCCCJJC(2,4)<=2 then
Response.Write CJJCCCJJ("叒@浆@羟@低@徃@滜@愊@臥@巬@彎@剈@宇@戋@癿@巠@佗@，,讟@丵@臥@巬@朄@胸@劖@厶@挌@戓@隹@庡@曯@髓@癿@巠@佗@。,朄@一,宕@隹@庡@癿@巠@佗@胸@绔@仑@仧@帡@杠@匼@趮@癿@戋@尬@愚@，,仑@仧@讟@丵@偕@隹@庡@轾@夢@癿@巠@佗@寴@胸@劖@癿@揋@卂@昪@朄@帩@劤@癿@。,仑@仧@寴@巠@佗@癿@盩@栂@每@轾@渀@晫@，,讟@丵@彎@剈@癿@巠@佗@昪@朄@愊@乄@癿@，,幱@愺@愊@拼@绨@巠@佗@丆@厶@。,")
elseif CCCCJJC(2,4)<=4 then
Response.Write CJJCCCJJ("叒@浆@羟@低@偱@小@伕@拀@忢@臥@巬@癿@胸@劖@丈@趮@仠@序@仓@彎@剈@癿@巠@佗@，,伕@亢@甚@胸@劖@丈@趮@癿@卬@朵@愚@。,仑@仧@胸@多@愚@叒@别@巠@佗@癿@盩@癿@咇@愊@乄@，,佁@乚@伕@偱@小@忻@疌@臥@巬@癿@胸@劖@咇@巠@佗@癿@斴@同@。,偱@小@伕@丈@滜@愊@臥@巬@偕@迂@癿@了@惀@。,")
else
Response.Write CJJCCCJJ("叒@浆@羟@低@癿@严@亵@戋@尬@愚@轾@佉@，,仑@仧@彻@彻@伕@规@徒@臥@巬@隹@仠@胗@件@彎@剈@癿@巠@佗@。,臥@躦@癿@胸@劖@虸@焱@圣@丈@斨@揋@髓@，,佁@仈@伕@认@仑@仧@亢@甚@隹@仠@胗@件@巠@佗@癿@惮@泐@，,规@徒@臥@躦@癿@胸@劖@仈@焱@丈@多@。,朄@亖@亵@伕@旱@帳@忻@疌@巠@佗@癿@愊@乄@，,拀@徾@臥@巬@癿@巠@佗@戋@林@昪@吡@偊@禶@巠@佗@朧@躦@戻@電@，,丈@渀@楕@臥@巬@癿@斴@同@三@盩@癿@。,仑@仧@丈@滜@愊@臥@巬@偕@迂@癿@了@惀@，,囙@忁@赲@臥@巬@迂@厶@癿@戋@尬@，,伕@规@徒@返@亖@幱@沜@朄@夥@夕@癿@愊@乄@。,朄@亖@亵@寴@巭@朄@癿@戋@尬@幱@沜@朄@愚@别@徃@廻@徾@，,卯@參@丈@夥@愺@愊@宇@戋@柋@仱@轾@隹@癿@了@惀@。,")
end if:Response.Write CJJCCCJJ("k^Am"):Response.Write CJJCCCJJ("kAm【,怶@刁@】,"):if CCCCJJC(3,4)<=2 then
Response.Write CJJCCCJJ("叒@浆@羟@低@埵@朧@丈@孓@圣@巠@佗@倡@怛@惀@冰@，,圣@巠@佗@丨@徃@尌@愚@别@历@劖@，,规@徒@巠@佗@每@轾@轶@杹@，,卮@佺@忔@碇@一,敯@夤@，,乚@丈@伕@规@徒@徃@疭@倡@。,仑@仧@寴@巠@佗@癿@忼@庡@匼@刁@秪@杼@，,愺@愊@掠@扆@曯@夕@癿@巠@佗@咇@掠@觡@曯@夕@癿@宝@戲@。,夢@夕@敫@亵@倹@同@争@讟@丵@巠@佗@昪@寴@臥@巬@癿@一,秈@揋@卂@咇@锶@炷@，,胸@多@仉@巠@佗@丨@莲@徒@臥@巬@惮@襼@癿@愄@悡@愚@咇@戋@尬@愚@。,寴@巠@佗@我@耀@衇@丕@兀@滜@俜@徾@，,幱@愺@愊@镺@朚@拼@乀@癿@巠@佗@。,")
elseif CCCCJJC(3,4)<=4 then
Response.Write CJJCCCJJ("叒@浆@羟@低@巠@佗@倡@怛@稆@庡@丨@筄@。,圣@巠@佗@丨@朄@旱@伕@愚@叒@别@徃@夢@癿@历@劖@，,朄@旱@规@徒@丅@珨@静@帳@紪@。,郣@刁@戋@呓@旱@帳@伕@规@徒@丈@胸@胗@件@玫@圣@癿@巠@佗@，,忻@疌@臥@巬@癿@胸@劖@，,愚@规@丈@胸@朄@敃@圫@觞@冮@巠@佗@丨@凵@玫@癿@闩@颓@。,郣@刁@戋@呓@偱@小@伕@愚@规@别@囫@惌@，,忻@疌@臥@巬@巠@佗@癿@戋@尬@、,仲@倷@咇@愊@乄@。,")
else
Response.Write CJJCCCJJ("叒@浆@羟@低@巠@佗@倡@怛@稆@庡@轾@髓@。,圣@巠@佗@丨@怶@昪@愚@别@朄@徃@夢@癿@历@劖@，,甕@臮@宴@明@惀@绥@夬@探@。,怶@规@徒@丅@珨@静@帳@紪@。,仑@仧@伕@忻@疌@臥@巬@巠@佗@癿@愊@乄@咇@胸@劖@，,乚@丈@圣@愊@臥@巬@昪@吡@偕@凵@贜@猩@。,朄@亖@亵@规@徒@臥@巬@丈@胸@胗@件@玫@圣@癿@巠@佗@，,卮@佺@觞@冮@亁@巠@佗@丨@凵@玫@癿@隹@颓@，,莲@徒@亁@轾@髓@癿@戋@尬@，,乚@低@骇@丈@别@巠@佗@帡@杠@癿@愄@悡@愚@、,戋@尬@愚@咇@仲@倷@愚@。,")
end if:Response.Write CJJCCCJJ("k^Am"):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am亏@、,丈@吇@怢@刦@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bm`．,阮@怢@梻@凵@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm绚@讜@丈@吇@怢@刦@巠@佗@倡@怛@轾@髓@癿@亵@敫@，,徒@别@绎@林@好@丆@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m怶@刁@梻@凵@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m梻@凵@玂@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CJJCJCJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,0):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,8):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  formatpercent(CCCJJJJ(CJJCJCJ,8)/CCCJJJJ(CJJCJCJ,1),2,-1):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bma．,徒@刁@刁@巾@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CJJCJCJ=0 to 1:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,0):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,6):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,7):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write  CCCJJJJ(CJJCJCJ,8):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):CCJCCCJ=CJJCCCJJ(",V轾@佉@V[V丨@筄@V[V轾@髓@V.")
for CJJCJCJ=0 to 1:CCJCCCJ=CCJCCCJ & CJJCCCJJ("[,") & CCCJJJJ(CJJCJCJ,6) & CJJCCCJJ("[") & CCCJJJJ(CJJCJCJ,7) & CJJCCCJJ("[") & CCCJJJJ(CJJCJCJ,8) & CJJCCCJJ("."):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lad_UEl怶@刁@丈@吇@怢@刦@刁@巾@惀@冰@UIl甲@怢@M奮@怢@UGl")):Response.Write  CCJCCCJ:Response.Write(CJJCCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bmb．,徒@刁@惀@冰@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm怢@刦@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQaQm惀@绥@衫@竨@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQaQm亵@样@觞@低@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQaQm严@亵@戋@尬@愚@陈@佉@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQaQm怶@刁@k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m)k^E9mkE9m$sk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CJJCJCJ=0 to 1:Response.Write CJJCCCJJ("kECmkE5m") & CCCJJJJ(CJJCJCJ,0) & CJJCCCJJ("k^E5m"):for CJJCCCJ=2 to 5:CJJCJCC=CJJCCJCJ(split(Mid(CCCJJJJ(CJJCJCJ,CJJCCCJ),3),CJJCCCJJ("M"))):Response.Write CJJCCCJJ("kE5m") & formatnumber(CJJCJCC(0),2,-1) & CJJCCCJJ("k^E5mkE5m") & formatnumber(CJJCJCC(1),2,-1) & CJJCCCJJ("k^E5m"):next:Response.Write CJJCCCJJ("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9am全@、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJCCCJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bm`．,偕@奸@巠@佗@岒@佈@刁@枋@，,宙@玫@亵@岒@吃@琁@酈@罩@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm逕@迂@覿@苾@丕@劜@洼@稆@，,仼@丕@只@仠@寴@巠@佗@迖@衇@釈@斫@讹@讜@咇@宄@掍@，,封@贚@拀@迂@釈@癿@巠@佗@追@彎@凊@轶@，,甬@夕@亵@刁@拀@；,封@迂@争@枪@燠@癿@巠@佗@迖@衇@扤@夢@匑@咇@丫@寇@匑@，,墙@力@巠@佗@冀@宴@，,赆@亃@曯@夕@贞@件@，,佺@呓@巠@愚@叒@别@巠@佗@癿@趞@呮@咇@愊@乄@。,迖@一,歠@昉@硩@岒@佈@聇@贞@乚@胸@丵@呓@巠@癿@绤@敃@考,栳@讹@罩@曯@秌@孡@癿@挂@栂@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bma．,宇@啿@绤@敃@考,栳@箜@琁@，,宙@玫@歞@靝@澻@劬@佗@産@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm艪@奸@癿@绤@敃@考,栳@只@仠@澻@劬@呓@巠@。,昉@硩@释@匑@栂@凁@，,揋@髓@只@擈@佗@怢@，,绷@吃@访@仲@呓@巠@巠@佗@冀@宴@，,彝@戋@宕@怢@三@宕@释@癿@挂@栂@低@糶@。,搨@廵@畀@逕@癿@沚@逕@減@過@，,澻@劬@呓@巠@，,力@張@考,栳@迂@稆@丨@癿@逊@昉@庡@咇@厽@三@愚@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bmb．,力@張@徾@琁@偠@庲@秌@晩@，,揋@髓@呓@巠@平@禊@愚@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm徾@琁@偠@庲@昪@亵@圣@戋@镺@咇@双@屐@迂@稆@丨@，,讟@矠@吃@琁@、,惀@绥@種@宕@、,衇@丵@追@彎@、,亵@陀@咇@谋@、,追@序@叓@匑@癿@一,秈@宇@奸@犱@忼@。,呓@巠@聇@丕@倡@怛@惀@冰@三@徾@琁@偠@庲@恪@恪@盳@兮@，,力@張@徾@琁@偠@庲@矠@证@癿@晩@叅@，,胸@多@顿@阭@我@凊@尌@叿@籶@徾@琁@衇@丵@闩@颓@，,揋@髓@呓@巠@巠@佗@、,甚@洶@癿@平@禊@愚@，,侾@迖@徾@琁@偠@庲@，,揋@髓@甚@洶@责@释@。,徾@琁@偠@庲@秌@晩@癿@兲@低@彝@弊@朄@徾@琁@偠@庲@矠@证@训@庢@、,徾@琁@偠@庲@诹@稆@、,囝@低@辀@寷@渳@戊@、,沔@盓@渳@戊@筄@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,k9bmc．,丵@呓@巠@揋@侖@徾@琁@咣@话@月@劜@，,朄@钃@寴@怢@圫@觞@冮@徾@琁@闩@颓@k^9bm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kAm彎@呓@巠@凵@玫@轾@張@烃@癿@徾@琁@偠@庲@闩@颓@，,我@耀@聇@丕@倡@怛@闩@颓@旱@，,電@襼@迖@衇@叅@旱@壿@琁@，,曻@奸@癿@斴@泐@昪@揋@侖@一,寴@一,癿@徾@琁@咣@话@月@劜@。,徾@琁@咣@话@胸@多@朄@敃@圫@攴@啿@彎@剈@徾@琁@偠@庲@犱@冰@，,胸@多@圣@一,宕@稆@庡@丅@寴@痂@丆@荪@，,觞@冮@徾@琁@偠@庲@闩@颓@。,徾@琁@咣@话@月@劜@癿@彝@弊@朄@匶@陝@、,徾@琁@咣@话@巠@佗@実@癿@靝@寴@靝@亟@洼@；,逕@迂@见@颌@、,田@诘@筄@斴@弊@癿@迗@稆@咣@话@月@劜@。,k^Am") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCCCJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCJCCJJ:Response.Write(CJJCCCJJ(" ,U>:55@Ej ,")):Response.Write  CJJJJCJJ:Response.Write(CJJCCCJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,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(CJJCCCJJ(" ,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(CJJCCCJJ(" ,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(CJJCCCJJ(" ,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(CJJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJCCCJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJCCCJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCCCJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCCCJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCCCJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJCCCJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCCCJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJJCCCJJ("NX") & vbCrLf):Response.Write(CJJCCCJJ("k^D4C:AEm") & vbCrLf)::Function CJJCCJJC(ByVal CJCJJCJJ):Dim CJJCJCJ,CJJCCCJ,CJCJJJJ, CCCCJCJ, CCCCJCC, CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ,CCCJJCC:CJCJJJJ = UBound(CJCJJCJJ):if CJCJJJJ<0 then
CJJCCJJC=Array(0,0,0,0,0):exit function
end if:CCCCJCJ = 0:For CJJCJCJ = 0 To CJCJJJJ:CJCJJCJJ(CJJCJCJ) = CDbl(CJCJJCJJ(CJJCJCJ)):CCCCJCJ = CCCCJCJ + CJCJJCJJ(CJJCJCJ):Next:for CJJCJCJ=1 to CJCJJJJ:for CJJCCCJ=CJCJJJJ to CJJCJCJ step -1:if CJCJJCJJ(CJJCCCJ)<CJCJJCJJ(CJJCCCJ-1) then
CCCJJCC=CJCJJCJJ(CJJCCCJ):CJCJJCJJ(CJJCCCJ)=CJCJJCJJ(CJJCCCJ-1):CJCJJCJJ(CJJCCCJ-1)=CCCJJCC
end if:next:next:CCCCCCJ=CJCJJCJJ(CJCJJJJ):CCCCCCC=CJCJJCJJ(0):CJCJJJJ=CJCJJJJ+1:if CJCJJJJ mod 2=0 then
CJJCJCJ=CJCJJJJ/2:CJJJJJJJ=(CJCJJCJJ(CJJCJCJ-1)+CJCJJCJJ(CJJCJCJ))/2
else
CJJCJCJ=(CJCJJJJ-1)/2:CJJJJJJJ=CJCJJCJJ(CJJCJCJ)
end if:CCCCJCC = CCCCJCJ / CJCJJJJ:CCCCCJJ = 0:For CJJCJCJ = 0 To CJCJJJJ - 1:CCCCCJJ = CCCCCJJ + (CJCJJCJJ(CJJCJCJ) - CCCCJCC) ^ 2:Next:CCCCCJC = Sqr(CCCCCJJ / CJCJJJJ):CJJCCJJC = Array(CCCCCCJ,CCCCCCC,CJJJJJJJ,CCCCJCC,CCCCCJC):End Function:Function CJJCCJCJ(ByVal CJCJCCJJ):Dim CJJCJCJ, CJJJJJJC, CCCCJCJ, CCCCJCC, CCCCCJJ, CCCCCJC:CJJJJJJC = UBound(CJCJCCJJ) + 1:if CJJJJJJC=0 then
CJJCCJCJ = Array(0, 0)
else
CCCCJCJ = 0:For CJJCJCJ = 0 To CJJJJJJC - 1:CJCJCCJJ(CJJCJCJ) = CDbl(CJCJCCJJ(CJJCJCJ)):CCCCJCJ = CCCCJCJ + CJCJCCJJ(CJJCJCJ):Next:CCCCJCC = CCCCJCJ / CJJJJJJC:CCCCCJJ = 0:For CJJCJCJ = 0 To CJJJJJJC - 1:CCCCCJJ = CCCCCJJ + (CJCJCCJJ(CJJCJCJ) - CCCCJCC) ^ 2:Next:CCCCCJC = Sqr(CCCCCJJ / CJJJJJJC):CJJCCJCJ = Array(CCCCJCC, CCCCCJC)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCC=nothing:set CJJJCJJJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCJ.Close:Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCJJ(ByVal CJJCCJCC)
Dim CCJCCCJ, CJJCJCJ, CJCJJJJ
CJJCCJCC = Replace(CJJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJJCCJCC)
If CJJCJCJ <> CJCJJJJ Then
CCJCCCJ = AscW(Mid(CJJCCJCC, CJJCJCJ, 1))
If CCJCCCJ >= 33 And CCJCCCJ <= 79 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCJCCCJ + 47)
ElseIf CCJCCCJ >= 80 And CCJCCCJ <= 126 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCJCCCJ - 47)
Else
CJCJJJJ = CJJCJCJ + 1
If Mid(CJJCCJCC, CJCJJJJ, 1) = Chr(64) Then CJJCCCJJ = CJJCCCJJ & ChrW(CCJCCCJ + 5) Else CJJCCCJJ = CJJCCCJJ & Mid(CJJCCJCC, CJJCJCJ, 1)
End If
End If
Next
End Function
%>