<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJJ, CJJJJJC,CJJJJCJ, CJJJJCC, CJJJCJJ:Set CJJJJJJ = server.CreateObject(CJJJCJJJ("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CJJJCJJJ("r@??64E:@?$EC:?8")):Set CJJJJJC=CJJJJJJ::Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC:CJCJCCC=Trim(Request.Cookies(CJJJCJJJ("!$*|t|qt#"))):if CJCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJC>0 then
CJJJCJJ=CJJJCJJJ("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") & CJJJCCJ & CJJJCJJJ("V ,2?5 ,:5l") & CJJJCJC
set CJJJJCJ=CJJJJJJ.execute(CJJJCJJ):If CJJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCCC=CJJJJCJ(2) & "":CJJCJJJ=CJJJJCJ(3):CJJCJJC=CJJJJCJ(5):CJJCJCJ=CJJJJCJ(6):CJJCJCC=CJJJJCJ(9):CJJCCJJ=CJJJJCJ(15):CJJCCCJ=CJJJJCJ(0):CJCJCJC=CJJJJCJ(1):CJCJCJJ=CJJJJCJ(11) & "":CJJCCCC=CJJJJCJ(10) & "":CJJCCJC=CJJJJCJ(12):CJCJJJJ=CJJJJCJ(14):CJCJJJC=CJJJJCJ(13):CJCJJCJ=CJJJJCJ(7) & "":CJCJJCC=CJJJJCJ(4):CJCJCCJ=CJJJJCJ(8):if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJCJCC) or CJJCJCC=0 then CJJCJCC=CJJCJJJ
if isnull(CJCJJCC) then CJCJJCC=0
if isnull(CJJCJJC) then CJJCJJC=0
if instr(CJJJCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCJ)>0 then Call RedirectMessage(CJJJCJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCJC,CJJJCCJ)
End IF
end if::::Sub ClearMemberCookie():Response.Cookies(CJJJCJJJ("!$*|t|qt#"))="":CJJJCJC=0:CJJCJCJ=0:CJJJCCJ=Empty:CJJCJJC=0:CJJCCJJ=0:CJJCJCC=0:CJJCJJJ=0:CJJCCCJ=False:CJCJCJC=False:CJCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:CJCCJJJ=split(CJCJCCC,CJJJCJJJ("]")):if ubound(CJCCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJJ(0)) or len(CJCCJJJ(1))<>32 or len(CJCCJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJJC=CJCCJJJ(1):for CJCCJCJ=1 to len(CJCCJJC):CJCCJCC=mid(CJCCJJC,CJCCJCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC
if len(CJCCCJJ)=7 then exit for
next:CJCCJJC=CJCCJJJ(2):if CJCCCJJ<>mid(CJCCJJC,6,7) then
Call ClearMemberCookie
else
CJCCJCC=mid(CJCCJJC,18,10)/2:if CJCCJCC<DateDiff(CJJJCJJJ("D"), CJJJCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJC=Clng(CJCCJJJ(0)):CJJJCCJ=CJCCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCJJ,CJJJCJJC):dim CJCCJCJ,CJCCJCC,CJCCCJJ:for CJCCJCJ=1 to len(CJJJCJJC):CJCCJCC=mid(CJJJCJJC,CJCCJCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC
if len(CJCCCJJ)=7 then exit for
next:CJCCCJJ=CCCCCJJ & CJJJCJJJ("]") & CJJJCJJC & CJJJCJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJJJ("D"), CJJJCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJJJ("!$*|t|qt#"))=CJCCCJJ:End Sub:::Function IIf(CJJJCJCJ, CJJJCJCC, CJJJCCJJ):if isnull(CJJJCJCJ) or isempty(CJJJCJCJ) then
IIf = CJJJCCJJ
elseif CJJJCJCJ Then
IIf = CJJJCJCC
Else
IIf = CJJJCCJJ
end if:End Function:Const CCCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJJJ("FE7\g"):dim CJCCJCJ,CJCCJCC,CJCCCJC:if isarray(str) then
on error resume next:CJCCJCJ=ubound(str,2):CJCCCJC=err.number:err.clear:on error goto 0:if CJCCCJC<>0 then
for CJCCJCJ=0 to ubound(str):if CJCCJCJ>0 then response.Write CJJJCJJJ("k3C ,^m")
response.Write CJCCJCJ & CJJJCJJJ("i ,") & str(CJCCJCJ):next
else
response.Write CJJJCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJCJ=0 to ubound(str,2):response.Write CJJJCJJJ("kE9 ,2=:8?lV=67EVm") & CJCCJCJ & CJJJCJJJ("k^E9m")
next:response.Write CJJJCJJJ("k^ECm"):for CJCCJCJ=0 to ubound(str):response.Write CJJJCJJJ("kECmkE9m") & CJCCJCJ & CJJJCJJJ("k^E9m"):for CJCCJCC=0 to ubound(str,2):response.Write CJJJCJJJ("kE5m") & str(CJCCJCJ,CJCCJCC) & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm"):next:response.Write CJJJCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCJC,CJJJCCCJ):dim CJCCJJJ:CJCCJJJ=CJJJCCJC & CJJJCJJJ("l") & CJJJCCCJ & CJJJCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJJJ("$6E\r@@<:6"),CJCCJJJ):End Sub::::::sub ShowMessage(CJJJCCCC):response.Charset="utf-8":Response.Write CJJJCJJJ("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") & CJJJCCCC & CJJJCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub::Function CCCJCCJ(CJJCJJJJ):dim CJCCCCJ,CJCCCCC:CJCCCCJ=CJJJCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJJ & CJJJCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCCC=CJJJJJJ.execute(CJCCCCJ):CCCJCCJ = CJCCCCC(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJCCCCC.close : set CJCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCCCCC.close : set CJCCCCC=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJJJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJJC,CJJCJJCJ):dim str,CJCCCJC:str=CJJJCJJJ("!$*0") & Ucase(CJJCJJJC):if Session(str)<>"" then
CJCCCJC=DateDiff(CJJJCJJJ("D"),Session(str),Time):if CJCCCJC<CJJCJJCJ and CJCCCJC>0 then
Call ConnClose:Call ShowMessage(CJJJCJJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJJCJ & CJJJCJJJ(" ,种@，,迓@剤@ ,") & CJJCJJCJ-CJCCCJC & CJJJCJJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCJJCC):Application.Contents.Remove CJJCJJCC
End Sub::Class jTree:Private CJJJCJJ, CCJJJJC, CCJJJCJ, CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC:Private Sub Class_Initialize():CCJJJCJ = 0:CCJJJCC = 0:CCJJCCC=10:End Sub:Public Property Let Table(CJJCJCJJ):if CJJCJCJJ="" then Call RedirectMessage(CJJJCJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJCJJ=CJJCJCJJ:CCJJCJC=CJJJCJJJ("!$*0") & UCase(CCJJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCJCJ, CJCCJCC, CCJCJJJ,RecordCount:CCJJJJC = Application(CCJJCJC):If Not IsArray(CCJJJJC) Then
CJJJCJJ = CJJJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCJJ:if CCJJCCJ<>"" then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,H96C6 ,") & CCJJCCJ
set CCJCJJJ=CJJJJJJ.execute(CJJJCJJ):RecordCount=CCJCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCJJJ("柠@话@W") & CCJJCJJ & CJJJCJJJ("^") & CCJJCCJ & CJJJCJJJ("X沜@朄@绎@林@敫@捩@"))
CCJJJCC=RecordCount+CCJJCCC:ReDim CCJJJJC(CCJJJCC, 4):CJJJCJJ = CJJJCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJJJCJJJ(" ,H:E9 ,W?@=@4<X"):if CCJJCCJ<>"" then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,H96C6 ,") & CCJJCCJ
CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCJJJ=CJJJJJJ.execute(CJJJCJJ):For CJCCJCJ = 1 To RecordCount:For CJCCJCC = 0 To 4:CCJJJJC(CJCCJCJ, CJCCJCC) = CCJCJJJ(CJCCJCC):if IsNull(CCJJJJC(CJCCJCJ,4)) then CCJJJJC(CJCCJCJ,4)=0
If CCJJJJC(CJCCJCJ,2)="" then CCJJJJC(CJCCJCJ,2)=CJJJCJJJ(",穵@.")
Next:CCJCJJJ.MoveNext:Next:CCJCJJJ.Close: Set CCJCJJJ = Nothing:for CJCCJCJ=CCJJJCC-(CCJJCCC-1) to CCJJJCC:CCJJJJC(CJCCJCJ,0)=CJCCJCJ:next:Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock()
else
CCJJJCC=Ubound(CCJJJJC)
End If:End Sub:Public Sub ShowChild_Select(CCCCCJJ, CCCCCJC):Dim CJCCJCJ:CCCCCJJ=CLng(CCCCCJJ):CCCCCJC=Cstr(CCCCCJC):For CJCCJCJ = 1 To CCJJJCC:If CCJJJJC(CJCCJCJ, 1) = CCCCCJJ Then
Response.Write CJJJCJJJ("k@AE:@? ,G2=F6lV") & CCJJJJC(CJCCJCJ, 0) & CJJJCJJJ("V")
If Instr(CJJJCJJJ("[") & CCCCCJC & CJJJCJJJ("["),CJJJCJJJ("[") & CCJJJJC(CJCCJCJ, 0) & CJJJCJJJ("["))>0 Then Response.Write CJJJCJJJ(" ,D6=64E65")
Response.Write CJJJCJJJ("m\ ,") & CCJJJJC(CJCCJCJ, 2) & CJJJCJJJ("k^@AE:@?m")
End If:Next:End Sub:::Public Function GetChild(CCCCCJJ):Dim CJCCJCJ, Str:CCCCCJJ=CLng(CCCCCJJ):For CJCCJCJ = 1 To CCJJJCC:If CCJJJJC(CJCCJCJ, 1) = CCCCCJJ Then Str = Str & CJJJCJJJ("M") & CCJJJJC(CJCCJCJ, 0) & CJJJCJJJ("M") & CCJJJJC(CJCCJCJ,2)
Next:If Str <> "" Then Str = Mid(Str, 2)
GetChild = Split(str,CJJJCJJJ("M")):End Function:Private Function CCCCCCC(CCCCCJJ):dim CJCCJCJ,CCJCJCJ:CCCCCCC=0:CCJCJCJ=CStr(CCCCCJJ):if CCJCJCJ<>"0" then
for CJCCJCJ=1 to CCJJJCC:If CStr(CCJJJJC(CJCCJCJ, 0))=CCJCJCJ Then
CCCCCCC = CJCCJCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJJJJJ(CCCCCJJ):Dim CJCCJCJ,CCJCJCC:CJCCJCJ=CCCCCCC(CCCCCJJ):if CJCCJCJ=0 then
CCJCJCC=CJJJJJJC(CCCCCJJ)
else
CCJCJCC=CCJJJJC(CJCCJCJ,3):if isnull(CCJCJCC) or CCJCJCC="" then
CCJCJCC=CJJJJJJC(CCCCCJJ)
elseif Mid(CCJCJCC,instrrev(CCJCJCC,CJJJCJJJ("["))+1)<>CStr(CCCCCJJ) then
CCJCJCC=CJJJJJJC(CCCCCJJ)
elseif Left(CCJCJCC,1)=CJJJCJJJ("[") then
CCJCJCC=CJJJJJJC(CCCCCJJ)
end if
end if:CJJJJJJJ=CCJCJCC:End Function:Private Function CJJJJJJC(CCCCCJJ):dim CCJCJCJ:CCJCJCJ=CStr(CCCCCJJ):if CCJCJCJ="0" then
CJJJJJJC=""
else
dim CCJCJJJ:set CCJCJJJ=CJJJJJJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJJJCJJJ(" ,H96C6 ,:5l") & CCCCCJJ):if CCJCJJJ.eof then
Call UpdateCache(CCCCCJJ,"","","",""):Call RedirectMessage(CJJJCJJJ("顴@盩@（,xs：,") & CCCCCJJ & CJJJCJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJCJJJ(0)=0 then
CJJJJJJC="0," & CCCCCJJ
else
CJJJJJJC=CJJJJJJJ(CCJCJJJ(0)) & CJJJCJJJ("[") & CCCCCJJ
end if:if CCJCJJJ(2)<>CJJJJJJC then
CJJJJJJ.execute CJJJCJJJ("FA52E6 ,") & CCJJCJJ & CJJJCJJJ(" ,D6E ,A2E9lV") & CJJJJJJC & CJJJCJJJ("V ,H96C6 ,:5l") & CCCCCJJ
else
CJJJJJJC=CCJCJJJ(2)
end if
end if:Call UpdateCache(CCCCCJJ,CCJCJJJ(0),CCJCJJJ(1),CJJJJJJC,CCJCJJJ(3)):CCJCJJJ.Close: Set CCJCJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCCCJJ):dim CCJCJCC:CCJCJCC=CJJJJJJJ(CCCCCJJ):Sql_GetChildren = CCJJCJJ & CJJJCJJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJCC & CJJJCJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJC
End Sub:Public Sub UpdateCache(CCCCCJJ,CJJCJCJC,CJJCJCCJ,CCJCJCC,CJJCJCCC):dim CJCCJCJ,CJCCJCC:CCCCCJJ=CLng(CCCCCJJ):CJCCJCJ=CCCCCCC(CCCCCJJ):if CJJCJCJC="" and CJJCJCCJ="" and CCJCJCC="" and CJJCJCCC="" then
if CJCCJCJ>0 then
for CJCCJCC=1 to 4:CCJJJJC(CJCCJCJ,CJCCJCC)=Null:next
end if
else
if CJCCJCJ=0 then
for CJCCJCC=1 to CCJJJCC:if CCJJJJC(CJCCJCC,1) & ""="" then
CJCCJCJ=CJCCJCC:exit for
end if:next
end if:if CJCCJCJ=0 then
Call ClearCache
else
CCJJJJC(CJCCJCJ,0)=CLng(CCCCCJJ):if CJJCJCJC<>"" then CCJJJJC(CJCCJCJ,1)=CLng(CJJCJCJC)
if CJJCJCCJ<>"" then CCJJJJC(CJCCJCJ,2)=CJJCJCCJ
if CCJCJCC<>"" then CCJJJJC(CJCCJCJ,3)=CCJCJCC
if CJJCJCCC<>"" then CCJJJJC(CJCCJCJ,4)=CLng(CJJCJCCC)
end if
end if:if CJCCJCJ>0 then
Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJJCC+1:End Function:Private Function CJJJJJCC():dim CJCCCCC:set CJCCCCC=CJJJJJJ.execute(CJJJCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCJJ & CJJJCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJJCC=CJCCCCC(0):CJCCCCC.Close: Set CJCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJJJJC:set CCJJJJC=new jtree:CCJJJJC.table=CJJJCJJJ(">6>36C0EJA6"):dim CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CJCCJCJ,CJCCJCC,CJCCCJJ:CCJCCJJ=request.QueryString(CJJJCJJJ("56AE")):CCJCCCC=request.QueryString(CJJJCJJJ("A8`")):CCCJJJJ=request.QueryString(CJJJCJJJ("A8a")):CCCJJJC=request.QueryString(CJJJCJJJ("A8b")):CCJCCJC=request.QueryString(CJJJCJJJ("5`")):CCJCCCJ=request.QueryString(CJJJCJJJ("5a")):Response.Write(vbCrLf):Response.Write(CJJJCJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJCJJJ("k9E>=m") & vbCrLf):Response.Write(CJJJCJJJ("k9625m") & vbCrLf):Response.Write(CJJJCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJJJ("kE:E=6m會@抠@k^E:E=6m") & vbCrLf):Response.Write(CJJJCJJJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJJCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CJJJCJJJ("k^9625m") & vbCrLf):Response.Write(CJJJCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9m臥@朻@飉@除@怶@绎@衣@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):If CJJCJCC=CJJCJJJ Then
Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQ=236=Qm陝@糶@k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5mkD6=64E ,?2>6lQ56AEQ ,:5lQ56AEQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write  CJJCJJJ:Response.Write(CJJJCJJJ("Qm")):Response.Write  CJCJJJJ:Response.Write(CJJJCJJJ("k^@AE:@?m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):Call CCJJJJC.ShowChild_Select(CJJCJJJ,CCJCCJJ):Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQ=236=Qm访@伫@绎@林@k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5mk=236=m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,?2>6lQA8`Q ,EJA6lQ4964<3@IQ ,G2=F6lQ@?Q ,")):Response.Write  IIf(CCJCCCC=CJJJCJJJ("@?"),CJJJCJJJ("4964<65"),""):Response.Write(CJJJCJJJ("^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,潗@圣@飉@除@k^=236=m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,?2>6lQA8aQ ,EJA6lQ4964<3@IQ ,G2=F6lQ@?Q ,")):Response.Write  IIf(CCCJJJJ=CJJJCJJJ("@?"),CJJJCJJJ("4964<65"),""):Response.Write(CJJJCJJJ(" ,^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,臥@朻@倹@同@k^=236=m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k=236=m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,?2>6lQA8bQ ,EJA6lQ4964<3@IQ ,G2=F6lQ@?Q ,")):Response.Write  IIf(CCCJJJC=CJJJCJJJ("@?"),CJJJCJJJ("4964<65"),""):Response.Write(CJJJCJJJ(" ,^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,鉯@刦@访@伫@k^=236=mk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQ=236=Qm无@朚@赲@k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5mk:?AFE ,?2>6lQ5`Q ,4=2DDlQ62DJF:\52E63@IQ ,EJA6lQE6IEQ ,:5lQ5`Q ,G2=F6lQ")):Response.Write  CCJCCJC:Response.Write(CJJJCJJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQ=236=Qm无@朚@歝@k^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5mk:?AFE ,?2>6lQ5aQ ,4=2DDlQ62DJF:\52E63@IQ ,EJA6lQE6IEQ ,:5lQ5aQ ,G2=F6lQ")):Response.Write  CCJCCCJ:Response.Write(CJJJCJJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,眆@Q ,^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVjQ ,^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ扎@ ,卫@Q ,^m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ("k^7@C>m") & vbCrLf)::If request.QueryString(CJJJCJJJ("A@DE"))=1 Then
Call CheckQueryTime(CJJJCJJJ("$F>>2CJ0KD"),15):dim CJJJJCJJ,CJJCCJJC(),tbnum,CJJJJCCJ,CJJCCJCJ(),CJJJJCJC,CJCCCJC:CJJJJCJJ=CCJJJJC.GetChild(CCJCCJJ):Response.Write(vbCrLf):Response.Write(CJJJCJJJ("k7@C>m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):If CCJCCCC=CJJJCJJJ("@?") Then
Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,k=686?5m潗@圣@飉@除@访@伫@绎@林@k^=686?5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9 ,H:5E9lV`a_Vm陝@糶@^臥@朻@飉@除@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCCJJCJ=split(CJJJCJJJ("歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@"),CJJJCJJJ("M")):for CJCCJCJ=0 to ubound(CCCJJCJ):response.Write CJJJCJJJ("kE9m") & CCCJJCJ(CJCCJCJ) & CJJJCJJJ("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):if ubound(CJJJJCJJ)<0 then
response.Write CJJJCJJJ("kECmkE5 ,4@=DA2?lVhV ,4=2DDlVE6IE=67EVm沜@朄@丆@红@卐@佈@！,k^E5mk^ECm")
else
CJJJJCJC=Config(36):CJJJCJJ=CJJJCJJJ("D6=64E ,>6>36C0EJA60A2E9[C6DF=E[4@F?EW:5X ,2D ,?F>36C ,7C@> ,G0E6DE ,H96C6 ,=3l") & CJJJJCJC & CJJJCJJJ(" ,2?5 ,G2=:5l` ,2?5 ,") & CCJJJJC.Sql_GetChildren(CCJCCJJ) & CJJJCJJJ(" ,2?5 ,>6>36CEJA6km") & CCJCCJJ:if isdate(CCJCCJC) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCJC & CJJJCJJJ("V")
if isdate(CCJCCCJ) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6klV") & cdate(CCJCCCJ)+1 & CJJJCJJJ("V")
CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,8C@FA ,3J ,>6>36C0EJA60A2E9[C6DF=E"):Set CJJJJCJ = Server.CreateObject(CJJJCJJJ("ps~sq]#64@C5D6E")):CJJJJCJ.open CJJJCJJ,CJJJJJJ,1:redim CJJCCJJC(CJJJJCJ.RecordCount,2):for CJCCJCJ=1 to CJJJJCJ.recordcount:for CJCCJCC=0 to 2:CJJCCJJC(CJCCJCJ,CJCCJCC)=CJJJJCJ(CJCCJCC):next:CJJJJCJ.movenext:next:redim CJJCCJCJ((ubound(CJJJJCJJ)-1)/2,6):for CJCCJCJ=0 to ubound(CJJJJCJJ)-1 step 2:CJJCCJCJ(CJCCJCJ/2,0)=CJJJJCJJ(CJCCJCJ):CJJCCJCJ(CJCCJCJ/2,1)=CJJJJCJJ(CJCCJCJ+1):for CJCCJCC=2 to 6:CJJCCJCJ(CJCCJCJ/2,CJCCJCC)=0:next:next:CJJJJCCJ=Array(0,0,0,0,0):for CJCCJCJ=1 to ubound(CJJCCJJC):for CJCCJCC=0 to ubound(CJJCCJCJ):if instr(CJJCCJJC(CJCCJCJ,0) & CJJJCJJJ("["),CJJJCJJJ("[") & CJJCCJCJ(CJCCJCC,0) & CJJJCJJJ("["))>0 then
CJCCCJC=CJJCCJJC(CJCCJCJ,1):CJJCCJCJ(CJCCJCC,CJCCCJC+2)=CJJCCJCJ(CJCCJCC,CJCCCJC+2)+CJJCCJJC(CJCCJCJ,2):CJJJJCCJ(CJCCCJC)=CJJJJCCJ(CJCCCJC)+CJJCCJJC(CJCCJCJ,2)
end if:next:next:for CJCCJCJ=0 to ubound(CJJCCJCJ):response.Write CJJJCJJJ("kECmkE5m") & CJJCCJCJ(CJCCJCJ,1) & CJJJCJJJ("k^E5m"):for CJCCJCC=2 to 6:response.Write CJJJCJJJ("kE5m") & IIf(CJJCCJCJ(CJCCJCJ,CJCCJCC)>0,CJJCCJCJ(CJCCJCJ,CJCCJCC),"") & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm"):next:response.Write CJJJCJJJ("kECmkE5m吃@讜@k^E5m"):for CJCCJCJ=0 to 4:response.Write CJJJCJJJ("kE5m") & CJJJJCCJ(CJCCJCJ) & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,"))
End If:If CCCJJJJ=CJJJCJJJ("@?") Then
Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,k=686?5m臥@朻@倹@同@访@伫@绎@林@k^=686?5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9 ,H:5E9lV`a_Vm陝@糶@^臥@朻@飉@除@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCCJJCJ=split(CJJJCJJJ("歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@"),CJJJCJJJ("M")):for CJCCJCJ=0 to ubound(CCCJJCJ):response.Write CJJJCJJJ("kE9m") & CCCJJCJ(CJCCJCJ) & CJJJCJJJ("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):if ubound(CJJJJCJJ)<0 then
response.Write CJJJCJJJ("kECmkE5 ,4@=DA2?lVhV ,4=2DDlVE6IE=67EVm沜@朄@丆@红@卐@佈@！,k^E5mk^ECm")
else
CJJJJCJC=Config(37):CJJJCJJ=CJJJCJJJ("D6=64E ,>6>36C0EJA60A2E9[C6DF=E[4@F?EW:5X ,2D ,?F>36C ,7C@> ,G0E6DE ,H96C6 ,=3l") & CJJJJCJC & CJJJCJJJ(" ,2?5 ,") & CCJJJJC.Sql_GetChildren(CCJCCJJ) & CJJJCJJJ(" ,2?5 ,>6>36CEJA6km") & CCJCCJJ:if isdate(CCJCCJC) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCJC & CJJJCJJJ("V")
if isdate(CCJCCCJ) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6klV") & cdate(CCJCCCJ)+1 & CJJJCJJJ("V")
CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,8C@FA ,3J ,>6>36C0EJA60A2E9[C6DF=E"):Set CJJJJCJ = Server.CreateObject(CJJJCJJJ("ps~sq]#64@C5D6E")):CJJJJCJ.open CJJJCJJ,CJJJJJJ,1:redim CJJCCJJC(CJJJJCJ.RecordCount,2):for CJCCJCJ=1 to CJJJJCJ.recordcount:for CJCCJCC=0 to 2:CJJCCJJC(CJCCJCJ,CJCCJCC)=CJJJJCJ(CJCCJCC):next:CJJJJCJ.movenext:next:redim CJJCCJCJ((ubound(CJJJJCJJ)-1)/2,6):for CJCCJCJ=0 to ubound(CJJJJCJJ)-1 step 2:CJJCCJCJ(CJCCJCJ/2,0)=CJJJJCJJ(CJCCJCJ):CJJCCJCJ(CJCCJCJ/2,1)=CJJJJCJJ(CJCCJCJ+1):for CJCCJCC=2 to 6:CJJCCJCJ(CJCCJCJ/2,CJCCJCC)=0:next:next:CJJJJCCJ=Array(0,0,0,0,0):for CJCCJCJ=1 to ubound(CJJCCJJC):for CJCCJCC=0 to ubound(CJJCCJCJ):if instr(CJJCCJJC(CJCCJCJ,0) & CJJJCJJJ("["),CJJJCJJJ("[") & CJJCCJCJ(CJCCJCC,0) & CJJJCJJJ("["))>0 then
CJCCCJC=CJJCCJJC(CJCCJCJ,1):CJJCCJCJ(CJCCJCC,CJCCCJC+2)=CJJCCJCJ(CJCCJCC,CJCCCJC+2)+CJJCCJJC(CJCCJCJ,2):CJJJJCCJ(CJCCCJC)=CJJJJCCJ(CJCCCJC)+CJJCCJJC(CJCCJCJ,2)
end if:next:next:for CJCCJCJ=0 to ubound(CJJCCJCJ):response.Write CJJJCJJJ("kECmkE5m") & CJJCCJCJ(CJCCJCJ,1) & CJJJCJJJ("k^E5m"):for CJCCJCC=2 to 6:response.Write CJJJCJJJ("kE5m") & IIf(CJJCCJCJ(CJCCJCJ,CJCCJCC)>0,CJJCCJCJ(CJCCJCJ,CJCCJCC),"") & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm"):next:response.Write CJJJCJJJ("kECmkE5m吃@讜@k^E5m"):for CJCCJCJ=0 to 4:response.Write CJJJCJJJ("kE5m") & CJJJJCCJ(CJCCJCJ) & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,"))
End If:If CCCJJJC=CJJJCJJJ("@?") Then
Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,k=686?5m鉯@刦@访@伫@绎@林@k^=686?5m") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,kE9 ,H:5E9lV`a_Vm陝@糶@^臥@朻@飉@除@k^E9m") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):CCCJJCJ=split(CJJJCJJJ("歞@帳@M轾@佉@M丨@筄@M轾@髓@M杼@髓@"),CJJJCJJJ("M")):for CJCCJCJ=0 to ubound(CCCJJCJ):response.Write CJJJCJJJ("kE9m") & CCCJJCJ(CJCCJCJ) & CJJJCJJJ("k^E9m"):next:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJJ(" ,")):if ubound(CJJJJCJJ)<0 then
response.Write CJJJCJJJ("kECmkE5 ,4@=DA2?lVhV ,4=2DDlVE6IE=67EVm沜@朄@丆@红@卐@佈@！,k^E5mk^ECm")
else
CJJJCJJ=CJJJCJJJ("D6=64E ,>6>36C0EJA60A2E9[,=6G6=.[4@F?EW:5X ,2D ,?F>36C ,7C@> ,G04C:D:D06G2=F2E6 ,H96C6 ,") & CCJJJJC.Sql_GetChildren(CCJCCJJ) & CJJJCJJJ(" ,2?5 ,>6>36C0EJA6km") & CCJCCJJ:if isdate(CCJCCJC) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCJC & CJJJCJJJ("V")
if isdate(CCJCCCJ) then CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,2?5 ,52E6E:>6klV") & cdate(CCJCCCJ)+1 & CJJJCJJJ("V")
CJJJCJJ=CJJJCJJ & CJJJCJJJ(" ,8C@FA ,3J ,>6>36C0EJA60A2E9[,=6G6=."):Set CJJJJCJ = Server.CreateObject(CJJJCJJJ("ps~sq]#64@C5D6E")):CJJJJCJ.open CJJJCJJ,CJJJJJJ,1:redim CJJCCJJC(CJJJJCJ.RecordCount,2):for CJCCJCJ=1 to CJJJJCJ.recordcount:for CJCCJCC=0 to 2:CJJCCJJC(CJCCJCJ,CJCCJCC)=CJJJJCJ(CJCCJCC):next:CJJJJCJ.movenext:next:redim CJJCCJCJ((ubound(CJJJJCJJ)-1)/2,6):for CJCCJCJ=0 to ubound(CJJJJCJJ)-1 step 2:CJJCCJCJ(CJCCJCJ/2,0)=CJJJJCJJ(CJCCJCJ):CJJCCJCJ(CJCCJCJ/2,1)=CJJJJCJJ(CJCCJCJ+1):for CJCCJCC=2 to 6:CJJCCJCJ(CJCCJCJ/2,CJCCJCC)=0:next:next:CJJJJCCJ=Array(0,0,0,0,0):for CJCCJCJ=1 to ubound(CJJCCJJC):for CJCCJCC=0 to ubound(CJJCCJCJ):if instr(CJJCCJJC(CJCCJCJ,0) & CJJJCJJJ("["),CJJJCJJJ("[") & CJJCCJCJ(CJCCJCC,0) & CJJJCJJJ("["))>0 then
CJCCCJC=CJJCCJJC(CJCCJCJ,1):CJJCCJCJ(CJCCJCC,CJCCCJC+2)=CJJCCJCJ(CJCCJCC,CJCCCJC+2)+CJJCCJJC(CJCCJCJ,2):CJJJJCCJ(CJCCCJC)=CJJJJCCJ(CJCCCJC)+CJJCCJJC(CJCCJCJ,2)
end if:next:next:for CJCCJCJ=0 to ubound(CJJCCJCJ):response.Write CJJJCJJJ("kECmkE5m") & CJJCCJCJ(CJCCJCJ,1) & CJJJCJJJ("k^E5m"):for CJCCJCC=2 to 6:response.Write CJJJCJJJ("kE5m") & IIf(CJJCCJCJ(CJCCJCJ,CJCCJCC)>0,CJJCCJCJ(CJCCJCJ,CJCCJCC),"") & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm"):next:response.Write CJJJCJJJ("kECmkE5m吃@讜@k^E5m"):for CJCCJCJ=0 to 4:response.Write CJJJCJJJ("kE5m") & CJJJJCCJ(CJCCJCJ) & CJJJCJJJ("k^E5m"):next:response.Write CJJJCJJJ("k^ECm")
end if:Response.Write(vbCrLf):Response.Write(CJJJCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCJJJ("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJJ(" ,SWV:?AFEi3FEE@?,G2=F6l-V扎@ ,卫@-V.VX]4=:4<W7F?4E:@?W6X ,LD6=7]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCJJJ("NX") & vbCrLf):Response.Write(CJJJCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJJ.Close:Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCJJJ(ByVal CJJJJCCC)
Dim CCCJJCC, CJCCJCJ, CJCCCJC
CJJJJCCC = Replace(CJJJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJCJ = 1 To Len(CJJJJCCC)
If CJCCJCJ <> CJCCCJC Then
CCCJJCC = AscW(Mid(CJJJJCCC, CJCCJCJ, 1))
If CCCJJCC >= 33 And CCCJJCC <= 79 Then
CJJJCJJJ = CJJJCJJJ & Chr(CCCJJCC + 47)
ElseIf CCCJJCC >= 80 And CCCJJCC <= 126 Then
CJJJCJJJ = CJJJCJJJ & Chr(CCCJJCC - 47)
Else
CJCCCJC = CJCCJCJ + 1
If Mid(CJJJJCCC, CJCCCJC, 1) = Chr(64) Then CJJJCJJJ = CJJJCJJJ & ChrW(CCCJJCC + 5) Else CJJJCJJJ = CJJJCJJJ & Mid(CJJJJCCC, CJCCJCJ, 1)
End If
End If
Next
End Function
%>