<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJJJJJCC("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJJJJCC("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJJJJJCC("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
CCJCC=CJJJJJCC("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") & CCCJC & CJJJJJCC("V ,2?5 ,:5l") & CCCJJ
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJJJJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJJJJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJJCJJJ):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJCJ(CJJCJJJ) then
Call RedirectMessage(CJJJJJCC("朾@陋@W") & CJJCJJJ & CJJJJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJCJ(CJJCJJJ):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJJCJJJ,CJJJJJCC("[")):CCJCJCJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CCJCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJCC("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CJJJJJCC("]")):if ubound(CCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then
Call ClearMemberCookie
else
CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then
Call ClearMemberCookie
else
CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC<DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJCC,CJJJJCJJ):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CJJJJCJJ):CCJJCC=mid(CJJJJCJJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJCJJ=CCCJJCC & CJJJJJCC("]") & CJJJJCJJ & CJJJJJCC("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCC("D"), CJJJJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCC("!$*|t|qt#"))=CCJCJJ:End Sub:::Function IIf(CJJJJCJC, CJJJJCCJ, CJJJJCCC):if isnull(CJJJJCJC) or isempty(CJJJJCJC) then
IIf = CJJJJCCC
elseif CJJJJCJC Then
IIf = CJJJJCCJ
Else
IIf = CJJJJCCC
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJJCC("FE7\g"):dim CJCCCC,CCJJCC,CCJCJC:if isarray(str) then
on error resume next:CJCCCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CJJJJJCC("k3C ,^m")
response.Write CJCCCC & CJJJJJCC("i ,") & str(CJCCCC):next
else
response.Write CJJJJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCC=0 to ubound(str,2):response.Write CJJJJJCC("kE9 ,2=:8?lV=67EVm") & CJCCCC & CJJJJJCC("k^E9m")
next:response.Write CJJJJJCC("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CJJJJJCC("kECmkE9m") & CJCCCC & CJJJJJCC("k^E9m"):for CCJJCC=0 to ubound(str,2):response.Write CJJJJJCC("kE5m") & str(CJCCCC,CCJJCC) & CJJJJJCC("k^E5m"):next:response.Write CJJJJJCC("k^ECm"):next:response.Write CJJJJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCJJJ,CJJJCJJC):dim CCJJJC:CCJJJC=CJJJCJJJ & CJJJJJCC("l") & CJJJCJJC & CJJJJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCC("$6E\r@@<:6"),CCJJJC):End Sub::::::sub ShowMessage(CJJJCJCJ):response.Charset="utf-8":Response.Write CJJJJJCC("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") & CJJJCJCJ & CJJJJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCCJJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then
CCJCCJJ=false
else
Dim CCJCCJ:Set CCJCCJ = New RegExp:CCJCCJ.Pattern = CJJJJJCC("/-5ZS"):CCJCCJ.IgnoreCase = True:CCJCCJJ = CCJCCJ.test(CCJCJC):set CCJCCJ=nothing
end if:End Function:Function CCJCCJC(CJJJCJCC):dim CCJCCC,CCCJJJ:CCJCCC=CJJJJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJCC & CJJJJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJJJ=CJCCC.execute(CCJCCC):CCJCCJC = CCCJJJ(0):if isnull(CCJCCJC) then CCJCCJC=1
CCCJJJ.close : set CCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCJJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCJJJ.close : set CCCJJJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCC("!$*0|6DD286"),server.URLEncode(CJJJCJCJ)):Response.Redirect CJJJJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJJCCJJ,CJJJCCJC):dim str,CCJCJC:str=CJJJJJCC("!$*0") & Ucase(CJJJCCJJ):if Session(str)<>"" then
CCJCJC=DateDiff(CJJJJJCC("D"),Session(str),Time):if CCJCJC<CJJJCCJC and CCJCJC>0 then
Call ConnClose:Call ShowMessage(CJJJJJCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJCCJC & CJJJJJCC(" ,种@，,迓@剤@ ,") & CJJJCCJC-CCJCJC & CJJJJJCC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJJCCCJ):dim CJCCCC,CCJJCC,CCCJCJ,CCCJCC:on error resume next:CCCJCJ=ubound(CJJJCCCJ):CCCJCC=ubound(CJJJCCCJ,2):if err.number<>0 then
err.clear:for CJCCCC=0 to CCCJCJ:CJJJCCCJ(CJCCCC)=0:next
else
for CJCCCC=0 to CCCJCJ:for CCJJCC=0 to CCCJCC:CJJJCCCJ(CJCCCC,CCJJCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJJCCCC):Application.Contents.Remove CJJJCCCC
End Sub::Class jTree:Private CCJCC, CCCCJJ, CCCCJC, CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Private Sub Class_Initialize():CCCCJC = 0:CCCCCJ = 0:CJJJJCJ=10:End Sub:Public Property Let Table(CJJCJJJJ):if CJJCJJJJ="" then Call RedirectMessage(CJJJJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCCCCC=CJJCJJJJ:CJJJJJJ=CJJJJJCC("!$*0") & UCase(CCCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCCC:End Property:::Private Sub GetTreeArray():Dim CJCCCC, CCJJCC, CJJJJCC,CJJJCJJ:CCCCJJ = Application(CJJJJJJ):If Not IsArray(CCCCJJ) Then
CCJCC = CJJJJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCCC:if CJJJJJC<>"" then CCJCC=CCJCC & CJJJJJCC(" ,H96C6 ,") & CJJJJJC
set CJJJJCC=CJCCC.execute(CCJCC):CJJJCJJ=CJJJJCC(0):if CJJJCJJ=0 then Call RedirectMessage(CJJJJJCC("柠@话@W") & CCCCCC & CJJJJJCC("^") & CJJJJJC & CJJJJJCC("X沜@朄@绎@林@敫@捩@"))
CCCCCJ=CJJJCJJ+CJJJJCJ:ReDim CCCCJJ(CCCCCJ, 4):CCJCC = CJJJJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CJJJJJCC(" ,H:E9 ,W?@=@4<X"):if CJJJJJC<>"" then CCJCC=CCJCC & CJJJJJCC(" ,H96C6 ,") & CJJJJJC
CCJCC=CCJCC & CJJJJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJJJJCC=CJCCC.execute(CCJCC):For CJCCCC = 1 To CJJJCJJ:For CCJJCC = 0 To 4:CCCCJJ(CJCCCC, CCJJCC) = CJJJJCC(CCJJCC):if IsNull(CCCCJJ(CJCCCC,4)) then CCCCJJ(CJCCCC,4)=0
If CCCCJJ(CJCCCC,2)="" then CCCCJJ(CJCCCC,2)=CJJJJJCC(",穵@.")
Next:CJJJJCC.MoveNext:Next:CJJJJCC.Close: Set CJJJJCC = Nothing:for CJCCCC=CCCCCJ-(CJJJJCJ-1) to CCCCCJ:CCCCJJ(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CJJJJJJ) = CCCCJJ:Application.UnLock()
else
CCCCCJ=Ubound(CCCCJJ)
End If:End Sub::::Public Function GetChild(CCCJJCC):Dim CJCCCC, Str:CCCJJCC=CLng(CCCJJCC):For CJCCCC = 1 To CCCCCJ:If CCCCJJ(CJCCCC, 1) = CCCJJCC Then Str = Str & CJJJJJCC("M") & CCCCJJ(CJCCCC, 0) & CJJJJJCC("M") & CCCCJJ(CJCCCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJJJCC("M")):End Function:Private Function CCCJCJC(CCCJJCC):dim CJCCCC,CJJJCJC:CCCJCJC=0:CJJJCJC=CStr(CCCJJCC):if CJJJCJC<>"0" then
for CJCCCC=1 to CCCCCJ:If CStr(CCCCJJ(CJCCCC, 0))=CJJJCJC Then
CCCJCJC = CJCCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJJCC):if Cstr(CCCJJCC)="0" then
GetCurName=CJJJJJCC("栴@")
else
Dim CJCCCC,CJJJJCC:CJCCCC=CCCJCJC(CCCJJCC):if CJCCCC>0 then
GetCurName=CCCCJJ(CJCCCC,2):if GetCurName="" then
set CJJJJCC=CJCCC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJJCC):if CJJJJCC.eof then Call RedirectMessage(CJJJJJCC("xs（,") & CCCJJCC & CJJJJJCC("）,朥@批@别@"))
GetCurName=CJJJJCC(1):Call UpdateCache(CCCJJCC,CJJJJCC(0),GetCurName,CJJJJCC(2),CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if
else
set CJJJJCC=CJCCC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJJCC):if CJJJJCC.eof then Call RedirectMessage(CJJJJJCC("xs（,") & CCCJJCC & CJJJJJCC("）,朥@批@别@"))
GetCurName=CJJJJCC(1):Call UpdateCache(CCCJJCC,CJJJJCC(0),GetCurName,CJJJJCC(2),CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if
end if:End Function:::Public Function CCCJCCC(CCCJJCC):Dim CJCCCC,CJJJCCJ:CJCCCC=CCCJCJC(CCCJJCC):if CJCCCC=0 then
CJJJCCJ=CCCCJJJ(CCCJJCC)
else
CJJJCCJ=CCCCJJ(CJCCCC,3):if isnull(CJJJCCJ) or CJJJCCJ="" then
CJJJCCJ=CCCCJJJ(CCCJJCC)
elseif Mid(CJJJCCJ,instrrev(CJJJCCJ,CJJJJJCC("["))+1)<>CStr(CCCJJCC) then
CJJJCCJ=CCCCJJJ(CCCJJCC)
elseif Left(CJJJCCJ,1)=CJJJJJCC("[") then
CJJJCCJ=CCCCJJJ(CCCJJCC)
end if
end if:CCCJCCC=CJJJCCJ:End Function:Private Function CCCCJJJ(CCCJJCC):dim CJJJCJC:CJJJCJC=CStr(CCCJJCC):if CJJJCJC="0" then
CCCCJJJ=""
else
dim CJJJJCC:set CJJJJCC=CJCCC.execute(CJJJJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCCC & CJJJJJCC(" ,H96C6 ,:5l") & CCCJJCC):if CJJJJCC.eof then
Call UpdateCache(CCCJJCC,"","","",""):Call RedirectMessage(CJJJJJCC("顴@盩@（,xs：,") & CCCJJCC & CJJJJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJJCC(0)=0 then
CCCCJJJ="0," & CCCJJCC
else
CCCCJJJ=CCCJCCC(CJJJJCC(0)) & CJJJJJCC("[") & CCCJJCC
end if:if CJJJJCC(2)<>CCCCJJJ then
CJCCC.execute CJJJJJCC("FA52E6 ,") & CCCCCC & CJJJJJCC(" ,D6E ,A2E9lV") & CCCCJJJ & CJJJJJCC("V ,H96C6 ,:5l") & CCCJJCC
else
CCCCJJJ=CJJJJCC(2)
end if
end if:Call UpdateCache(CCCJJCC,CJJJJCC(0),CJJJJCC(1),CCCCJJJ,CJJJJCC(3)):CJJJJCC.Close: Set CJJJJCC = Nothing
end if:End Function::Public Function CCCCJJC(CCCJJCC):CCCCJJC = Mid(CCCJCCC(CCCJJCC), 3):End Function:Public Function CCCCJCJ(CCCJJCC):Dim CJCCCC, CCJJCC, CJJJCCC,Str, CJJJCCJ, CJJCJJJ, CCJJJJ():CJJJCCJ = CCCCJJC(CCCJJCC):CJJJCCJ = Split(CJJJCCJ, CJJJJJCC("[")):for CJCCCC=0 to Ubound(CJJJCCJ):CJJJCCC=CJJJCCJ(CJCCCC):str=str & CJJJJJCC("M") & CJJJCCC & CJJJJJCC("M") & GetCurName(CJJJCCC):next:if str<>"" then str=Mid(str,2)
CCCCJCJ=str:End Function:Public Function IsParent(CJJCJJJC, CJJCJJCJ):IsParent=InStr(CCCJCCC(CJJCJJCJ) & CJJJJJCC("["), CJJJJJCC("[") & CJJCJJJC & CJJJJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJJCC):dim CJJJCCJ:CJJJCCJ=CCCJCCC(CCCJJCC):Sql_GetChildren = CCCCCC & CJJJJJCC("0A2E9ZV[V ,=:<6 ,V") & CJJJCCJ & CJJJJJCC("[TV")
End Function:::Public Function GetPositionStr_From(CCCJJCC, CCCCCCJ):if isnull(CCCJJCC) or isnull(CCCCCCJ) then
GetPositionStr_From=CJJJJJCC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJCCCC, CCJJJJ, CJJCJJJ, CJJCJJC:CCCCCCJ = CStr(CCCCCCJ):If CCCCCCJ = "0" or CCCCCCJ = CStr(CCCJJCC) Then
Str = GetCurName(CCCJJCC)
Else
CCJJJJ = Split(CCCCJCJ(CCCJJCC), CJJJJJCC("M")):CJJCJJJ = UBound(CCJJJJ):CJJCJJC = False:For CJCCCC = 0 To CJJCJJJ Step 2:If CCJJJJ(CJCCCC) = CCCCCCJ And Not CJJCJJC Then CJJCJJC = True
If CJJCJJC Then
If Str <> "" Then Str = Str & CJJJJJCC("→,")
Str = Str & CCJJJJ(CJCCCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJJCC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJJJJJ
End Sub:Public Sub UpdateCache(CCCJJCC,CJJJCCC,CJJCJJCC,CJJJCCJ,CJJCJCJJ):dim CJCCCC,CCJJCC:CCCJJCC=CLng(CCCJJCC):CJCCCC=CCCJCJC(CCCJJCC):if CJJJCCC="" and CJJCJJCC="" and CJJJCCJ="" and CJJCJCJJ="" then
if CJCCCC>0 then
for CCJJCC=1 to 4:CCCCJJ(CJCCCC,CCJJCC)=Null:next
end if
else
if CJCCCC=0 then
for CCJJCC=1 to CCCCCJ:if CCCCJJ(CCJJCC,1) & ""="" then
CJCCCC=CCJJCC:exit for
end if:next
end if:if CJCCCC=0 then
Call ClearCache
else
CCCCJJ(CJCCCC,0)=CLng(CCCJJCC):if CJJJCCC<>"" then CCCCJJ(CJCCCC,1)=CLng(CJJJCCC)
if CJJCJJCC<>"" then CCCCJJ(CJCCCC,2)=CJJCJJCC
if CJJJCCJ<>"" then CCCCJJ(CJCCCC,3)=CJJJCCJ
if CJJCJCJJ<>"" then CCCCJJ(CJCCCC,4)=CLng(CJJCJCJJ)
end if
end if:if CJCCCC>0 then
Application.Lock():Application(CJJJJJJ) = CCCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJCJ):Call ConnClose:Response.Write CJJJCJCJ:Response.End:End Sub:Private Function CCJCCJC():CCJCCJC=CCCCCCC+1:End Function:Private Function CCCCCCC():dim CCCJJJ:set CCCJJJ=CJCCC.execute(CJJJJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCCC & CJJJJJCC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCC=CCCJJJ(0):CCCJJJ.Close: Set CCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJCJJJ=7:Const CCJCJJC="自评抑郁量表（SDS）":Call CheckRight("54,81"):Call CheckQueryTime(CJJJJJCC("%6DE0#6A@CE"),30):dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:CJJCCCC=Request.QueryString(CJJJJJCC("$49@@=")):CJJCJCJ=Request.QueryString(CJJJJJCC("s6AE")):CJJCJCC=Request.QueryString(CJJJJJCC("vC256")):CJJCCJJ=Request.QueryString(CJJJJJCC("vC@FA")):CJJCCJC=Request.QueryString(CJJJJJCC("E`")):CJJCCCJ=Request.QueryString(CJJJJJCC("Ea")):if not CCJCCJJ(CJJCJCJ) then Call RedirectMessage(CJJJJJCC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCCCJJ:set CCCCJJ=new jtree:CCCCJJ.table=CJJJJJCC(">6>36C0EJA6"):if not CCCCJJ.IsParent(CCCCC,CJJCJCJ) then Call RedirectMessage(CJJJJJCC("诠@苾@囯@W") & CJJCJCJ & CJJJJJCC("X丈@圣@患@W") & CCCCC & CJJJJJCC("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJJJJJJ:CJJJJJJJ=CCCCJJ.GetChild(CJJCJCJ):if ubound(CJJJJJJJ)<0 then Call RedirectMessage(CJJJJJCC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJJJJJJJ=join(CJJJJJJJ,CJJJJJCC("M")) & CJJJJJCC("M_M共@仑@"):CJJJJJJJ=split(CJJJJJJJ,CJJJJJCC("M")):dim CJCJJJJ:CJCJJJJ=CCCCJJ.GetCurName(CJJCJCJ):dim CJCCCC,CCJJCC,CCJCJJ,CJCJJJC,CJCJJCJ,CJCJJCC:dim CJCJCJJ():redim CJCJCJJ((ubound(CJJJJJJJ)-1)/2,6):for CJCCCC=0 to ubound(CJJJJJJJ)-1 step 2:CCJCJJ=CJCCCC/2:CJCJCJJ(CCJCJJ,0)=CJJJJJJJ(CJCCCC):CJCJCJJ(CCJCJJ,1)=CJJJJJJJ(CJCCCC+1):for CCJJCC=2 to ubound(CJCJCJJ,2):CJCJCJJ(CCJCJJ,CCJJCC)=0:next:next:dim CJCJCJC(1,3):Call ArrayInit(CJCJCJC):CJCJCJC(0,0)=CJJJJJCC("甲@"):CJCJCJC(1,0)=CJJJJJCC("奮@"):dim CJCJCCJ,CJCJCCC:CJCJCCJ=Date:CJCJCCC=cdate(CJJJJJCC("a___\`\`")):dim CJCCJJJ(4,3):Call ArrayInit(CJCCJJJ):dim CCJJJJ,CJCCJJC,CJCCJCJ,CJCCJCC:dim CJCCCJJ,CJCCCJC:dim CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:CCJCC=CJJJJJCC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60C2H[C6DF=E[C62=?2>6[>6>36CEJA6[?F>36C[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJCJJJ & CJJJJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJJCJCJ)=cstr(CJJCCCC) then CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCC else CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,") & CCCCJJ.Sql_GetChildren(CJJCJCJ)
if CCJCCJJ(CJJCJCC) then CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,8C256l") & CJJCJCC
if CCJCCJJ(CJJCCJJ) then CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJJCCJJ
if isdate(CJJCCJC) then CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,52E6E:>6mlV") & CJJCCJC & CJJJJJCC("V")
if isdate(CJJCCCJ) then CCJCC=CCJCC & CJJJJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCCJ)+1 & CJJJJJCC("V")
CCJCC=CCJCC & CJJJJJCC(" ,@C56C ,3J ,>6>36CEJA6"):set CCJJC=CCJJJ.execute(CCJCC):if CCJJC.eof then Call RedirectMessage(CJJJJJCC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CCJJC.eof:CCJJJJ=split(CCJJC(3),CJJJJJCC("M")):if ubound(CCJJJJ)<4 then Call RedirectMessage(CCJJC(5) & CJJJJJCC("（,") & CCJJC(7) & CJJJJJCC("）,癿@浆@诐@讫@彐@丨@朄@旛@敃@敫@捩@，,诲@创@陟@（,") & CCJJC(8) & CJJJJJCC("）,。,"))
CJCCCCJ=CCJJJJ(4):CCJJJJ=split(CCJJC(4),CJJJJJCC("M")):CCJCJJ=CCJJC(1):if CCJCJJ<CJCJCCJ then CJCJCCJ=CCJCJJ
if CCJCJJ>CJCJCCC then CJCJCCC=CCJCJJ
if CCJJC(2) then CCJJCC=0 else CCJJCC=1
CJCJCJC(CCJJCC,1)=CJCJCJC(CCJJCC,1)+1:CJCJCJC(CCJJCC,2)=CJCJCJC(CCJJCC,2) & CJJJJJCC("M") & CJCCCCJ:CJCCCCC=CJCCCCC+csng(CJCCCCJ):for CJCCCC=0 to 4:CCJJCC=CCJJJJ(CJCCCC):CJCCJJJ(CJCCCC,CCJJCC)=CJCCJJJ(CJCCCC,CCJJCC)+1:next:if CCJJJJ(4)="2" or CCJJJJ(4)="3" then
if CCJJC(6)<>CJCCCJJ then
CJCCCJJ=CCJJC(6):CJCCCJC=CCCCJJ.GetPositionStr_From(CJCCCJJ,CJJCCCC)
end if:if CCJJJJ(4)="2" then
CCJJJJJ=CCJJJJJ & CCJJC(5) & CJJJJJCC("M") & IIf(CCJJC(2),CJJJJJCC("甲@"),CJJJJJCC("奮@")) & CJJJJJCC("M") & CJCCCJC & vbcrlf
else
CCJJJJC=CCJJJJC & CCJJC(5) & CJJJJJCC("M") & IIf(CCJJC(2),CJJJJJCC("甲@"),CJJJJJCC("奮@")) & CJJJJJCC("M") & CJCCCJC & vbcrlf
end if
end if:CCJJCC=ubound(CJCJCJJ):for CJCCCC=0 to CCJJCC-1:if instr(CCJJC(0) & CJJJJJCC("["),CJJJJJCC("[") & CJCJCJJ(CJCCCC,0) & CJJJJJCC("["))>0 then
CCJJCC=CJCCCC:exit for
end if:next:CJCCCC=CCJJCC:CJCJCJJ(CJCCCC,2)=CJCJCJJ(CJCCCC,2)+1:CCJCJJ=cint(CCJJJJ(4))+3:CJCJCJJ(CJCCCC,CCJCJJ)=CJCJCJJ(CJCCCC,CCJCJJ)+1:CJCCJCJ=CJCCJCJ+1:CCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJCC("k9625m") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJCC("kE:E=6m")):Response.Write  CJCJJJJ:Response.Write(CJJJJJCC("\")):Response.Write  CCJCJJC:Response.Write(CJJJJJCC("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJJJCC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJJJCC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJJJCC("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(CJJJJJCC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJJJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("k^9625m") & vbCrLf):Response.Write(CJJJJJCC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJCC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,k9`mkD>2==m")):Response.Write  CJCJJJJ:Response.Write(CJJJJJCC("k^D>2==mk3Cm")):Response.Write  CCJCJJC:Response.Write(CJJJJJCC("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm臥@访@抌@邼@释@衣@（,$s$）,昪@咣@话@闣@诅@丨@亁@觞@抌@邼@痂@犱@癿@一,秈@帳@産@臥@访@巠@兲@，,産@争@衜@释@抌@邼@犱@忼@癿@轶@釈@稆@庡@，,胸@朄@敃@圫@又@昛@抌@邼@犱@忼@癿@朄@兮@痂@犱@叅@共@丠@釈@稆@庡@癿@叓@匑@，,兲@朄@艪@奸@癿@俜@庡@咇@敃@庡@。,$s$浆@释@癿@昪@曻@迌@一,呣@冀@癿@痂@犱@氯@幮@，,访@刁@丈@叒@幯@齿@、,怢@刦@、,绊@浉@犱@冰@筄@四@紛@癿@彬@哈@，,甬@a_严@陃@迫@叠@咇@盳@序@癿@闩@颓@杜@盩@线@戋@，,毊@一,杜@盩@盳@彎@争@一,严@朄@兮@痂@犱@，,挄@`\c红@访@刁@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm栴@捩@浆@诐@绎@林@，,只@封@叒@浆@耀@癿@抌@邼@稆@庡@刁@丵@囖@严@筄@红@：,旛@抌@邼@、,轶@庡@抌@邼@、,丨@庡@抌@邼@、,釈@庡@抌@邼@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm")):Response.Write  formatdatetime(CJCJCCJ,1):Response.Write(CJJJJJCC("～,")):Response.Write  formatdatetime(CJCJCCC,1):Response.Write(CJJJJJCC("k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am丄@、,浆@访@羟@低@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m楽@迫@：, ,公@讜@")):Response.Write  CJCCJCJ:Response.Write(CJJJJJCC("亵@厽@三@，,共@丨@甲@怢@")):Response.Write  CJCJCJC(0,1):Response.Write(CJJJJJCC("亵@，,奮@怢@")):Response.Write  CJCJCJC(1,1):Response.Write(CJJJJJCC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCJJCC=0:for CJCCCC=0 to ubound(CJCJCJJ):if CJCJCJJ(CJCCCC,2)>0 then
CCJJCC=CCJJCC+1:response.Write CJCJCJJ(CJCCCC,1) & CJCJCJJ(CJCCCC,2) & CJJJJJCC("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,公@讜@")):Response.Write  CCJJCC:Response.Write(CJJJJJCC("严@卐@佈@。,") & vbCrLf):Response.Write(CJJJJJCC(" ,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am囖@、,怶@低@浆@访@绎@林@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bm`] ,怶@低@抌@邼@犱@冰@k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCCJCC=CJCCCCC/CJCCJCJ:if CJCCJCC<0.5 then
Response.Write CJJJJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@抌@邼@惀@绥@圣@迌@朚@壿@争@歞@帳@犱@忼@。,")
elseif CJCCJCC<0.6 then
Response.Write CJJJJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@抌@邼@惀@绥@圣@迌@朚@孓@圣@轶@庡@抌@邼@。,")
elseif CJCCJCC<0.7 then
Response.Write CJJJJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@抌@邼@惀@绥@圣@迌@朚@孓@圣@丨@庡@抌@邼@，,抌@邼@惀@冰@每@轾@丠@釈@。,")
else
Response.Write CJJJJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@抌@邼@惀@绥@圣@迌@朚@孓@圣@釈@庡@抌@邼@，,抌@邼@惀@冰@每@轾@丠@釈@。,")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,")):redim CCJJJJ(3):for CJCCCC=0 to 3:CCJJJJ(CJCCCC)=formatpercent(CJCCJJJ(4,CJCCCC)/CJCCJCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kAm圣@浆@柠@羟@低@丨@，,朄@k4@56m")):Response.Write  CJCCJJJ(4,0):Response.Write(CJJJJJCC("k^4@56m亵@丈@孓@圣@抌@邼@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CCJJJJ(0):Response.Write(CJJJJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CJCCJJJ(4,1):Response.Write(CJJJJJCC("k^4@56m亵@孓@圣@轶@庡@抌@邼@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CCJJJJ(1):Response.Write(CJJJJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CJCCJJJ(4,2):Response.Write(CJJJJJCC("k^4@56m亵@孓@圣@丨@庡@抌@邼@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CCJJJJ(2):Response.Write(CJJJJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CJCCJJJ(4,3):Response.Write(CJJJJJCC("k^4@56m亵@孓@圣@釈@庡@抌@邼@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CCJJJJ(3):Response.Write(CJJJJJCC("k^4@56m。,诲@兮@泣@孓@圣@抌@邼@惀@绥@癿@叒@浆@耀@，,揋@侖@徾@琁@帩@劤@，,缎@觞@共@抌@邼@惀@绥@，,尟@共@電@襼@釈@炴@兮@泣@孓@圣@丨@、,釈@庡@抌@邼@癿@叒@浆@耀@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m抌@邼@惀@绥@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m旛@抌@邼@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m轶@庡@抌@邼@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m丨@庡@抌@邼@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m釈@庡@抌@邼@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CJCCCC=0 to 3:Response.Write CJJJJJCC("kE5m") & CJCCJJJ(4,CJCCCC) & CJJJJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CJCCCC=0 to 3:Response.Write CJJJJJCC("kE5m") & CCJJJJ(CJCCCC) & CJJJJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl旛@抌@邼@M轶@庡@抌@邼@M丨@庡@抌@邼@M釈@庡@抌@邼@UGl")):Response.Write  CJCCJJJ(4,0) & CJJJJJCC("[") & CJCCJJJ(4,1) & CJJJJJCC("[") & CJCCJJJ(4,2) & CJJJJJCC("[") & CJCCJJJ(4,3):Response.Write(CJJJJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bma] ,丨@庡@抌@邼@耀@合@卐@k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCJJJJ=split(CCJJJJJ,vbcrlf):for CJCCCC=0 to ubound(CCJJJJ)-1:Response.Write CJJJJJCC("kECmkE5m") & (CJCCCC+1) & CJJJJJCC("k^E5m"):CJCCJJC=split(CCJJJJ(CJCCCC),CJJJJJCC("M")):for CCJJCC=0 to ubound(CJCCJJC):if CCJJCC=2 then
Response.Write CJJJJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCCJJC(CCJJCC) & CJJJJJCC("k^E5m")
else
Response.Write CJJJJJCC("kE5m") & CJCCJJC(CCJJCC) & CJJJJJCC("k^E5m")
end if:next:Response.Write CJJJJJCC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bmb] ,釈@庡@抌@邼@耀@合@卐@k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D> ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9mRk^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCJJJJ=split(CCJJJJC,vbcrlf):for CJCCCC=0 to ubound(CCJJJJ)-1:Response.Write CJJJJJCC("kECmkE5m") & (CJCCCC+1) & CJJJJJCC("k^E5m"):CJCCJJC=split(CCJJJJ(CJCCCC),CJJJJJCC("M")):for CCJJCC=0 to 1:Response.Write CJJJJJCC("kE5m") & CJCCJJC(CCJJCC) & CJJJJJCC("k^E5m"):next:Response.Write CJJJJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCCJJC(2) & CJJJJJCC("k^E5mk^ECm")
next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9bmc] ,兲@低@刁@枋@k^9bm") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm抌@邼@臥@访@释@衣@癿@浆@访@冀@宴@朄@粹@祙@怢@—,惀@愚@痂@犱@、,躪@低@怢@痂@犱@、,粹@祙@迋@劣@怢@隗@碈@、,抌@邼@癿@徾@琁@隗@碈@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m粹@祙@怢@—,惀@愚@痂@犱@：,仞@衣@叒@浆@耀@镺@朚@孓@圣@沩@丢@、,邼@闲@、,哨@泞@筄@惀@绥@佉@萸@犱@冰@。,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m躪@低@怢@痂@犱@：,又@序@叒@浆@耀@孓@圣@癿@粹@劖@缵@乊@、,飚@欭@凊@迻@、,夬@眛@、,低@釈@凊@轶@、,徾@跮@力@忦@咇@旛@敀@疭@劮@癿@惀@冰@。,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m粹@祙@迋@劣@怢@隗@碈@：,仞@衣@叒@浆@耀@偕@了@惀@每@仠@彻@缎@慝@、,坋@竆@丈@宄@癿@犱@忼@。,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k=:m抌@邼@癿@徾@琁@隗@碈@：,仞@衣@叒@浆@耀@怘@绯@淲@乬@、,夯@脌@丈@渀@楕@、,寴@朥@杠@夬@厶@帇@朖@、,臥@贞@咇@臥@罥@愚@犱@冰@。,k^=:m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm叿@兲@低@痂@犱@丨@庡@咇@釈@庡@亵@敫@超@夕@，,卛@每@超@髓@仞@衣@圣@朧@欜@浆@访@羟@低@丨@，,诠@痂@犱@昪@曻@電@襼@袦@兮@泣@咇@觞@冮@癿@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CCJJJJ=split(CJJJJJCC("粹@祙@怢@—,惀@愚@痂@犱@M躪@低@怢@痂@犱@M粹@祙@迋@劣@怢@隗@碈@M抌@邼@癿@徾@琁@隗@碈@"),CJJJJJCC("M")):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm兲@低@痂@犱@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm丨@庡@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm釈@庡@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m卛@每@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m卛@每@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CJCCCC=0 to 3:Response.Write CJJJJJCC("kECmkE5m") & CCJJJJ(CJCCCC) & CJJJJJCC("k^E5m"):for CCJJCC=2 to 3:if CJCCJJJ(CJCCCC,CCJJCC)>0 then
Response.Write CJJJJJCC("kE5m") & CJCCJJJ(CJCCCC,CCJJCC) & CJJJJJCC("k^E5mkE5m") & formatpercent(CJCCJJJ(CJCCCC,CCJJCC)/CJCCJCJ,2,-1) & CJJJJJCC("k^E5m")
else
Response.Write CJJJJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CJJJJJCC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am亏@、,丈@吇@卐@佈@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm甬@丆@衣@只@矠@叿@卐@佈@癿@兲@朄@抌@邼@惀@绥@癿@叒@浆@耀@癿@亵@敫@咇@每@來@，,寴@争@返@郣@刁@亵@羟@，,卐@佈@電@襼@揋@侖@徾@琁@帩@劤@，,仠@缎@觞@共@抌@邼@惀@绥@，,尟@共@昪@電@襼@兮@泣@孓@圣@丨@、,釈@庡@抌@邼@惀@绥@癿@叒@浆@耀@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm卐@佈@^抌@邼@惀@绥@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm歞@帳@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm轶@庡@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm丨@庡@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm釈@庡@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CJCCCC=0 to 3:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):CJCJJJC="":CJCJJCJ=CJJJJJCC(",V歞@帳@V[V轶@庡@V[V丨@庡@V[V釈@庡@V.")
for CJCCCC=0 to ubound(CJCJCJJ):if CJCJCJJ(CJCCCC,2)>0 then
CJCJJJC=CJCJJJC & CJJJJJCC("M") & CJCJCJJ(CJCCCC,1):CJCJJCJ=CJCJJCJ & CJJJJJCC("[,"):Response.Write CJJJJJCC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CJCJCJJ(CJCCCC,1) & CJJJJJCC("k^E5m")
for CCJJCC=0 to 3:if CCJJCC>0 then CJCJJCJ=CJCJJCJ & CJJJJJCC("[")
CCJCJJ=CCJJCC+3:if CJCJCJJ(CJCCCC,CCJCJJ)>0 then
CJCCJCC=formatnumber(CJCJCJJ(CJCCCC,CCJCJJ)/CJCJCJJ(CJCCCC,2)*100,1,-1):CJCJJCJ=CJCJJCJ & CJCCJCC:Response.Write CJJJJJCC("kE5m") & CJCJCJJ(CJCCCC,CCJCJJ) & CJJJJJCC("k^E5m"):Response.Write CJJJJJCC("kE5m") & CJCCJCC & CJJJJJCC("k^E5m")
else
CJCJJCJ=CJCJJCJ & "0":Response.Write CJJJJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:CJCJJCJ=CJCJJCJ & CJJJJJCC("."):Response.Write CJJJJJCC("k^ECm")
end if:next:CJCJJJC=mid(CJCJJJC,2):Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQIQ ,G2=F6lQ")):Response.Write  CJCJJJC:Response.Write(CJJJJJCC("Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CJCJJCJ:Response.Write(CJJJJJCC("Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4l32CU?lTU=l_U9l")):Response.Write  (ubound(split(CJCJJJC,CJJJJJCC("M")))+1)*80+60:Response.Write(CJJJJJCC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am全@、,丈@吇@怢@刦@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm甲@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9 ,4@=DA2?lQaQm奮@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m坂@倷@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m坂@倷@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,kECm") & vbCrLf):Response.Write(CJJJJJCC(" ,")):for CJCCCC=0 to 1:CCJJJJ=CJJJJJJC(split(mid(CJCJCJC(CJCCCC,2),3),CJJJJJCC("M"))):CJCJCJC(CJCCCC,3)=CCJJJJ(0):Response.Write CJJJJJCC("kE5m") & formatnumber(CCJJJJ(0),2,-1) & CJJJJJCC("k^E5mkE5m") & formatnumber(CCJJJJ(1),2,-1) & CJJJJJCC("k^E5m"):next:if CJCJCJC(0,3)>CJCJCJC(1,3) then CCJJJCJ=CJJJJJCC("甲@") else CCJJJCJ=CJJJJJCC("奮@")
Response.Write(vbCrLf):Response.Write(CJJJJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm敯@低@耇@觻@，,")):Response.Write  CCJJJCJ:Response.Write(CJJJJJCC("怢@癿@抌@邼@稆@庡@盳@寴@轾@髓@，,衣@昉@圣@叒@浆@羟@低@丨@，,")):Response.Write  CCJJJCJ:Response.Write(CJJJJJCC("怢@曯@宴@明@叒@别@抌@邼@惀@绥@癿@囫@扫@，,只@胸@朄@惀@绥@佉@萸@、,愚@别@悭@覽@夬@朖@、,粹@劖@轾@巩@筄@衣@玫@，,電@襼@寴@返@郣@刁@亵@羟@釈@炴@兮@泣@叅@揋@侖@徾@琁@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k9am七,、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJJJJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm`] ,宕@朚@迖@衇@徾@琁@偠@庲@访@伫@，,兮@泣@徾@琁@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm只@朄@线@绂@癿@、,朄@讜@刍@癿@宕@朚@廻@屐@徾@琁@偠@庲@访@伫@巠@佗@，,迖@衇@一,亖@盳@兮@癿@徾@琁@课@柠@咇@浆@诐@，,叅@旱@、,凁@硩@癿@亁@觞@徾@琁@偠@庲@犱@冰@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAma] ,丵@孓@圣@抌@邼@惀@绥@癿@叒@浆@耀@揋@侖@与@丕@癿@徾@琁@鉯@刦@三@诅@斨@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm钃@寴@策@逄@凵@杠@癿@孓@圣@抌@邼@惀@绥@癿@叒@浆@耀@，,只@迖@一,歠@迖@衇@鉯@刦@，,掍@陟@严@刦@叒@浆@耀@昪@晽@旱@癿@闩@颓@我@耀@昪@“,裀@痀@”,。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmb] ,逕@迂@咣@话@、,囝@辀@、,训@庢@筄@夕@秈@彝@弊@，,丵@叒@浆@耀@揋@侖@朄@敃@癿@徾@琁@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm寴@争@轶@庡@抌@邼@癿@叒@浆@耀@，,只@廻@屐@一,亖@洶@劣@，,帩@劤@仑@仧@缎@觞@抌@邼@惀@绥@。,寴@争@丨@庡@、,釈@庡@抌@邼@癿@叒@浆@耀@，,只@鼎@劬@仑@仧@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAmc] ,迖@衇@徾@琁@偠@庲@实@伛@，,埴@其@叒@浆@耀@癿@徾@琁@偠@庲@愊@证@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,kAm判@産@夕@秈@彝@弊@寴@叒@浆@耀@迖@衇@徾@琁@偠@庲@实@伛@，,墙@張@叒@浆@耀@兮@泣@咇@绯@抟@徾@琁@偠@庲@癿@愊@证@，,亁@觞@徾@琁@偠@庲@癿@盳@兮@矠@证@，,掇@揜@一,亖@惀@绥@课@艽@癿@斴@泐@，,矠@過@亻@乃@旱@倔@電@襼@徾@琁@帩@劤@，,哥@亖@透@彿@只@仠@莲@徒@徾@琁@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJJJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJJJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJJJCC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJCJJJJ:Response.Write(CJJJJJCC(" ,U>:55@Ej ,")):Response.Write  CCJCJJC:Response.Write(CJJJJJCC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,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(CJJJJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJCC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJJJCC(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJJJJCC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJJJCC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJJJCC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJJJCC(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJJJJCC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJJJCC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJJJCC(" ,NX") & vbCrLf):Response.Write(CJJJJJCC("NX") & vbCrLf):Response.Write(CJJJJJCC("k^D4C:AEm") & vbCrLf)::Function CJJJJJJC(ByVal CJJCJCCJ):Dim CJCCCC, CCJJJCC, CJCCCCC, CCJJCJJ, CCJJCJC, CCJJCCJ:CCJJJCC = UBound(CJJCJCCJ) + 1:if CCJJJCC=0 then
CJJJJJJC = Array(0, 0)
else
CJCCCCC = 0:For CJCCCC = 0 To CCJJJCC - 1:CJJCJCCJ(CJCCCC) = CDbl(CJJCJCCJ(CJCCCC)):CJCCCCC = CJCCCCC + CJJCJCCJ(CJCCCC):Next:CCJJCJJ = CJCCCCC / CCJJJCC:CCJJCJC = 0:For CJCCCC = 0 To CCJJJCC - 1:CCJJCJC = CCJJCJC + (CJJCJCCJ(CJCCCC) - CCJJCJJ) ^ 2:Next:CCJJCCJ = Sqr(CCJJCJC / CCJJJCC):CJJJJJJC = Array(CCJJCJJ, CCJJCCJ)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJJJJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCJJ=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCC(ByVal CJJJJJCJ)
Dim CJCJJCJ, CJCCCC, CCJCJC
CJJJJJCJ = Replace(CJJJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CJJJJJCJ)
If CJCCCC <> CCJCJC Then
CJCJJCJ = AscW(Mid(CJJJJJCJ, CJCCCC, 1))
If CJCJJCJ >= 33 And CJCJJCJ <= 79 Then
CJJJJJCC = CJJJJJCC & Chr(CJCJJCJ + 47)
ElseIf CJCJJCJ >= 80 And CJCJJCJ <= 126 Then
CJJJJJCC = CJJJJJCC & Chr(CJCJJCJ - 47)
Else
CCJCJC = CJCCCC + 1
If Mid(CJJJJJCJ, CCJCJC, 1) = Chr(64) Then CJJJJJCC = CJJJJJCC & ChrW(CJCJJCJ + 5) Else CJJJJJCC = CJJJJJCC & Mid(CJJJJJCJ, CJCCCC, 1)
End If
End If
Next
End Function
%>