<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCJC, CJJCCJ,CJJCCC, CJCJJJ, CJCJJC:Set CJJCJC = server.CreateObject(CCCCJJJ("ps~sq]r@??64E:@?")):CJJCJC.open Application(CCCCJJJ("r@??64E:@?$EC:?8")):Set CJJCCJ=CJJCJC::Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ:CCCCJJ=Trim(Request.Cookies(CCCCJJJ("!$*|t|qt#"))):if CCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCJ>0 then
CJCJJC=CCCCJJJ("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") & CJCJCC & CCCCJJJ("V ,2?5 ,:5l") & CJCJCJ
set CJJCCC=CJJCJC.execute(CJCJJC):If CJJCCC.EOF Then
Call ClearMemberCookie
Else
CJCCJJ=CJJCCC(2) & "":CJCCJC=CJJCCC(3):CJCCCJ=CJJCCC(5):CJCCCC=CJJCCC(6):CCJJJJ=CJJCCC(9):CCJJJC=CJJCCC(15):CCJJCC=CJJCCC(0):CCCJCJ=CJJCCC(1):CCCJJC=CJJCCC(11) & "":CCJCJJ=CJJCCC(10) & "":CCJJCJ=CJJCCC(12):CCJCJC=CJJCCC(14):CCJCCJ=CJJCCC(13):CCJCCC=CJJCCC(7) & "":CCCJJJ=CJJCCC(4):CCCJCC=CJJCCC(8):if isnull(CCJJJC) then CCJJJC=0
if isnull(CCJJJJ) or CCJJJJ=0 then CCJJJJ=CJCCJC
if isnull(CCCJJJ) then CCCJJJ=0
if isnull(CJCCCJ) then CJCCCJ=0
if instr(CCCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCC)>0 then Call RedirectMessage(CCCCJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJCJ,CJCJCC)
End IF
end if:Sub CheckRight(CJJCJJC):dim CCCCJC,CCCCCJ:if CJCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJJCJC(CJJCJJC) then
Call RedirectMessage(CCCCJJJ("朾@陋@W") & CJJCJJC & CCCCJJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJJCJC(CJJCJJC):dim CCCCJC,CCCCCJ:CCCCCJ=split(CJJCJJC,CCCCJJJ("[")):CCJJCJC=False:for CCCCJC=0 to ubound(CCCCCJ):If Mid(CJCCJJ,CCCCCJ(CCCCJC),1)="1" then
CCJJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJCJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCCCC:CCCCCC=trim(request.QueryString(CCCCJJJ("D49@@="))):if isnumeric(CCCCCC) then
response.Redirect CCCCJJJ("^>^G2?E^R^D49@@=^") & CCCCCC & CCCCJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCJJJ("!$*|t|qt#"))="":CJCJCJ=0:CJCCCC=0:CJCJCC=Empty:CJCCCJ=0:CCJJJC=0:CCJJJJ=0:CJCCJC=0:CCJJCC=False:CCCJCJ=False:CCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCJC,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJJ,CCCCJJJ("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CCCCJC=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ<DateDiff(CCCCJJJ("D"), CCCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCJ=Clng(CJJJJJJ(0)):CJCJCC=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJC,CCCCJJC):dim CCCCJC,CJJJJCJ,CJJJJCC:for CCCCJC=1 to len(CCCCJJC):CJJJJCJ=mid(CCCCJJC,CCCCJC,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CCCJCJC & CCCCJJJ("]") & CCCCJJC & CCCCJJJ("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CCCCJJJ("D"), CCCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJJJ("!$*|t|qt#"))=CJJJJCC:End Sub:::Function IIf(CCCCJCJ, CCCCJCC, CCCCCJJ):if isnull(CCCCJCJ) or isempty(CCCCJCJ) then
IIf = CCCCCJJ
elseif CCCCJCJ Then
IIf = CCCCJCC
Else
IIf = CCCCCJJ
end if:End Function:Const CCJJCJJ="^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 CCCCJC,CJJJJCJ,CJJJCJJ:if isarray(str) then
on error resume next:CCCCJC=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then
for CCCCJC=0 to ubound(str):if CCCCJC>0 then response.Write CCCCJJJ("k3C ,^m")
response.Write CCCCJC & CCCCJJJ("i ,") & str(CCCCJC):next
else
response.Write CCCCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCJC=0 to ubound(str,2):response.Write CCCCJJJ("kE9 ,2=:8?lV=67EVm") & CCCCJC & CCCCJJJ("k^E9m")
next:response.Write CCCCJJJ("k^ECm"):for CCCCJC=0 to ubound(str):response.Write CCCCJJJ("kECmkE9m") & CCCCJC & CCCCJJJ("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CCCCJJJ("kE5m") & str(CCCCJC,CJJJJCJ) & CCCCJJJ("k^E5m"):next:response.Write CCCCJJJ("k^ECm"):next:response.Write CCCCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCCJ,CCCCCCC):dim CJJJJJJ:CJJJJJJ=CCCCCCJ & CCCCJJJ("l") & CCCCCCC & CCCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJJJ("$6E\r@@<:6"),CJJJJJJ):End Sub:::::::Function CCJJCCC(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then
CCJJCCC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CCCCJJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CCJJCCC = CJJJCJC.test(CJJJCJJ):set CJJJCJC=nothing
end if:End Function:Function CCJCJJJ(CJJJJJJJ):dim CJJJCCJ,CJJJCCC:CJJJCCJ=CCCCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJJJ & CCCCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJCCC=CJJCJC.execute(CJJJCCJ):CCJCJJJ = CJJJCCC(0):if isnull(CCJCJJJ) then CCJCJJJ=1
CJJJCCC.close : set CJJJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJCC=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJJJCCC.close : set CJJJCCC=nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:CJJCCC.Close : Set CJJCCC=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJCJC.Close : Set CJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJJJ("!$*0|6DD286"),server.URLEncode(CJJJJJJC)):Response.Redirect CCCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJCCJC():Dim CJJJCCC, CJJCJJJ(), CCCCJC, CJJJJCJ, CJJCJJC,CJJCJCJ:If Not IsArray(Application(CCCCJJJ("!$*0%6DED"))) Then
CJCJJC=CCCCJJJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJJJCCC=server.createobject(CCCCJJJ("25@53]C64@C5D6E")):CJJJCCC.open CJCJJC,CJJCJC,1:CJJCJJC = CJJJCCC.RecordCount:CJJCJCJ=CJJJCCC.fields.count-1:ReDim CJJCJJJ(CJJCJJC, CJJCJCJ):If CJJCJJC > 0 Then
For CCCCJC = 1 To CJJCJJC:For CJJJJCJ = 0 To CJJCJCJ:if CJJJJCJ=4 or CJJJJCJ=6 or CJJJJCJ=19 then
CJJCJJJ(CCCCJC, CJJJJCJ) = CCJCCCJ(CJJJCCC(CJJJJCJ))
else
CJJCJJJ(CCCCJC, CJJJJCJ) = CJJJCCC(CJJJJCJ):if CJJJCCC(CJJJJCJ).type<>11 and isnull(CJJCJJJ(CCCCJC, CJJJJCJ)) then CJJCJJJ(CCCCJC, CJJJJCJ)=""
end if:Next:CJJJCCC.MoveNext:Next
End If:CJJJCCC.Close: Set CJJJCCC = Nothing:Application(CCCCJJJ("!$*0%6DED")) = CJJCJJJ
End If:CCJCCJC = Application(CCCCJJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCJCCCJ(CJJJJJCJ):if isnull(CJJJJJCJ) then
CCJCCCJ=""
else
On Error Resume Next:CCJCCCJ=CJJJJJCJ:if err.number=-2147352567 then
CCJCCCJ="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJJJJJCC):Application.Contents.Remove CJJJJJCC
End Sub::Class jTree:Private CJCJJC, CJJCJCC, CJJCCJJ, CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Private Sub Class_Initialize():CJJCCJJ = 0:CJJCCJC = 0:CJCJJJC=10:End Sub:Public Property Let Table(CJJJJCJJ):if CJJJJCJJ="" then Call RedirectMessage(CCCCJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCCJ=CJJJJCJJ:CJJCCCC=CCCCJJJ("!$*0") & UCase(CJJCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCJ:End Property::Public Property Get Count():Count=CJJCCJC-CJCJJJC:End Property:Private Sub GetTreeArray():Dim CCCCJC, CJJJJCJ, CJCJJCJ,RecordCount:CJJCJCC = Application(CJJCCCC):If Not IsArray(CJJCJCC) Then
CJCJJC = CCCCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCJ:if CJCJJJJ<>"" then CJCJJC=CJCJJC & CCCCJJJ(" ,H96C6 ,") & CJCJJJJ
set CJCJJCJ=CJJCJC.execute(CJCJJC):RecordCount=CJCJJCJ(0):if RecordCount=0 then Call RedirectMessage(CCCCJJJ("柠@话@W") & CJJCCCJ & CCCCJJJ("^") & CJCJJJJ & CCCCJJJ("X沜@朄@绎@林@敫@捩@"))
CJJCCJC=RecordCount+CJCJJJC:ReDim CJJCJCC(CJJCCJC, 4):CJCJJC = CCCCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CCCCJJJ(" ,H:E9 ,W?@=@4<X"):if CJCJJJJ<>"" then CJCJJC=CJCJJC & CCCCJJJ(" ,H96C6 ,") & CJCJJJJ
CJCJJC=CJCJJC & CCCCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCJ=CJJCJC.execute(CJCJJC):For CCCCJC = 1 To RecordCount:For CJJJJCJ = 0 To 4:CJJCJCC(CCCCJC, CJJJJCJ) = CJCJJCJ(CJJJJCJ):if IsNull(CJJCJCC(CCCCJC,4)) then CJJCJCC(CCCCJC,4)=0
If CJJCJCC(CCCCJC,2)="" then CJJCJCC(CCCCJC,2)=CCCCJJJ(",穵@.")
Next:CJCJJCJ.MoveNext:Next:CJCJJCJ.Close: Set CJCJJCJ = Nothing:for CCCCJC=CJJCCJC-(CJCJJJC-1) to CJJCCJC:CJJCJCC(CCCCJC,0)=CCCCJC:next:Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock()
else
CJJCCJC=Ubound(CJJCJCC)
End If:End Sub:::::Private Function CCCJJJC(CCCJCJC):dim CCCCJC,CJCJCJJ:CCCJJJC=0:CJCJCJJ=CStr(CCCJCJC):if CJCJCJJ<>"0" then
for CCCCJC=1 to CJJCCJC:If CStr(CJJCJCC(CCCCJC, 0))=CJCJCJJ Then
CCCJJJC = CCCCJC:Exit For
End If:Next
end if:End Function::::Public Function CCCJJCJ(CCCJCJC):Dim CCCCJC,CJCJCJC:CCCCJC=CCCJJJC(CCCJCJC):if CCCCJC=0 then
CJCJCJC=CCCJJCC(CCCJCJC)
else
CJCJCJC=CJJCJCC(CCCCJC,3):if isnull(CJCJCJC) or CJCJCJC="" then
CJCJCJC=CCCJJCC(CCCJCJC)
elseif Mid(CJCJCJC,instrrev(CJCJCJC,CCCCJJJ("["))+1)<>CStr(CCCJCJC) then
CJCJCJC=CCCJJCC(CCCJCJC)
elseif Left(CJCJCJC,1)=CCCCJJJ("[") then
CJCJCJC=CCCJJCC(CCCJCJC)
end if
end if:CCCJJCJ=CJCJCJC:End Function:Private Function CCCJJCC(CCCJCJC):dim CJCJCJJ:CJCJCJJ=CStr(CCCJCJC):if CJCJCJJ="0" then
CCCJJCC=""
else
dim CJCJJCJ:set CJCJJCJ=CJJCJC.execute(CCCCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCJ & CCCCJJJ(" ,H96C6 ,:5l") & CCCJCJC):if CJCJJCJ.eof then
Call UpdateCache(CCCJCJC,"","","",""):Call RedirectMessage(CCCCJJJ("顴@盩@（,xs：,") & CCCJCJC & CCCCJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJCJ(0)=0 then
CCCJJCC="0," & CCCJCJC
else
CCCJJCC=CCCJJCJ(CJCJJCJ(0)) & CCCCJJJ("[") & CCCJCJC
end if:if CJCJJCJ(2)<>CCCJJCC then
CJJCJC.execute CCCCJJJ("FA52E6 ,") & CJJCCCJ & CCCCJJJ(" ,D6E ,A2E9lV") & CCCJJCC & CCCCJJJ("V ,H96C6 ,:5l") & CCCJCJC
else
CCCJJCC=CJCJJCJ(2)
end if
end if:Call UpdateCache(CCCJCJC,CJCJJCJ(0),CJCJJCJ(1),CCCJJCC,CJCJJCJ(3)):CJCJJCJ.Close: Set CJCJJCJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJCJC):dim CJCJCJC:CJCJCJC=CCCJJCJ(CCCJCJC):Sql_GetChildren = CJJCCCJ & CCCCJJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJCJC & CCCCJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCCC
End Sub:Public Sub UpdateCache(CCCJCJC,CJJJJCJC,CJJJJCCJ,CJCJCJC,CJJJJCCC):dim CCCCJC,CJJJJCJ:CCCJCJC=CLng(CCCJCJC):CCCCJC=CCCJJJC(CCCJCJC):if CJJJJCJC="" and CJJJJCCJ="" and CJCJCJC="" and CJJJJCCC="" then
if CCCCJC>0 then
for CJJJJCJ=1 to 4:CJJCJCC(CCCCJC,CJJJJCJ)=Null:next
end if
else
if CCCCJC=0 then
for CJJJJCJ=1 to CJJCCJC:if CJJCJCC(CJJJJCJ,1) & ""="" then
CCCCJC=CJJJJCJ:exit for
end if:next
end if:if CCCCJC=0 then
Call ClearCache
else
CJJCJCC(CCCCJC,0)=CLng(CCCJCJC):if CJJJJCJC<>"" then CJJCJCC(CCCCJC,1)=CLng(CJJJJCJC)
if CJJJJCCJ<>"" then CJJCJCC(CCCCJC,2)=CJJJJCCJ
if CJCJCJC<>"" then CJJCJCC(CCCCJC,3)=CJCJCJC
if CJJJJCCC<>"" then CJJCJCC(CCCCJC,4)=CLng(CJJJJCCC)
end if
end if:if CCCCJC>0 then
Application.Lock():Application(CJJCCCC) = CJJCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJC):Call ConnClose:Response.Write CJJJJJJC:Response.End:End Sub:Private Function CCJCJJJ():CCJCJJJ=CCCJCCJ+1:End Function:Private Function CCCJCCJ():dim CJJJCCC:set CJJJCCC=CJJCJC.execute(CCCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCJ & CCCCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJCCJ=CJJJCCC(0):CJJJCCC.Close: Set CJJJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCCCC:CJCJJC=Request.ServerVariables(CCCCJJJ("!p%w0x}u~")):if instr(CJCJJC,CCCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJJCC and not CCCJCJ then Call RedirectMessage(CCCCJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCCCCC=CCJJJJ
elseif instr(CJCJJC,CCCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCJJC,CCCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCCCC=CCJJJJ
elseif instr(CJCJJC,CCCCJJJ("^D49@@="))>0 then
CCCCCC=Request.QueryString(CCCCJJJ("D49@@=")):if not CCJJCCC(CCCCCC) then CCCCCC=Request.QueryString(CCCCJJJ("F"))
if not CCJJCCC(CCCCCC) then CCCCCC=Request.QueryString(CCCCJJJ("D4"))
if not CCJJCCC(CCCCCC) then Call RedirectMessage(CCCCJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCCCCC=csng(CCCCCC)
end if:if CCCCCC=0 then Call RedirectMessage(CCCCJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJCCJ:Call SetConfig:Sub SetConfig():dim CCCCCJ,CJJJCCC:CJCJJC=CCCCJJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCCCC:set CJJJCCC=CJJCJC.execute(CJCJJC):if CJJJCCC.eof then Call RedirectMessage(CCCCJJJ("患@W") & CJCJCJ & CCCCJJJ("X戻@圣@癿@卐@佈@W") & CCCCCC & CCCCJJJ("X朥@批@别@。,"))
ReDim CCCCCJ(61):CCCCCJ(0)=CJJJCCC(CCCCJJJ(";:2@H6:")) & "":CCCCCJ(1)=CJJJCCC(CCCCJJJ("EJA6")):CCCCCJ(2)=CJJJCCC(CCCCJJJ("D>D")):CCCCCJ(3)=CJJJCCC(CCCCJJJ("4FDE@>8C@FA")) & "":CCCCCJ(4)=CJJJCCC(CCCCJJJ("D:5632C0@E96C")) & "":CCCCCJ(5)=IIf(isnull(CJJJCCC(CCCCJJJ("E6DEC6DF=EG:6H"))),0,CJJJCCC(CCCCJJJ("E6DEC6DF=EG:6H"))):CCCCCJ(6)=CJJJCCC(CCCCJJJ("K:IF?E:>6")):CCCCCJ(7)=CJJJCCC(CCCCJJJ("766")):CCCCCJ(8)=CJJJCCC(CCCCJJJ("C6E6DE52J")):CCCCCJ(9)=CJJJCCC(CCCCJJJ("6IA:C652E6")):CCCCCJ(10)=CJJJCCC(CCCCJJJ("E:E=6")):CCCCCJ(11)=CJJJCCC(CCCCJJJ(":?EC@")) & "":CCCCCJ(12)=CJJJCCC(CCCCJJJ("A:4EFC6")) & "":CCCCCJ(13)=CJJJCCC(CCCCJJJ("72>:=J")):CCCCCJ(14)=CJJJCCC(CCCCJJJ("4@AJC:89E")) & "":CCCCCJ(15)=IIf(isnull(CJJJCCC(CCCCJJJ("D6>6DE6C0DE2CE052E6"))),CCCCJJJ("`h__\`\`"),CJJJCCC(CCCCJJJ("D6>6DE6C0DE2CE052E6"))):CCCCCJ(16)=IIf(isnull(CJJJCCC(CCCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJCCC(CCCCJJJ("K:IF?0E:>6D09:89=:89E"))):CCCCCJ(17)=CJJJCCC(CCCCJJJ("4@?E24E")) & "":CCCCCJ(18)=CJJJCCC(CCCCJJJ("D2?5E23=6")):CCCCCJ(19)=CJJJCCC(CCCCJJJ("4C:D:D")):CCCCCJ(20)=CJJJCCC(CCCCJJJ("JJ52E6")):CCCCCJ(21)=CJJJCCC(CCCCJJJ("BB")):CCCCCJ(22)=CJJJCCC(CCCCJJJ("JFJF60D>D0EA=")) & "":CCCCCJ(23)=CJJJCCC(CCCCJJJ("JFJF60E6DE0=3")) & "":CCCCCJ(25)=CJJJCCC(CCCCJJJ("6IA6CE")):CCCCCJ(26)=CJJJCCC(CCCCJJJ(">@5:?7@")):CCCCCJ(27)=CJJJCCC(CCCCJJJ("9@>6A286E@AA:4EFC6")) & "":CCCCCJ(28)=CJJJCCC(CCCCJJJ("4C:D:D=3")):CCCCCJ(29)=IIf(CJJJCCC(CCCCJJJ("4C:D:D@=5")),False,True):CCCCCJ(30)=CJJJCCC(CCCCJJJ("8C@FA8F:52?46")):CCCCCJ(31)=CJJJCCC(CCCCJJJ("3:@7665324<")):CCCCCJ(32)=CJJJCCC(CCCCJJJ("<6JDEC")):CCCCCJ(33)=CJJJCCC(CCCCJJJ("=@8@")) & "":CCCCCJ(34)=CJJJCCC(CCCCJJJ("K:46")):CCCCCJ(35)=IIf(CJJJCCC(CCCCJJJ(":D?6H")),True,False):CCCCCJ(36)=121:CCCCCJ(37)=111:CCCCCJ(38)=160:CCCCCJ(39)=CJJJCCC(CCCCJJJ("8F6DE3@@<")):CCCCCJ(40)=CJJJCCC(CCCCJJJ("75D")):CCCCCJ(42)=CJJJCCC(CCCCJJJ("9@>6=@8:?")):CCCCCJ(43)=CJJJCCC(CCCCJJJ("K:IF?0?6657665324<")):CCCCCJ(44)=CJJJCCC(CCCCJJJ("K:IF?0E:>6D0=:>:E")):CCCCCJ(45)=CJJJCCC(CCCCJJJ("4@>A=6E60:?7@")):CCCCCJ(46)=CJJJCCC(CCCCJJJ("E6DE:?EC@")) & "":CCCCCJ(47)=IIf(isnull(CJJJCCC(CCCCJJJ("JFJF60367@C60E:>6"))),0,CJJJCCC(CCCCJJJ("JFJF60367@C60E:>6"))):CCCCCJ(49)=CJJJCCC(CCCCJJJ("D>D0C646:G6C")):CCCCCJ(50)=CJJJCCC(CCCCJJJ("D>D0D:8?")) & "":CCCCCJ(52)=CJJJCCC(CCCCJJJ("JFJF602CC2?86")):CCCCCJ(53)=IIf(isnull(CJJJCCC(CCCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJCCC(CCCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CCCCCJ(54)=CJJJCCC(CCCCJJJ("9:560=30@FE@7286")):CCCCCJ(55)=CJJJCCC(CCCCJJJ("JFJF60E6DE052JD")):CCCCCJ(56)=CJJJCCC(CCCCJJJ("JFJF60H66<0=:>:E")):CCCCCJ(57)=CJJJCCC(CCCCJJJ("JFJF604964<65")):CCCCCJ(58)=CJJJCCC(CCCCJJJ("K:IF?0?6657665324<0?6IE")):CCCCCJ(59)=CJJJCCC(CCCCJJJ("4964<?6HDEF56?E")):CCCCCJ(60)=CJJJCCC(CCCCJJJ("K:IF?04=@D6052E6")):CJJJCCC.close : set CJJJCCC=nothing:if isNull(CCCCCJ(8)) or CCCCCJ(8)="" then CCCCCJ(8)=0
if isdate(CCCCCJ(9)) then
CCCCCJ(9)=cdate(CCCCCJ(9)):if CCCCCJ(9)<Date then Call RedirectMessage(CCCCJJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCCCCJ(9) & CCCCJJJ("X巭@迂@。,"))
end if:if not CCJJCCC(CCCCCJ(20)) then CCCCCJ(20)=7
select case CCCCCJ(1):case 1,2,16:CCCCCJ(36)=159:case 4,5,6,10,11:CCCCCJ(36)=190:CCCCCJ(37)=178:CCCCCJ(38)=191:case 7,13:CCCCCJ(36)=164:CCCCCJ(37)=178:CCCCCJ(38)=179:end select:CJCJCCJ=CCCCCJ:End Sub:Function CCJCJCC(CJJJCJJJ):dim CCCCCJ(7,1),CCCCJC,CJCJCCC,CJCCJJJ:CJCJCCC=Array(CCCCJJJ("$49@@="),CCCCJJJ("$EF56?E"),CCCCJJJ("s6AE"),CCCCJJJ("vC256"),CCCCJJJ("r=2DD>2E6"),CCCCJJJ("}F>36C"),CCCCJJJ("%62496C"),CCCCJJJ("!2C6?E")):select case CJCJCCJ(1):case 1,2 : CJCCJJJ=Array(CCCCJJJ("孡@栜@"),CCCCJJJ("孡@甚@"),CCCCJJJ("珨@红@"),CCCCJJJ("幯@红@"),CCCCJJJ("吇@孡@"),CCCCJJJ("孡@史@"),CCCCJJJ("敔@布@"),CCCCJJJ("宱@镺@")):case 3,16 : CJCCJJJ=Array(CCCCJJJ("孡@栜@"),CCCCJJJ("孡@甚@"),CCCCJJJ("陝@糶@"),CCCCJJJ("幯@红@"),CCCCJJJ("吇@孡@"),CCCCJJJ("孡@史@"),CCCCJJJ("敔@布@"),CCCCJJJ("宱@镺@")):case 4 : CJCCJJJ=Array(CCCCJJJ("匶@陝@"),CCCCJJJ("杠@论@耀@"),CCCCJJJ("卐@佈@"),CCCCJJJ("幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("匶@甚@"),CCCCJJJ("宱@屙@")):case 5 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("呓@巠@"),CCCCJJJ("郣@闣@"),CCCCJJJ("幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("呓@巠@"),CCCCJJJ("宱@屙@")):case 6 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("杠@论@耀@"),CCCCJJJ("线@刦@"),CCCCJJJ("幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 7 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("宓@兰@"),CCCCJJJ("郣@闣@"),CCCCJJJ("幯@仸@"),CCCCJJJ("戓@叆@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 8 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("杠@论@耀@"),CCCCJJJ("卐@佈@"),CCCCJJJ("兠@聇@幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("酈@偱@")):case 9 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("敔@布@"),CCCCJJJ("卐@佈@"),CCCCJJJ("幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("酈@偱@")):case 10 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("氌@譡@"),CCCCJJJ("郣@闣@"),CCCCJJJ("兠@譡@幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 11 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("內@劜@呓@"),CCCCJJJ("郣@闣@"),CCCCJJJ("幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 12 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("幭@譡@"),CCCCJJJ("卐@佈@"),CCCCJJJ("兠@譡@幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 13 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("孡@呓@"),CCCCJJJ("卐@佈@"),CCCCJJJ("幯@仸@"),CCCCJJJ("戓@叆@"),CCCCJJJ("缑@史@"),CCCCJJJ("敔@呓@"),CCCCJJJ("宱@屙@")):case 14 : CJCCJJJ=Array(CCCCJJJ("月@劜@炴@"),CCCCJJJ("局@氌@"),CCCCJJJ("线@刦@"),CCCCJJJ("幯@仸@"),CCCCJJJ("邶@采@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case 15 : CJCCJJJ=Array(CCCCJJJ("卐@佈@"),CCCCJJJ("盌@独@氌@譡@"),CCCCJJJ("卐@佈@"),CCCCJJJ("兠@譡@幯@仸@"),CCCCJJJ("吇@了@"),CCCCJJJ("缑@史@"),CCCCJJJ("咣@话@布@"),CCCCJJJ("宱@屙@")):case else : CJCCJJJ=CJCJCCC
end select:for CCCCJC=0 to Ubound(CCCCCJ):CCCCCJ(CCCCJC,0)=CJCJCCC(CCCCJC):CCCCCJ(CCCCJC,1)=CJCCJJJ(CCCCJC):next:for CCCCJC=0 to Ubound(CCCCCJ):if CCCCCJ(CCCCJC,0)=CJJJCJJJ then
CCJCJCC=CCCCCJ(CCCCJC,1):exit for
end if:next:End Function::if CJCJCCJ(7)<3 then Call RedirectMessage(CCCCJJJ("糶@绚@揋@礵@M寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Call CheckRight(42):dim CJCCJJC,CJCCJCJ:CJCCJJC=request.QueryString(CCCCJJJ("32E49")):CJCCJCJ=request.QueryString(CCCCJJJ("=3:5")):if not CCJJCCC(CJCCJJC) then Call RedirectMessage(CCCCJJJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
set CJJCCC=CJJCJC.execute(CCCCJJJ("D6=64E ,E@A ,` ,=3[EJA6[8C256[4FDE@>8C@FA[52E6E:>6 ,7C@> ,E6DE032E49 ,H96C6 ,:5l") & CJCCJJC):if CJJCCC.eof then Call RedirectMessage(CCCCJJJ("寴@丈@赲@，,沜@朄@批@别@盳@序@讫@彐@W") & CJCCJJC & CCCCJJJ("X！,"))
dim CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJCCJCC=CJJCCC(0):CJCCCJJ=CJJCCC(1):CJCCCJC=CJJCCC(2):CJCCCCJ=CJJCCC(3):CJCCCCC=CJJCCC(4):dim CJJCJCC:set CJJCJCC=new jtree:CJJCJCC.table=CCCCJJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCCJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCCJJJ("k9E>=m") & vbCrLf):Response.Write(CCCCJJJ("k9625m") & vbCrLf):Response.Write(CCCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCJJJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCJJJ("R4@?E6?E ,L ,96:89Ei ,ba_AIj ,@G6C7=@H\Ji ,2FE@j ,N") & vbCrLf):Response.Write(CCCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJJJ("k^9625m") & vbCrLf):Response.Write(CCCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CCCCJJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,kECm") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m朥@浆@k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm释@衣@：,k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5mkD6=64E ,?2>6lQ=3:5Q ,:5lQ=3:5Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):dim CJJCJJJ,CCCCJC:CJJCJJJ=CCJCCJC:for CCCCJC=0 to ubound(CJJCJJJ):if instr(CCCCJJJ("[") & CJCCJCC & CCCCJJJ("["),CCCCJJJ("[") & CJJCJJJ(CCCCJC,0) & CCCCJJJ("["))>0 then
response.Write CCCCJJJ("k@AE:@? ,G2=F6lV") & CJJCJJJ(CCCCJC,0) & CCCCJJJ("V") & IIf(Cstr(CJJCJJJ(CCCCJC,0)) = CJCCJCJ,CCCCJJJ(" ,D6=64E65"),"") & CCCCJJJ("m\ ,") & CJJCJJJ(CCCCJC,1) & CCCCJJJ("k^@AE:@?m")
end if:next:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ32E49Q ,G2=F6lQ")):Response.Write  CJCCJJC:Response.Write(CCCCJJJ("Qm") & vbCrLf):Response.Write(CCCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJJJ("k^7@C>m") & vbCrLf)::if CCJJCCC(CJCCJCJ) then
Response.Write(vbCrLf):Response.Write(CCCCJJJ("k5:G ,:5lQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCCCJJJ(" ,kECm") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9mk^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m")):Response.Write  CCJCJCC(CCCCJJJ("}F>36C")):Response.Write(CCCCJJJ("k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m")):Response.Write  CCJCJCC(CCCCJJJ("s6AE")):Response.Write(CCCCJJJ("k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE9m田@孋@邩@箬@k^E9m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):dim CCJJJJJ,CCJJJJC,CCJJJCJ:if CJCCCJC>0 then CCJJJJC=CCCCJJJ(" ,2?5 ,8C256l") & CJCCCJC
if CJCCCCJ>0 then CCJJJCJ=CCCCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCCCJ
CCJJJJJ=CCCCJJJ("RE6DE0") & CJCCJJC:CJCJJC=CCCCJJJ(":7 ,?@E ,WD6=64E ,@3;64E0:5WV%6>A53]]") & CCJJJJJ & CCCCJJJ("VXX ,:D ,?F== ,5C@A ,E23=6 ,") & CCJJJJJ  & CCCCJJJ("jD6E ,?@4@F?E ,@?") & CCCCJJJ("jD6=64E ,5:DE:?4E ,>6>36C ,:?E@ ,") & CCJJJJJ & CCCCJJJ(" ,7C@> ,G0E6DE ,H96C6 ,=3l") & CJCCJCJ & CCCCJJJ(" ,2?5 ,G2=:5l` ,2?5 ,52E6E:>6mlV") & CJCCCCC & CCCCJJJ("V ,2?5 ,") & CJJCJCC.sql_GetChildren(CJCCCJJ) & CCJJJJC & CCJJJCJ  & CCCCJJJ("jD6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[EJA6?2>6[>@3:=6[6>2:= ,7C@> ,WD6=64E ,>]Y[E]>6>36C ,7C@> ,G0>6>36C ,> ,=67E ,;@:? ,") & CCJJJJJ & CCCCJJJ(" ,E ,@? ,>]:5lE]>6>36C ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld ,2?5 ,") & CJJCJCC.sql_GetChildren(CJCCCJJ) & CCJJJJC & CCJJJCJ & CCCCJJJ("X ,2D ,?@E6DE ,H96C6 ,?@E6DE]>6>36C ,:D ,?F== ,@C56C ,3J ,:5")
set CJJCCC=CJJCJC.execute(CJCJJC):CCCCJC=1:while not CJJCCC.eof:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,kECm") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CCCCJC:Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(1):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(2):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(3):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(4):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(5):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,kE5m")):Response.Write  CJJCCC(6):Response.Write(CCCCJJJ("k^E5m") & vbCrLf):Response.Write(CCCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCCJJJ(" ,")):CJJCCC.movenext:CCCCJC=CCCCJC+1:wend:Response.Write(vbCrLf):Response.Write(CCCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCJJJ("k^5:Gm") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCC=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:set CCJCJCC=nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:CJJCCC.Close:Set CJJCCC=Nothing:CJJCJC.Close:Set CJJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJJJ(ByVal CCCJCCC)
Dim CCJJJCC, CCCCJC, CJJJCJJ
CCCJCCC = Replace(CCCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCJC = 1 To Len(CCCJCCC)
If CCCCJC <> CJJJCJJ Then
CCJJJCC = AscW(Mid(CCCJCCC, CCCCJC, 1))
If CCJJJCC >= 33 And CCJJJCC <= 79 Then
CCCCJJJ = CCCCJJJ & Chr(CCJJJCC + 47)
ElseIf CCJJJCC >= 80 And CCJJJCC <= 126 Then
CCCCJJJ = CCCCJJJ & Chr(CCJJJCC - 47)
Else
CJJJCJJ = CCCCJC + 1
If Mid(CCCJCCC, CJJJCJJ, 1) = Chr(64) Then CCCCJJJ = CCCCJJJ & ChrW(CCJJJCC + 5) Else CCCCJJJ = CCCCJJJ & Mid(CCCJCCC, CCCCJC, 1)
End If
End If
Next
End Function
%>