<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJC, CCCCCJ,CCCCCC, CJJJJJJ, CJJJJJC:Set CCCCJC = server.CreateObject(CJJCCCJC("ps~sq]r@??64E:@?")):CCCCJC.open Application(CJJCCCJC("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CJJCCCJC("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
CJJJJJC=CJJCCCJC("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") & CJJJJCC & CJJCCCJC("V ,2?5 ,:5l") & CJJJJCJ
set CCCCCC=CCCCJC.execute(CJJJJJC):If CCCCCC.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=CCCCCC(2) & "":CJJJCJC=CCCCCC(3):CJJJCCJ=CCCCCC(5):CJJJCCC=CCCCCC(6):CJJCJJJ=CCCCCC(9):CJJCJJC=CCCCCC(15):CJJCJCC=CCCCCC(0):CJCJJCJ=CCCCCC(1):CJCJJJC=CCCCCC(11) & "":CJJCCJJ=CCCCCC(10) & "":CJJCJCJ=CCCCCC(12):CJJCCJC=CCCCCC(14):CJJCCCJ=CCCCCC(13):CJJCCCC=CCCCCC(7) & "":CJCJJJJ=CCCCCC(4):CJCJJCC=CCCCCC(8):if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CJJCJJJ) or CJJCJJJ=0 then CJJCJJJ=CJJJCJC
if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJJCCJ) then CJJJCCJ=0
if instr(CJJCCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CJJCCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if:Sub CheckRight(CCJCCJJ):dim CJCJCJC,CJCJCCJ:if CJJJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJJCCC(CCJCCJJ) then
Call RedirectMessage(CJJCCCJC("朾@陋@W") & CCJCCJJ & CJJCCCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJJCCC(CCJCCJJ):dim CJCJCJC,CJCJCCJ:CJCJCCJ=split(CCJCCJJ,CJJCCCJC("[")):CJJJJCCC=False:for CJCJCJC=0 to ubound(CJCJCCJ):If Mid(CJJJCJJ,CJCJCCJ(CJCJCJC),1)="1" then
CJJJJCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCJC("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCCC,CJCCJJJ,CJCJCJC,CJCCJJC,CJCCJCJ:CJCJCCC=split(CJCJCJJ,CJJCCCJC("]")):if ubound(CJCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCCC(0)) or len(CJCJCCC(1))<>32 or len(CJCJCCC(2))<>32 then
Call ClearMemberCookie
else
CJCCJJJ=CJCJCCC(1):for CJCJCJC=1 to len(CJCCJJJ):CJCCJJC=mid(CJCCJJJ,CJCJCJC,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJJJ=CJCJCCC(2):if CJCCJCJ<>mid(CJCCJJJ,6,7) then
Call ClearMemberCookie
else
CJCCJJC=mid(CJCCJJJ,18,10)/2:if CJCCJJC<DateDiff(CJJCCCJC("D"), CJJCCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCJ=Clng(CJCJCCC(0)):CJJJJCC=CJCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJC,CJJCCCCJ):dim CJCJCJC,CJCCJJC,CJCCJCJ:for CJCJCJC=1 to len(CJJCCCCJ):CJCCJJC=mid(CJJCCCCJ,CJCJCJC,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJCJ=CJJCCJJC & CJJCCCJC("]") & CJJCCCCJ & CJJCCCJC("]") & Fix(10000*(Rnd+1)) & CJCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJC("D"), CJJCCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJC("!$*|t|qt#"))=CJCCJCJ:End Sub::::Const CJJJJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCCCJC("FE7\g"):dim CJCJCJC,CJCCJJC,CJCCJCC:if isarray(str) then
on error resume next:CJCJCJC=ubound(str,2):CJCCJCC=err.number:err.clear:on error goto 0:if CJCCJCC<>0 then
for CJCJCJC=0 to ubound(str):if CJCJCJC>0 then response.Write CJJCCCJC("k3C ,^m")
response.Write CJCJCJC & CJJCCCJC("i ,") & str(CJCJCJC):next
else
response.Write CJJCCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCJC=0 to ubound(str,2):response.Write CJJCCCJC("kE9 ,2=:8?lV=67EVm") & CJCJCJC & CJJCCCJC("k^E9m")
next:response.Write CJJCCCJC("k^ECm"):for CJCJCJC=0 to ubound(str):response.Write CJJCCCJC("kECmkE9m") & CJCJCJC & CJJCCCJC("k^E9m"):for CJCCJJC=0 to ubound(str,2):response.Write CJJCCCJC("kE5m") & str(CJCJCJC,CJCCJJC) & CJJCCCJC("k^E5m"):next:response.Write CJJCCCJC("k^ECm"):next:response.Write CJJCCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCCCCC,CJCJJJJJ):dim CJCJCCC:CJCJCCC=CJJCCCCC & CJJCCCJC("l") & CJCJJJJJ & CJJCCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJC("$6E\r@@<:6"),CJCJCCC):End Sub::::::sub ShowMessage(CJCJJJJC):response.Charset="utf-8":Response.Write CJJCCCJC("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") & CJCJJJJC & CJJCCCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJCJJJ(CJCCJCC):if isnull(CJCCJCC) or trim(CJCCJCC)="" or not isnumeric(CJCCJCC) then
CJJJCJJJ=false
else
Dim CJCCCJJ:Set CJCCCJJ = New RegExp:CJCCCJJ.Pattern = CJJCCCJC("/-5ZS"):CJCCCJJ.IgnoreCase = True:CJJJCJJJ = CJCCCJJ.test(CJCCJCC):set CJCCCJJ=nothing
end if:End Function:Function CJJJCJJC(CJCJJJCJ):dim CJCCCJC,CJCCCCJ:CJCCCJC=CJJCCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJJCJ & CJJCCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCCJ=CCCCJC.execute(CJCCCJC):CJJJCJJC = CJCCCCJ(0):if isnull(CJJJCJJC) then CJJJCJJC=1
CJCCCCJ.close : set CJCCCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJJ=nothing:set CJJJCJCJ=nothing:set CJJJCJCC=nothing:set CJJJCCJJ=nothing:CJCCCCJ.close : set CJCCCCJ=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CCCCCC.Close : Set CCCCCC=Nothing:CJJJCCJC.Close : Set CJJJCCJC = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJC("!$*0|6DD286"),server.URLEncode(CJCJJJJC)):Response.Redirect CJJCCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJCJJJCC,CJCJJCJJ):dim str,CJCCJCC:str=CJJCCCJC("!$*0") & Ucase(CJCJJJCC):if Session(str)<>"" then
CJCCJCC=DateDiff(CJJCCCJC("D"),Session(str),Time):if CJCCJCC<CJCJJCJJ and CJCCJCC>0 then
Call ConnClose:Call ShowMessage(CJJCCCJC("柠@话@闯@随@忀@顶@夢@争@ ,") & CJCJJCJJ & CJJCCCJC(" ,种@，,迓@剤@ ,") & CJCJJCJJ-CJCCJCC & CJJCCCJC(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJCJJCJC):Application.Contents.Remove CJCJJCJC
End Sub::Class jTree:Private CJJJJJC, CCJJJJJ, CCJJJJC, CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:Private Sub Class_Initialize():CCJJJJC = 0:CCJJJCJ = 0:CCJJCCJ=10:End Sub:Public Property Let Table(CJCJJCCJ):if CJCJJCCJ="" then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJJCC=CJCJJCCJ:CCJJCJJ=CJJCCCJC("!$*0") & UCase(CCJJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJCC:End Property:::Private Sub GetTreeArray():Dim CJCJCJC, CJCCJJC, CCJJCCC,CCJCJJJ:CCJJJJJ = Application(CCJJCJJ):If Not IsArray(CCJJJJJ) Then
CJJJJJC = CJJCCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJCC:if CCJJCJC<>"" then CJJJJJC=CJJJJJC & CJJCCCJC(" ,H96C6 ,") & CCJJCJC
set CCJJCCC=CCCCJC.execute(CJJJJJC):CCJCJJJ=CCJJCCC(0):if CCJCJJJ=0 then Call RedirectMessage(CJJCCCJC("柠@话@W") & CCJJJCC & CJJCCCJC("^") & CCJJCJC & CJJCCCJC("X沜@朄@绎@林@敫@捩@"))
CCJJJCJ=CCJCJJJ+CCJJCCJ:ReDim CCJJJJJ(CCJJJCJ, 4):CJJJJJC = CJJCCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJJCCCJC(" ,H:E9 ,W?@=@4<X"):if CCJJCJC<>"" then CJJJJJC=CJJJJJC & CJJCCCJC(" ,H96C6 ,") & CCJJCJC
CJJJJJC=CJJJJJC & CJJCCCJC(" ,@C56C ,3J ,D@CE[:5"):set CCJJCCC=CCCCJC.execute(CJJJJJC):For CJCJCJC = 1 To CCJCJJJ:For CJCCJJC = 0 To 4:CCJJJJJ(CJCJCJC, CJCCJJC) = CCJJCCC(CJCCJJC):if IsNull(CCJJJJJ(CJCJCJC,4)) then CCJJJJJ(CJCJCJC,4)=0
If CCJJJJJ(CJCJCJC,2)="" then CCJJJJJ(CJCJCJC,2)=CJJCCCJC(",穵@.")
Next:CCJJCCC.MoveNext:Next:CCJJCCC.Close: Set CCJJCCC = Nothing:for CJCJCJC=CCJJJCJ-(CCJJCCJ-1) to CCJJJCJ:CCJJJJJ(CJCJCJC,0)=CJCJCJC:next:Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
else
CCJJJCJ=Ubound(CCJJJJJ)
End If:End Sub:::::Private Function CJJJCCCC(CJJCCJJC):dim CJCJCJC,CCJCJJC:CJJJCCCC=0:CCJCJJC=CStr(CJJCCJJC):if CCJCJJC<>"0" then
for CJCJCJC=1 to CCJJJCJ:If CStr(CCJJJJJ(CJCJCJC, 0))=CCJCJJC Then
CJJJCCCC = CJCJCJC:Exit For
End If:Next
end if:End Function:Public Function CJJCJJJJ(CJJCCJJC):if Cstr(CJJCCJJC)="0" then
CJJCJJJJ=CJJCCCJC("栴@")
else
Dim CJCJCJC,CCJJCCC:CJCJCJC=CJJJCCCC(CJJCCJJC):if CJCJCJC>0 then
CJJCJJJJ=CCJJJJJ(CJCJCJC,2):if CJJCJJJJ="" then
set CCJJCCC=CCCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJJCCCJC(" ,H96C6 ,:5l") & CJJCCJJC):if CCJJCCC.eof then Call RedirectMessage(CJJCCCJC("xs（,") & CJJCCJJC & CJJCCCJC("）,朥@批@别@"))
CJJCJJJJ=CCJJCCC(1):Call UpdateCache(CJJCCJJC,CCJJCCC(0),CJJCJJJJ,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
else
set CCJJCCC=CCCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJJCCCJC(" ,H96C6 ,:5l") & CJJCCJJC):if CCJJCCC.eof then Call RedirectMessage(CJJCCCJC("xs（,") & CJJCCJJC & CJJCCCJC("）,朥@批@别@"))
CJJCJJJJ=CCJJCCC(1):Call UpdateCache(CJJCCJJC,CCJJCCC(0),CJJCJJJJ,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
end if:End Function:::Public Function CJJCJJJC(CJJCCJJC):Dim CJCJCJC,CCJCJCJ:CJCJCJC=CJJJCCCC(CJJCCJJC):if CJCJCJC=0 then
CCJCJCJ=CJJCJJCJ(CJJCCJJC)
else
CCJCJCJ=CCJJJJJ(CJCJCJC,3):if isnull(CCJCJCJ) or CCJCJCJ="" then
CCJCJCJ=CJJCJJCJ(CJJCCJJC)
elseif Mid(CCJCJCJ,instrrev(CCJCJCJ,CJJCCCJC("["))+1)<>CStr(CJJCCJJC) then
CCJCJCJ=CJJCJJCJ(CJJCCJJC)
elseif Left(CCJCJCJ,1)=CJJCCCJC("[") then
CCJCJCJ=CJJCJJCJ(CJJCCJJC)
end if
end if:CJJCJJJC=CCJCJCJ:End Function:Private Function CJJCJJCJ(CJJCCJJC):dim CCJCJJC:CCJCJJC=CStr(CJJCCJJC):if CCJCJJC="0" then
CJJCJJCJ=""
else
dim CCJJCCC:set CCJJCCC=CCCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJJCCCJC(" ,H96C6 ,:5l") & CJJCCJJC):if CCJJCCC.eof then
Call UpdateCache(CJJCCJJC,"","","",""):Call RedirectMessage(CJJCCCJC("顴@盩@（,xs：,") & CJJCCJJC & CJJCCCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJCCC(0)=0 then
CJJCJJCJ="0," & CJJCCJJC
else
CJJCJJCJ=CJJCJJJC(CCJJCCC(0)) & CJJCCCJC("[") & CJJCCJJC
end if:if CCJJCCC(2)<>CJJCJJCJ then
CCCCJC.execute CJJCCCJC("FA52E6 ,") & CCJJJCC & CJJCCCJC(" ,D6E ,A2E9lV") & CJJCJJCJ & CJJCCCJC("V ,H96C6 ,:5l") & CJJCCJJC
else
CJJCJJCJ=CCJJCCC(2)
end if
end if:Call UpdateCache(CJJCCJJC,CCJJCCC(0),CCJJCCC(1),CJJCJJCJ,CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if:End Function::Public Function CJJCJJCC(CJJCCJJC):CJJCJJCC = Mid(CJJCJJJC(CJJCCJJC), 3):End Function:Public Function CJJCJCJJ(CJJCCJJC):Dim CJCJCJC, CJCCJJC, CCJCJCC,Str, CCJCJCJ, CCJCCJJ, CJCJCCJ():CCJCJCJ = CJJCJJCC(CJJCCJJC):CCJCJCJ = Split(CCJCJCJ, CJJCCCJC("[")):for CJCJCJC=0 to Ubound(CCJCJCJ):CCJCJCC=CCJCJCJ(CJCJCJC):str=str & CJJCCCJC("M") & CCJCJCC & CJJCCCJC("M") & CJJCJJJJ(CCJCJCC):next:if str<>"" then str=Mid(str,2)
CJJCJCJJ=str:End Function:Public Function IsParent(CJCJJCCC, CJCJCJJJ):IsParent=InStr(CJJCJJJC(CJCJCJJJ) & CJJCCCJC("["), CJJCCCJC("[") & CJCJJCCC & CJJCCCJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJCCJJC):dim CCJCJCJ:CCJCJCJ=CJJCJJJC(CJJCCJJC):Sql_GetChildren = CCJJJCC & CJJCCCJC("0A2E9ZV[V ,=:<6 ,V") & CCJCJCJ & CJJCCCJC("[TV")
End Function:::Public Function GetPositionStr_From(CJJCCJJC, CJJCCJJJ):if isnull(CJJCCJJC) or isnull(CJJCCJJJ) then
GetPositionStr_From=CJJCCCJC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJCJCJC, CJCJCCJ, CCJCCJJ, CCJCCJC:CJJCCJJJ = CStr(CJJCCJJJ):If CJJCCJJJ = "0" or CJJCCJJJ = CStr(CJJCCJJC) Then
Str = CJJCJJJJ(CJJCCJJC)
Else
CJCJCCJ = Split(CJJCJCJJ(CJJCCJJC), CJJCCCJC("M")):CCJCCJJ = UBound(CJCJCCJ):CCJCCJC = False:For CJCJCJC = 0 To CCJCCJJ Step 2:If CJCJCCJ(CJCJCJC) = CJJCCJJJ And Not CCJCCJC Then CCJCCJC = True
If CCJCCJC Then
If Str <> "" Then Str = Str & CJJCCCJC("→,")
Str = Str & CJCJCCJ(CJCJCJC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJCCCJC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJJ
End Sub:Public Sub UpdateCache(CJJCCJJC,CCJCJCC,CJCJCJJC,CCJCJCJ,CJCJCJCJ):dim CJCJCJC,CJCCJJC:CJJCCJJC=CLng(CJJCCJJC):CJCJCJC=CJJJCCCC(CJJCCJJC):if CCJCJCC="" and CJCJCJJC="" and CCJCJCJ="" and CJCJCJCJ="" then
if CJCJCJC>0 then
for CJCCJJC=1 to 4:CCJJJJJ(CJCJCJC,CJCCJJC)=Null:next
end if
else
if CJCJCJC=0 then
for CJCCJJC=1 to CCJJJCJ:if CCJJJJJ(CJCCJJC,1) & ""="" then
CJCJCJC=CJCCJJC:exit for
end if:next
end if:if CJCJCJC=0 then
Call ClearCache
else
CCJJJJJ(CJCJCJC,0)=CLng(CJJCCJJC):if CCJCJCC<>"" then CCJJJJJ(CJCJCJC,1)=CLng(CCJCJCC)
if CJCJCJJC<>"" then CCJJJJJ(CJCJCJC,2)=CJCJCJJC
if CCJCJCJ<>"" then CCJJJJJ(CJCJCJC,3)=CCJCJCJ
if CJCJCJCJ<>"" then CCJJJJJ(CJCJCJC,4)=CLng(CJCJCJCJ)
end if
end if:if CJCJCJC>0 then
Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJJJC):Call ConnClose:Response.Write CJCJJJJC:Response.End:End Sub:Private Function CJJJCJJC():CJJJCJJC=CJJCCJCJ+1:End Function:Private Function CJJCCJCJ():dim CJCCCCJ:set CJCCCCJ=CCCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJCC & CJJCCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCCJCJ=CJCCCCJ(0):CJCCCCJ.Close: Set CJCCCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Server.ScriptTimeout = 270:Const CJJJJCJC=5:Const CJJJJCCJ="心理健康状况(MHT)":Call CheckRight("54,81"):Call CheckQueryTime(CJJCCCJC("%6DE0#6A@CE"),30):dim CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC:CCCJJCC=Request.QueryString(CJJCCCJC("$49@@=")):CCJCCCJ=Request.QueryString(CJJCCCJC("s6AE")):CCJCCCC=Request.QueryString(CJJCCCJC("vC256")):CCCJJJJ=Request.QueryString(CJJCCCJC("vC@FA")):CCCJJJC=Request.QueryString(CJJCCCJC("E`")):CCCJJCJ=Request.QueryString(CJJCCCJC("Ea")):if not CJJJCJJJ(CCJCCCJ) then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCJJJJJ:set CCJJJJJ=new jtree:CCJJJJJ.table=CJJCCCJC(">6>36C0EJA6"):if not CCJJJJJ.IsParent(CJJJCJC,CCJCCCJ) then Call RedirectMessage(CJJCCCJC("诠@苾@囯@W") & CCJCCCJ & CJJCCCJC("X丈@圣@患@W") & CJJJCJC & CJJCCCJC("X癿@箜@琁@苾@囯@冀@。,"))
dim CCCJCJJ:CCCJCJJ=CCJJJJJ.GetPositionStr_From(CCJCCCJ,CCCJJCC):dim CJCJCJC,CJCCJJC,CJCCJCJ,CCCJCJC,CCCJCCJ,CCCJCCC:dim CCCCJJJ(1,1):CCCCJJJ(0,0)=CJJCCCJC("甲@"):CCCCJJJ(1,0)=CJJCCCJC("奮@"):for CJCJCJC=0 to 1:CCCCJJJ(CJCJCJC,1)=0:next:dim CJCJCCJ,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ,CCCCCJC:CCCCJCC=Date:CCCCCJJ=cdate(CJJCCCJC("a___\`\`")):dim CCCCCCJ(8,4):for CJCJCJC=0 to ubound(CCCCCCJ):for CJCCJJC=0 to ubound(CCCCCCJ,2):CCCCCCJ(CJCJCJC,CJCCJJC)=0:next:next:CJJJJJC=CJJCCCJC("D6=64E ,>6>36C0EJA60A2E9[D6I[E6DE286[52E6E:>6[D4@C60E[?F>36C[:5 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJJCJC & CJJCCCJC(" ,2?5 ,G2=:5l`"):if cstr(CCJCCCJ)=cstr(CCCJJCC) then CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,>6>36C0EJA60E@Al") & CCCJJCC else CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,") & CCJJJJJ.Sql_GetChildren(CCJCCCJ)
if CJJJCJJJ(CCJCCCC) then CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,8C256l") & CCJCCCC
if CJJJCJJJ(CCCJJJJ) then CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,4FDE@>8C@FAl") & CCCJJJJ
if isdate(CCCJJJC) then CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,52E6E:>6mlV") & CCCJJJC & CJJCCCJC("V")
if isdate(CCCJJCJ) then CJJJJJC=CJJJJJC & CJJCCCJC(" ,2?5 ,52E6E:>6kV") & cdate(CCCJJCJ)+1 & CJJCCCJC("V")
set CCCCCC=CCCCJC.execute(CJJJJJC):if CCCCCC.eof then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CCCCCC.eof:if isnull(CCCCCC(4)) then Call RedirectMessage(CJJCCCJC("缑@史@W") & CCCCCC(5) & CJJCCCJC("X癿@浆@诐@讫@彐@W") & CCCCCC(6) & CJJCCCJC("X朄@诪@，,诲@创@陟@！,"))
CJCJCCJ=split(CCCCCC(4),CJJCCCJC("M")):for CJCJCJC=0 to 7:CJCCJCJ=cint(CJCJCCJ(CJCJCJC)):if CJCCJCJ<=8 then CCCCCCJ(CJCJCJC,0)=CCCCCCJ(CJCJCJC,0)+1 else CCCCCCJ(CJCJCJC,1)=CCCCCCJ(CJCJCJC,1)+1
next:CJCCJCJ=cint(CJCJCCJ(8)):if CJCCJCJ<65 then CCCCCCJ(8,0)=CCCCCCJ(8,0)+1 else CCCCCCJ(8,1)=CCCCCCJ(8,1)+1
for CJCJCJC=0 to 8:CCCCCCJ(CJCJCJC,2)=CCCCCCJ(CJCJCJC,2) & CJJCCCJC("M") & CJCJCCJ(CJCJCJC):next:if CCCCCC(1) then CJCCJJC=0 else CJCCJJC=1
CCCCJJJ(CJCCJJC,1)=CCCCJJJ(CJCCJJC,1)+1:CJCCJCJ=CCCCCC(3):if CJCCJCJ<CCCCJCC then CCCCJCC=CJCCJCJ
if CJCCJCJ>CCCCCJJ then CCCCCJJ=CJCCJCJ
CCCCCJC=CCCCCJC & CJJCCCJC("M") & CCCCCC(2):CCCCJJC=CCCCJJC+1:CCCCCC.movenext:wend:for CJCJCJC=0 to 7:CJCJCCJ=CJJCCJCC(split(Mid(CCCCCCJ(CJCJCJC,2),3),CJJCCCJC("M"))):CCCCCCJ(CJCJCJC,3)=FormatNumber(CJCJCCJ(0),2,-1):CCCCCCJ(CJCJCJC,4)=FormatNumber(CJCJCCJ(1),2,-1):next:Response.Write(vbCrLf):Response.Write(CJJCCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCJC("k9625m") & vbCrLf):Response.Write(CJJCCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCJC("kE:E=6m")):Response.Write  CCCJCJJ:Response.Write(CJJCCCJC("\")):Response.Write  CJJJJCCJ:Response.Write(CJJCCCJC("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJCCCJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJCCCJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJCCCJC("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(CJJCCCJC("7@@E6C[]@FE=:?6\@FED:56[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJCCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("k^9625m") & vbCrLf):Response.Write(CJJCCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCCJCJC:Response.Write(CJJCCCJC("Qm") & vbCrLf):Response.Write(CJJCCCJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCCCJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9`mkD>2==m")):Response.Write  CCCJCJJ:Response.Write(CJJCCCJC("k^D>2==mk3Cm")):Response.Write  CJJJJCCJ:Response.Write(CJJCCCJC("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJCCCJC(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm徾@琁@偠@庲@诅@斨@浆@骇@（,|w%）,昪@戌@囸@徾@琁@孡@巠@佗@耀@栴@捩@无@朧@钾@朣@渀@筄@亵@缑@刱@癿@《,丨@尊@孡@甚@丈@宄@倹@同@诅@斨@浆@骇@》,俩@讝@耇@戋@癿@，,只@産@争@绷@吃@梻@浆@丨@尊@孡@甚@癿@徾@琁@偠@庲@犱@冰@。,释@衣@圣@兣@囸@亇@匼@夕@严@盼@巽@（,陟@渪@、,澮@、,叫@乆@夑@）,凛@匾@戻@丨@尊@孡@徒@别@亁@幺@泖@佺@産@，,晩@遈@讟@丵@笡@吃@浆@释@孡@癿@襼@氽@，,俜@庡@咇@敃@庡@髓@，,秌@孡@怢@、,宙@産@怢@、,擈@佗@怢@張@，,昪@囸@冀@轾@奸@癿@徾@琁@浆@释@巠@兲@乆@一,。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm|w%昪@臥@访@释@衣@，,只@仠@浆@柠@孡@甚@癿@無@虌@氯@幮@、,恋@惢@倹@同@、,迂@敊@倹@同@、,孟@狧@倹@同@、,臥@贞@倹@同@、,冭@劣@倹@同@、,躦@徾@犱@忼@筄@斴@靝@癿@冀@宴@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm")):Response.Write  formatdatetime(CCCCJCC,1):Response.Write(CJJCCCJC("～,")):Response.Write  formatdatetime(CCCCCJJ,1):Response.Write(CJJCCCJC("k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm") & vbCrLf):Response.Write(CJJCCCJC(" ,")):response.Write CJJCCCJC("公@") & CCCCJJJ(0,1)+CCCCJJJ(1,1) & CJJCCCJC("亵@。,共@丨@甲@甚@：,") & CCCCJJJ(0,1) & CJJCCCJC("亵@，,奮@甚@：,") & CCCCJJJ(1,1) & CJJCCCJC("亵@，,"):CJCJCCJ=CJJCCJCC(split(Mid(CCCCCJC,2),CJJCCCJC("M"))):response.Write CJJCCCJC("幮@坂@幯@齿@") & formatnumber(CJCJCCJ(0),2,-1) & CJJCCCJC("屼@（,栂@凁@巩@") & formatnumber(CJCJCCJ(1),2,-1) & CJJCCCJC("）,。,"):Response.Write(vbCrLf):Response.Write(CJJCCCJC(" ,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bm`．,怶@刁@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm怶@刁@仞@衣@孡@甚@癿@怶@低@徾@琁@偠@庲@氯@幮@。,圣@兣@低@孡@甚@彎@丨@，,徾@琁@偠@庲@犱@忼@歞@帳@癿@丵@")):Response.Write  CCCCCCJ(8,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(8,0)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("；,徾@琁@偠@庲@犱@忼@廽@帳@癿@丵@")):Response.Write  CCCCCCJ(8,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(8,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("，,返@郣@刁@孡@甚@只@胸@孓@圣@柋@亖@徾@琁@闩@颓@，,電@襼@迖@衇@兮@泣@咇@辀@寷@，,帩@劤@仑@仧@揋@髓@徾@琁@偠@庲@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(8,0) & CJJCCCJC("[") & CCCCCCJ(8,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bma．,孡@乛@無@虌@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm孡@乛@無@虌@昪@挂@孡@甚@圣@幮@旱@孡@乛@咇@考,诐@朚@闯@癿@無@虌@氯@幮@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@孡@乛@無@虌@癿@丵@")):Response.Write  CCCCCCJ(0,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(0,0)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("；,孓@圣@昉@昹@孡@乛@無@虌@癿@丵@")):Response.Write  CCCCCCJ(0,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(0,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@孓@圣@昉@昹@孡@乛@無@虌@癿@孡@甚@，,序@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@逋@渋@陈@佉@孡@乛@無@虌@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(0,0) & CJJCCCJC("[") & CCCCCCJ(0,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmb．,寴@亵@無@虌@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm寴@亵@無@虌@昪@挂@孡@甚@圣@亵@陀@亟@彻@迂@稆@丨@孓@圣@癿@無@虌@氯@幮@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@寴@亵@無@虌@癿@丵@")):Response.Write  CCCCCCJ(1,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(1,0)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("；,孓@圣@昉@昹@寴@亵@無@虌@癿@丵@")):Response.Write  CCCCCCJ(1,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(1,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@孓@圣@昉@昹@寴@亵@無@虌@癿@孡@甚@，,序@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@逋@渋@陈@佉@亵@陀@亟@彻@丨@癿@無@虌@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(1,0) & CJJCCCJC("[") & CCCCCCJ(1,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmc．,孟@狧@倹@同@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm孟@狧@倹@同@昪@挂@孡@甚@昪@吡@孓@圣@昉@昹@癿@孟@狧@愚@。,圣@兣@低@孡@甚@彎@丨@，,孟@狧@倹@同@丈@昉@昹@癿@丵@")):Response.Write  CCCCCCJ(2,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(2,0)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("；,孟@狧@倹@同@昹@葒@癿@丵@")):Response.Write  CCCCCCJ(2,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(2,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@孓@圣@昹@葒@孟@狧@倹@同@癿@孡@甚@，,序@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@揋@髓@亵@陀@亟@彻@扻@胸@，,逋@渋@陈@佉@孟@狧@愚@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(2,0) & CJJCCCJC("[") & CCCCCCJ(2,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmd．,臥@贞@倹@同@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm臥@贞@倹@同@昪@挂@孡@甚@昪@吡@宴@明@臥@贞@、,冀@疕@。,圣@兣@低@孡@甚@彎@丨@，,臥@贞@倹@同@丈@昉@昹@癿@丵@")):Response.Write  CCCCCCJ(3,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(3,0)/CCCCJJC,3,-1):Response.Write(CJJCCCJC("；,臥@贞@倹@同@昹@葒@癿@丵@")):Response.Write  CCCCCCJ(3,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(3,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@孓@圣@昹@葒@臥@贞@倹@同@癿@孡@甚@，,序@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@迖@衇@歞@硩@癿@彍@四@，,逋@渋@陈@佉@冀@疕@愚@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(3,0) & CJJCCCJC("[") & CCCCCCJ(3,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bme．,迂@敊@倹@同@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm迂@敊@倹@同@昪@挂@孡@甚@圣@无@帳@甚@洶@丨@昪@吡@迂@争@敊@愚@。,圣@兣@低@孡@甚@彎@丨@，,迂@敊@倹@同@丈@昉@昹@癿@丵@")):Response.Write  CCCCCCJ(4,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(4,0)/CCCCJJC,3,-1):Response.Write(CJJCCCJC("；,迂@敊@倹@同@昹@葒@癿@丵@")):Response.Write  CCCCCCJ(4,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(4,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@孓@圣@昹@葒@迂@敊@倹@同@癿@孡@甚@，,序@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@逋@渋@脬@敊@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(4,0) & CJJCCCJC("[") & CCCCCCJ(4,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmf．,躦@低@痂@犱@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm躦@低@痂@犱@昪@挂@孡@甚@癿@躦@低@昪@吡@绊@帳@凵@玫@丈@追@癿@痂@犱@。,圣@兣@低@孡@甚@彎@丨@，,躦@低@歞@帳@癿@丵@")):Response.Write  CCCCCCJ(5,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(5,0)/CCCCJJC,3,-1):Response.Write(CJJCCCJC("；,躦@低@孓@圣@昉@昹@丈@追@痂@犱@癿@丵@")):Response.Write  CCCCCCJ(5,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(5,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@躦@低@孓@圣@昉@昹@丈@追@痂@犱@癿@孡@甚@，,序@廵@让@共@元@迖@衇@低@梻@，,好@林@丈@追@痂@犱@丶@襼@昪@徾@琁@厚@四@弐@赲@癿@，,刔@襼@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@攴@叓@徾@琁@犱@忼@，,迖@耇@攴@啿@躦@低@癿@丈@追@愚@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(5,0) & CJJCCCJC("[") & CCCCCCJ(5,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmg．,恋@怑@倹@同@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm恋@怑@倹@同@昪@挂@孡@甚@寴@柋@亖@了@牤@昪@吡@孓@圣@丈@吃@琁@癿@恋@惢@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@恋@怑@倹@同@癿@丵@")):Response.Write  CCCCCCJ(6,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(6,0)/CCCCJJC,3,-1):Response.Write(CJJCCCJC("；,孓@圣@昹@葒@恋@怑@倹@同@癿@丵@")):Response.Write  CCCCCCJ(6,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(6,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@恋@怑@倹@同@昹@葒@癿@孡@甚@，,廵@让@迖@衇@盳@序@癿@徾@琁@辀@寷@，,攴@叓@仑@仧@癿@讟@矠@咇@衇@丵@乛@惪@，,逋@渋@兆@月@丈@吃@琁@癿@恋@惢@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(6,0) & CJJCCCJC("[") & CCCCCCJ(6,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k9bmh．,冭@劣@倹@同@k^9bm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm冭@劣@倹@同@昪@挂@孡@甚@癿@惀@绥@咇@衇@丵@昪@吡@宴@明@冭@劣@。,圣@兣@低@孡@甚@彎@丨@，,丈@孓@圣@昉@昹@冭@劣@倹@同@癿@丵@")):Response.Write  CCCCCCJ(7,0):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(7,0)/CCCCJJC,3,-1):Response.Write(CJJCCCJC("；,孓@圣@昹@葒@冭@劣@倹@同@癿@丵@")):Response.Write  CCCCCCJ(7,1):Response.Write(CJJCCCJC("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCCCCCJ(7,1)/CCCCJJC,2,-1):Response.Write(CJJCCCJC("。,寴@争@冭@劣@倹@同@昹@葒@癿@孡@甚@，,廵@让@迖@衇@盳@序@癿@徾@琁@辀@寷@，,帩@劤@仑@仧@逋@歠@墙@張@探@刱@胸@劖@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4lA:6U9lb__UIl歞@帳@M廽@帳@UGl")):Response.Write  CCCCCCJ(7,0) & CJJCCCJC("[") & CCCCCCJ(7,1):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,k9am亏@、,丈@吇@四@孋@癿@徒@刁@寴@每@k^9am") & vbCrLf):Response.Write(CJJCCCJC(" ,kD64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,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(CJJCCCJC(" ,kE9625m") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m孡@乛@無@虌@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(0,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(0,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m寴@亵@無@虌@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(1,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(1,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m孟@狧@倹@同@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(2,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(2,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m臥@贞@倹@同@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(3,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(3,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m迂@敊@倹@同@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(4,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(4,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m躦@低@痂@犱@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(5,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(5,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m恋@怑@倹@同@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(6,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(6,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m冭@劣@倹@同@k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(7,3):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write  CCCCCCJ(7,4):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJC(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l4@=F>?U9lb__UIl孡@乛@無@虌@M寴@亵@無@虌@M孟@狧@倹@同@M臥@贞@倹@同@M迂@敊@倹@同@M躦@低@痂@犱@M恋@怑@倹@同@M冭@劣@倹@同@UGl")):Response.Write  CCCCCCJ(0,3) & CJJCCCJC("[") & CCCCCCJ(1,3) & CJJCCCJC("[") & CCCCCCJ(2,3) & CJJCCCJC("[") & CCCCCCJ(3,3) & CJJCCCJC("[") & CCCCCCJ(4,3) & CJJCCCJC("[") & CCCCCCJ(5,3) & CJJCCCJC("[") & CCCCCCJ(6,3) & CJJCCCJC("[") & CCCCCCJ(7,3):Response.Write(CJJCCCJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC(" ,k5:G ,4=2DDlQ2>\E6IE\AC:>2CJ ,2>\<2:Qm") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm【,礵@來@】,甬@丅@靝@癿@囹@衣@只@矠@，,孡@甚@怶@低@圣@孡@乛@無@虌@、,恋@怑@倹@同@斴@靝@癿@徒@刁@盳@寴@轾@髓@，,圣@孟@狧@倹@同@斴@靝@癿@徒@刁@盳@寴@曻@佉@，,返@误@昉@孡@甚@癿@孡@乛@無@虌@、,丈@吃@琁@癿@恋@惢@偊@髓@，,佁@孟@狧@愚@每@轾@佉@。,返@揋@礵@栜@斴@序@诠@廻@屐@一,亖@盳@序@癿@敔@肭@辀@寷@洶@劣@，,认@孡@甚@歞@硩@眆@往@孡@乛@、,甚@洶@，,孡@伕@改@杹@徾@惀@，,逋@歠@揋@髓@仑@仧@癿@惀@绥@偠@庲@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,kAm甬@丅@靝@癿@囹@衣@只@矠@，,孡@甚@怶@低@圣@躦@低@痂@犱@、,恋@怑@倹@同@、,迂@敊@倹@同@斴@靝@癿@徒@刁@盳@寴@曻@髓@，,圣@孟@狧@倹@同@斴@靝@癿@徒@刁@盳@寴@曻@佉@，,返@误@昉@孡@甚@丈@吃@琁@癿@恋@惢@偊@髓@，,躦@低@斴@靝@癿@丈@追@痂@犱@偊@夕@，,每@轾@敊@愚@，,佁@孟@狧@愚@每@轾@佉@。,返@揋@礵@栜@斴@序@诠@廻@屐@一,亖@盳@序@癿@敔@肭@辀@寷@洶@劣@，,纛@歞@孡@甚@丈@吃@琁@癿@讟@矠@，,攴@啿@仑@仧@癿@惀@绥@犱@忼@，,逋@歠@揋@髓@仑@仧@癿@躦@徾@偠@庲@氯@幮@。,k^Am") & vbCrLf):Response.Write(CJJCCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^D64E:@?m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCCCJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJCCCJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCCJCJJ:Response.Write(CJJCCCJC(" ,U>:55@Ej ,")):Response.Write  CJJJJCCJ:Response.Write(CJJCCCJC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJCCCJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJCCCJC(" ,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(CJJCCCJC(" ,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(CJJCCCJC(" ,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(CJJCCCJC(" ,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(CJJCCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJCCCJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJCCCJC(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJCCCJC(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJCCCJC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJCCCJC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJCCCJC(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJCCCJC(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJCCCJC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJCCCJC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJCCCJC(" ,NX") & vbCrLf):Response.Write(CJJCCCJC(" ,^^ ,刁@枋@斂@孒@揋@礵@") & vbCrLf):Response.Write(CJJCCCJC(" ,SWV]2>\E6IE\AC:>2CJVX]A@A@G6CWL") & vbCrLf):Response.Write(CJJCCCJC(" ,4@?E6?EiV揋@礵@：,诠@斂@朧@幱@静@钃@寴@栲@朧@癿@宙@陀@刁@枋@，,句@昪@栲@來@，,诲@俘@孓@丵@(@C5斂@桞@吉@臥@衇@俩@攴@斂@孒@。,V[") & vbCrLf):Response.Write(CJJCCCJC(" ,EC:886CiV9@G6CV[") & vbCrLf):Response.Write(CJJCCCJC(" ,E96>6iV52?86C ,D>V") & vbCrLf):Response.Write(CJJCCCJC(" ,NX") & vbCrLf):Response.Write(CJJCCCJC("NX") & vbCrLf):Response.Write(CJJCCCJC("k^D4C:AEm") & vbCrLf)::Function CJJCCJCC(ByVal CJCJCCJJ):Dim CJCJCJC, CCCCCCC, CJJJJJJJ, CJJJJJJC, CJJJJJCJ, CJJJJJCC:CCCCCCC = UBound(CJCJCCJJ) + 1:CJJJJJJJ = 0:For CJCJCJC = 0 To CCCCCCC - 1:CJCJCCJJ(CJCJCJC) = CDbl(CJCJCCJJ(CJCJCJC)):CJJJJJJJ = CJJJJJJJ + CJCJCCJJ(CJCJCJC):Next:CJJJJJJC = CJJJJJJJ / CCCCCCC:CJJJJJCJ = 0:For CJCJCJC = 0 To CCCCCCC - 1:CJJJJJCJ = CJJJJJCJ + (CJCJCCJJ(CJCJCJC) - CJJJJJJC) ^ 2:Next:CJJJJJCC = Sqr(CJJJJJCJ / CCCCCCC):CJJCCJCC = Array(CJJJJJJC, CJJJJJCC):End Function:Response.Write(vbCrLf):Response.Write(CJJCCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJJ=nothing:set CJJJCJCJ=nothing:set CJJJCJCC=nothing:set CJJJCCJJ=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCJC(ByVal CJJCCCJJ)
Dim CCCJCCJ, CJCJCJC, CJCCJCC
CJJCCCJJ = Replace(CJJCCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CJJCCCJJ)
If CJCJCJC <> CJCCJCC Then
CCCJCCJ = AscW(Mid(CJJCCCJJ, CJCJCJC, 1))
If CCCJCCJ >= 33 And CCCJCCJ <= 79 Then
CJJCCCJC = CJJCCCJC & Chr(CCCJCCJ + 47)
ElseIf CCCJCCJ >= 80 And CCCJCCJ <= 126 Then
CJJCCCJC = CJJCCCJC & Chr(CCCJCCJ - 47)
Else
CJCCJCC = CJCJCJC + 1
If Mid(CJJCCCJJ, CJCCJCC, 1) = Chr(64) Then CJJCCCJC = CJJCCCJC & ChrW(CCCJCCJ + 5) Else CJJCCCJC = CJJCCCJC & Mid(CJJCCCJJ, CJCJCJC, 1)
End If
End If
Next
End Function
%>