<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJJ, CCCJJC,CCCJCJ, CCCJCC, CCCCJJ:Set CCCJJJ = server.CreateObject(CJCJJJJJ("ps~sq]r@??64E:@?")):CCCJJJ.open Application(CJCJJJJJ("r@??64E:@?$EC:?8")):Set CCCJJC=CCCJJJ::Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC:CJJCCCC=Trim(Request.Cookies(CJCJJJJJ("!$*|t|qt#"))):if CJJCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJC>0 then
CCCCJJ=CJCJJJJJ("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") & CCCCCJ & CJCJJJJJ("V ,2?5 ,:5l") & CCCCJC
set CCCJCJ=CCCJJJ.execute(CCCCJJ):If CCCJCJ.EOF Then
Call ClearMemberCookie
Else
CCCCCC=CCCJCJ(2) & "":CJJJJJJ=CCCJCJ(3):CJJJJJC=CCCJCJ(5):CJJJJCJ=CCCJCJ(6):CJJJJCC=CCCJCJ(9):CJJJCJJ=CCCJCJ(15):CJJJCCJ=CCCJCJ(0):CJJCCJC=CCCJCJ(1):CJJCCJJ=CCCJCJ(11) & "":CJJJCCC=CCCJCJ(10) & "":CJJJCJC=CCCJCJ(12):CJJCJJJ=CCCJCJ(14):CJJCJJC=CCCJCJ(13):CJJCJCJ=CCCJCJ(7) & "":CJJCJCC=CCCJCJ(4):CJJCCCJ=CCCJCJ(8):if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CJJJJCC) or CJJJJCC=0 then CJJJJCC=CJJJJJJ
if isnull(CJJCJCC) then CJJCJCC=0
if isnull(CJJJJJC) then CJJJJJC=0
if instr(CJCJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCJ)>0 then Call RedirectMessage(CJCJJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCJC,CCCCCJ)
End IF
end if:Sub CheckRight(CJCCJCJ):dim CJCJJJJ,CJCJJJC:if CCCCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJCJCJ(CJCCJCJ) then
Call RedirectMessage(CJCJJJJJ("朾@陋@W") & CJCCJCJ & CJCJJJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJCJCJ(CJCCJCJ):dim CJCJJJJ,CJCJJJC:CJCJJJC=split(CJCCJCJ,CJCJJJJJ("[")):CJJJCJCJ=False:for CJCJJJJ=0 to ubound(CJCJJJC):If Mid(CCCCCC,CJCJJJC(CJCJJJJ),1)="1" then
CJJJCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJJJJJ("!$*|t|qt#"))="":CCCCJC=0:CJJJJCJ=0:CCCCCJ=Empty:CJJJJJC=0:CJJJCJJ=0:CJJJJCC=0:CJJJJJJ=0:CJJJCCJ=False:CJJCCJC=False:CJJCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCJ,CJCJJCC,CJCJJJJ,CJCJCJJ,CJCJCJC:CJCJJCJ=split(CJJCCCC,CJCJJJJJ("]")):if ubound(CJCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCJ(0)) or len(CJCJJCJ(1))<>32 or len(CJCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJCC=CJCJJCJ(1):for CJCJJJJ=1 to len(CJCJJCC):CJCJCJJ=mid(CJCJJCC,CJCJJJJ,1):if isnumeric(CJCJCJJ) then CJCJCJC=CJCJCJC & CJCJCJJ
if len(CJCJCJC)=7 then exit for
next:CJCJJCC=CJCJJCJ(2):if CJCJCJC<>mid(CJCJJCC,6,7) then
Call ClearMemberCookie
else
CJCJCJJ=mid(CJCJJCC,18,10)/2:if CJCJCJJ<DateDiff(CJCJJJJJ("D"), CJCJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJC=Clng(CJCJJCJ(0)):CCCCCJ=CJCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCJJ,CJCJJJJC):dim CJCJJJJ,CJCJCJJ,CJCJCJC:for CJCJJJJ=1 to len(CJCJJJJC):CJCJCJJ=mid(CJCJJJJC,CJCJJJJ,1):if isnumeric(CJCJCJJ) then CJCJCJC=CJCJCJC & CJCJCJJ
if len(CJCJCJC)=7 then exit for
next:CJCJCJC=CJJCJCJJ & CJCJJJJJ("]") & CJCJJJJC & CJCJJJJJ("]") & Fix(10000*(Rnd+1)) & CJCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJJJ("D"), CJCJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJJJ("!$*|t|qt#"))=CJCJCJC:End Sub::::Const CJJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJJJJJ("FE7\g"):dim CJCJJJJ,CJCJCJJ,CJCJCCJ:if isarray(str) then
on error resume next:CJCJJJJ=ubound(str,2):CJCJCCJ=err.number:err.clear:on error goto 0:if CJCJCCJ<>0 then
for CJCJJJJ=0 to ubound(str):if CJCJJJJ>0 then response.Write CJCJJJJJ("k3C ,^m")
response.Write CJCJJJJ & CJCJJJJJ("i ,") & str(CJCJJJJ):next
else
response.Write CJCJJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJJ=0 to ubound(str,2):response.Write CJCJJJJJ("kE9 ,2=:8?lV=67EVm") & CJCJJJJ & CJCJJJJJ("k^E9m")
next:response.Write CJCJJJJJ("k^ECm"):for CJCJJJJ=0 to ubound(str):response.Write CJCJJJJJ("kECmkE9m") & CJCJJJJ & CJCJJJJJ("k^E9m"):for CJCJCJJ=0 to ubound(str,2):response.Write CJCJJJJJ("kE5m") & str(CJCJJJJ,CJCJCJJ) & CJCJJJJJ("k^E5m"):next:response.Write CJCJJJJJ("k^ECm"):next:response.Write CJCJJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJJJCJ,CJCJJJCC):dim CJCJJCJ:CJCJJCJ=CJCJJJCJ & CJCJJJJJ("l") & CJCJJJCC & CJCJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJJJ("$6E\r@@<:6"),CJCJJCJ):End Sub::::::sub ShowMessage(CJCJJCJJ):response.Charset="utf-8":Response.Write CJCJJJJJ("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") & CJCJJCJJ & CJCJJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJCJCC(CJCJCCJ):if isnull(CJCJCCJ) or trim(CJCJCCJ)="" or not isnumeric(CJCJCCJ) then
CJJJCJCC=false
else
Dim CJCJCCC:Set CJCJCCC = New RegExp:CJCJCCC.Pattern = CJCJJJJJ("/-5ZS"):CJCJCCC.IgnoreCase = True:CJJJCJCC = CJCJCCC.test(CJCJCCJ):set CJCJCCC=nothing
end if:End Function:Function CJJJCCJJ(CJCJJCJC):dim CJCCJJJ,CJCCJJC:CJCCJJJ=CJCJJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJC & CJCJJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJC=CCCJJJ.execute(CJCCJJJ):CJJJCCJJ = CJCCJJC(0):if isnull(CJJJCCJJ) then CJJJCCJJ=1
CJCCJJC.close : set CJCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJJ=nothing:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCCJCC.Close : Set CCCJCC=Nothing:CCCJCJ.Close : Set CCCJCJ=Nothing:CJJCJJJJ.Close : Set CJJCJJJJ = Nothing:CCCJJJ.Close : Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJJJ("!$*0|6DD286"),server.URLEncode(CJCJJCJJ)):Response.Redirect CJCJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJCJJJC(Table):Dim CJCCJJC, CJCCJCJ, str(), CJCJJJJ,CJCJCJJ,CJCCCJJ:CJCCCJJ=UCase(Table):If Not IsArray(Application(CJCJJJJJ("!$*0") & CJCCCJJ)) Then
CCCCJJ=CJCJJJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJJJJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJJC=server.createobject(CJCJJJJJ("25@53]C64@C5D6E")):CJCCJJC.open CCCCJJ,CCCJJJ,1:CJCCJCJ = CJCCJJC.RecordCount:ReDim str(CJCCJCJ, 2):If CJCCJCJ > 0 Then
For CJCJJJJ = 1 To CJCCJCJ:for CJCJCJJ=0 to 2:str(CJCJJJJ, CJCJCJJ) = CJCCJJC(CJCJCJJ):next:CJCCJJC.MoveNext:Next
End If:CJCCJJC.Close: Set CJCCJJC = Nothing:Application(CJCJJJJJ("!$*0") & CJCCCJJ) = str
End If:CJJCJJJC = Application(CJCJJJJJ("!$*0") & CJCCCJJ):End Function::Function CJJCJJCJ(CJCJJCJC,CJCJJCCJ,CJJCJCJJ):Dim str, CJCJJJJ, CJCCCJC:CJCCCJC = CJJCJJJC(CJCJJCJC):For CJCJJJJ = 1 To UBound(CJCCCJC):if Cstr(CJCCCJC(CJCJJJJ,2))=Cstr(CJCJJCCJ) and CStr(CJCCCJC(CJCJJJJ, 0)) = CJJCJCJJ & "" then
str=CJCCCJC(CJCJJJJ,1):exit for
end if:Next:if str="" then str=CJCJJJJJ(",朥@矠@.")
CJJCJJCJ=str:End Function:::::::Sub CheckQueryTime(CJCJJCCC,CJCJCJJJ):dim str,CJCJCCJ:str=CJCJJJJJ("!$*0") & Ucase(CJCJJCCC):if Session(str)<>"" then
CJCJCCJ=DateDiff(CJCJJJJJ("D"),Session(str),Time):if CJCJCCJ<CJCJCJJJ and CJCJCCJ>0 then
Call ConnClose:Call ShowMessage(CJCJJJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJCJJJ & CJCJJJJJ(" ,种@，,迓@剤@ ,") & CJCJCJJJ-CJCJCCJ & CJCJJJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub:::::::Sub ArrayInit(CJCJCJJC):dim CJCJJJJ,CJCJCJJ,CJCCCCJ,CJCCCCC:on error resume next:CJCCCCJ=ubound(CJCJCJJC):CJCCCCC=ubound(CJCJCJJC,2):if err.number<>0 then
err.clear:for CJCJJJJ=0 to CJCCCCJ:CJCJCJJC(CJCJJJJ)=0:next
else
for CJCJJJJ=0 to CJCCCCJ:for CJCJCJJ=0 to CJCCCCC:CJCJCJJC(CJCJJJJ,CJCJCJJ)=0:next:next
end if:End Sub:::Sub ClearCache(CJCJCJCJ):Application.Contents.Remove CJCJCJCJ
End Sub::Class jTree:Private CCCCJJ, CCJJJJJ, CCJJJJC, CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:Private Sub Class_Initialize():CCJJJJC = 0:CCJJJCJ = 0:CCJJCCJ=10:End Sub:Public Property Let Table(CJCJCJCC):if CJCJCJCC="" then Call RedirectMessage(CJCJJJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJJCC=CJCJCJCC:CCJJCJJ=CJCJJJJJ("!$*0") & UCase(CCJJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJCC:End Property:::Private Sub GetTreeArray():Dim CJCJJJJ, CJCJCJJ, CCJJCCC,RecordCount:CCJJJJJ = Application(CCJJCJJ):If Not IsArray(CCJJJJJ) Then
CCCCJJ = CJCJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJCC:if CCJJCJC<>"" then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,H96C6 ,") & CCJJCJC
set CCJJCCC=CCCJJJ.execute(CCCCJJ):RecordCount=CCJJCCC(0):if RecordCount=0 then Call RedirectMessage(CJCJJJJJ("柠@话@W") & CCJJJCC & CJCJJJJJ("^") & CCJJCJC & CJCJJJJJ("X沜@朄@绎@林@敫@捩@"))
CCJJJCJ=RecordCount+CCJJCCJ:ReDim CCJJJJJ(CCJJJCJ, 4):CCCCJJ = CJCJJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCJJJJJ(" ,H:E9 ,W?@=@4<X"):if CCJJCJC<>"" then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,H96C6 ,") & CCJJCJC
CCCCJJ=CCCCJJ & CJCJJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCCC=CCCJJJ.execute(CCCCJJ):For CJCJJJJ = 1 To RecordCount:For CJCJCJJ = 0 To 4:CCJJJJJ(CJCJJJJ, CJCJCJJ) = CCJJCCC(CJCJCJJ):if IsNull(CCJJJJJ(CJCJJJJ,4)) then CCJJJJJ(CJCJJJJ,4)=0
If CCJJJJJ(CJCJJJJ,2)="" then CCJJJJJ(CJCJJJJ,2)=CJCJJJJJ(",穵@.")
Next:CCJJCCC.MoveNext:Next:CCJJCCC.Close: Set CCJJCCC = Nothing:for CJCJJJJ=CCJJJCJ-(CCJJCCJ-1) to CCJJJCJ:CCJJJJJ(CJCJJJJ,0)=CJCJJJJ:next:Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
else
CCJJJCJ=Ubound(CCJJJJJ)
End If:End Sub::::Public Function GetChild(CJJCJCJJ):Dim CJCJJJJ, Str:CJJCJCJJ=CLng(CJJCJCJJ):For CJCJJJJ = 1 To CCJJJCJ:If CCJJJJJ(CJCJJJJ, 1) = CJJCJCJJ Then Str = Str & CJCJJJJJ("M") & CCJJJJJ(CJCJJJJ, 0) & CJCJJJJJ("M") & CCJJJJJ(CJCJJJJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJCJJJJJ("M")):End Function:Private Function CJJCJCCJ(CJJCJCJJ):dim CJCJJJJ,CCJCJJC:CJJCJCCJ=0:CCJCJJC=CStr(CJJCJCJJ):if CCJCJJC<>"0" then
for CJCJJJJ=1 to CCJJJCJ:If CStr(CCJJJJJ(CJCJJJJ, 0))=CCJCJJC Then
CJJCJCCJ = CJCJJJJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJCJCJJ):if Cstr(CJJCJCJJ)="0" then
GetCurName=CJCJJJJJ("栴@")
else
Dim CJCJJJJ,CCJJCCC:CJCJJJJ=CJJCJCCJ(CJJCJCJJ):if CJCJJJJ>0 then
GetCurName=CCJJJJJ(CJCJJJJ,2):if GetCurName="" then
set CCJJCCC=CCCJJJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCJJJJJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJJCCC.eof then Call RedirectMessage(CJCJJJJJ("xs（,") & CJJCJCJJ & CJCJJJJJ("）,朥@批@别@"))
GetCurName=CCJJCCC(1):Call UpdateCache(CJJCJCJJ,CCJJCCC(0),GetCurName,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
else
set CCJJCCC=CCCJJJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCJJJJJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJJCCC.eof then Call RedirectMessage(CJCJJJJJ("xs（,") & CJJCJCJJ & CJCJJJJJ("）,朥@批@别@"))
GetCurName=CCJJCCC(1):Call UpdateCache(CJJCJCJJ,CCJJCCC(0),GetCurName,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
end if:End Function:::Public Function CJJCCJJJ(CJJCJCJJ):Dim CJCJJJJ,CCJCJCJ:CJCJJJJ=CJJCJCCJ(CJJCJCJJ):if CJCJJJJ=0 then
CCJCJCJ=CJJCCJJC(CJJCJCJJ)
else
CCJCJCJ=CCJJJJJ(CJCJJJJ,3):if isnull(CCJCJCJ) or CCJCJCJ="" then
CCJCJCJ=CJJCCJJC(CJJCJCJJ)
elseif Mid(CCJCJCJ,instrrev(CCJCJCJ,CJCJJJJJ("["))+1)<>CStr(CJJCJCJJ) then
CCJCJCJ=CJJCCJJC(CJJCJCJJ)
elseif Left(CCJCJCJ,1)=CJCJJJJJ("[") then
CCJCJCJ=CJJCCJJC(CJJCJCJJ)
end if
end if:CJJCCJJJ=CCJCJCJ:End Function:Private Function CJJCCJJC(CJJCJCJJ):dim CCJCJJC:CCJCJJC=CStr(CJJCJCJJ):if CCJCJJC="0" then
CJJCCJJC=""
else
dim CCJJCCC:set CCJJCCC=CCCJJJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCJJJJJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJJCCC.eof then
Call UpdateCache(CJJCJCJJ,"","","",""):Call RedirectMessage(CJCJJJJJ("顴@盩@（,xs：,") & CJJCJCJJ & CJCJJJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJCCC(0)=0 then
CJJCCJJC="0," & CJJCJCJJ
else
CJJCCJJC=CJJCCJJJ(CCJJCCC(0)) & CJCJJJJJ("[") & CJJCJCJJ
end if:if CCJJCCC(2)<>CJJCCJJC then
CCCJJJ.execute CJCJJJJJ("FA52E6 ,") & CCJJJCC & CJCJJJJJ(" ,D6E ,A2E9lV") & CJJCCJJC & CJCJJJJJ("V ,H96C6 ,:5l") & CJJCJCJJ
else
CJJCCJJC=CCJJCCC(2)
end if
end if:Call UpdateCache(CJJCJCJJ,CCJJCCC(0),CCJJCCC(1),CJJCCJJC,CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if:End Function::::Public Function IsParent(CJCJCCJJ, CJCJCCJC):IsParent=InStr(CJJCCJJJ(CJCJCCJC) & CJCJJJJJ("["), CJCJJJJJ("[") & CJCJCCJJ & CJCJJJJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCJCJJ):dim CCJCJCJ:CCJCJCJ=CJJCCJJJ(CJJCJCJJ):Sql_GetChildren = CCJJJCC & CJCJJJJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJCJ & CJCJJJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJJ
End Sub:Public Sub UpdateCache(CJJCJCJJ,CJCJCCCJ,CJCJCCCC,CCJCJCJ,CJCCJJJJ):dim CJCJJJJ,CJCJCJJ:CJJCJCJJ=CLng(CJJCJCJJ):CJCJJJJ=CJJCJCCJ(CJJCJCJJ):if CJCJCCCJ="" and CJCJCCCC="" and CCJCJCJ="" and CJCCJJJJ="" then
if CJCJJJJ>0 then
for CJCJCJJ=1 to 4:CCJJJJJ(CJCJJJJ,CJCJCJJ)=Null:next
end if
else
if CJCJJJJ=0 then
for CJCJCJJ=1 to CCJJJCJ:if CCJJJJJ(CJCJCJJ,1) & ""="" then
CJCJJJJ=CJCJCJJ:exit for
end if:next
end if:if CJCJJJJ=0 then
Call ClearCache
else
CCJJJJJ(CJCJJJJ,0)=CLng(CJJCJCJJ):if CJCJCCCJ<>"" then CCJJJJJ(CJCJJJJ,1)=CLng(CJCJCCCJ)
if CJCJCCCC<>"" then CCJJJJJ(CJCJJJJ,2)=CJCJCCCC
if CCJCJCJ<>"" then CCJJJJJ(CJCJJJJ,3)=CCJCJCJ
if CJCCJJJJ<>"" then CCJJJJJ(CJCJJJJ,4)=CLng(CJCCJJJJ)
end if
end if:if CJCJJJJ>0 then
Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJCJJ):Call ConnClose:Response.Write CJCJJCJJ:Response.End:End Sub:Private Function CJJJCCJJ():CJJJCCJJ=CJJCCCJJ+1:End Function:Private Function CJJCCCJJ():dim CJCCJJC:set CJCCJJC=CCCJJJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJCC & CJCJJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCCJJ=CJCCJJC(0):CJCCJJC.Close: Set CJCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCJJJ=198:Const CJJJCJJC="职业锚测评问卷":Call CheckRight("54,81"):Call CheckQueryTime(CJCJJJJJ("%6DE0#6A@CE"),30):dim CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:CCCJJJJ=Request.QueryString(CJCJJJJJ("$49@@=")):CCJCJCC=Request.QueryString(CJCJJJJJ("s6AE")):CCJCCJJ=Request.QueryString(CJCJJJJJ("vC256")):CCJCCJC=Request.QueryString(CJCJJJJJ("vC@FA")):CCJCCCJ=Request.QueryString(CJCJJJJJ("E`")):CCJCCCC=Request.QueryString(CJCJJJJJ("Ea")):if not CJJJCJCC(CCJCJCC) then Call RedirectMessage(CJCJJJJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCJJJJJ:set CCJJJJJ=new jtree:CCJJJJJ.table=CJCJJJJJ(">6>36C0EJA6"):if not CCJJJJJ.IsParent(CJJJJJJ,CCJCJCC) then Call RedirectMessage(CJCJJJJJ("诠@苾@囯@W") & CCJCJCC & CJCJJJJJ("X丈@圣@患@W") & CJJJJJJ & CJCJJJJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJCCCJC:CJJCCCJC=CCJJJJJ.GetChild(CCJCJCC):if ubound(CJJCCCJC)<0 then Call RedirectMessage(CJCJJJJJ("苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
CJJCCCJC=join(CJJCCCJC,CJCJJJJJ("M")) & CJCJJJJJ("M_M共@仑@"):CJJCCCJC=split(CJJCCCJC,CJCJJJJJ("M")):dim CCCJJJC:CCCJJJC=CCJJJJJ.GetCurName(CCJCJCC):dim CCCJJCJ,CCCJJCC:CCCJJCJ=split(CJCJJJJJ("%uMv|Mp&M$tMtrM$'MrwM{$"),CJCJJJJJ("M")):CCCJJCC=split(CJCJJJJJ("扻@未@^聇@胸@垆@M箜@琁@垆@M臥@丶@^狧@竆@垆@M宄@兣@^種@宕@垆@M刖@逛@^刖@丕@垆@M月@劜@垆@M挌@戓@垆@M甚@洶@垆@"),CJCJJJJJ("M")):dim CJCJJJJ,CJCJCJJ,CJCJCJC,CCCJCJJ,CCCJCJC,CCCJCCJ:dim CCCJCCC():redim CCCJCCC((ubound(CJJCCCJC)-1)/2,18):for CJCJJJJ=0 to ubound(CJJCCCJC)-1 step 2:CJCJCJC=CJCJJJJ/2:CCCJCCC(CJCJCJC,0)=CJJCCCJC(CJCJJJJ):CCCJCCC(CJCJCJC,1)=CJJCCCJC(CJCJJJJ+1):for CJCJCJJ=2 to ubound(CCCJCCC,2):CCCJCCC(CJCJCJC,CJCJCJJ)=0:next:next:dim CCCCJJJ(1,17):Call ArrayInit(CCCCJJJ):CCCCJJJ(0,0)=CJCJJJJJ("甲@"):CCCCJJJ(1,0)=CJCJJJJJ("奮@"):dim CCCCJJC(7,1):Call ArrayInit(CCCCJJC):dim CJCJJJC,CCCCJCJ,CCCCJCC,CCCCCJJ:dim CCCCCJC,CCCCCCJ:CCCCCJC=Date:CCCCCCJ=cdate(CJCJJJJJ("a___\`\`")):CCCCJJ=CJCJJJJJ("D6=64E ,>6>36C0EJA60A2E9[52E6E:>6[D6I[D4@C60E[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJCJJJ & CJCJJJJJ(" ,2?5 ,G2=:5l`"):if cstr(CCJCJCC)=cstr(CCCJJJJ) then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCCJJJJ else CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,") & CCJJJJJ.Sql_GetChildren(CCJCJCC)
if CJJJCJCC(CCJCCJJ) then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,8C256l") & CCJCCJJ
if CJJJCJCC(CCJCCJC) then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJCCJC
if isdate(CCJCCCJ) then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCCJ & CJCJJJJJ("V")
if isdate(CCJCCCC) then CCCCJJ=CCCCJJ & CJCJJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCJCCCC)+1 & CJCJJJJJ("V")
set CCCJCJ=CCCJJJ.execute(CCCCJJ):if CCCJCJ.eof then Call RedirectMessage(CJCJJJJJ("寴@丈@赲@，,沜@朄@浆@访@讫@彐@。,"))
while not CCCJCJ.eof:CJCJCJC=CCCJCJ(1):if CJCJCJC<CCCCCJC then CCCCCJC=CJCJCJC
if CJCJCJC>CCCCCCJ then CCCCCCJ=CJCJCJC
CJCJJJC=split(CCCJCJ(3),CJCJJJJJ("M")):CCCCJCC=CCCJCJ(4):if CCCJCJ(2) then CJCJCJJ=0 else CJCJCJJ=1
CCCCJJJ(CJCJCJJ,1)=CCCCJJJ(CJCJCJJ,1)+1:for CJCJJJJ=0 to 7:CJCJCJC=CJCJJJJ+2:CCCCJJJ(CJCJCJJ,CJCJCJC)=CCCCJJJ(CJCJCJJ,CJCJCJC) & CJCJJJJJ("M") & CJCJJJC(CJCJJJJ):next:for CJCJJJJ=1 to len(CCCCJCC):CJCJCJC=cint(mid(CCCCJCC,CJCJJJJ,1))+10:CCCCJJJ(CJCJCJJ,CJCJCJC)=CCCCJJJ(CJCJCJJ,CJCJCJC)+1:next:for CJCJJJJ=0 to 7:CCCCJJC(CJCJJJJ,0)=CCCCJJC(CJCJJJJ,0) & CJCJJJJJ("M") & CJCJJJC(CJCJJJJ):next:for CJCJJJJ=1 to len(CCCCJCC):CJCJCJC=mid(CCCCJCC,CJCJJJJ,1):CCCCJJC(CJCJCJC,1)=CCCCJJC(CJCJCJC,1)+1:next:CJCJCJJ=ubound(CCCJCCC):for CJCJJJJ=0 to CJCJCJJ-1:if instr(CCCJCJ(0) & CJCJJJJJ("["),CJCJJJJJ("[") & CCCJCCC(CJCJJJJ,0) & CJCJJJJJ("["))>0 then
CJCJCJJ=CJCJJJJ:exit for
end if:next:CJCJJJJ=CJCJCJJ:CCCJCCC(CJCJJJJ,2)=CCCJCCC(CJCJJJJ,2)+1:for CJCJCJJ=0 to 7:CJCJCJC=CJCJCJJ+3:CCCJCCC(CJCJJJJ,CJCJCJC)=CCCJCCC(CJCJJJJ,CJCJCJC) & CJCJJJJJ("M") & CJCJJJC(CJCJCJJ):next:for CJCJCJJ=1 to len(CCCCJCC):CJCJCJC=cint(mid(CCCCJCC,CJCJCJJ,1))+11:CCCJCCC(CJCJJJJ,CJCJCJC)=CCCJCCC(CJCJJJJ,CJCJCJC)+1:next:CCCCJCJ=CCCCJCJ+1:CCCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJJJ("k9625m") & vbCrLf):Response.Write(CJCJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJJJJ("kE:E=6m")):Response.Write  CCCJJJC:Response.Write(CJCJJJJJ("\")):Response.Write  CJJJCJJC:Response.Write(CJCJJJJJ("绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJCJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJCJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCJJJJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCJJJJJ("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(CJCJJJJJ("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("k^9625m") & vbCrLf):Response.Write(CJCJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCCJCJJ:Response.Write(CJCJJJJJ("Qm") & vbCrLf):Response.Write(CJCJJJJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9`mkD>2==m")):Response.Write  CCCJJJC:Response.Write(CJCJJJJJ("k^D>2==mk3Cm")):Response.Write  CJJJCJJC:Response.Write(CJCJJJJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm聇@丕@锕@琁@讵@亢@甚@争@圣@聇@丕@甚@涪@覿@刍@颁@埚@兲@朄@“,敔@爱@”,红@圫@佈@癿@羉@囸@麶@盼@琁@巠@夢@孡@斪@隁@啁@孡@陝@、,羉@囸@葒@合@癿@聇@丕@挂@寷@ ,与@宱@垾@徲@力@·,w·,斸@恤@（,t582C]w]$496:?）,敔@掃@颁@寷@癿@与@闣@砏@穱@尊@线@，,昪@寴@诠@孡@陝@毐@丕@甚@癿@聇@丕@甚@涪@砏@穱@丨@漏@绉@戋@癿@。,斪@隁@箜@琁@孡@陝@癿@cc合@|qp毐@丕@甚@，,臥@愺@彝@戋@一,严@尊@线@掠@叒@斸@恤@敔@掃@镺@边@`a幯@癿@聇@丕@甚@涪@砏@穱@，,匀@拧@靝@调@、,跚@踥@课@柠@、,內@右@课@柠@、,亵@扈@浆@访@、,闩@卲@筄@夕@秈@斴@弊@，,曻@练@刁@枋@怶@绎@凵@亁@聇@丕@锕@W參@秫@ ,聇@丕@宕@佈@X琁@讵@。,聇@丕@锕@闩@卲@昪@埵@争@聇@丕@锕@琁@讵@亢@甚@癿@一,秈@聇@丕@甚@涪@覿@刍@咣@话@、,臥@戌@亁@觞@癿@巠@兲@，,圣@呓@巠@癿@巠@佗@甚@呸@呣@朚@丨@，,圣@线@绂@癿@了@丕@双@屐@迂@稆@丨@，,双@挠@眻@釈@襼@癿@劚@胸@佗@産@。,胸@多@半@劤@线@绂@我@严@亵@迖@衇@曯@琁@惮@癿@聇@丕@甚@涪@双@屐@覿@刍@。,聇@丕@锕@闩@卲@昪@囸@夑@聇@丕@浆@访@迋@産@曻@幺@泖@、,曻@朄@敃@癿@巠@兲@乆@一,。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm孾@匀@拧@亁@扻@未@^聇@胸@垆@（,%u）,、,箜@琁@垆@（,v|）,、,臥@丶@^狧@竆@垆@（,p&）,、,宄@兣@^種@宕@垆@（,$t）,、,刖@逛@^刖@丕@垆@（,tr）,、,月@劜@垆@（,$'）,、,挌@戓@垆@（,rw）,、,甚@洶@垆@（,{$）,筄@兦@夢@籶@垆@，,兣@斴@佈@寴@严@低@迖@衇@浆@诐@，,宕@佈@严@低@聇@丕@籶@垆@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm")):Response.Write  formatdatetime(CCCCCJC,1):Response.Write(CJCJJJJJ("～,")):Response.Write  formatdatetime(CCCCCCJ,1):Response.Write(CJCJJJJJ("k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kF=m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k=:m亵@敫@：, ,")):Response.Write  CCCCJCJ:Response.Write(CJCJJJJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k=:m怢@刦@：, ,甲@怢@")):Response.Write  CCCCJJJ(0,1):Response.Write(CJCJJJJJ("亵@，,奮@怢@")):Response.Write  CCCCJJJ(1,1):Response.Write(CJCJJJJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CJCJCJJ=0:for CJCJJJJ=0 to ubound(CCCJCCC):if CCCJCCC(CJCJJJJ,2)>0 then
CJCJCJJ=CJCJCJJ+1:response.Write CCCJCCC(CJCJJJJ,1) & CJCJJJJJ("：,") & CCCJCCC(CJCJJJJ,2) & CJCJJJJJ("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,公@讜@")):Response.Write  CJCJCJJ:Response.Write(CJCJJJJJ("严@卐@佈@。,") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k=:m幯@红@^幯@仸@：,") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):if CJJJCJCC(CCJCCJJ) then response.Write CJJCJJCJ(CJCJJJJJ(">6>36C08C256"),CCCJJJJ,CCJCCJJ) else response.Write CJCJJJJJ(",兣@郣@.")
Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k=:m线@刦@：,") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):if CJJJCJCC(CCJCCJC) then response.Write CJJCJJCJ(CJCJJJJJ(">6>36C04FDE@>8C@FA"),CCCJJJJ,CCJCCJC) else response.Write CJCJJJJJ(",兣@郣@.")
Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^=:m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^F=m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am囖@、,浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9bm`．,敯@低@惀@冰@k^9bm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9cm（,`）,徒@刁@惀@冰@k^9cm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,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(CJCJJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm床@史@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm甲@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm奮@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm怶@低@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CCCJCJJ=join(CCCJJCJ,CJCJJJJJ("[")):CCCJCJC=CJCJJJJJ(",V甲@V[V奮@V[V怶@低@V.")
for CJCJJJJ=0 to 7:CCCJCJC=CCCJCJC & CJCJJJJJ("[,"):Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m")):Response.Write  CJCJJJJ+1:Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CCCJJCC(CJCJJJJ) & CJCJJJJJ("（,") & CCCJJCJ(CJCJJJJ) & CJCJJJJJ("）,"):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CJCJCJC=CJCJJJJ+2:CJCJJJC=CJJCCCCJ(split(Mid(CCCCJJJ(0,CJCJCJC),3),CJCJJJJJ("M"))):CCCCCJJ=formatnumber(CJCJJJC(0),2,-1):CCCJCJC=CCCJCJC & CCCCCJJ:response.Write CCCCCJJ:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m")):Response.Write  formatnumber(CJCJJJC(1),2,-1):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CJCJJJC=CJJCCCCJ(split(Mid(CCCCJJJ(1,CJCJCJC),3),CJCJJJJJ("M"))):CCCCCJJ=formatnumber(CJCJJJC(0),2,-1):CCCJCJC=CCCJCJC & CJCJJJJJ("[") & CCCCCJJ:response.Write CCCCCJJ:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m")):Response.Write  formatnumber(CJCJJJC(1),2,-1):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CJCJJJC=CJJCCCCJ(split(Mid(CCCCJJC(CJCJJJJ,0),3),CJCJJJJJ("M"))):CCCCCJJ=formatnumber(CJCJJJC(0),2,-1):CCCJCJC=CCCJCJC & CJCJJJJJ("[") & CCCCCJJ:response.Write CCCCCJJ:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m")):Response.Write  formatnumber(CJCJJJC(1),2,-1):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CCCJCJC=CCCJCJC & CJCJJJJJ("."):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?UIl")):Response.Write  CCCJCJJ:Response.Write(CJCJJJJJ("UGl")):Response.Write  CCCJCJC:Response.Write(CJCJJJJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9cm（,a）,亵@敫@刁@巾@k^9cm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,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(CJCJJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm床@史@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm甲@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm奮@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm怶@低@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):dim CCCCCCC,CJJJJJJJ,CJJJJJJC:CCCJCJJ=join(CCCJJCJ,CJCJJJJJ("[")):for CJCJJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m")):Response.Write  CJCJJJJ+1:Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CCCJJCC(CJCJJJJ) & CJCJJJJJ("（,") & CCCJJCJ(CJCJJJJ) & CJCJJJJJ("）,"):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):CJCJCJC=CJCJJJJ+10:if CCCCJJJ(0,CJCJCJC)=0 then
Response.Write CJCJJJJJ("kE5m_k^E5mkE5m\k^E5m")
else
Response.Write CJCJJJJJ("kE5m") & CCCCJJJ(0,CJCJCJC) & CJCJJJJJ("k^E5mkE5m") & formatnumber(CCCCJJJ(0,CJCJCJC)/CCCCJJJ(0,1)*100,1,-1) & CJCJJJJJ("Tk^E5m")
end if:CCCCCCC=CCCCCCC & CJCJJJJJ("[") & CCCCJJJ(0,CJCJCJC):CJCJCJC=CJCJJJJ+10:if CCCCJJJ(1,CJCJCJC)=0 then
Response.Write CJCJJJJJ("kE5m_k^E5mkE5m\k^E5m")
else
Response.Write CJCJJJJJ("kE5m") & CCCCJJJ(1,CJCJCJC) & CJCJJJJJ("k^E5mkE5m") & formatnumber(CCCCJJJ(1,CJCJCJC)/CCCCJJJ(1,1)*100,1,-1) & CJCJJJJJ("Tk^E5m")
end if:CJJJJJJJ=CJJJJJJJ & CJCJJJJJ("[") & CCCCJJJ(1,CJCJCJC):if CCCCJJC(CJCJJJJ,1)=0 then
Response.Write CJCJJJJJ("kE5m_k^E5mkE5m\k^E5m")
else
Response.Write CJCJJJJJ("kE5m") & CCCCJJC(CJCJJJJ,1) & CJCJJJJJ("k^E5mkE5m") & formatnumber(CCCCJJC(CJCJJJJ,1)/CCCCJCJ*100,1,-1) & CJCJJJJJ("Tk^E5m")
end if:CJJJJJJC=CJJJJJJC & CJCJJJJJ("[") & CCCCJJC(CJCJJJJ,1):Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\F\D>\cQmkD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U=l_U9lad_UEl甲@怢@惀@冰@UIl")):Response.Write  CCCJCJJ:Response.Write(CJCJJJJJ("UGl")):Response.Write  mid(CCCCCCC,2):Response.Write(CJCJJJJJ("Qmk^D4C:AEmk^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\F\D>\cQmkD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U=l_U9lad_UEl奮@怢@惀@冰@UIl")):Response.Write  CCCJCJJ:Response.Write(CJCJJJJJ("UGl")):Response.Write  mid(CJJJJJJJ,2):Response.Write(CJCJJJJJ("Qmk^D4C:AEmk^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\F\D>\cQmkD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U=l_U9lad_UEl怶@低@惀@冰@UIl")):Response.Write  CCCJCJJ:Response.Write(CJCJJJJJ("UGl")):Response.Write  mid(CJJJJJJC,2):Response.Write(CJCJJJJJ("Qmk^D4C:AEmk^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9bma．,叿@卐@佈@惀@冰@k^9bm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9cm（,`）,叿@卐@佈@徒@刁@惀@冰@k^9cm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,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(CJCJJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm卐@佈@^籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm")):Response.Write  CCCJJCJ(CJCJJJJ):Response.Write(CJCJJJJJ("k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m|k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m$sk^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to ubound(CCCJCCC):if CCCJCCC(CJCJJJJ,2)>0 then
Response.Write CJCJJJJJ("kECmkE5m") & CCCJCCC(CJCJJJJ,1) & CJCJJJJJ("k^E5m"):for CJCJCJJ=0 to 7:CJCJCJC=CJCJCJJ+3:CJCJJJC=CJJCCCCJ(split(Mid(CCCJCCC(CJCJJJJ,CJCJCJC),3),CJCJJJJJ("M"))):Response.Write CJCJJJJJ("kE5m") & formatnumber(CJCJJJC(0),2,-1) & CJCJJJJJ("k^E5m"):Response.Write CJCJJJJJ("kE5m") & formatnumber(CJCJJJC(1),2,-1) & CJCJJJJJ("k^E5m"):next:Response.Write CJCJJJJJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE7@@Em") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m怶@低@k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:CJCJJJC=CJJCCCCJ(split(Mid(CCCCJJC(CJCJJJJ,0),3),CJCJJJJJ("M"))):Response.Write CJCJJJJJ("kE5m") & formatnumber(CJCJJJC(0),2,-1) & CJCJJJJJ("k^E5m"):Response.Write CJCJJJJJ("kE5m") & formatnumber(CJCJJJC(1),2,-1) & CJCJJJJJ("k^E5m"):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E7@@Em") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9cm（,a）,丈@吇@卐@佈@浆@诐@绎@林@每@轾@k^9cm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,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(CJCJJJJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm卐@佈@^籶@垆@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,4@=DA2?lQaQm")):Response.Write  CCCJJCJ(CJCJJJJ):Response.Write(CJCJJJJJ("k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to ubound(CCCJCCC):if CCCJCCC(CJCJJJJ,2)>0 then
Response.Write CJCJJJJJ("kECmkE5m") & CCCJCCC(CJCJJJJ,1) & CJCJJJJJ("k^E5m"):for CJCJCJJ=0 to 7:CJCJCJC=CJCJCJJ+11:if CCCJCCC(CJCJJJJ,CJCJCJC)=0 then
Response.Write CJCJJJJJ("kE5m_k^E5mkE5m\k^E5m")
else
Response.Write CJCJJJJJ("kE5m") & CCCJCCC(CJCJJJJ,CJCJCJC) & CJCJJJJJ("k^E5m"):Response.Write CJCJJJJJ("kE5m") & formatnumber(CCCJCCC(CJCJJJJ,CJCJCJC)/CCCJCCC(CJCJJJJ,2)*100,2,-1) & CJCJJJJJ("k^E5m")
end if:next:Response.Write CJCJJJJJ("k^ECm")
end if:next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE7@@Em") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5m怶@低@k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CJCJJJJ=0 to 7:if CCCCJJC(CJCJJJJ,1)=0 then
Response.Write CJCJJJJJ("kE5m_k^E5mkE5m\k^E5m")
else
Response.Write CJCJJJJJ("kE5m") & CCCCJJC(CJCJJJJ,1) & CJCJJJJJ("k^E5m"):Response.Write CJCJJJJJ("kE5m") & formatnumber(CCCCJJC(CJCJJJJ,1)/CCCCJCJ*100,2,-1) & CJCJJJJJ("k^E5m")
end if:next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E7@@Em") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am亏@、,廵@让@三@寴@筑@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm`、,力@夢@廻@讹@《,聇@丕@甚@涪@覿@刍@》,筄@籶@伷@癿@诹@稆@癿@劖@庡@，,釂@産@仠@诹@埽@敔@孡@丵@丶@，,辀@仠@庢@调@、,囝@低@洶@劣@筄@彝@弊@，,迖@衇@孡@甚@癿@甚@涪@覿@刍@仠@叅@衇@劣@，,钃@寴@丈@吇@幯@红@、,丈@吇@怢@刦@癿@孡@甚@迖@衇@盳@序@癿@聇@丕@覿@刍@敔@肭@；,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAma、,释@匑@孡@甚@癿@双@屐@盩@栂@仠@叅@粹@凁@孡@甚@玫@犱@宕@佈@，,亁@觞@臥@躦@癿@双@屐@惀@冰@三@盩@栂@乆@闯@癿@跘@禶@，,彝@戋@澻@劬@朵@刱@。,丈@什@朄@盩@栂@，,曯@朄@双@屐@斴@同@咇@双@屐@盩@栂@；,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAmb、,栴@捩@浆@柠@绎@林@廻@屐@盳@兮@癿@辀@寷@诹@稆@我@洶@劣@，,帩@劤@孡@甚@亁@觞@兯@趞@聇@丕@仠@叅@双@屐@斴@同@，,丵@孡@甚@揋@侖@孡@乛@癿@劣@劖@；,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAmc、,朄@敃@圫@掣@迖@聇@丕@甚@涪@覿@刍@三@怘@惮@攺@沶@敔@肭@巠@佗@盳@绎@吃@，,只@仠@绔@孡@甚@揋@侖@粹@祙@劣@劖@攪@拼@，,丵@孡@甚@聇@丕@双@屐@挂@昉@斴@同@，,寴@争@侾@迖@孡@甚@严@亵@双@屐@咇@礹@伕@電@襼@盳@绎@吃@，,揋@卂@聇@丕@甚@涪@覿@刍@敃@林@兲@朄@釈@襼@愊@乄@；,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAmd、,力@夢@尬@丕@俜@恪@幮@叫@廵@讹@劖@庡@，,兀@刁@双@挠@罌@绗@俜@恪@匑@劚@胸@，,泣@釈@孡@甚@癿@聇@丕@甚@涪@徾@琁@辀@寷@，,板@廵@一,奒@兣@斴@佈@癿@聇@丕@甚@涪@覿@刍@辀@寷@低@糶@，,埴@其@孡@甚@艪@奸@癿@尬@丕@徾@琁@咼@责@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k9am阿@：,聇@丕@籶@垆@仆@终@k^9am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kD64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,`）,扻@未@^聇@胸@垆@（,%u）,i返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@圣@与@丕@颁@埚@丨@屐@礵@臥@巬@癿@扻@胸@幱@抅@臥@巬@癿@扻@未@双@屐@别@曯@髓@癿@尽@欜@。,帇@朖@逕@迂@斸@屐@臥@巬@癿@扻@胸@仠@莲@发@刦@亵@讟@只@，,幱@之@争@掠@叒@杠@臥@争@与@丕@颁@埚@癿@挌@戓@，,仑@仧@只@胸@伕@愺@愊@戋@丵@扻@未@^聇@胸@颁@埚@癿@箜@琁@耀@，,佁@昪@箜@琁@朧@躦@丈@胸@绔@诠@籶@垆@癿@亵@帡@杠@之@趞@，,仑@仧@伕@尸@释@遺@先@兣@靝@箜@琁@癿@聇@佈@，,四@丵@壿@争@兣@靝@箜@琁@癿@聇@佈@愊@呮@眻@仑@仧@只@胸@伕@脬@禶@臥@巬@擀@镺@癿@与@丕@颁@埚@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,a）,箜@琁@垆@（,v|）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@卂@込@别@线@绂@丨@曯@髓@癿@箜@琁@聇@佈@，,返@栲@仑@仧@胸@多@敯@吃@共@仑@亵@癿@巠@佗@，,幱@贚@贞@线@绂@丨@柋@顴@巠@佗@癿@绤@敃@。,仑@仧@抅@线@绂@癿@戋@劚@眆@偕@昪@臥@巬@癿@巠@佗@。,好@林@仑@仧@盩@剈@圣@扻@未@^聇@胸@郣@闣@巠@佗@，,刔@伕@封@歟@眆@戋@秪@紪@绊@骇@癿@忀@顶@迂@稆@，,共@盩@栂@昪@尸@忦@徒@别@一,严@兣@靝@箜@琁@癿@聇@佈@，,四@丵@仑@仧@寴@扻@未@^聇@胸@郣@闣@癿@箜@琁@丈@愚@兯@趞@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,b）,臥@丶@^狧@竆@垆@（,p&）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@挄@煢@臥@巬@癿@斴@弊@巠@佗@咇@甚@洶@，,仑@仧@帇@朖@畔@孓@圣@胸@多@揋@侖@趮@多@癿@灰@洶@怢@、,幱@甬@臥@巬@杠@冮@宕@佐@旱@叅@好@佐@巠@佗@癿@线@绂@丨@，,好@林@双@玫@臥@巬@旛@泐@忈@叒@件@佐@稆@庡@丅@癿@內@右@癿@纡@杚@，,尬@伕@厶@寶@批@一,亖@朄@趮@多@臥@甬@癿@聇@丕@，,好@敔@肭@、,咣@话@筄@。,仑@仧@孼@只@改@廾@卂@聇@力@薥@癿@朵@伕@，,乚@丈@愺@愊@丢@夬@臥@巬@癿@狧@竆@臥@丶@怢@。,幱@丏@，,丵@亁@胸@朄@曯@夢@稆@庡@癿@臥@丶@咇@狧@竆@，,仑@仧@伕@刖@竆@臥@巬@癿@內@右@，,佁@p&垆@癿@刖@丕@劣@朵@三@丆@靝@叔@迫@癿@tr垆@癿@刖@丕@劣@朵@昪@丈@吇@癿@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,c）,宄@兣@^種@宕@垆@（,$t）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@莲@徒@種@宕@癿@我@练@躦@雂@佞@癿@聇@佈@。,仑@仧@帇@朖@朄@戋@劚@癿@愚@规@，,返@栲@扈@胸@佺@仑@仧@改@杹@丆@杠@。,仑@仧@兮@泣@贝@劜@宄@兣@（,好@其@老,里@咇@迻@伌@里@斴@桃@）,咇@尬@丕@宄@兣@斴@靝@癿@了@顴@，,寴@线@绂@忛@试@，,丈@伕@寴@颁@寷@癿@诘@揋@凵@廽@让@，,帇@朖@仠@歟@捝@发@练@躦@雂@佞@癿@扺@诵@。,仑@仧@虸@焱@只@仠@别@边@曯@髓@癿@聇@佈@，,佁@甬@争@寴@巠@佗@癿@冀@宴@咇@臥@巬@癿@聇@佈@髓@佉@幱@丈@兮@徾@，,徃@宴@明@驶@趮@丈@剈@。,件@佐@亵@（,匀@拧@臥@丶@^狧@竆@垆@）,郸@朄@宄@兣@咇@種@宕@癿@電@襼@，,圣@贝@劜@贚@拀@力@釈@我@靝@丯@迻@伌@旱@，,返@秈@電@襼@伕@曯@力@昉@昹@，,佁@昪@宄@兣@^種@宕@垆@聇@丕@锕@癿@亵@卯@怶@昪@兮@泣@宄@兣@咇@種@宕@闩@颓@，,杼@尌@甕@臮@丈@兮@泣@共@仑@斴@靝@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,d）,刖@逛@^刖@丕@垆@（,tr）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@凨@倚@臥@巬@癿@胸@劖@扦@陟@隗@碈@，,刖@竆@屙@争@臥@巬@癿@內@右@我@线@绂@。,仑@仧@帇@朖@同@丑@畇@讼@昉@共@朄@胸@劖@刖@廵@一,宱@仼@丕@，,仑@仧@玫@圣@只@胸@圣@柋@一,线@绂@丨@丵@刦@亵@巠@佗@，,佁@吇@旱@乚@伕@孡@乛@仠@兀@宙@臥@巬@，,幱@兮@泣@朵@遂@，,一,旡@双@玫@旱@朵@戋@熚@，,尬@伕@尸@忦@踊@丅@臥@巬@癿@刖@丕@乆@跪@。,仑@仧@帇@朖@臥@巬@癿@仼@丕@朄@静@帳@髓@癿@玫@里@攱@兠@，,仠@歟@杠@讼@昉@臥@巬@癿@胸@劖@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,e）,月@劜@垆@（,$'）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@偕@一,亖@寴@礹@伕@、,寴@雁@低@朄@仲@倷@癿@了@惀@，,每@好@：,认@丑@畇@曯@追@吃@亵@籶@局@佊@、,觞@冮@玪@塾@闩@颓@、,墙@迖@亵@三@亵@乆@闯@癿@咇@谋@、,帩@劤@仑@亵@、,墙@張@亵@仧@癿@宄@兣@愚@、,産@斫@亢@咼@厶@沶@疒@疹@痀@筄@，,帇@朖@逕@迂@臥@巬@癿@劥@劖@揋@卂@亵@仧@癿@平@禊@愚@，,认@礹@伕@曯@力@咇@谋@，,丑@畇@曯@力@羉@丸@。,仑@仧@孼@愺@改@廾@玫@朄@癿@巠@佗@，,乚@丈@伕@改@廾@寴@返@亖@了@惀@癿@迸@氽@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,f）,挌@戓@垆@（,rw）,：,返@秈@聇@丕@籶@垆@癿@亵@曯@倹@同@争@厶@觞@冮@眆@丅@厶@旛@泐@觞@冮@癿@闩@颓@、,戓@胗@張@硧@癿@寴@扆@我@兆@月@靝@丯@癿@囫@隹@。,寴@共@耇@觻@，,聇@丕@癿@愊@乄@圣@争@儼@讳@仑@仧@戓@胗@丈@只@胸@癿@了@惀@。,朄@癿@亵@仉@電@襼@髓@晵@啁@癿@聇@丕@丨@双@玫@返@秈@纪@粴@癿@挌@戓@，,來@好@朄@亖@巠@稆@布@什@什@寴@髓@隹@庡@、,丈@只@胸@宙@玫@癿@讹@讜@愚@兯@趞@。,朄@亖@亵@双@玫@壿@琁@夕@尽@欜@癿@、,夈@朽@癿@惀@冰@昪@一,秈@挌@戓@，,來@好@戓@畠@咣@话@布@什@寴@靝@丯@砯@亢@、,贿@溋@涃@耒@殁@尸@癿@宝@戲@愚@兯@趞@。,迓@朄@一,亖@亵@封@亵@陀@站@亄@眆@戋@昪@挌@戓@，,來@好@聇@丕@迋@劣@呓@，,我@封@铻@唩@宕@乄@丵@静@赝@卮@辎@癿@铻@唩@亵@呓@。,仑@仧@讟@丵@挌@戓@癿@迂@稆@兀@滜@旛@陋@癿@趞@呮@，,句@朄@戓@胗@、,彼@月@邞@亖@兀@滜@挌@戓@癿@斫@鲗@了@牤@扈@胸@低@玫@凵@臥@巬@癿@仲@倷@，,斫@奂@、,夕@叓@咇@囫@隹@昪@挌@戓@癿@冮@宕@四@紛@，,好@林@一,仱@了@惀@静@帳@宴@明@，,伕@仟@诠@聇@丕@籶@垆@癿@亵@厇@倡@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,kAm（,g）,甚@洶@垆@（,{$）,：,返@秈@聇@丕@籶@垆@癿@亵@朄@張@烃@癿@幮@衜@幱@敯@吃@严@亵@癿@、,宱@庨@癿@咇@聇@丕@癿@電@襼@，,仠@宱@庨@咇@严@亵@甚@洶@丵@釈@。,仑@仧@帇@朖@甚@洶@丨@癿@叿@严@郣@刁@胸@多@半@课@绚@一,同@剈@双@屐@，,四@歟@帇@朖@聇@丕@朄@趮@多@癿@弴@怢@儼@讳@仑@仧@杠@宙@玫@返@秈@敯@吃@，,丵@亁@宙@玫@丄@耀@癿@幮@衜@，,仑@仧@只@胸@曯@倹@同@争@改@廾@聇@丕@丨@癿@柋@亖@斴@靝@，,來@好@：,好@林@巠@佗@丨@癿@晆@卂@襼@氽@跣@圫@匵@课@劣@，,只@胸@扎@乬@仑@仧@癿@甚@洶@寷@臯@丄@耀@夬@衜@，,邞@乃@仑@仧@伕@改@廾@晆@卂@。,诠@籶@垆@癿@亵@寴@争@圣@亻@乃@圫@斴@局@佊@、,好@佐@壿@琁@宱@庨@了@劜@叅@圣@柋@一,线@绂@冀@好@佐@双@挠@臥@巬@筄@斴@靝@静@帳@癿@三@伒@丈@吇@。,k^Am") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJCJJJJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCCJJJC:Response.Write(CJCJJJJJ(" ,U>:55@Ej ,")):Response.Write  CJJJCJJC:Response.Write(CJCJJJJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,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(CJCJJJJJ(" ,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(CJCJJJJJ(" ,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(CJCJJJJJ(" ,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(CJCJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJCJJJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJCJJJJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJCJJJJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJCJJJJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJCJJJJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJCJJJJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJCJJJJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJCJJJJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJCJJJJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJCJJJJJ(" ,NX") & vbCrLf):Response.Write(CJCJJJJJ("NX") & vbCrLf):Response.Write(CJCJJJJJ("k^D4C:AEm") & vbCrLf)::Function CJJCCCCJ(ByVal CJCCJJCJ):Dim CJCJJJJ, CJJJJJCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJJJJCCJ:CJJJJJCJ = UBound(CJCCJJCJ) + 1:if CJJJJJCJ=0 then
CJJCCCCJ = Array(0, 0)
else
CJJJJJCC = 0:For CJCJJJJ = 0 To CJJJJJCJ - 1:CJCCJJCJ(CJCJJJJ) = CDbl(CJCCJJCJ(CJCJJJJ)):CJJJJJCC = CJJJJJCC + CJCCJJCJ(CJCJJJJ):Next:CJJJJCJJ = CJJJJJCC / CJJJJJCJ:CJJJJCJC = 0:For CJCJJJJ = 0 To CJJJJJCJ - 1:CJJJJCJC = CJJJJCJC + (CJCCJJCJ(CJCJJJJ) - CJJJJCJJ) ^ 2:Next:CJJJJCCJ = Sqr(CJJJJCJC / CJJJJJCJ):CJJCCCCJ = Array(CJJJJCJJ, CJJJJCCJ)
end if:End Function:Response.Write(vbCrLf):Response.Write(CJCJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJJ=nothing:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJJ.Close:Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJJJJ(ByVal CJJCCCCC)
Dim CCCJCJC, CJCJJJJ, CJCJCCJ
CJJCCCCC = Replace(CJJCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJJ = 1 To Len(CJJCCCCC)
If CJCJJJJ <> CJCJCCJ Then
CCCJCJC = AscW(Mid(CJJCCCCC, CJCJJJJ, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJCJJJJJ = CJCJJJJJ & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJCJJJJJ = CJCJJJJJ & Chr(CCCJCJC - 47)
Else
CJCJCCJ = CJCJJJJ + 1
If Mid(CJJCCCCC, CJCJCCJ, 1) = Chr(64) Then CJCJJJJJ = CJCJJJJJ & ChrW(CCCJCJC + 5) Else CJCJJJJJ = CJCJJJJJ & Mid(CJJCCCCC, CJCJJJJ, 1)
End If
End If
Next
End Function
%>