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