<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJ, CJJJCC,CJJCJJ, CJJCJC, CJJCCJ:Set CJJJCJ = server.CreateObject(CJCCCCC("ps~sq]r@??64E:@?")):CJJJCJ.open Application(CJCCCCC("r@??64E:@?$EC:?8")):Set CJJJCC=CJJJCJ::::Const CJCJJJJ="^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 CJJCCC,CJCJJJ,CJCJJC:if isarray(str) then
on error resume next:CJJCCC=ubound(str,2):CJCJJC=err.number:err.clear:on error goto 0:if CJCJJC<>0 then
for CJJCCC=0 to ubound(str):if CJJCCC>0 then response.Write CJCCCCC("k3C ,^m")
response.Write CJJCCC & CJCCCCC("i ,") & str(CJJCCC):next
else
response.Write CJCCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCC=0 to ubound(str,2):response.Write CJCCCCC("kE9 ,2=:8?lV=67EVm") & CJJCCC & CJCCCCC("k^E9m")
next:response.Write CJCCCCC("k^ECm"):for CJJCCC=0 to ubound(str):response.Write CJCCCCC("kECmkE9m") & CJJCCC & CJCCCCC("k^E9m"):for CJCJJJ=0 to ubound(str,2):response.Write CJCCCCC("kE5m") & str(CJJCCC,CJCJJJ) & CJCCCCC("k^E5m"):next:response.Write CJCCCCC("k^ECm"):next:response.Write CJCCCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJC,CCJJJCJ):dim CJCJCJ:CJCJCJ=CCJJJJC & CJCCCCC("l") & CCJJJCJ & CJCCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCC("$6E\r@@<:6"),CJCJCJ):End Sub::::::::Function CJCJJJC(CCJJJCC):dim CJCJCC,CJCCJJ:CJCJCC=CJCCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJCC & CJCCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJ=CJJJCJ.execute(CJCJCC):CJCJJJC = CJCCJJ(0):if isnull(CJCJJJC) then CJCJJJC=1
CJCCJJ.close : set CJCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJJCC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:CJCCJJ.close : set CJCCJJ=nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJCJCJC.Close : Set CJCJCJC = Nothing:CJJJCJ.Close : Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCC("!$*0|6DD286"),server.URLEncode(CCJJCJJ)):Response.Redirect CJCCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CCJJCJC):Application.Contents.Remove CCJJCJC
End Sub::Dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC:CCCCCC=Trim(Request.Cookies(CJCCCCC("!$*|t|qt#"))):if CCCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJC>0 then
CJJCCJ=CJCCCCC("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") & CJCCCJ & CJCCCCC("V ,2?5 ,:5l") & CJCCJC
set CJJCJJ=CJJJCJ.execute(CJJCCJ):If CJJCJJ.EOF Then
Call ClearMemberCookie
Else
CJCCCC=CJJCJJ(2) & "":CCJJJJ=CJJCJJ(3):CCJJJC=CJJCJJ(5):CCJJCJ=CJJCJJ(6):CCJJCC=CJJCJJ(9):CCJCJJ=CJJCJJ(15):CCJCCJ=CJJCJJ(0):CCCCJC=CJJCJJ(1):CCCCJJ=CJJCJJ(11) & "":CCJCCC=CJJCJJ(10) & "":CCJCJC=CJJCJJ(12):CCCJJJ=CJJCJJ(14):CCCJJC=CJJCJJ(13):CCCJCJ=CJJCJJ(7) & "":CCCJCC=CJJCJJ(4):CCCCCJ=CJJCJJ(8):if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CCJJCC) or CCJJCC=0 then CCJJCC=CCJJJJ
if isnull(CCCJCC) then CCCJCC=0
if isnull(CCJJJC) then CCJJJC=0
if instr(CJCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCCJ)>0 then Call RedirectMessage(CJCCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCJC,CJCCCJ)
End IF
end if:Sub CheckRight(CCJJCCJ):dim CJJCCC,CJJJJJJ:if CJCCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJCJCCJ(CCJJCCJ) then
Call RedirectMessage(CJCCCCC("朾@陋@W") & CCJJCCJ & CJCCCCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJCJCCJ(CCJJCCJ):dim CJJCCC,CJJJJJJ:CJJJJJJ=split(CCJJCCJ,CJCCCCC("[")):CJCJCCJ=False:for CJJCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCC,CJJJJJJ(CJJCCC),1)="1" then
CJCJCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCCCC("!$*|t|qt#"))="":CJCCJC=0:CCJJCJ=0:CJCCCJ=Empty:CCJJJC=0:CCJCJJ=0:CCJJCC=0:CCJJJJ=0:CCJCCJ=False:CCCCJC=False:CCCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJ,CJJJJJC,CJJCCC,CJCJJJ,CJJJJCJ:CJCJCJ=split(CCCCCC,CJCCCCC("]")):if ubound(CJCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJ(0)) or len(CJCJCJ(1))<>32 or len(CJCJCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJCJCJ(1):for CJJCCC=1 to len(CJJJJJC):CJCJJJ=mid(CJJJJJC,CJJCCC,1):if isnumeric(CJCJJJ) then CJJJJCJ=CJJJJCJ & CJCJJJ
if len(CJJJJCJ)=7 then exit for
next:CJJJJJC=CJCJCJ(2):if CJJJJCJ<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJCJJJ=mid(CJJJJJC,18,10)/2:if CJCJJJ<DateDiff(CJCCCCC("D"), CJCCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJC=Clng(CJCJCJ(0)):CJCCCJ=CJCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJJ,CCJJCCC):dim CJJCCC,CJCJJJ,CJJJJCJ:for CJJCCC=1 to len(CCJJCCC):CJCJJJ=mid(CCJJCCC,CJJCCC,1):if isnumeric(CJCJJJ) then CJJJJCJ=CJJJJCJ & CJCJJJ
if len(CJJJJCJ)=7 then exit for
next:CJJJJCJ=CJCCCJJ & CJCCCCC("]") & CCJJCCC & CJCCCCC("]") & Fix(10000*(Rnd+1)) & CJJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCC("D"), CJCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCC("!$*|t|qt#"))=CJJJJCJ:End Sub::Class jTree:Private CJJCCJ, CJJJJCC, CJJJCJJ, CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Private Sub Class_Initialize():CJJJCJJ = 0:CJJJCJC = 0:CJJCJJC=10:End Sub:Public Property Let Table(CCJCJJJ):if CCJCJJJ="" then Call RedirectMessage(CJCCCCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJCCJ=CCJCJJJ:CJJJCCC=CJCCCCC("!$*0") & UCase(CJJJCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCCJ:End Property:::Private Sub GetTreeArray():Dim CJJCCC, CJCJJJ, CJJCJCJ,CJJCJCC:CJJJJCC = Application(CJJJCCC):If Not IsArray(CJJJJCC) Then
CJJCCJ = CJCCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCCJ:if CJJCJJJ<>"" then CJJCCJ=CJJCCJ & CJCCCCC(" ,H96C6 ,") & CJJCJJJ
set CJJCJCJ=CJJJCJ.execute(CJJCCJ):CJJCJCC=CJJCJCJ(0):if CJJCJCC=0 then Call RedirectMessage(CJCCCCC("柠@话@W") & CJJJCCJ & CJCCCCC("^") & CJJCJJJ & CJCCCCC("X沜@朄@绎@林@敫@捩@"))
CJJJCJC=CJJCJCC+CJJCJJC:ReDim CJJJJCC(CJJJCJC, 4):CJJCCJ = CJCCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJCCCCC(" ,H:E9 ,W?@=@4<X"):if CJJCJJJ<>"" then CJJCCJ=CJJCCJ & CJCCCCC(" ,H96C6 ,") & CJJCJJJ
CJJCCJ=CJJCCJ & CJCCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJJCJCJ=CJJJCJ.execute(CJJCCJ):For CJJCCC = 1 To CJJCJCC:For CJCJJJ = 0 To 4:CJJJJCC(CJJCCC, CJCJJJ) = CJJCJCJ(CJCJJJ):if IsNull(CJJJJCC(CJJCCC,4)) then CJJJJCC(CJJCCC,4)=0
If CJJJJCC(CJJCCC,2)="" then CJJJJCC(CJJCCC,2)=CJCCCCC(",穵@.")
Next:CJJCJCJ.MoveNext:Next:CJJCJCJ.Close: Set CJJCJCJ = Nothing:for CJJCCC=CJJJCJC-(CJJCJJC-1) to CJJJCJC:CJJJJCC(CJJCCC,0)=CJJCCC:next:Application.Lock():Application(CJJJCCC) = CJJJJCC:Application.UnLock()
else
CJJJCJC=Ubound(CJJJJCC)
End If:End Sub:::::Private Function CJCCJJJ(CJCCCJJ):dim CJJCCC,CJJCCJJ:CJCCJJJ=0:CJJCCJJ=CStr(CJCCCJJ):if CJJCCJJ<>"0" then
for CJJCCC=1 to CJJJCJC:If CStr(CJJJJCC(CJJCCC, 0))=CJJCCJJ Then
CJCCJJJ = CJJCCC:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CJCCCJJ):if Cstr(CJCCCJJ)="0" then
GetCurName=CJCCCCC("栴@")
else
Dim CJJCCC,CJJCJCJ:CJJCCC=CJCCJJJ(CJCCCJJ):if CJJCCC>0 then
GetCurName=CJJJJCC(CJJCCC,2):if GetCurName="" then
set CJJCJCJ=CJJJCJ.execute(CJCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJCCCCC(" ,H96C6 ,:5l") & CJCCCJJ):if CJJCJCJ.eof then Call RedirectMessage(CJCCCCC("xs（,") & CJCCCJJ & CJCCCCC("）,朥@批@别@"))
GetCurName=CJJCJCJ(1):Call UpdateCache(CJCCCJJ,CJJCJCJ(0),GetCurName,CJJCJCJ(2),CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if
else
set CJJCJCJ=CJJJCJ.execute(CJCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJCCCCC(" ,H96C6 ,:5l") & CJCCCJJ):if CJJCJCJ.eof then Call RedirectMessage(CJCCCCC("xs（,") & CJCCCJJ & CJCCCCC("）,朥@批@别@"))
GetCurName=CJJCJCJ(1):Call UpdateCache(CJCCCJJ,CJJCJCJ(0),GetCurName,CJJCJCJ(2),CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if
end if:End Function:::Public Function CJCCJCJ(CJCCCJJ):Dim CJJCCC,CJJCCJC:CJJCCC=CJCCJJJ(CJCCCJJ):if CJJCCC=0 then
CJJCCJC=CJCCJCC(CJCCCJJ)
else
CJJCCJC=CJJJJCC(CJJCCC,3):if isnull(CJJCCJC) or CJJCCJC="" then
CJJCCJC=CJCCJCC(CJCCCJJ)
elseif Mid(CJJCCJC,instrrev(CJJCCJC,CJCCCCC("["))+1)<>CStr(CJCCCJJ) then
CJJCCJC=CJCCJCC(CJCCCJJ)
elseif Left(CJJCCJC,1)=CJCCCCC("[") then
CJJCCJC=CJCCJCC(CJCCCJJ)
end if
end if:CJCCJCJ=CJJCCJC:End Function:Private Function CJCCJCC(CJCCCJJ):dim CJJCCJJ:CJJCCJJ=CStr(CJCCCJJ):if CJJCCJJ="0" then
CJCCJCC=""
else
dim CJJCJCJ:set CJJCJCJ=CJJJCJ.execute(CJCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJCCCCC(" ,H96C6 ,:5l") & CJCCCJJ):if CJJCJCJ.eof then
Call UpdateCache(CJCCCJJ,"","","",""):Call RedirectMessage(CJCCCCC("顴@盩@（,xs：,") & CJCCCJJ & CJCCCCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJCJCJ(0)=0 then
CJCCJCC="0," & CJCCCJJ
else
CJCCJCC=CJCCJCJ(CJJCJCJ(0)) & CJCCCCC("[") & CJCCCJJ
end if:if CJJCJCJ(2)<>CJCCJCC then
CJJJCJ.execute CJCCCCC("FA52E6 ,") & CJJJCCJ & CJCCCCC(" ,D6E ,A2E9lV") & CJCCJCC & CJCCCCC("V ,H96C6 ,:5l") & CJCCCJJ
else
CJCCJCC=CJJCJCJ(2)
end if
end if:Call UpdateCache(CJCCCJJ,CJJCJCJ(0),CJJCJCJ(1),CJCCJCC,CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCCC
End Sub:Public Sub UpdateCache(CJCCCJJ,CCJCJJC,CCJCJCJ,CJJCCJC,CCJCJCC):dim CJJCCC,CJCJJJ:CJCCCJJ=CLng(CJCCCJJ):CJJCCC=CJCCJJJ(CJCCCJJ):if CCJCJJC="" and CCJCJCJ="" and CJJCCJC="" and CCJCJCC="" then
if CJJCCC>0 then
for CJCJJJ=1 to 4:CJJJJCC(CJJCCC,CJCJJJ)=Null:next
end if
else
if CJJCCC=0 then
for CJCJJJ=1 to CJJJCJC:if CJJJJCC(CJCJJJ,1) & ""="" then
CJJCCC=CJCJJJ:exit for
end if:next
end if:if CJJCCC=0 then
Call ClearCache
else
CJJJJCC(CJJCCC,0)=CLng(CJCCCJJ):if CCJCJJC<>"" then CJJJJCC(CJJCCC,1)=CLng(CCJCJJC)
if CCJCJCJ<>"" then CJJJJCC(CJJCCC,2)=CCJCJCJ
if CJJCCJC<>"" then CJJJJCC(CJJCCC,3)=CJJCCJC
if CCJCJCC<>"" then CJJJJCC(CJJCCC,4)=CLng(CCJCJCC)
end if
end if:if CJJCCC>0 then
Application.Lock():Application(CJJJCCC) = CJJJJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJCJJ):Call ConnClose:Response.Write CCJJCJJ:Response.End:End Sub:Private Function CJCJJJC():CJCJJJC=CJCCCJC+1:End Function:Private Function CJCCCJC():dim CJCCJJ:set CJCCJJ=CJJJCJ.execute(CJCCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCCJ & CJCCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJCCCJC=CJCCJJ(0):CJCCJJ.Close: Set CJCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5)::Response.Write(vbCrLf):Response.Write(CJCCCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCCCC("k9E>=m") & vbCrLf):Response.Write(CJCCCCC("k9625m") & vbCrLf):Response.Write(CJCCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJCCCCC("3@5J ,L ,>2C8:?i ,_AIj ,A255:?8i_AIj ,324<8C@F?5i ,FC=W:>286D^96256C038];A8X ,C6A62E\Ij ,N") & vbCrLf):Response.Write(CJCCCCC("2 ,L ,4@=@Ci ,R___j ,E6IE\564@C2E:@?i ,?@?6j ,A255:?8i ,`AI ,cAIj ,3@C56Ci ,`AI ,D@=:5 ,Rsutetuj ,324<8C@F?5\4@=@Ci ,Rsutetuj ,N") & vbCrLf):Response.Write(CJCCCCC("2i9@G6C ,L ,4@=@Ci ,Rceddphj ,E6IE\564@C2E:@?i ,?@?6j ,324<8C@F?5\4@=@Ci ,Ru_udupj ,A255:?8i ,`AI ,cAIj ,3@C56Ci ,`AI ,D@=:5 ,Rrarusuj ,N") & vbCrLf):Response.Write(CJCCCCC("E5 ,L ,7@?E\72>:=Ji ,'6C52?2[ ,pC:2=[ ,w6=G6E:42[ ,D2?D\D6C:7j ,7@?E\D:K6i ,`aAIj ,N") & vbCrLf):Response.Write(CJCCCCC("RE:E=6 ,L ,4@=@Ci ,R_ehj ,7@?Ei ,3@=5 ,b_AI^``_AI ,Q復@轪@雀@黌@Q[ ,'6C52?2[ ,Q宆@低@Qj ,324<8C@F?5i ,FC=W:>286D^96256C];A8X ,?@\C6A62Ej ,96:89Ei ,``_AIj ,H:5E9i ,h__AIj ,>2C8:?i ,_AIj ,A255:?8\=67Ei ,d_AIj ,N") & vbCrLf):Response.Write(CJCCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCCC("k^9625m") & vbCrLf):Response.Write(CJCCCCC("k3@5Jm") & vbCrLf)::dim CJJJJCC:set CJJJJCC=new jtree:CJJJJCC.table=CJCCCCC(">6>36C0EJA6"):dim CJJCCCJ:CJJCCCJ=CJJJJCC.GetCurName(CCJJJJ):Response.Write(vbCrLf):Response.Write(CJCCCCC("k9` ,:5lQE:E=6Qm")):Response.Write  CJJCCCJ:Response.Write(CJCCCCC("k^9`m") & vbCrLf):Response.Write(CJCCCCC("kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQaQ ,46==DA24:?8lQ_Q ,DEJ=6lQ324<8C@F?5\4@=@CiRsutetuj ,3@C56C\E@Ai`AI ,D@=:5 ,Rqrs_tsj ,3@C56C\3@EE@>i`AI ,D@=:5 ,Rqrs_tsj ,Qm") & vbCrLf):Response.Write(CJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJCCCCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQH6=4@>6]2DAQ ,E2C86ElQ>2:?Qmk:>8 ,DC4lQ:>286D^:4@?02==]8:7Q ,H:5E9lQ`hQ ,96:89ElQ`hQ ,3@C56ClQ_Q ,2=:8?lQ23D>:55=6Qm馑@顰@k^2m ,M") & vbCrLf):Response.Write(CJCCCCC(" ,")):If CCJJJJ=123 Then
Response.Write(vbCrLf):Response.Write(CJCCCCC(" ,k2 ,9C67lV]]^]]^;:2@H6:^496?85F^V ,E2C86ElQ0A2C6?EQmk:>8 ,DC4lV:>286D^:4@?0@E96CD]8:7V ,H:5E9lV`cV ,96:89ElV`fV ,3@C56ClV_V ,2=:8?lV23D>:55=6Vm迻@凵@箜@琁@k^2m") & vbCrLf):Response.Write(CJCCCCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCCCCC(" ,k2 ,9C67lV]]^]]^;:2@H6:^:?56I]2DAnFl")):Response.Write  CCJJJJ:Response.Write(CJCCCCC("V ,E2C86ElV0A2C6?EVmk:>8 ,DC4lV:>286D^:4@?0@E96CD]8:7V ,H:5E9lV`cV ,96:89ElV`fV ,3@C56ClV_V ,2=:8?lV23D>:55=6Vm迻@凵@箜@琁@k^2m") & vbCrLf):Response.Write(CJCCCCC(" ,"))
End If:Response.Write(CJCCCCC("k^E5m") & vbCrLf):Response.Write(CJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCC("k^E23=6m") & vbCrLf):Response.Write(CJCCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJCC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCJ.Close:Set CJJJCJ = Nothing:err.Clear:On Error Goto 0
Function CJCCCCC(ByVal CJCCCCJ)
Dim CJJCCCC, CJJCCC, CJCJJC
CJCCCCJ = Replace(CJCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCC = 1 To Len(CJCCCCJ)
If CJJCCC <> CJCJJC Then
CJJCCCC = AscW(Mid(CJCCCCJ, CJJCCC, 1))
If CJJCCCC >= 33 And CJJCCCC <= 79 Then
CJCCCCC = CJCCCCC & Chr(CJJCCCC + 47)
ElseIf CJJCCCC >= 80 And CJJCCCC <= 126 Then
CJCCCCC = CJCCCCC & Chr(CJJCCCC - 47)
Else
CJCJJC = CJJCCC + 1
If Mid(CJCCCCJ, CJCJJC, 1) = Chr(64) Then CJCCCCC = CJCCCCC & ChrW(CJJCCCC + 5) Else CJCCCCC = CJCCCCC & Mid(CJCCCCJ, CJJCCC, 1)
End If
End If
Next
End Function
%>