<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CJCJJC.open Application(CJJJCCJJ("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::Dim CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ:CJJJJJJ=Trim(Request.Cookies(CJJJCCJJ("!$*|t|qt#"))):if CJJJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCJ>0 then
CJCCJC=CJJJCCJJ("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") & CJCCCC & CJJJCCJJ("V ,2?5 ,:5l") & CJCCCJ
set CJCJCC=CJCJJC.execute(CJCCJC):If CJCJCC.EOF Then
Call ClearMemberCookie
Else
CCJJJJ=CJCJCC(2) & "":CCJJJC=CJCJCC(3):CCJJCJ=CJCJCC(5):CCJJCC=CJCJCC(6):CCJCJJ=CJCJCC(9):CCJCJC=CJCJCC(15):CCJCCC=CJCJCC(0):CCCCCJ=CJCJCC(1):CCCCJC=CJCJCC(11) & "":CCCJJJ=CJCJCC(10) & "":CCJCCJ=CJCJCC(12):CCCJJC=CJCJCC(14):CCCJCJ=CJCJCC(13):CCCJCC=CJCJCC(7) & "":CCCCJJ=CJCJCC(4):CCCCCC=CJCJCC(8):if isnull(CCJCJC) then CCJCJC=0
if isnull(CCJCJJ) or CCJCJJ=0 then CCJCJJ=CCJJJC
if isnull(CCCCJJ) then CCCCJJ=0
if isnull(CCJJCJ) then CCJJCJ=0
if instr(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCCC)>0 then Call RedirectMessage(CJJJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCCJ,CJCCCC)
End IF
end if:Sub CheckRight(CJJCJCC):dim CJJJJJC,CJJJJCJ:if CJCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJCCJ(CJJCJCC) then
Call RedirectMessage(CJJJCCJJ("朾@陋@W") & CJJCJCC & CJJJCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJCCJ(CJJCJCC):dim CJJJJJC,CJJJJCJ:CJJJJCJ=split(CJJCJCC,CJJJCCJJ("[")):CCCJCCJ=False:for CJJJJJC=0 to ubound(CJJJJCJ):If Mid(CCJJJJ,CJJJJCJ(CJJJJJC),1)="1" then
CCCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|t|qt#"))="":CJCCCJ=0:CCJJCC=0:CJCCCC=Empty:CCJJCJ=0:CCJCJC=0:CCJCJJ=0:CCJJJC=0:CCJCCC=False:CCCCCJ=False:CCCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCC,CJJJCJJ,CJJJJJC,CJJJCJC,CJJJCCJ:CJJJJCC=split(CJJJJJJ,CJJJCCJJ("]")):if ubound(CJJJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCC(0)) or len(CJJJJCC(1))<>32 or len(CJJJJCC(2))<>32 then
Call ClearMemberCookie
else
CJJJCJJ=CJJJJCC(1):for CJJJJJC=1 to len(CJJJCJJ):CJJJCJC=mid(CJJJCJJ,CJJJJJC,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCJJ=CJJJJCC(2):if CJJJCCJ<>mid(CJJJCJJ,6,7) then
Call ClearMemberCookie
else
CJJJCJC=mid(CJJJCJJ,18,10)/2:if CJJJCJC<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCJ=Clng(CJJJJCC(0)):CJCCCC=CJJJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJJ,CJJJCCJC):dim CJJJJJC,CJJJCJC,CJJJCCJ:for CJJJJJC=1 to len(CJJJCCJC):CJJJCJC=mid(CJJJCCJC,CJJJJJC,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCCJ=CJJJJJJJ & CJJJCCJJ("]") & CJJJCCJC & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJJJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJJJCCJ:End Sub::::Const CCCJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJJJJC,CJJJCJC,CJJJCCC:if isarray(str) then
on error resume next:CJJJJJC=ubound(str,2):CJJJCCC=err.number:err.clear:on error goto 0:if CJJJCCC<>0 then
for CJJJJJC=0 to ubound(str):if CJJJJJC>0 then response.Write CJJJCCJJ("k3C ,^m")
response.Write CJJJJJC & CJJJCCJJ("i ,") & str(CJJJJJC):next
else
response.Write CJJJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJJC=0 to ubound(str,2):response.Write CJJJCCJJ("kE9 ,2=:8?lV=67EVm") & CJJJJJC & CJJJCCJJ("k^E9m")
next:response.Write CJJJCCJJ("k^ECm"):for CJJJJJC=0 to ubound(str):response.Write CJJJCCJJ("kECmkE9m") & CJJJJJC & CJJJCCJJ("k^E9m"):for CJJJCJC=0 to ubound(str,2):response.Write CJJJCCJJ("kE5m") & str(CJJJJJC,CJJJCJC) & CJJJCCJJ("k^E5m"):next:response.Write CJJJCCJJ("k^ECm"):next:response.Write CJJJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCCJ,CJJJCCCC):dim CJJJJCC:CJJJJCC=CJJJCCCJ & CJJJCCJJ("l") & CJJJCCCC & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJJJJCC):End Sub:::::::Function CCCJCCC(CJJJCCC):if isnull(CJJJCCC) or trim(CJJJCCC)="" or not isnumeric(CJJJCCC) then
CCCJCCC=false
else
Dim CJJCJJJ:Set CJJCJJJ = New RegExp:CJJCJJJ.Pattern = CJJJCCJJ("/-5ZS"):CJJCJJJ.IgnoreCase = True:CCCJCCC = CJJCJJJ.test(CJJJCCC):set CJJCJJJ=nothing
end if:End Function:Function CCCCJJJ(CJJCJJJJ):dim CJJCJJC,CJJCJCJ:CJJCJJC=CJJJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJJ & CJJJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCJ=CJCJJC.execute(CJJCJJC):CCCCJJJ = CJJCJCJ(0):if isnull(CCCCJJJ) then CCCCJJJ=1
CJJCJCJ.close : set CJJCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCC=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:CJJCJCJ.close : set CJJCJCJ=nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCJCC.Close : Set CJCJCC=Nothing:CCCCCJJ.Close : Set CCCCCJJ = Nothing:CJCJJC.Close : Set CJCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJJJC)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCCCCJC(Table):Dim CJJCJCJ, CJJCJCC, str(), CJJJJJC,CJJJCJC,CJJCCJC:CJJCCJC=UCase(Table):If Not IsArray(Application(CJJJCCJJ("!$*0") & CJJCCJC)) Then
CJCCJC=CJJJCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJCJCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CJJCJCJ.open CJCCJC,CJCJJC,1:CJJCJCC = CJJCJCJ.RecordCount:ReDim str(CJJCJCC, 2):If CJJCJCC > 0 Then
For CJJJJJC = 1 To CJJCJCC:for CJJJCJC=0 to 2:str(CJJJJJC, CJJJCJC) = CJJCJCJ(CJJJCJC):next:CJJCJCJ.MoveNext:Next
End If:CJJCJCJ.Close: Set CJJCJCJ = Nothing:Application(CJJJCCJJ("!$*0") & CJJCCJC) = str
End If:CCCCCJC = Application(CJJJCCJJ("!$*0") & CJJCCJC):End Function::Function CCCCCCJ(CJJCJJJJ,CJJCJJCJ,CJJJJJJJ):Dim str, CJJJJJC, CJJCCCJ:CJJCCCJ = CCCCCJC(CJJCJJJJ):For CJJJJJC = 1 To UBound(CJJCCCJ):if Cstr(CJJCCCJ(CJJJJJC,2))=Cstr(CJJCJJCJ) and CStr(CJJCCCJ(CJJJJJC, 0)) = CJJJJJJJ & "" then
str=CJJCCCJ(CJJJJJC,1):exit for
end if:Next:if str="" then str=CJJJCCJJ(",朥@矠@.")
CCCCCCJ=str:End Function:::::::::::::::::Sub ClearCache(CJJCJJCC):Application.Contents.Remove CJJCJJCC
End Sub::Class jTree:Private CJCCJC, CJJCCCC, CJCJJJJ, CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:Private Sub Class_Initialize():CJCJJJJ = 0:CJCJJJC = 0:CJCJCJC=10:End Sub:Public Property Let Table(CJJCJCJJ):if CJJCJCJJ="" then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJJCJ=CJJCJCJJ:CJCJJCC=CJJJCCJJ("!$*0") & UCase(CJCJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJCJ:End Property:::Private Sub GetTreeArray():Dim CJJJJJC, CJJJCJC, CJCJCCJ,RecordCount:CJJCCCC = Application(CJCJJCC):If Not IsArray(CJJCCCC) Then
CJCCJC = CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJCJ:if CJCJCJJ<>"" then CJCCJC=CJCCJC & CJJJCCJJ(" ,H96C6 ,") & CJCJCJJ
set CJCJCCJ=CJCJJC.execute(CJCCJC):RecordCount=CJCJCCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCCJJ("柠@话@W") & CJCJJCJ & CJJJCCJJ("^") & CJCJCJJ & CJJJCCJJ("X沜@朄@绎@林@敫@捩@"))
CJCJJJC=RecordCount+CJCJCJC:ReDim CJJCCCC(CJCJJJC, 4):CJCCJC = CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJCCJJ(" ,H:E9 ,W?@=@4<X"):if CJCJCJJ<>"" then CJCCJC=CJCCJC & CJJJCCJJ(" ,H96C6 ,") & CJCJCJJ
CJCCJC=CJCCJC & CJJJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJCCJ=CJCJJC.execute(CJCCJC):For CJJJJJC = 1 To RecordCount:For CJJJCJC = 0 To 4:CJJCCCC(CJJJJJC, CJJJCJC) = CJCJCCJ(CJJJCJC):if IsNull(CJJCCCC(CJJJJJC,4)) then CJJCCCC(CJJJJJC,4)=0
If CJJCCCC(CJJJJJC,2)="" then CJJCCCC(CJJJJJC,2)=CJJJCCJJ(",穵@.")
Next:CJCJCCJ.MoveNext:Next:CJCJCCJ.Close: Set CJCJCCJ = Nothing:for CJJJJJC=CJCJJJC-(CJCJCJC-1) to CJCJJJC:CJJCCCC(CJJJJJC,0)=CJJJJJC:next:Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
else
CJCJJJC=Ubound(CJJCCCC)
End If:End Sub::::Public Function GetChild(CJJJJJJJ):Dim CJJJJJC, Str:CJJJJJJJ=CLng(CJJJJJJJ):For CJJJJJC = 1 To CJCJJJC:If CJJCCCC(CJJJJJC, 1) = CJJJJJJJ Then Str = Str & CJJJCCJJ("M") & CJJCCCC(CJJJJJC, 0) & CJJJCCJJ("M") & CJJCCCC(CJJJJJC,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCCJJ("M")):End Function:Private Function CJJJJJCJ(CJJJJJJJ):dim CJJJJJC,CJCCJJJ:CJJJJJCJ=0:CJCCJJJ=CStr(CJJJJJJJ):if CJCCJJJ<>"0" then
for CJJJJJC=1 to CJCJJJC:If CStr(CJJCCCC(CJJJJJC, 0))=CJCCJJJ Then
CJJJJJCJ = CJJJJJC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJJJJJJJ):if Cstr(CJJJJJJJ)="0" then
GetCurName=CJJJCCJJ("栴@")
else
Dim CJJJJJC,CJCJCCJ:CJJJJJC=CJJJJJCJ(CJJJJJJJ):if CJJJJJC>0 then
GetCurName=CJJCCCC(CJJJJJC,2):if GetCurName="" then
set CJCJCCJ=CJCJJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CJCJCCJ.eof then Call RedirectMessage(CJJJCCJJ("xs（,") & CJJJJJJJ & CJJJCCJJ("）,朥@批@别@"))
GetCurName=CJCJCCJ(1):Call UpdateCache(CJJJJJJJ,CJCJCCJ(0),GetCurName,CJCJCCJ(2),CJCJCCJ(3)):CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if
else
set CJCJCCJ=CJCJJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CJCJCCJ.eof then Call RedirectMessage(CJJJCCJJ("xs（,") & CJJJJJJJ & CJJJCCJJ("）,朥@批@别@"))
GetCurName=CJCJCCJ(1):Call UpdateCache(CJJJJJJJ,CJCJCCJ(0),GetCurName,CJCJCCJ(2),CJCJCCJ(3)):CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if
end if:End Function:::Public Function CJJJJCJJ(CJJJJJJJ):Dim CJJJJJC,CJCCJJC:CJJJJJC=CJJJJJCJ(CJJJJJJJ):if CJJJJJC=0 then
CJCCJJC=CJJJJCJC(CJJJJJJJ)
else
CJCCJJC=CJJCCCC(CJJJJJC,3):if isnull(CJCCJJC) or CJCCJJC="" then
CJCCJJC=CJJJJCJC(CJJJJJJJ)
elseif Mid(CJCCJJC,instrrev(CJCCJJC,CJJJCCJJ("["))+1)<>CStr(CJJJJJJJ) then
CJCCJJC=CJJJJCJC(CJJJJJJJ)
elseif Left(CJCCJJC,1)=CJJJCCJJ("[") then
CJCCJJC=CJJJJCJC(CJJJJJJJ)
end if
end if:CJJJJCJJ=CJCCJJC:End Function:Private Function CJJJJCJC(CJJJJJJJ):dim CJCCJJJ:CJCCJJJ=CStr(CJJJJJJJ):if CJCCJJJ="0" then
CJJJJCJC=""
else
dim CJCJCCJ:set CJCJCCJ=CJCJJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CJCJCCJ.eof then
Call UpdateCache(CJJJJJJJ,"","","",""):Call RedirectMessage(CJJJCCJJ("顴@盩@（,xs：,") & CJJJJJJJ & CJJJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJCCJ(0)=0 then
CJJJJCJC="0," & CJJJJJJJ
else
CJJJJCJC=CJJJJCJJ(CJCJCCJ(0)) & CJJJCCJJ("[") & CJJJJJJJ
end if:if CJCJCCJ(2)<>CJJJJCJC then
CJCJJC.execute CJJJCCJJ("FA52E6 ,") & CJCJJCJ & CJJJCCJJ(" ,D6E ,A2E9lV") & CJJJJCJC & CJJJCCJJ("V ,H96C6 ,:5l") & CJJJJJJJ
else
CJJJJCJC=CJCJCCJ(2)
end if
end if:Call UpdateCache(CJJJJJJJ,CJCJCCJ(0),CJCJCCJ(1),CJJJJCJC,CJCJCCJ(3)):CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if:End Function::::Public Function IsParent(CJJCJCJC, CJJCJCCJ):IsParent=InStr(CJJJJCJJ(CJJCJCCJ) & CJJJCCJJ("["), CJJJCCJJ("[") & CJJCJCJC & CJJJCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJJJJJ):dim CJCCJJC:CJCCJJC=CJJJJCJJ(CJJJJJJJ):Sql_GetChildren = CJCJJCJ & CJJJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJCCJJC & CJJJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCC
End Sub:Public Sub UpdateCache(CJJJJJJJ,CJJCJCCC,CJJCCJJJ,CJCCJJC,CJJCCJJC):dim CJJJJJC,CJJJCJC:CJJJJJJJ=CLng(CJJJJJJJ):CJJJJJC=CJJJJJCJ(CJJJJJJJ):if CJJCJCCC="" and CJJCCJJJ="" and CJCCJJC="" and CJJCCJJC="" then
if CJJJJJC>0 then
for CJJJCJC=1 to 4:CJJCCCC(CJJJJJC,CJJJCJC)=Null:next
end if
else
if CJJJJJC=0 then
for CJJJCJC=1 to CJCJJJC:if CJJCCCC(CJJJCJC,1) & ""="" then
CJJJJJC=CJJJCJC:exit for
end if:next
end if:if CJJJJJC=0 then
Call ClearCache
else
CJJCCCC(CJJJJJC,0)=CLng(CJJJJJJJ):if CJJCJCCC<>"" then CJJCCCC(CJJJJJC,1)=CLng(CJJCJCCC)
if CJJCCJJJ<>"" then CJJCCCC(CJJJJJC,2)=CJJCCJJJ
if CJCCJJC<>"" then CJJCCCC(CJJJJJC,3)=CJCCJJC
if CJJCCJJC<>"" then CJJCCCC(CJJJJJC,4)=CLng(CJJCCJJC)
end if
end if:if CJJJJJC>0 then
Application.Lock():Application(CJCJJCC) = CJJCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJJC):Call ConnClose:Response.Write CJJCJJJC:Response.End:End Sub:Private Function CCCCJJJ():CCCCJJJ=CJJJCJJJ+1:End Function:Private Function CJJJCJJJ():dim CJJCJCJ:set CJJCJCJ=CJCJJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJCJ & CJJJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJJJ=CJJCJCJ(0):CJJCJCJ.Close: Set CJJCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCJJ=178:Const CCCJCJC="自杀倾向量表":Call CheckRight("54,81"):dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCCCC=Request.QueryString(CJJJCCJJ("$49@@=")):CJCCJCJ=Request.QueryString(CJJJCCJJ("s6AE")):CJCCJCC=Request.QueryString(CJJJCCJJ("vC256")):CJCCCJJ=Request.QueryString(CJJJCCJJ("vC@FA")):CJCCCJC=Request.QueryString(CJJJCCJJ("E`")):CJCCCCJ=Request.QueryString(CJJJCCJJ("Ea")):if not CCCJCCC(CJCCCCC) then Call RedirectMessage(CJJJCCJJ("甬@争@糶@绚@電@襼@栴@捩@“,臥@朻@潗@圣@飉@除@”,浆@访@讫@彐@讜@箒@序@浆@亵@敫@，,戻@仠@曻@夢@苾@囯@句@胸@别@孡@栜@尽@欜@。,"))
if not CCCJCCC(CJCCJCJ) then Call RedirectMessage(CJJJCCJJ("厽@敫@W56AEX昪@忀@顶@伛@逍@癿@。,"))
dim CJJCCCC:set CJJCCCC=new jtree:CJJCCCC.table=CJJJCCJJ(">6>36C0EJA6"):if not CJJCCCC.IsParent(CCJJJC,CJCCJCJ) then Call RedirectMessage(CJJJCCJJ("诠@苾@囯@W") & CJCCJCJ & CJJJCCJJ("X丈@圣@患@W") & CCJJJC & CJJJCCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJJCJJC:CJJJCJJC=CJJCCCC.GetChild(CJCCJCJ):if ubound(CJJJCJJC)<0 then Call RedirectMessage(CJJJCCJJ("陝@糶@苾@囯@诲@丈@襼@逄@别@曻@庐@尽@！,"))
dim CCJJJJJ:CCJJJJJ=CJJCCCC.GetCurName(CJCCJCJ):dim CJJJJJC,CJJJCJC,CJJJCCJ,CCJJJJC,CCJJJCJ,CCJJJCC:dim CCJJCJJ():redim CCJJCJJ((ubound(CJJJCJJC)-1)/2,8):for CJJJJJC=0 to ubound(CJJJCJJC)-1 step 2:CJJJCCJ=CJJJJJC/2:CCJJCJJ(CJJJCCJ,0)=CJJJCJJC(CJJJJJC):CCJJCJJ(CJJJCCJ,1)=CJJJCJJC(CJJJJJC+1):for CJJJCJC=2 to ubound(CCJJCJJ,2):CCJJCJJ(CJJJCCJ,CJJJCJC)=0:next:CCJJJJC=CCJJJJC & CJJJCCJJ("M") & CCJJCJJ(CJJJCCJ,1):next:CCJJJJC=mid(CCJJJJC,2):dim CCJJCJC(1,7):CCJJCJC(0,0)=CJJJCCJJ("甲@"):CCJJCJC(1,0)=CJJJCCJJ("奮@"):for CJJJJJC=0 to 1:for CJJJCJC=1 to 7:CCJJCJC(CJJJJJC,CJJJCJC)=0:next:next:dim CJJJJCJ,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC:CCJCJJJ=Date:CCJCJJC=cdate(CJJJCCJJ("a___\`\`")):dim CCJCCJJ:CCJCCJJ=Array(0,0,0,0,0):dim CCJCCJC:set CJCJCC=CJCJJC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,EJA6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CJCCCCC):if CJCJCC(0)<=2 or CJCJCC(0)=16 then
CCJCCJC=159
elseif instr(CJJJCCJJ("[c[d[e[`_[``["),CJJJCCJJ("[") & CJCJCC(0) & CJJJCCJJ("["))>0 then
CCJCCJC=190
elseif CJCJCC(0)=7 or CJCJCC(0)=13 then
CCJCCJC=164
else
CCJCCJC=121
end if:CJCCJC=CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCJCCJC & CJJJCCJJ(" ,2?5 ,G2=:5l` ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX")
if cstr(CJCCJCJ)=cstr(CJCCCCC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCC else CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,") & CJJCCCC.Sql_GetChildren(CJCCJCJ)
if CCCJCCC(CJCCJCC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,8C256l") & CJCCJCC
if CCCJCCC(CJCCCJJ) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCCJJ
if isdate(CJCCCJC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,52E6E:>6mlV") & CJCCCJC & CJJJCCJJ("V")
if isdate(CJCCCCJ) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCCJ)+1 & CJJJCCJJ("V")
set CJCJCC=CJCJJC.execute(CJCCJC):CCJCJCC=CJCJCC(0):CJCCJC=CJJJCCJJ("D6=64E ,C6DF=E[>6>36C0EJA60A2E9[D4@C60E[D6I[52E6E:>6[E6DE286 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCJCJJ & CJJJCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJCCJCJ)=cstr(CJCCCCC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCCCCC else CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,") & CJJCCCC.Sql_GetChildren(CJCCJCJ)
if CCCJCCC(CJCCJCC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,8C256l") & CJCCJCC
if CCCJCCC(CJCCCJJ) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCCJJ
if isdate(CJCCCJC) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,52E6E:>6mlV") & CJCCCJC & CJJJCCJJ("V")
if isdate(CJCCCCJ) then CJCCJC=CJCCJC & CJJJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCCJ)+1 & CJJJCCJJ("V")
set CJCJCC=CJCJJC.execute(CJCCJC):if CJCJCC.eof then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CJCJCC.eof:CJJJJCJ=split(CJCJCC(0),CJJJCCJJ("M")):CJJJCCJ=CJCJCC(0):CCJCCJJ(CJJJCCJ)=CCJCCJJ(CJJJCCJ)+1:CJJJCJC=ubound(CCJJCJJ):for CJJJJJC=0 to CJJJCJC-1:if instr(CJCJCC(1) & CJJJCCJJ("["),CJJJCCJJ("[") & CCJJCJJ(CJJJJJC,0) & CJJJCCJJ("["))>0 then
CJJJCJC=CJJJJJC:exit for
end if:next:CJJJJJC=CJJJCJC:CCJJCJJ(CJJJJJC,2)=CCJJCJJ(CJJJJJC,2)+1:CCJJCJJ(CJJJJJC,3)=CCJJCJJ(CJJJJJC,3) & CJJJCCJJ("M") & CJCJCC(2):CJJJCCJ=CJCJCC(0)+4:CCJJCJJ(CJJJJJC,CJJJCCJ)=CCJJCJJ(CJJJJJC,CJJJCCJ)+1:if CJCJCC(3) then CJJJCJC=0 else CJJJCJC=1
CCJJCJC(CJJJCJC,1)=CCJJCJC(CJJJCJC,1)+1:CCJJCJC(CJJJCJC,2)=CCJJCJC(CJJJCJC,2) & CJJJCCJJ("M") & CJCJCC(2):CJJJCCJ=CJCJCC(0)+3:CCJJCJC(CJJJCJC,CJJJCCJ)=CCJJCJC(CJJJCJC,CJJJCCJ)+1:CJJJCCJ=CJCJCC(4):if CJJJCCJ<CCJCJJJ then CCJCJJJ=CJJJCCJ
if CJJJCCJ>CCJCJJC then CCJCJJC=CJJJCCJ
CCJCJCJ=CCJCJCJ & CJJJCCJJ("M") & CJCJCC(5):CJCJCC.movenext:CCJJCCJ=CCJJCCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJJ("k9625m") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJJ("\")):Response.Write  CCCJCJC:Response.Write(CJJJCCJJ("浆@诐@绎@林@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6A@CE]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("DA2?]F?56C=:?6 ,L ,E6IE\564@C2E:@?i ,F?56C=:?6j ,N") & vbCrLf):Response.Write(CJJJCCJJ("DA2?]F?56C=:?6ii367@C6 ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CJJJCCJJ("DA2?]F?56C=:?6ii27E6C ,L ,4@?E6?Ei ,Q ,Qj ,N") & vbCrLf):Response.Write(CJJJCCJJ("E9]@G6C=:?6 ,L ,E6IE\564@C2E:@?i ,@G6C=:?6j ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCJJ("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(CJJJCCJJ("7@@E6C[]2FE@4;D[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQIQ ,G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6C ,2>\2CE:4=6Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJJ("k3Cm")):Response.Write  CCCJCJC:Response.Write(CJJJCCJJ("浆@诐@绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am一,、,浆@诐@巠@兲@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm釂@産@徾@浲@卬@朵@幭@顿@糶@绚@轪@仱@丨@癿@臥@朻@倹@同@释@衣@。,诠@释@衣@丵@臥@访@释@衣@，,追@産@争@访@伫@严@低@彎@剈@臥@朻@倹@同@癿@夢@尊@。,释@衣@公@a_严@颓@盩@，,匀@拧@c严@刁@释@衣@，,侘@欜@丵@绘@朖@愚@、,臥@朻@讟@吇@、,臥@朻@凁@夂@、,掤@饫@怢@。,栴@捩@浆@诐@绎@林@，,只@仠@封@叒@浆@耀@彎@剈@癿@臥@朻@倹@同@刍@刁@丵@亏@严@筄@红@，,侘@欜@丵@歞@帳@、,轾@佉@、,丨@筄@、,轾@髓@、,杼@髓@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am亇@、,浆@诐@旱@闯@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  formatdatetime(CCJCJJJ,1):Response.Write(CJJJCCJJ("～,")):Response.Write  formatdatetime(CCJCJJC,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am丄@、,浆@诐@羟@低@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm歟@欜@浆@柠@羟@低@癿@兲@低@揊@迫@好@丆@：,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kF=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,亵@敫@：, ,朧@欜@浆@访@釂@産@罌@绗@浆@访@癿@斴@弊@，,序@浆@亵@敫@")):Response.Write  CCJCJCC:Response.Write(CJJJCCJJ("亵@，,宙@浆@亵@敫@")):Response.Write  CCJJCCJ:Response.Write(CJJJCCJJ("亵@") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):if CCJCJCC>0 then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,，,厽@浆@玂@丵@")):Response.Write  formatnumber(CCJJCCJ/CCJCJCC*100,2,-1):Response.Write(CJJJCCJJ("T") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,。,") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:m怢@刦@：, ,甲@怢@")):Response.Write  CCJJCJC(0,1):Response.Write(CJJJCCJJ("亵@，,奮@怢@")):Response.Write  CCJJCJC(1,1):Response.Write(CJJJCCJJ("亵@。,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:m幯@齿@：,") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):CJJJJCJ=CJJJCJCJ(split(Mid(CCJCJCJ,2),CJJJCCJJ("M"))):response.Write CJJJCCJJ("幮@坂@幯@齿@") & formatnumber(CJJJJCJ(0),2,-1) & CJJJCCJJ("屼@（,栂@凁@巩@") & formatnumber(CJJJJCJ(1),2,-1) & CJJJCCJJ("）,。,"):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:m卐@佈@：,") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):CJJJCJC=0:for CJJJJJC=0 to ubound(CCJJCJJ):if CCJJCJJ(CJJJJJC,2)>0 then
CJJJCJC=CJJJCJC+1:response.Write CCJJCJJ(CJJJJJC,1) & CJJJCCJJ("：,") & CCJJCJJ(CJJJJJC,2) & CJJJCCJJ("亵@，,")
end if:next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,公@讜@")):Response.Write  CJJJCJC:Response.Write(CJJJCCJJ("严@卐@佈@") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:m幯@仸@：,") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):if CCCJCCC(CJCCJCC) then response.Write CCCCCCJ(CJJJCCJJ(">6>36C08C256"),CJCCCCC,CJCCJCC) else response.Write CJJJCCJJ(",兣@郣@.")
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am囖@、,怶@低@癿@浆@诐@绎@林@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm怶@刁@仞@衣@严@低@彎@剈@癿@臥@朻@倹@同@，,徒@刁@超@髓@，,误@昉@臥@朻@倹@同@超@髓@。,圣@兣@低@叒@浆@耀@彎@丨@，,彎@剈@丈@孓@圣@臥@朻@倹@同@癿@朄@")):Response.Write  CCJCCJJ(0):Response.Write(CJJJCCJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCJCCJJ(0)/CCJJCCJ,2,-1):Response.Write(CJJJCCJJ("；,臥@朻@倹@同@轾@佉@癿@朄@")):Response.Write  CCJCCJJ(1):Response.Write(CJJJCCJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCJCCJJ(1)/CCJJCCJ,2,-1):Response.Write(CJJJCCJJ("；,臥@朻@倹@同@丵@丨@筄@癿@朄@")):Response.Write  CCJCCJJ(2):Response.Write(CJJJCCJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCJCCJJ(2)/CCJJCCJ,2,-1):Response.Write(CJJJCCJJ("；,臥@朻@倹@同@轾@髓@癿@朄@")):Response.Write  CCJCCJJ(3):Response.Write(CJJJCCJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCJCCJJ(3)/CCJJCCJ,2,-1):Response.Write(CJJJCCJJ("；,臥@朻@倹@同@丵@杼@髓@癿@朄@")):Response.Write  CCJCCJJ(4):Response.Write(CJJJCCJJ("亵@，,戻@卛@每@來@丵@")):Response.Write  FormatPercent(CCJCCJJ(4)/CCJJCCJ,2,-1):Response.Write(CJJJCCJJ("。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm寴@争@臥@朻@倹@同@丵@轾@髓@、,杼@髓@癿@严@低@杠@误@，,電@襼@竆@卮@迖@衇@丆@一,红@访@伫@—,—,鉯@刦@访@伫@，,甬@徾@琁@巠@佗@耀@三@共@迖@衇@靝@调@幱@访@伫@共@臥@朻@飉@除@；,寴@争@臥@朻@倹@同@丵@轾@佉@、,丨@筄@癿@严@低@杠@误@，,只@仠@俘@拼@迸@踥@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kD4C:AE ,DC4lV^$4C:AED^492CE];Dn4lA:6UHldd_U9lb__UIl歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@UGl")):Response.Write  join(CCJCCJJ,CJJJCCJJ("M")):Response.Write(CJJJCCJJ("Vmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am亏@、,丈@吇@郣@闣@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bm`．,怶@刁@癿@寴@每@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m郣@闣@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):for CJJJJJC=0 to ubound(CCJJCJJ):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJJCJJ(CJJJJJC,1):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,2):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):if CCJJCJJ(CJJJJJC,2)=0 then
CCJJJCJ=CCJJJCJ & CJJJCCJJ("M_"):response.Write CJJJCCJJ("\")
else
CJJJJCJ=CJJJCJCJ(split(Mid(CCJJCJJ(CJJJJJC,3),3),CJJJCCJJ("M"))):CCJJCCC=formatnumber(CJJJJCJ(0),2,-1):CCJJJCJ=CCJJJCJ & CJJJCCJJ("M") & CCJJCCC:response.Write CCJJCCC
end if:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):if CCJJCJJ(CJJJJJC,2)=0 then
response.Write CJJJCCJJ("\")
else
response.Write formatnumber(CJJJJCJ(1),2,-1)
end if:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUHldd_U9l")):Response.Write  (ubound(CCJJCJJ)+1)*30+200:Response.Write(CJJJCCJJ("UGl")):Response.Write  mid(CCJJJCJ,2):Response.Write(CJJJCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bma．,丈@吇@郣@闣@癿@臥@朻@倹@同@叿@筄@红@癿@亵@敫@刁@巾@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m歞@帳@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m杼@髓@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m吃@讜@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):for CJJJJJC=0 to ubound(CCJJCJJ):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCJJCJJ(CJJJJJC,1):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,4):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,5):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,6):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,7):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,8):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJJ(CJJJJJC,2):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):CCJJJCJ=CJJJCCJJ("LV?2>6ViV歞@帳@V[V52E2Vi,")
for CJJJJJC=0 to ubound(CCJJCJJ):if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJJ(CJJJJJC,4):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N[LV?2>6ViV轾@佉@V[V52E2Vi,")
for CJJJJJC=0 to ubound(CCJJCJJ):if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJJ(CJJJJJC,5):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N[LV?2>6ViV丨@筄@V[V52E2Vi,")
for CJJJJJC=0 to ubound(CCJJCJJ):if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJJ(CJJJJJC,6):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N[LV?2>6ViV轾@髓@V[V52E2Vi,")
for CJJJJJC=0 to ubound(CCJJCJJ):if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJJ(CJJJJJC,7):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N[LV?2>6ViV杼@髓@V[V52E2Vi,")
for CJJJJJC=0 to ubound(CCJJCJJ):if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJJ(CJJJJJC,8):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N"):CCJJJCJ=CJJJCCJJ(",") & CCJJJCJ & CJJJCCJJ("."):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQGQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];Dn4l32CUDl`UHldd_U9l")):Response.Write  (ubound(CCJJCJJ)+1)*30+200:Response.Write(CJJJCCJJ("U=l_U@lRhf3dda[Rd23`67[R773hg_[R7dhhc6[R4`c_ghQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am全@、,丈@吇@怢@刦@癿@浆@诐@绎@林@每@轾@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bm`．,怶@刁@癿@寴@每@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m幮@坂@敫@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m栂@凁@巩@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):CCJJJCJ="":for CJJJJJC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,0):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,1):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):if CCJJCJC(CJJJJJC,1)=0 then
CCJJJCJ=CCJJJCJ & CJJJCCJJ("M_"):response.Write CJJJCCJJ("\")
else
CJJJJCJ=CJJJCJCJ(split(Mid(CCJJCJC(CJJJJJC,2),3),CJJJCCJJ("M"))):CCJJCCC=formatnumber(CJJJJCJ(0),2,-1):CCJJJCJ=CCJJJCJ & CJJJCCJJ("M") & CCJJCCC:response.Write CCJJCCC
end if:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):if CCJJCJC(CJJJJJC,1)=0 then
response.Write CJJJCCJJ("\")
else
response.Write formatnumber(CJJJJCJ(1),2,-1)
end if:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnUHldd_U9lb__UIl甲@M奮@UGl")):Response.Write  mid(CCJJJCJ,2):Response.Write(CJJJCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bma．,丈@吇@怢@刦@癿@臥@朻@倹@同@叿@筄@红@癿@亵@敫@刁@巾@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m歞@帳@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m轾@佉@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m丨@筄@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m轾@髓@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m杼@髓@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m吃@讜@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):for CJJJJJC=0 to 1:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,0):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,3):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,4):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,5):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,6):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,7):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCJJCJC(CJJJJJC,1):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):CCJJJCJ="":for CJJJJJC=0 to 1:if CJJJJJC>0 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CJJJCCJJ("LV?2>6ViV") & CCJJCJC(CJJJJJC,0) & CJJJCCJJ("V[V52E2Vi,")
for CJJJCJC=3 to 7:if CJJJCJC>3 then CCJJJCJ=CCJJJCJ & CJJJCCJJ("[")
CCJJJCJ=CCJJJCJ & CCJJCJC(CJJJJJC,CJJJCJC):next:CCJJJCJ=CCJJJCJ & CJJJCCJJ(".N"):next:CCJJJCJ=CJJJCCJJ(",") & CCJJJCJ & CJJJCCJJ("."):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kD4C:AE ,DC4lQ^$4C:AED^492CE];DnHldd_U9lb__UIl歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@UGl")):Response.Write  CCJJJCJ:Response.Write(CJJJCCJJ("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJJCCJJ("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJJ(" ,U>:55@Ej ,")):Response.Write  CCCJCJC:Response.Write(CJJJCCJJ("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,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(CJJJCCJJ(" ,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(CJJJCCJJ(" ,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(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\2FE@4VX]@?WV4=:4<V[7F?4E:@?WXL2FE@4]D9@HWXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJJJCCJJ(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJJJCCJJ(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJJJCCJJ(" ,D6=64E@CiV9a[9b[9c[9d[9eV[") & vbCrLf):Response.Write(CJJJCCJJ(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJJJCCJJ(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJJJCCJJ(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJJJCCJJ(" ,NX") & vbCrLf):Response.Write(CJJJCCJJ("NX") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf)::Function CJJJCJCJ(ByVal CJJCCJCC):Dim CJJJJJC, CCJCCCJ, CCJCCCC, CCCJJJJ, CCCJJJC, CCCJJCJ:CCJCCCJ = UBound(CJJCCJCC) + 1:CCJCCCC = 0:For CJJJJJC = 0 To CCJCCCJ - 1:CJJCCJCC(CJJJJJC) = CDbl(CJJCCJCC(CJJJJJC)):CCJCCCC = CCJCCCC + CJJCCJCC(CJJJJJC):Next:CCCJJJJ = CCJCCCC / CCJCCCJ:CCCJJJC = 0:For CJJJJJC = 0 To CCJCCCJ - 1:CCCJJJC = CCCJJJC + (CJJCCJCC(CJJJJJC) - CCCJJJJ) ^ 2:Next:CCCJJCJ = Sqr(CCCJJJC / CCJCCCJ):CJJJCJCJ = Array(CCCJJJJ, CCCJJCJ):End Function:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCC=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJJC.Close:Set CJCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJJ(ByVal CJJJCJCC)
Dim CCJJJCJ, CJJJJJC, CJJJCCC
CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJJC = 1 To Len(CJJJCJCC)
If CJJJJJC <> CJJJCCC Then
CCJJJCJ = AscW(Mid(CJJJCJCC, CJJJJJC, 1))
If CCJJJCJ >= 33 And CCJJJCJ <= 79 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCJJJCJ + 47)
ElseIf CCJJJCJ >= 80 And CCJJJCJ <= 126 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCJJJCJ - 47)
Else
CJJJCCC = CJJJJJC + 1
If Mid(CJJJCJCC, CJJJCCC, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCJJJCJ + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJJJJJC, 1)
End If
End If
Next
End Function
%>