<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CCJCCJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CCJCCJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CCJCCJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CCJCCJJ("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") & CJJJJC & CCJCCJJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CCJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CJJCCCC):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCCCJJ(CJJCCCC) then
Call RedirectMessage(CCJCCJJ("朾@陋@W") & CJJCCCC & CCJCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCCCJJ(CJJCCCC):dim CCJJCC,CCJCJJ:CCJCJJ=split(CJJCCCC,CCJCCJJ("[")):CJCCCJJ=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CJCCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJCCJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJJCC,CCJCCC,CCCJJJ:CCJCJC=split(CCJJCJ,CCJCCJJ("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJJCC=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJC(0)):CJJJJC=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CCJCCJC):dim CCJJCC,CCJCCC,CCCJJJ:for CCJJCC=1 to len(CCJCCJC):CCJCCC=mid(CCJCCJC,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCJCJJC & CCJCCJJ("]") & CCJCCJC & CCJCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJJ("!$*|t|qt#"))=CCCJJJ:End Sub::::Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJCCJJ("FE7\g"):dim CCJJCC,CCJCCC,CCCJJC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCCJJC=err.number:err.clear:on error goto 0:if CCCJJC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CCJCCJJ("k3C ,^m")
response.Write CCJJCC & CCJCCJJ("i ,") & str(CCJJCC):next
else
response.Write CCJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CCJCCJJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CCJCCJJ("k^E9m")
next:response.Write CCJCCJJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CCJCCJJ("kECmkE9m") & CCJJCC & CCJCCJJ("k^E9m"):for CCJCCC=0 to ubound(str,2):response.Write CCJCCJJ("kE5m") & str(CCJJCC,CCJCCC) & CCJCCJJ("k^E5m"):next:response.Write CCJCCJJ("k^ECm"):next:response.Write CCJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJCCCJ,CCJCCCC):dim CCJCJC:CCJCJC=CCJCCCJ & CCJCCJJ("l") & CCJCCCC & CCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJJ("$6E\r@@<:6"),CCJCJC):End Sub::::::sub ShowMessage(CCCJJJJ):response.Charset="utf-8":Response.Write CCJCCJJ("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") & CCCJJJJ & CCJCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCCCJC(CCCJJC):if isnull(CCCJJC) or trim(CCCJJC)="" or not isnumeric(CCCJJC) then
CJCCCJC=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CCJCCJJ("/-5ZS"):CCCJCJ.IgnoreCase = True:CJCCCJC = CCCJCJ.test(CCCJJC):set CCCJCJ=nothing
end if:End Function:Function CJCCCCJ(CCCJJJC):dim CCCJCC,CCCCJJ:CCCJCC=CCJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJJC & CCJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CCJCC.execute(CCCJCC):CJCCCCJ = CCCCJJ(0):if isnull(CJCCCCJ) then CJCCCCJ=1
CCCCJJ.close : set CCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CCCCJJ.close : set CCCCJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CCJJJCJ.Close : Set CCJJJCJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJJ("!$*0|6DD286"),server.URLEncode(CCCJJJJ)):Response.Redirect CCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CCCJJCJ,CCCJJCC):dim str,CCCJJC:str=CCJCCJJ("!$*0") & Ucase(CCCJJCJ):if Session(str)<>"" then
CCCJJC=DateDiff(CCJCCJJ("D"),Session(str),Time):if CCCJJC<CCCJJCC and CCCJJC>0 then
Call ConnClose:Call ShowMessage(CCJCCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CCCJJCC & CCJCCJJ(" ,种@，,迓@剤@ ,") & CCCJJCC-CCCJJC & CCJCCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CCCJCJJ):Application.Contents.Remove CCCJCJJ
End Sub::Class jTree:Private CCCCC, CCCCCJ, CCCCCC, CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Private Sub Class_Initialize():CCCCCC = 0:CJJJJJJ = 0:CJJJCJJ=10:End Sub:Public Property Let Table(CCCJCJC):if CCCJCJC="" then Call RedirectMessage(CCJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJJJC=CCCJCJC:CJJJJCJ=CCJCCJJ("!$*0") & UCase(CJJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJJC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCCC, CJJJCJC,CJJJCCJ:CCCCCJ = Application(CJJJJCJ):If Not IsArray(CCCCCJ) Then
CCCCC = CCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJJC:if CJJJJCC<>"" then CCCCC=CCCCC & CCJCCJJ(" ,H96C6 ,") & CJJJJCC
set CJJJCJC=CCJCC.execute(CCCCC):CJJJCCJ=CJJJCJC(0):if CJJJCCJ=0 then Call RedirectMessage(CCJCCJJ("柠@话@W") & CJJJJJC & CCJCCJJ("^") & CJJJJCC & CCJCCJJ("X沜@朄@绎@林@敫@捩@"))
CJJJJJJ=CJJJCCJ+CJJJCJJ:ReDim CCCCCJ(CJJJJJJ, 4):CCCCC = CCJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJJJCC<>"" then CCCCC=CCCCC & CCJCCJJ(" ,H96C6 ,") & CJJJJCC
CCCCC=CCCCC & CCJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJCJC=CCJCC.execute(CCCCC):For CCJJCC = 1 To CJJJCCJ:For CCJCCC = 0 To 4:CCCCCJ(CCJJCC, CCJCCC) = CJJJCJC(CCJCCC):if IsNull(CCCCCJ(CCJJCC,4)) then CCCCCJ(CCJJCC,4)=0
If CCCCCJ(CCJJCC,2)="" then CCCCCJ(CCJJCC,2)=CCJCCJJ(",穵@.")
Next:CJJJCJC.MoveNext:Next:CJJJCJC.Close: Set CJJJCJC = Nothing:for CCJJCC=CJJJJJJ-(CJJJCJJ-1) to CJJJJJJ:CCCCCJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
else
CJJJJJJ=Ubound(CCCCCJ)
End If:End Sub:::::Private Function CCJJCJJ(CCJCJJC):dim CCJJCC,CJJJCCC:CCJJCJJ=0:CJJJCCC=CStr(CCJCJJC):if CJJJCCC<>"0" then
for CCJJCC=1 to CJJJJJJ:If CStr(CCCCCJ(CCJJCC, 0))=CJJJCCC Then
CCJJCJJ = CCJJCC:Exit For
End If:Next
end if:End Function::::Public Function CCJJCJC(CCJCJJC):Dim CCJJCC,CJJCJJJ:CCJJCC=CCJJCJJ(CCJCJJC):if CCJJCC=0 then
CJJCJJJ=CCJJCCJ(CCJCJJC)
else
CJJCJJJ=CCCCCJ(CCJJCC,3):if isnull(CJJCJJJ) or CJJCJJJ="" then
CJJCJJJ=CCJJCCJ(CCJCJJC)
elseif Mid(CJJCJJJ,instrrev(CJJCJJJ,CCJCCJJ("["))+1)<>CStr(CCJCJJC) then
CJJCJJJ=CCJJCCJ(CCJCJJC)
elseif Left(CJJCJJJ,1)=CCJCCJJ("[") then
CJJCJJJ=CCJJCCJ(CCJCJJC)
end if
end if:CCJJCJC=CJJCJJJ:End Function:Private Function CCJJCCJ(CCJCJJC):dim CJJJCCC:CJJJCCC=CStr(CCJCJJC):if CJJJCCC="0" then
CCJJCCJ=""
else
dim CJJJCJC:set CJJJCJC=CCJCC.execute(CCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,H96C6 ,:5l") & CCJCJJC):if CJJJCJC.eof then
Call UpdateCache(CCJCJJC,"","","",""):Call RedirectMessage(CCJCCJJ("顴@盩@（,xs：,") & CCJCJJC & CCJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJCJC(0)=0 then
CCJJCCJ="0," & CCJCJJC
else
CCJJCCJ=CCJJCJC(CJJJCJC(0)) & CCJCCJJ("[") & CCJCJJC
end if:if CJJJCJC(2)<>CCJJCCJ then
CCJCC.execute CCJCCJJ("FA52E6 ,") & CJJJJJC & CCJCCJJ(" ,D6E ,A2E9lV") & CCJJCCJ & CCJCCJJ("V ,H96C6 ,:5l") & CCJCJJC
else
CCJJCCJ=CJJJCJC(2)
end if
end if:Call UpdateCache(CCJCJJC,CJJJCJC(0),CJJJCJC(1),CCJJCCJ,CJJJCJC(3)):CJJJCJC.Close: Set CJJJCJC = Nothing
end if:End Function::::Public Function IsParent(CCCJCCJ, CCCJCCC):IsParent=InStr(CCJJCJC(CCCJCCC) & CCJCCJJ("["), CCJCCJJ("[") & CCCJCCJ & CCJCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJCJJC):dim CJJCJJJ:CJJCJJJ=CCJJCJC(CCJCJJC):Sql_GetChildren = CJJJJJC & CCJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJJJ & CCJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJJCJ
End Sub:Public Sub UpdateCache(CCJCJJC,CCCCJJJ,CCCCJJC,CJJCJJJ,CCCCJCJ):dim CCJJCC,CCJCCC:CCJCJJC=CLng(CCJCJJC):CCJJCC=CCJJCJJ(CCJCJJC):if CCCCJJJ="" and CCCCJJC="" and CJJCJJJ="" and CCCCJCJ="" then
if CCJJCC>0 then
for CCJCCC=1 to 4:CCCCCJ(CCJJCC,CCJCCC)=Null:next
end if
else
if CCJJCC=0 then
for CCJCCC=1 to CJJJJJJ:if CCCCCJ(CCJCCC,1) & ""="" then
CCJJCC=CCJCCC:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CCCCCJ(CCJJCC,0)=CLng(CCJCJJC):if CCCCJJJ<>"" then CCCCCJ(CCJJCC,1)=CLng(CCCCJJJ)
if CCCCJJC<>"" then CCCCCJ(CCJJCC,2)=CCCCJJC
if CJJCJJJ<>"" then CCCCCJ(CCJJCC,3)=CJJCJJJ
if CCCCJCJ<>"" then CCCCCJ(CCJJCC,4)=CLng(CCCCJCJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJJJJCJ) = CCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJJJJ):Call ConnClose:Response.Write CCCJJJJ:Response.End:End Sub:Private Function CJCCCCJ():CJCCCCJ=CCJCJCJ+1:End Function:Private Function CCJCJCJ():dim CCCCJJ:set CCCCJJ=CCJCC.execute(CCJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJJC & CCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCJ=CCCCJJ(0):CCCCJJ.Close: Set CCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJCCJCC=133:Call CheckRight("54,81"):Call CheckQueryTime(CCJCCJJ("%6DE0#6A@CE"),15):dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:CJJCCCJ=Request.QueryString(CCJCCJJ("$49@@=")):CJJCJJC=Request.QueryString(CCJCCJJ("s6AE")):CJJCJCJ=Request.QueryString(CCJCCJJ("vC256")):CJJCJCC=Request.QueryString(CCJCCJJ("vC@FA")):CJJCCJJ=Request.QueryString(CCJCCJJ("E`")):CJJCCJC=Request.QueryString(CCJCCJJ("Ea")):if not CJCCCJC(CJJCJJC) then Call RedirectMessage(CCJCCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCCCCJ:set CCCCCJ=new jtree:CCCCCJ.table=CCJCCJJ(">6>36C0EJA6"):if not CCCCCJ.IsParent(CJJJCC,CJJCJJC) then Call RedirectMessage(CCJCCJJ("诠@苾@囯@W") & CJJCJJC & CCJCCJJ("X丈@圣@患@W") & CJJJCC & CCJCCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CJJCCCC(12,1),CCJJCC:for CCJJCC=0 to ubound(CJJCCCC):CJJCCCC(CCJJCC,0)=0:next:dim CJCJJJJ:CJCJJJJ=split(CCJCCJJ("冲@酲@旛@惀@M感@怍@M敇@愊@M躪@低@收@凶@M觻@诨@收@凶@M臥@戌@敃@胸@愚@M坕@韢@M之@覽@M臥@張@M帇@朖@M朄@杜@琁@M贚@贞@件@M敃@庡@"),CCJCCJJ("M")):dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CCCCC=CCJCCJJ("D6=64E ,?F>36C[C62=?2>6[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJCCJCC & CCJCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJCJJC)=cstr(CJJCCCJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCJ else CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,") & CCCCCJ.Sql_GetChildren(CJJCJJC)
if CJCCCJC(CJJCJCJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,8C256l") & CJJCJCJ
if CJCCCJC(CJJCJCC) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJCC
if isdate(CJJCCJJ) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,52E6E:>6mlV") & CJJCCJJ & CCJCCJJ("V")
if isdate(CJJCCJC) then CCCCC=CCCCC & CCJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCJC)+1 & CCJCCJJ("V")
set CCCJC=CCJCC.execute(CCCCC):if CCCJC.eof then Call RedirectMessage(CCJCCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CCCJC.eof:CJCJCJJ=CCCJC(0) & CCJCCJJ("\") & CCCJC(1):if isnull(CCCJC(2)) then Call RedirectMessage(CJCJCJJ & CCJCCJJ("癿@浆@访@讫@彐@朄@诪@，,诲@创@陟@吉@冈@擈@佗@！,"))
CJCJJJC=split(CCCJC(2),CCJCCJJ("M")):CJCJJCJ=0:CJCJJCC=0:CJCJCCC="":CJCCJJJ="":for CCJJCC=0 to 12:if CJCJJJC(CCJJCC)="1" then
CJJCCCC(CCJJCC,0)=CJJCCCC(CCJJCC,0)+1:CJJCCCC(CCJJCC,1)=CJJCCCC(CCJJCC,1) & CCJCCJJ("、,") & CJCJCJJ:if CCJJCC<=4 then
if CJCJJJC(0)="1" then
CJCJJCJ=CJCJJCJ+1:CJCJCCC=CJCJCCC & CCJCCJJ("、,") & CJCJJJJ(CCJJCC)
end if
elseif CCJJCC<=11 then
CJCJJCC=CJCJJCC+1:CJCCJJJ=CJCCJJJ & CCJCCJJ("、,") & CJCJJJJ(CCJJCC)
end if
end if:next:if CJCJJCJ>=2 then CJCJCJC=CJCJCJC & CCJCCJJ("kECmkE5m") & CJCJCJJ & CCJCCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CJCJCCC,2) & CCJCCJJ("k^E5mk^ECm")
if CJCJJCC>=2 then CJCJCCJ=CJCJCCJ & CCJCCJJ("kECmkE5m") & CJCJCJJ & CCJCCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CJCCJJJ,2) & CCJCCJJ("k^E5mk^ECm")
CCCJC.movenext:wend:for CCJJCC=0 to ubound(CJJCCCC):if CJJCCCC(CCJJCC,0)>0 then CJJCCCC(CCJJCC,1)=Mid(CJJCCCC(CCJJCC,1),2)
next:Response.Write(vbCrLf):Response.Write(CCJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCJJ("k9625m") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCJJ("kE:E=6m释@衣@亇@·,秪@杼@涃@杼@亵@样@癿@访@伫@愊@覼@k^E:E=6m") & vbCrLf):Response.Write(CCJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CCJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("^Y昹@礵@栲@弊@Y^") & vbCrLf):Response.Write(CCJCCJJ("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCJCCJJ("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CCJCCJJ("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>ia_AIj ,N") & vbCrLf):Response.Write(CCJCCJJ("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CCJCCJJ("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CCJCCJJ("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCJCCJJ("^Y扎@卫@栲@弊@Y^") & vbCrLf):Response.Write(CCJCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CCJCCJJ("RA286\4@?E6?E ,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(CCJCCJJ("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("k^9625m") & vbCrLf):Response.Write(CCJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kP\\冀@宴@\\m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9`m释@衣@亇@·,秪@杼@涃@杼@亵@样@癿@访@伫@愊@覼@k^9`m") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm释@衣@亇@聕@無@争@秪@杼@涃@杼@癿@亵@样@牴@责@，,丶@襼@考,寚@亁@丟@秈@涃@杼@亵@样@（,冲@酲@旛@惀@咇@收@凶@怢@）,咇@f秪@杼@亵@样@（,一,舧@臥@戌@敃@胸@、,坕@韢@怢@、,之@覽@、,臥@張@、,帇@朖@牴@责@、,朄@杜@琁@、,贚@贞@件@）,。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am一,、,涃@杼@亵@样@k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bm`．,冲@酲@旛@惀@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(0,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(0,0):Response.Write(CCJCCJJ("佈@考,甚@圣@冲@酲@旛@惀@牴@责@丅@癿@徒@刁@偊@髓@，,丶@襼@衣@玫@凵@一,秈@寴@仑@亵@冲@漛@、,缵@乊@罥@贞@愚@、,佉@公@惀@、,丈@讜@吉@林@癿@迸@氽@攱@盅@癿@亵@样@倹@同@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bma．,收@凶@怢@—,—,感@怍@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(1,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(1,0):Response.Write(CCJCCJJ("佈@考,甚@圣@收@凶@怢@癿@感@怍@绯@庡@丅@徒@刁@偊@髓@，,丶@襼@衣@玫@丵@圣@丈@艪@惀@绥@癿@课@探@丅@衣@玫@欛@佮@，,每@轾@宴@明@亢@甚@感@怍@惀@绥@，,來@好@甚@氏@、,恷@怍@、,双@脹@氏@筄@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmb．,收@凶@怢@—,—,敇@愊@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(2,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(2,0):Response.Write(CCJCCJJ("佈@考,甚@圣@收@凶@怢@癿@敇@愊@绯@庡@丅@徒@刁@偊@髓@，,丶@襼@衣@玫@丵@每@轾@宴@明@寴@刦@亵@亢@甚@敇@愊@，,倹@同@争@拼@贚@靝@眆@泐@咇@敇@寴@忼@庡@眆@往@刦@亵@，,丈@宴@明@俜@件@仑@亵@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmc．,收@凶@怢@—,—,躪@低@收@凶@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(3,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(3,0):Response.Write(CCJCCJJ("佈@考,甚@圣@收@凶@怢@癿@躪@低@收@凶@绯@庡@丅@徒@刁@偊@髓@，,丶@襼@衣@玫@丵@遂@了@每@轾@宴@明@冭@劣@，,冲@靔@怘@考,癿@胸@劖@轾@丵@欛@缵@，,倹@同@争@産@暯@劖@杠@觞@冮@闩@颓@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmd．,收@凶@怢@—,—,觻@诨@收@凶@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(4,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(4,0):Response.Write(CCJCCJJ("佈@考,甚@圣@收@凶@怢@癿@觻@诨@收@凶@绯@庡@丅@徒@刁@偊@髓@，,丶@襼@衣@玫@丵@每@轾@喗@奸@亄@辤@，,轾@丵@兮@泣@臥@巬@癿@覽@炴@咇@愚@叒@，,幱@倹@同@争@盯@掠@衣@边@凵@杠@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm圣@丅@迫@考,甚@丨@，,仠@丆@考,甚@圣@冲@酲@旛@惀@咇@收@凶@怢@丅@癿@徒@刁@坂@偊@髓@，,電@襼@釈@炴@力@仠@兮@泣@：,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):Response.Write  CJCJCJC:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am亇@、,秪@杼@亵@样@k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bm`．,一,舧@臥@戌@敃@胸@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(5,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(5,0):Response.Write(CCJCCJJ("佈@考,甚@一,舧@臥@戌@敃@胸@癿@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@考,甚@寴@臥@巬@癿@臥@俜@徾@丈@多@兀@刁@，,丈@夥@盳@俜@臥@巬@胸@多@胗@件@巠@佗@，,丈@硩@宕@臥@巬@昪@吡@胸@多@逕@迂@劥@劖@杠@兆@月@巠@佗@丨@癿@囫@隹@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bma．,坕@韢@怢@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(6,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(6,0):Response.Write(CCJCCJJ("佈@考,甚@圣@坕@韢@怢@丅@癿@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@圣@靝@寴@挌@戓@咇@挦@抓@旱@癿@探@刱@愚@轾@弬@，,圣@又@序@癿@敊@捲@怢@咇@镂@宕@稆@庡@丅@衣@玫@欛@佮@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmb．,之@覽@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(7,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm ,仠@丅@")):Response.Write  CJJCCCC(7,0):Response.Write(CCJCCJJ("佈@考,甚@癿@之@覽@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@寴@争@兆@月@送@塾@癿@臥@俜@徾@轾@丵@欛@缵@，,丈@夥@啿@争@仉@秪@杼@癿@觍@庡@眆@往@了@牤@，,寴@争@臥@巬@癿@劖@释@咇@呣@囯@癿@亵@陀@兮@糶@癿@俜@徾@幱@丈@兀@刁@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmc．,臥@張@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(8,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(8,0):Response.Write(CCJCCJJ("佈@考,甚@圣@臥@張@牴@责@丅@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@仉@挦@抓@咇@刖@伟@绊@厁@丨@夈@厚@癿@胸@劖@轾@丵@丈@趮@，,四@歟@丈@夥@啿@争@仉@挦@抓@丨@莲@徒@戋@镺@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmd．,帇@朖@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(9,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(9,0):Response.Write(CCJCCJJ("佈@考,甚@癿@帇@朖@牴@责@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@迸@氽@巠@佗@（,孡@乛@）,盩@栂@癿@烨@惀@丈@多@髓@涣@，,丈@夥@啿@争@逕@迂@叿@秈@透@彿@咇@夕@秈@斴@泐@厶@宙@玫@盩@栂@，,幱@丏@轾@丵@欛@缵@圣@囫@塾@丨@坕@拼@盩@栂@咇@觞@冮@闩@颓@癿@胸@劖@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bme．,朄@杜@琁@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(10,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(10,0):Response.Write(CCJCCJJ("佈@考,甚@圣@杜@琁@怢@丅@癿@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@考,甚@圣@壿@琁@了@劜@咇@巠@佗@丨@癿@秤@床@、,杜@琁@咇@逶@辌@怢@轾@丵@欛@缵@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k9bmf．,贚@贞@件@k^9bm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(11,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm仠@丅@")):Response.Write  CJJCCCC(11,0):Response.Write(CCJCCJJ("佈@考,甚@圣@贚@贞@件@丅@癿@徒@刁@偊@佉@，,丶@襼@衣@玫@丵@寴@往@件@劜@咇@仑@亵@癿@贚@贞@稆@庡@轾@丵@欛@缵@，,宴@明@掣@即@贞@件@、,迾@遺@壿@罕@筄@。,電@襼@稈@力@兮@泣@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm圣@丅@迫@考,甚@丨@，,朄@郣@刁@考,甚@圣@丟@秈@我@丟@秈@仠@丅@癿@秪@杼@亵@样@丅@癿@徒@刁@坂@偊@佉@，,電@襼@力@仠@兮@泣@：,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,kE9m四@孋@k^E9m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):Response.Write  CJCJCCJ:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJJ(" ,k9am丄@、,牴@殅@惀@冰@误@昉@k^9am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm朧@释@衣@丨@讹@罩@亁@b严@浆@谉@颓@，,栴@捩@访@宕@栂@凁@，,仠@丆@")):Response.Write  CJJCCCC(12,0):Response.Write(CCJCCJJ("佈@考,甚@圣@塦@筏@歟@释@衣@癿@迂@稆@丨@，,孓@圣@误@谉@癿@嫇@疌@，,误@昉@考,甚@圣@囙@筏@闩@卲@旱@朄@误@谉@我@耀@掤@饫@癿@戋@刁@，,沜@朄@宇@兣@挄@煢@宙@陀@惀@冰@迖@衇@佗@筏@，,倹@同@争@掤@饫@咇@羉@匑@臥@巬@。,寴@争@返@亖@考,诐@癿@访@宕@绎@林@，,顶@绎@吃@靝@诐@丨@癿@宙@陀@惀@冰@，,谣@慉@寴@往@。,共@仑@考,诐@癿@绎@林@刁@枋@厽@考,仲@倷@轾@髓@。,k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  CJJCCCC(12,1):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("k3Cm") & vbCrLf):Response.Write(CCJCCJJ("k3Cm") & vbCrLf):Response.Write(CCJCCJJ("k7@@E6Cm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ=Qm释@衣@亇@·,秪@杼@涃@杼@亵@样@癿@访@伫@愊@覼@k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\AC:?EQm扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\H@C5Qm俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,:5lQ3E?\E@AQm别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCJCCJJ(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CCJCCJJ("NX") & vbCrLf):Response.Write(CCJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCJ=nothing:set CJCCCCC=nothing:set CCJJJJJ=nothing:set CCJJJJC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCJJ(ByVal CCJCJCC)
Dim CJCCJJC, CCJJCC, CCCJJC
CCJCJCC = Replace(CCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CCJCJCC)
If CCJJCC <> CCCJJC Then
CJCCJJC = AscW(Mid(CCJCJCC, CCJJCC, 1))
If CJCCJJC >= 33 And CJCCJJC <= 79 Then
CCJCCJJ = CCJCCJJ & Chr(CJCCJJC + 47)
ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then
CCJCCJJ = CCJCCJJ & Chr(CJCCJJC - 47)
Else
CCCJJC = CCJJCC + 1
If Mid(CCJCJCC, CCCJJC, 1) = Chr(64) Then CCJCCJJ = CCJCCJJ & ChrW(CJCCJJC + 5) Else CCJCCJJ = CCJCCJJ & Mid(CCJCJCC, CCJJCC, 1)
End If
End If
Next
End Function
%>