<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CJJCJJCC("ps~sq]r@??64E:@?")):CJJCCC.open Application(CJJCJJCC("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CJJCJJCC("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=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") & CJCCJC & CJJCJJCC("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CJJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CJJCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:Sub CheckRight(CJCCJJJ):dim CCCCCC,CJJJJJJ:if CJCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCJCJ(CJCCJJJ) then
Call RedirectMessage(CJJCJJCC("朾@陋@W") & CJCCJJJ & CJJCJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCJCJ(CJCCJJJ):dim CCCCCC,CJJJJJJ:CJJJJJJ=split(CJCCJJJ,CJJCJJCC("[")):CCCCJCJ=False:for CCCCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCJ,CJJJJJJ(CCCCCC),1)="1" then
CCCCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJCC("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CCCCCC,CJJJJCC,CJJJCJJ:CJJJJJC=split(CCCCCJ,CJJCJJCC("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CCCCCC=1 to len(CJJJJCJ):CJJJJCC=mid(CJJJJCJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJJ<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJJCC=mid(CJJJJCJ,18,10)/2:if CJJJJCC<DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJJC(0)):CJCCJC=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCC,CJJCJCJJ):dim CCCCCC,CJJJJCC,CJJJCJJ:for CCCCCC=1 to len(CJJCJCJJ):CJJJJCC=mid(CJJCJCJJ,CCCCCC,1):if isnumeric(CJJJJCC) then CJJJCJJ=CJJJCJJ & CJJJJCC
if len(CJJJCJJ)=7 then exit for
next:CJJJCJJ=CJJJJJCC & CJJCJJCC("]") & CJJCJCJJ & CJJCJJCC("]") & Fix(10000*(Rnd+1)) & CJJJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCC("!$*|t|qt#"))=CJJJCJJ:End Sub:::Function IIf(CJJCJCJC, CJJCJCCJ, CJJCJCCC):if isnull(CJJCJCJC) or isempty(CJJCJCJC) then
IIf = CJJCJCCC
elseif CJJCJCJC Then
IIf = CJJCJCCJ
Else
IIf = CJJCJCCC
end if:End Function:Const CCCJCCC="^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 CCCCCC,CJJJJCC,CJJJCJC:if isarray(str) then
on error resume next:CCCCCC=ubound(str,2):CJJJCJC=err.number:err.clear:on error goto 0:if CJJJCJC<>0 then
for CCCCCC=0 to ubound(str):if CCCCCC>0 then response.Write CJJCJJCC("k3C ,^m")
response.Write CCCCCC & CJJCJJCC("i ,") & str(CCCCCC):next
else
response.Write CJJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCC=0 to ubound(str,2):response.Write CJJCJJCC("kE9 ,2=:8?lV=67EVm") & CCCCCC & CJJCJJCC("k^E9m")
next:response.Write CJJCJJCC("k^ECm"):for CCCCCC=0 to ubound(str):response.Write CJJCJJCC("kECmkE9m") & CCCCCC & CJJCJJCC("k^E9m"):for CJJJJCC=0 to ubound(str,2):response.Write CJJCJJCC("kE5m") & str(CCCCCC,CJJJJCC) & 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(CJJCCJJJ,CJJCCJJC):dim CJJJJJC:CJJJJJC=CJJCCJJJ & CJJCJJCC("l") & CJJCCJJC & CJJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCC("$6E\r@@<:6"),CJJJJJC):End Sub::::::sub ShowMessage(CJJCCJCJ):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") & CJJCCJCJ & CJJCJJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCJJ(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CCCCCJJ=false
else
Dim CJJJCCJ:Set CJJJCCJ = New RegExp:CJJJCCJ.Pattern = CJJCJJCC("/-5ZS"):CJJJCCJ.IgnoreCase = True:CCCCCJJ = CJJJCCJ.test(CJJJCJC):set CJJJCCJ=nothing
end if:End Function:Function CCCCCJC(CJJCCJCC):dim CJJJCCC,CJJCJJJ:CJJJCCC=CJJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJCC & CJJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJJ=CJJCCC.execute(CJJJCCC):CCCCCJC = CJJCJJJ(0):if isnull(CCCCCJC) then CCCCCJC=1
CJJCJJJ.close : set CJJCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CJJJJJJC.Close : Set CJJJJJJC = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCC("!$*0|6DD286"),server.URLEncode(CJJCCJCJ)):Response.Redirect CJJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCCCJJ,CJJCCCJC):dim str,CJJJCJC:str=CJJCJJCC("!$*0") & Ucase(CJJCCCJJ):if Session(str)<>"" then
CJJJCJC=DateDiff(CJJCJJCC("D"),Session(str),Time):if CJJJCJC<CJJCCCJC and CJJJCJC>0 then
Call ConnClose:Call ShowMessage(CJJCJJCC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCCCJC & CJJCJJCC(" ,种@，,迓@剤@ ,") & CJJCCCJC-CJJJCJC & CJJCJJCC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJJCCCCJ):dim CCCCCC,CJJJJCC,CJJCJCJ,CJJCJCC:on error resume next:CJJCJCJ=ubound(CJJCCCCJ):CJJCJCC=ubound(CJJCCCCJ,2):if err.number<>0 then
err.clear:for CCCCCC=0 to CJJCJCJ:CJJCCCCJ(CCCCCC)=0:next
else
for CCCCCC=0 to CJJCJCJ:for CJJJJCC=0 to CJJCJCC:CJJCCCCJ(CCCCCC,CJJJJCC)=0:next:next
end if:End Sub:::Sub ClearCache(CJJCCCCC):Application.Contents.Remove CJJCCCCC
End Sub::Class jTree:Private CJCJCC, CJJCCJJ, CJJCCJC, CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Private Sub Class_Initialize():CJJCCJC = 0:CJJCCCJ = 0:CJCJJCJ=10:End Sub:Public Property Let Table(CJCJJJJJ):if CJCJJJJJ="" then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCCC=CJCJJJJJ:CJCJJJJ=CJJCJJCC("!$*0") & UCase(CJJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCC:End Property:::Private Sub GetTreeArray():Dim CCCCCC, CJJJJCC, CJCJJCC,CJCJCJJ:CJJCCJJ = Application(CJCJJJJ):If Not IsArray(CJJCCJJ) Then
CJCJCC = CJJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCC:if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJCJJCC(" ,H96C6 ,") & CJCJJJC
set CJCJJCC=CJJCCC.execute(CJCJCC):CJCJCJJ=CJCJJCC(0):if CJCJCJJ=0 then Call RedirectMessage(CJJCJJCC("柠@话@W") & CJJCCCC & CJJCJJCC("^") & CJCJJJC & CJJCJJCC("X沜@朄@绎@林@敫@捩@"))
CJJCCCJ=CJCJCJJ+CJCJJCJ:ReDim CJJCCJJ(CJJCCCJ, 4):CJCJCC = CJJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H:E9 ,W?@=@4<X"):if CJCJJJC<>"" then CJCJCC=CJCJCC & CJJCJJCC(" ,H96C6 ,") & CJCJJJC
CJCJCC=CJCJCC & CJJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCC=CJJCCC.execute(CJCJCC):For CCCCCC = 1 To CJCJCJJ:For CJJJJCC = 0 To 4:CJJCCJJ(CCCCCC, CJJJJCC) = CJCJJCC(CJJJJCC):if IsNull(CJJCCJJ(CCCCCC,4)) then CJJCCJJ(CCCCCC,4)=0
If CJJCCJJ(CCCCCC,2)="" then CJJCCJJ(CCCCCC,2)=CJJCJJCC(",穵@.")
Next:CJCJJCC.MoveNext:Next:CJCJJCC.Close: Set CJCJJCC = Nothing:for CCCCCC=CJJCCCJ-(CJCJJCJ-1) to CJJCCCJ:CJJCCJJ(CCCCCC,0)=CCCCCC:next:Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
else
CJJCCCJ=Ubound(CJJCCJJ)
End If:End Sub::::Public Function GetChild(CJJJJJCC):Dim CCCCCC, Str:CJJJJJCC=CLng(CJJJJJCC):For CCCCCC = 1 To CJJCCCJ:If CJJCCJJ(CCCCCC, 1) = CJJJJJCC Then Str = Str & CJJCJJCC("M") & CJJCCJJ(CCCCCC, 0) & CJJCJJCC("M") & CJJCCJJ(CCCCCC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJCJJCC("M")):End Function:Private Function CJJJJCJC(CJJJJJCC):dim CCCCCC,CJCJCJC:CJJJJCJC=0:CJCJCJC=CStr(CJJJJJCC):if CJCJCJC<>"0" then
for CCCCCC=1 to CJJCCCJ:If CStr(CJJCCJJ(CCCCCC, 0))=CJCJCJC Then
CJJJJCJC = CCCCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJCC):if Cstr(CJJJJJCC)="0" then
GetCurName=CJJCJJCC("栴@")
else
Dim CCCCCC,CJCJJCC:CCCCCC=CJJJJCJC(CJJJJJCC):if CCCCCC>0 then
GetCurName=CJJCCJJ(CCCCCC,2):if GetCurName="" then
set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then Call RedirectMessage(CJJCJJCC("xs（,") & CJJJJJCC & CJJCJJCC("）,朥@批@别@"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJCC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
else
set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then Call RedirectMessage(CJJCJJCC("xs（,") & CJJJJJCC & CJJCJJCC("）,朥@批@别@"))
GetCurName=CJCJJCC(1):Call UpdateCache(CJJJJJCC,CJCJJCC(0),GetCurName,CJCJJCC(2),CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if
end if:End Function:::Public Function CJJJJCCC(CJJJJJCC):Dim CCCCCC,CJCJCCJ:CCCCCC=CJJJJCJC(CJJJJJCC):if CCCCCC=0 then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
else
CJCJCCJ=CJJCCJJ(CCCCCC,3):if isnull(CJCJCCJ) or CJCJCCJ="" then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
elseif Mid(CJCJCCJ,instrrev(CJCJCCJ,CJJCJJCC("["))+1)<>CStr(CJJJJJCC) then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
elseif Left(CJCJCCJ,1)=CJJCJJCC("[") then
CJCJCCJ=CJJJCJJJ(CJJJJJCC)
end if
end if:CJJJJCCC=CJCJCCJ:End Function:Private Function CJJJCJJJ(CJJJJJCC):dim CJCJCJC:CJCJCJC=CStr(CJJJJJCC):if CJCJCJC="0" then
CJJJCJJJ=""
else
dim CJCJJCC:set CJCJJCC=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,H96C6 ,:5l") & CJJJJJCC):if CJCJJCC.eof then
Call UpdateCache(CJJJJJCC,"","","",""):Call RedirectMessage(CJJCJJCC("顴@盩@（,xs：,") & CJJJJJCC & CJJCJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJCC(0)=0 then
CJJJCJJJ="0," & CJJJJJCC
else
CJJJCJJJ=CJJJJCCC(CJCJJCC(0)) & CJJCJJCC("[") & CJJJJJCC
end if:if CJCJJCC(2)<>CJJJCJJJ then
CJJCCC.execute CJJCJJCC("FA52E6 ,") & CJJCCCC & CJJCJJCC(" ,D6E ,A2E9lV") & CJJJCJJJ & CJJCJJCC("V ,H96C6 ,:5l") & CJJJJJCC
else
CJJJCJJJ=CJCJJCC(2)
end if
end if:Call UpdateCache(CJJJJJCC,CJCJJCC(0),CJCJJCC(1),CJJJCJJJ,CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing
end if:End Function::Public Function CJJJCJJC(CJJJJJCC):CJJJCJJC = Mid(CJJJJCCC(CJJJJJCC), 3):End Function:Public Function CJJJCJCJ(CJJJJJCC):Dim CCCCCC, CJJJJCC, CJCJCCC,Str, CJCJCCJ, CJCCJJJ, CJJJJJJ():CJCJCCJ = CJJJCJJC(CJJJJJCC):CJCJCCJ = Split(CJCJCCJ, CJJCJJCC("[")):for CCCCCC=0 to Ubound(CJCJCCJ):CJCJCCC=CJCJCCJ(CCCCCC):str=str & CJJCJJCC("M") & CJCJCCC & CJJCJJCC("M") & GetCurName(CJCJCCC):next:if str<>"" then str=Mid(str,2)
CJJJCJCJ=str:End Function:Public Function IsParent(CJCJJJJC, CJCJJJCJ):IsParent=InStr(CJJJJCCC(CJCJJJCJ) & CJJCJJCC("["), CJJCJJCC("[") & CJCJJJJC & CJJCJJCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJCC):dim CJCJCCJ:CJCJCCJ=CJJJJCCC(CJJJJJCC):Sql_GetChildren = CJJCCCC & CJJCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCJCCJ & CJJCJJCC("[TV")
End Function:::Public Function GetPositionStr_From(CJJJJJCC, CJJJCCCJ):if isnull(CJJJJJCC) or isnull(CJJJCCCJ) then
GetPositionStr_From=CJJCJJCC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCCCCC, CJJJJJJ, CJCCJJJ, CJCCJJC:CJJJCCCJ = CStr(CJJJCCCJ):If CJJJCCCJ = "0" or CJJJCCCJ = CStr(CJJJJJCC) Then
Str = GetCurName(CJJJJJCC)
Else
CJJJJJJ = Split(CJJJCJCJ(CJJJJJCC), CJJCJJCC("M")):CJCCJJJ = UBound(CJJJJJJ):CJCCJJC = False:For CCCCCC = 0 To CJCCJJJ Step 2:If CJJJJJJ(CCCCCC) = CJJJCCCJ And Not CJCCJJC Then CJCCJJC = True
If CJCCJJC Then
If Str <> "" Then Str = Str & CJJCJJCC("→,")
Str = Str & CJJJJJJ(CCCCCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCJJCC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJJ
End Sub:Public Sub UpdateCache(CJJJJJCC,CJCJCCC,CJCJJJCC,CJCJCCJ,CJCJJCJJ):dim CCCCCC,CJJJJCC:CJJJJJCC=CLng(CJJJJJCC):CCCCCC=CJJJJCJC(CJJJJJCC):if CJCJCCC="" and CJCJJJCC="" and CJCJCCJ="" and CJCJJCJJ="" then
if CCCCCC>0 then
for CJJJJCC=1 to 4:CJJCCJJ(CCCCCC,CJJJJCC)=Null:next
end if
else
if CCCCCC=0 then
for CJJJJCC=1 to CJJCCCJ:if CJJCCJJ(CJJJJCC,1) & ""="" then
CCCCCC=CJJJJCC:exit for
end if:next
end if:if CCCCCC=0 then
Call ClearCache
else
CJJCCJJ(CCCCCC,0)=CLng(CJJJJJCC):if CJCJCCC<>"" then CJJCCJJ(CCCCCC,1)=CLng(CJCJCCC)
if CJCJJJCC<>"" then CJJCCJJ(CCCCCC,2)=CJCJJJCC
if CJCJCCJ<>"" then CJJCCJJ(CCCCCC,3)=CJCJCCJ
if CJCJJCJJ<>"" then CJJCCJJ(CCCCCC,4)=CLng(CJCJJCJJ)
end if
end if:if CCCCCC>0 then
Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCJCJ):Call ConnClose:Response.Write CJJCCJCJ:Response.End:End Sub:Private Function CCCCCJC():CCCCCJC=CJJJCCCC+1:End Function:Private Function CJJJCCCC():dim CJJCJJJ:set CJJCJJJ=CJJCCC.execute(CJJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCC & CJJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCC=CJJCJJJ(0):CJJCJJJ.Close: Set CJJCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJJ=89:Const CCCCJJC="焦虑自评量表（SAS）":Call CheckRight("54,81"):Call CheckQueryTime(CJJCJJCC("%6DE0#6A@CE"),30):dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCCCC=Request.QueryString(CJJCJJCC("$49@@=")):CJCCJCJ=Request.QueryString(CJJCJJCC("s6AE")):CJCCJCC=Request.QueryString(CJJCJJCC("vC256")):CJCCCJJ=Request.QueryString(CJJCJJCC("vC@FA")):CJCCCJC=Request.QueryString(CJJCJJCC("E`")):CJCCCCJ=Request.QueryString(CJJCJJCC("Ea")):if not CCCCCJJ(CJCCJCJ) then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CJJCCJJ:set CJJCCJJ=new jtree:CJJCCJJ.table=CJJCJJCC(">6>36C0EJA6"):if not CJJCCJJ.IsParent(CJCCCC,CJCCJCJ) then Call RedirectMessage(CJJCJJCC("诠@苾@囯@W") & CJCCJCJ & CJJCJJCC("X丈@圣@患@W") & CJCCCC & CJJCJJCC("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJCJJJJ:CJJCJJJJ=CJJCCJJ.GetChild(CJCCJCJ):if ubound(CJJCJJJJ)<0 then Call RedirectMessage(CJJCJJCC("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJJCJJJJ=join(CJJCJJJJ,CJJCJJCC("M")) & CJJCJJCC("M_M共@仑@"):CJJCJJJJ=split(CJJCJJJJ,CJJCJJCC("M")):dim CCJJJJJ:CCJJJJJ=CJJCCJJ.GetCurName(CJCCJCJ):dim CCCCCC,CJJJJCC,CJJJCJJ,CCJJJJC,CCJJJCJ,CCJJJCC:dim CCJJCJJ():redim CCJJCJJ((ubound(CJJCJJJJ)-1)/2,6):for CCCCCC=0 to ubound(CJJCJJJJ)-1 step 2:CJJJCJJ=CCCCCC/2:CCJJCJJ(CJJJCJJ,0)=CJJCJJJJ(CCCCCC):CCJJCJJ(CJJJCJJ,1)=CJJCJJJJ(CCCCCC+1):for CJJJJCC=2 to ubound(CCJJCJJ,2):CCJJCJJ(CJJJCJJ,CJJJJCC)=0:next:next:dim CCJJCJC(1,3):Call ArrayInit(CCJJCJC):CCJJCJC(0,0)=CJJCJJCC("甲@"):CCJJCJC(1,0)=CJJCJJCC("奮@"):dim CCJJCCJ,CCJJCCC:CCJJCCJ=Date:CCJJCCC=cdate(CJJCJJCC("a___\`\`")):dim CCJCJJJ(2,3):Call ArrayInit(CCJCJJJ):dim CJJJJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:dim CCJCCJJ,CCJCCJC:dim CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ:CJCJCC=CJJCJJCC("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60E[C6DF=E[C62=?2>6[>6>36CEJA6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJJJ & CJJCJJCC(" ,2?5 ,G2=:5l`"):if cstr(CJCCJCJ)=cstr(CJCCCCC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCC else CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,") & CJJCCJJ.Sql_GetChildren(CJCCJCJ)
if CCCCCJJ(CJCCJCC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,8C256l") & CJCCJCC
if CCCCCJJ(CJCCCJJ) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,4FDE@>8C@FAl") & CJCCCJJ
if isdate(CJCCCJC) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,52E6E:>6mlV") & CJCCCJC & CJJCJJCC("V")
if isdate(CJCCCCJ) then CJCJCC=CJCJCC & CJJCJJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCCJ)+1 & CJJCJJCC("V")
CJCJCC=CJCJCC & CJJCJJCC(" ,@C56C ,3J ,>6>36CEJA6"):set CJCJJC=CJCJJJ.execute(CJCJCC):if CJCJJC.eof then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CJCJJC.eof:CCJCCCJ=split(CJCJJC(3),CJJCJJCC("M"))(0):CJJJJJJ=split(CJCJJC(4),CJJCJJCC("M")):CJJJCJJ=CJCJJC(1):if CJJJCJJ<CCJJCCJ then CCJJCCJ=CJJJCJJ
if CJJJCJJ>CCJJCCC then CCJJCCC=CJJJCJJ
if CJCJJC(2) then CJJJJCC=0 else CJJJJCC=1
CCJJCJC(CJJJJCC,1)=CCJJCJC(CJJJJCC,1)+1:CCJJCJC(CJJJJCC,2)=CCJJCJC(CJJJJCC,2) & CJJCJJCC("M") & CCJCCCJ:CCJCCCC=CCJCCCC+cint(CCJCCCJ):for CCCCCC=0 to 2:CJJJJCC=CJJJJJJ(CCCCCC):CCJCJJJ(CCCCCC,CJJJJCC)=CCJCJJJ(CCCCCC,CJJJJCC)+1:next:if CJJJJJJ(0)="2" or CJJJJJJ(0)="3" then
if CJCJJC(6)<>CCJCCJJ then
CCJCCJJ=CJCJJC(6):CCJCCJC=CJJCCJJ.GetPositionStr_From(CCJCCJJ,CJCCCCC)
end if:if CJJJJJJ(0)="2" then
CCCJJJJ=CCCJJJJ & CJCJJC(5) & CJJCJJCC("M") & IIf(CJCJJC(2),CJJCJJCC("甲@"),CJJCJJCC("奮@")) & CJJCJJCC("M") & CCJCCJC & vbcrlf
else
CCCJJJC=CCCJJJC & CJCJJC(5) & CJJCJJCC("M") & IIf(CJCJJC(2),CJJCJJCC("甲@"),CJJCJJCC("奮@")) & CJJCJJCC("M") & CCJCCJC & vbcrlf
end if
end if:CJJJJCC=ubound(CCJJCJJ):for CCCCCC=0 to CJJJJCC-1:if instr(CJCJJC(0) & CJJCJJCC("["),CJJCJJCC("[") & CCJJCJJ(CCCCCC,0) & CJJCJJCC("["))>0 then
CJJJJCC=CCCCCC:exit for
end if:next:CCCCCC=CJJJJCC:CCJJCJJ(CCCCCC,2)=CCJJCJJ(CCCCCC,2)+1:CJJJCJJ=cint(CJJJJJJ(0))+3:CCJJCJJ(CCCCCC,CJJJCJJ)=CCJJCJJ(CCCCCC,CJJJCJJ)+1:CCJCJCJ=CCJCJCJ+1:CJCJJC.movenext:wend: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  CCJJJJJ:Response.Write(CJJCJJCC("\")):Response.Write  CCCCJJC: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("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  CCJJJJJ:Response.Write(CJJCJJCC("k^D>2==mk3Cm")):Response.Write  CCCCJJC:Response.Write(CJJCJJCC("囝@低@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm無@虌@臥@访@释@衣@（,$p$）,昪@咣@话@闣@诅@丨@亁@觞@無@虌@痂@犱@癿@一,秈@帳@産@臥@访@巠@兲@，,産@争@浆@释@朄@無@虌@痂@犱@癿@严@低@癿@丶@覽@愚@叒@。,$p$浆@释@癿@昪@曻@迌@一,呣@冀@癿@痂@犱@氯@幮@，,访@刁@丈@叒@幯@齿@、,怢@刦@、,绊@浉@犱@冰@筄@四@紛@癿@彬@哈@，,公@朄@a_严@杜@盩@，,共@丨@朄@e严@屙@争@惀@愚@痂@犱@，,`c严@屙@争@躪@低@痂@犱@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm栴@捩@浆@诐@绎@林@，,只@封@叒@浆@耀@癿@無@虌@稆@庡@刁@丵@囖@严@筄@红@：,歞@帳@、,轶@庡@無@虌@、,丨@庡@無@虌@、,釈@庡@無@虌@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm")):Response.Write  formatdatetime(CCJJCCJ,1):Response.Write(CJJCJJCC("～,")):Response.Write  formatdatetime(CCJJCCC,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  CCJCJCJ:Response.Write(CJJCJJCC("亵@厽@三@，,共@丨@甲@怢@")):Response.Write  CCJJCJC(0,1):Response.Write(CJJCJJCC("亵@，,奮@怢@")):Response.Write  CCJJCJC(1,1):Response.Write(CJJCJJCC("亵@。,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJCC=0:for CCCCCC=0 to ubound(CCJJCJJ):if CCJJCJJ(CCCCCC,2)>0 then
CJJJJCC=CJJJJCC+1:response.Write CCJJCJJ(CCCCCC,1) & CCJJCJJ(CCCCCC,2) & CJJCJJCC("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,公@讜@")):Response.Write  CJJJJCC:Response.Write(CJJCJJCC("严@卐@佈@。,") & 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(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJCJCC=CCJCCCC/CCJCJCJ:if CCJCJCC<50 then
Response.Write CJJCJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@無@虌@惀@绥@圣@迌@朚@壿@争@歞@帳@犱@忼@。,")
elseif CCJCJCC<60 then
Response.Write CJJCJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@無@虌@惀@绥@圣@迌@朚@壿@争@轶@庡@無@虌@氯@幮@。,")
elseif CCJCJCC<70 then
Response.Write CJJCJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@無@虌@惀@绥@圣@迌@朚@壿@争@丨@庡@無@虌@氯@幮@，,無@虌@惀@冰@每@轾@丠@釈@。,")
else
Response.Write CJJCJJCC("怶@低@耇@觻@，,叒@浆@羟@低@癿@無@虌@惀@绥@圣@迌@朚@壿@争@釈@庡@無@虌@氯@幮@，,無@虌@惀@冰@每@轾@丠@釈@。,")
end if:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,")):redim CJJJJJJ(3):for CCCCCC=0 to 3:CJJJJJJ(CCCCCC)=formatpercent(CCJCJJJ(0,CCCCCC)/CCJCJCJ,2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kAm圣@浆@柠@羟@低@丨@，,朄@k4@56m")):Response.Write  CCJCJJJ(0,0):Response.Write(CJJCJJCC("k^4@56m亵@丈@孓@圣@無@虌@惀@绥@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CJJJJJJ(0):Response.Write(CJJCJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CCJCJJJ(0,1):Response.Write(CJJCJJCC("k^4@56m亵@壿@争@轶@庡@無@虌@氯@幮@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CJJJJJJ(1):Response.Write(CJJCJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CCJCJJJ(0,2):Response.Write(CJJCJJCC("k^4@56m亵@壿@争@丨@庡@無@虌@氯@幮@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CJJJJJJ(2):Response.Write(CJJCJJCC("k^4@56m；,朄@k4@56m")):Response.Write  CCJCJJJ(0,3):Response.Write(CJJCJJCC("k^4@56m亵@壿@争@釈@庡@無@虌@氯@幮@，,戻@卛@每@來@丵@k4@56m")):Response.Write  CJJJJJJ(3):Response.Write(CJJCJJCC("k^4@56m。,卐@佈@電@兮@泣@孓@圣@無@虌@惀@绥@癿@叒@浆@耀@，,帩@劤@共@缎@觞@無@虌@惀@绥@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,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(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(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m亵@敫@k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 3:Response.Write CJJCJJCC("kE5m") & CCJCJJJ(0,CCCCCC) & CJJCJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m每@來@k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 3:Response.Write CJJCJJCC("kE5m") & CJJJJJJ(CCCCCC) & CJJCJJCC("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M轶@庡@M丨@庡@M釈@庡@UGl")):Response.Write  CCJCJJJ(0,0) & CJJCJJCC("[") & CCJCJJJ(0,1) & CJJCJJCC("[") & CCJCJJJ(0,2) & CJJCJJCC("[") & CCJCJJJ(0,3):Response.Write(CJJCJJCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bma] ,丨@庡@無@虌@耀@合@卐@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mRk^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(" ,")):CJJJJJJ=split(CCCJJJJ,vbcrlf):for CCCCCC=0 to ubound(CJJJJJJ)-1:Response.Write CJJCJJCC("kECmkE5m") & (CCCCCC+1) & CJJCJJCC("k^E5m"):CCJCJJC=split(CJJJJJJ(CCCCCC),CJJCJJCC("M")):for CJJJJCC=0 to ubound(CCJCJJC):if CJJJJCC=2 then
Response.Write CJJCJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m")
else
Response.Write CJJCJJCC("kE5m") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m")
end if:next:Response.Write CJJCJJCC("k^ECm"):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmb] ,釈@庡@無@虌@耀@合@卐@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9mRk^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(" ,")):CJJJJJJ=split(CCCJJJC,vbcrlf):for CCCCCC=0 to ubound(CJJJJJJ)-1:Response.Write CJJCJJCC("kECmkE5m") & (CCCCCC+1) & CJJCJJCC("k^E5m"):CCJCJJC=split(CJJJJJJ(CCCCCC),CJJCJJCC("M")):for CJJJJCC=0 to 1:Response.Write CJJCJJCC("kE5m") & CCJCJJC(CJJJJCC) & CJJCJJCC("k^E5m"):next:Response.Write CJJCJJCC("kE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJCJJC(2) & CJJCJJCC("k^E5mk^ECm")
next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9bmc] ,兲@低@刁@枋@k^9bm") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm無@虌@臥@访@释@衣@癿@浆@访@冀@宴@朄@惀@愚@痂@犱@咇@躪@低@痂@犱@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m惀@愚@痂@犱@挂@绊@帳@丵@柋@亖@了@惀@愚@别@静@帳@索@弛@、,忢@虌@，,宴@明@烡@蹼@；,绊@帳@拀@徾@封@襼@双@甚@丈@奸@癿@了@惀@，,旛@缓@旛@敀@圫@愚@别@宮@怐@；,绊@帳@偕@噤@梡@；,愚@别@情@恋@，,规@徒@隹@仠@忈@叒@，,愚@规@粹@祙@壿@圣@疪@犽@癿@辴@缓@。,返@亖@丈@艪@惀@绥@寴@叒@浆@刔@癿@甚@洶@只@胸@逛@戋@丠@釈@癿@捚@宮@。,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k=:m躪@低@痂@犱@挂@四@丵@無@虌@耇@愚@别@一,亖@躦@低@丈@追@，,來@好@脳@纝@、,凵@汒@、,徾@跮@力@通@、,呷@吳@囫@隹@筄@；,圣@無@虌@癿@旱@倔@只@胸@伕@坋@竆@丈@宄@，,躦@低@癿@柋@亖@郣@佈@伕@规@徒@疷@痖@，,涃@匑@、,掍@沿@、,睜@眛@筄@劚@胸@只@胸@乚@伕@叒@别@癿@贚@靝@彬@哈@；,粹@劖@每@轾@巩@，,帳@伕@规@徒@疭@乊@。,返@亖@廽@帳@癿@躪@低@又@序@寴@叒@浆@刔@癿@甚@洶@只@胸@逛@戋@丠@釈@癿@捚@宮@。,k^=:m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm叿@兲@低@痂@犱@丨@庡@咇@釈@庡@亵@敫@超@夕@，,卛@每@超@髓@仞@衣@圣@朧@欜@浆@访@羟@低@丨@，,诠@痂@犱@昪@曻@電@襼@袦@兮@泣@咇@觞@冮@癿@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CJJJJJJ=split(CJJCJJCC("M惀@愚@痂@犱@M躪@低@痂@犱@"),CJJCJJCC("M")):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm兲@低@痂@犱@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 CCCCCC=1 to 2:Response.Write CJJCJJCC("kECmkE5m") & CJJJJJJ(CCCCCC) & CJJCJJCC("k^E5m"):for CJJJJCC=2 to 3:if CCJCJJJ(CCCCCC,CJJJJCC)>0 then
Response.Write CJJCJJCC("kE5m") & CCJCJJJ(CCCCCC,CJJJJCC) & CJJCJJCC("k^E5mkE5m") & formatpercent(CCJCJJJ(CCCCCC,CJJJJCC)/CCJCJCJ,2,-1) & CJJCJJCC("k^E5m")
else
Response.Write CJJCJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:Response.Write CJJCJJCC("k^ECm"):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(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am亏@、,丈@吇@卐@佈@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm甬@丆@衣@只@矠@叿@卐@佈@癿@兲@朄@無@虌@惀@绥@癿@叒@浆@耀@癿@亵@敫@咇@每@來@，,寴@争@返@郣@刁@亵@羟@，,卐@佈@電@襼@揋@侖@徾@琁@帩@劤@，,仠@缎@觞@共@無@虌@惀@绥@，,尟@共@昪@電@襼@兮@泣@孓@圣@丨@、,釈@庡@無@虌@惀@绥@癿@叒@浆@耀@。,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(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm卐@佈@^無@虌@惀@绥@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(" ,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(" ,")):for CCCCCC=0 to 3:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):CCJJJJC="":CCJJJCJ=CJJCJJCC(",V歞@帳@V[V轶@庡@V[V丨@庡@V[V釈@庡@V.")
for CCCCCC=0 to ubound(CCJJCJJ):if CCJJCJJ(CCCCCC,2)>0 then
CCJJJJC=CCJJJJC & CJJCJJCC("M") & CCJJCJJ(CCCCCC,1):CCJJJCJ=CCJJJCJ & CJJCJJCC("[,"):Response.Write CJJCJJCC("kECmkE5 ,4=2DDlV2>\E6IE\=67EVm") & CCJJCJJ(CCCCCC,1) & CJJCJJCC("k^E5m")
for CJJJJCC=0 to 3:if CJJJJCC>0 then CCJJJCJ=CCJJJCJ & CJJCJJCC("[")
CJJJCJJ=CJJJJCC+3:if CCJJCJJ(CCCCCC,CJJJCJJ)>0 then
CCJCJCC=formatnumber(CCJJCJJ(CCCCCC,CJJJCJJ)/CCJJCJJ(CCCCCC,2)*100,1,-1):CCJJJCJ=CCJJJCJ & CCJCJCC:Response.Write CJJCJJCC("kE5m") & CCJJCJJ(CCCCCC,CJJJCJJ) & CJJCJJCC("k^E5m"):Response.Write CJJCJJCC("kE5m") & CCJCJCC & CJJCJJCC("k^E5m")
else
CCJJJCJ=CCJJJCJ & "0":Response.Write CJJCJJCC("kE5mk^E5mkE5mk^E5m")
end if:next:CCJJJCJ=CCJJJCJ & CJJCJJCC("."):Response.Write CJJCJJCC("k^ECm")
end if:next:CCJJJJC=mid(CCJJJJC,2):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQIQ ,G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CJJCJJCC("Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,4=2DDlQGQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CJJCJJCC("Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4l32CU?lTU=l_U9l")):Response.Write  (ubound(split(CCJJJJC,CJJCJJCC("M")))+1)*80+60:Response.Write(CJJCJJCC("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k9am全@、,丈@吇@怢@刦@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCJJCC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,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(CJJCJJCC(" ,kE9625m") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & 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(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):for CCCCCC=0 to 1:CJJJJJJ=CJJCJJJC(split(mid(CCJJCJC(CCCCCC,2),3),CJJCJJCC("M"))):CCJJCJC(CCCCCC,3)=CJJJJJJ(0):Response.Write CJJCJJCC("kE5m") & formatnumber(CJJJJJJ(0),2,-1) & CJJCJJCC("k^E5mkE5m") & formatnumber(CJJJJJJ(1),2,-1) & CJJCJJCC("k^E5m"):next:if CCJJCJC(0,3)>CCJJCJC(1,3) then CCCJJCJ=CJJCJJCC("甲@") else CCCJJCJ=CJJCJJCC("奮@")
Response.Write(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敯@低@耇@觻@，,")):Response.Write  CCCJJCJ:Response.Write(CJJCJJCC("怢@癿@無@虌@稆@庡@癿@盳@寴@轾@髓@，,衣@昉@圣@叒@浆@羟@低@丨@，,")):Response.Write  CCCJJCJ: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(" ,kAm`] ,宕@朚@迖@衇@徾@琁@偠@庲@访@伫@，,兮@泣@徾@琁@偠@庲@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm卐@佈@只@朄@线@绂@癿@、,朄@讜@刍@癿@宕@朚@廻@屐@徾@琁@偠@庲@访@伫@巠@佗@，,迖@衇@一,亖@盳@兮@癿@徾@琁@课@柠@咇@浆@诐@，,叅@旱@、,凁@硩@癿@亁@觞@徾@琁@偠@庲@犱@冰@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAma] ,丵@孓@圣@無@虌@惀@绥@癿@叒@浆@耀@揋@侖@与@丕@癿@徾@琁@鉯@刦@三@诅@斨@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm钃@寴@策@逄@凵@杠@癿@孓@圣@無@虌@惀@绥@癿@叒@浆@耀@，,只@迖@一,歠@迖@衇@鉯@刦@，,掍@陟@严@刦@叒@浆@耀@昪@晽@旱@癿@闩@颓@我@耀@昪@“,裀@痀@”,。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmb] ,逕@迂@咣@话@、,囝@辀@、,训@庢@筄@夕@秈@彝@弊@，,丵@叒@浆@耀@揋@侖@朄@敃@癿@徾@琁@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm寴@争@轶@庡@無@虌@氯@幮@癿@叒@浆@耀@，,只@廻@屐@一,亖@洶@劣@，,帩@劤@仑@仧@缎@觞@無@虌@惀@绥@。,寴@争@丨@庡@、,釈@庡@無@虌@氯@幮@癿@叒@浆@耀@，,只@鼎@劬@仑@仧@叅@旱@尬@匶@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmc] ,迖@衇@徾@琁@偠@庲@实@伛@，,埴@其@叒@浆@耀@癿@徾@琁@偠@庲@愊@证@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAm判@産@夕@秈@彝@弊@寴@叒@浆@耀@迖@衇@徾@琁@偠@庲@实@伛@，,墙@張@叒@浆@耀@兮@泣@咇@绯@抟@徾@琁@偠@庲@癿@愊@证@，,亁@觞@徾@琁@偠@庲@癿@盳@兮@矠@证@，,掇@揜@一,亖@惀@绥@课@艽@癿@斴@泐@，,矠@過@亻@乃@旱@倔@電@襼@徾@琁@帩@劤@，,哥@亖@透@彿@只@仠@莲@徒@徾@琁@帩@劤@。,k^Am") & vbCrLf):Response.Write(CJJCJJCC(" ,kAmd] ,追@彎@癿@迋@劣@丈@什@只@仠@锶@炷@躦@低@，,迓@只@仠@陈@佉@無@虌@，,凊@尌@無@虌@戻@伯@隊@癿@躦@低@痂@犱@。,卐@佈@只@线@绂@廻@屐@一,亖@兮@争@迋@劣@癿@洶@劣@，,每@好@跌@歠@、,爧@屬@、,渳@泮@筄@。,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  CCJJJJJ:Response.Write(CJJCJJCC(" ,U>:55@Ej ,")):Response.Write  CCCCJJC: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 CJJCJJJC(ByVal CJCJJCCJ):Dim CCCCCC, CCCJJCC, CCJCCCC, CCCJCJJ, CCCJCJC, CCCJCCJ:CCCJJCC = UBound(CJCJJCCJ) + 1:if CCCJJCC=0 then
CJJCJJJC = Array(0, 0)
else
CCJCCCC = 0:For CCCCCC = 0 To CCCJJCC - 1:CJCJJCCJ(CCCCCC) = CDbl(CJCJJCCJ(CCCCCC)):CCJCCCC = CCJCCCC + CJCJJCCJ(CCCCCC):Next:CCCJCJJ = CCJCCCC / CCCJJCC:CCCJCJC = 0:For CCCCCC = 0 To CCCJJCC - 1:CCCJCJC = CCCJCJC + (CJCJJCCJ(CCCCCC) - CCCJCJJ) ^ 2:Next:CCCJCCJ = Sqr(CCCJCJC / CCCJJCC):CJJCJJJC = Array(CCCJCJJ, CCCJCCJ)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJCC(ByVal CJJCJJCJ)
Dim CCJJJCJ, CCCCCC, CJJJCJC
CJJCJJCJ = Replace(CJJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCC = 1 To Len(CJJCJJCJ)
If CCCCCC <> CJJJCJC Then
CCJJJCJ = AscW(Mid(CJJCJJCJ, CCCCCC, 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
CJJJCJC = CCCCCC + 1
If Mid(CJJCJJCJ, CJJJCJC, 1) = Chr(64) Then CJJCJJCC = CJJCJJCC & ChrW(CCJJJCJ + 5) Else CJJCJJCC = CJJCJJCC & Mid(CJJCJJCJ, CCCCCC, 1)
End If
End If
Next
End Function
%>