<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJJJJJCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJJJJJCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CJJJJJCJ("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CJJJJJCJ("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") & CCJCJJ & CJJJJJCJ("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CJJJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CJJJJJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if:Sub CheckRight(CJCJJJC):dim CJJJCCJ,CJJJCCC:if CCJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJCC(CJCJJJC) then
Call RedirectMessage(CJJJJJCJ("朾@陋@W") & CJCJJJC & CJJJJJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJCC(CJCJJJC):dim CJJJCCJ,CJJJCCC:CJJJCCC=split(CJCJJJC,CJJJJJCJ("[")):CCJCJCC=False:for CJJJCCJ=0 to ubound(CJJJCCC):If Mid(CCJCJC,CJJJCCC(CJJJCCJ),1)="1" then
CCJCJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CJJJJJCJ("D49@@="))):if isnumeric(CJJCJJJ) then
response.Redirect CJJJJJCJ("^>^G2?E^R^D49@@=^") & CJJCJJJ & CJJJJJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJCJ("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCJ,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCJC,CJJJJJCJ("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJJCCJ=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC<DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJCJJC(0)):CCJCJJ=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJJJCC):dim CJJJCCJ,CJJCJCC,CJJCCJJ:for CJJJCCJ=1 to len(CJJJJJCC):CJJCJCC=mid(CJJJJJCC,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CCCCCCC & CJJJJJCJ("]") & CJJJJJCC & CJJJJJCJ("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCJ("!$*|t|qt#"))=CJJCCJJ:End Sub:::Function IIf(CJJJJCJJ, CJJJJCJC, CJJJJCCJ):if isnull(CJJJJCJJ) or isempty(CJJJJCJJ) then
IIf = CJJJJCCJ
elseif CJJJJCJJ Then
IIf = CJJJJCJC
Else
IIf = CJJJJCCJ
end if:End Function:Const CCJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJJCJ("FE7\g"):dim CJJJCCJ,CJJCJCC,CJJCCJC:if isarray(str) then
on error resume next:CJJJCCJ=ubound(str,2):CJJCCJC=err.number:err.clear:on error goto 0:if CJJCCJC<>0 then
for CJJJCCJ=0 to ubound(str):if CJJJCCJ>0 then response.Write CJJJJJCJ("k3C ,^m")
response.Write CJJJCCJ & CJJJJJCJ("i ,") & str(CJJJCCJ):next
else
response.Write CJJJJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCJ=0 to ubound(str,2):response.Write CJJJJJCJ("kE9 ,2=:8?lV=67EVm") & CJJJCCJ & CJJJJJCJ("k^E9m")
next:response.Write CJJJJJCJ("k^ECm"):for CJJJCCJ=0 to ubound(str):response.Write CJJJJJCJ("kECmkE9m") & CJJJCCJ & CJJJJJCJ("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJJJJJCJ("kE5m") & str(CJJJCCJ,CJJCJCC) & CJJJJJCJ("k^E5m"):next:response.Write CJJJJJCJ("k^ECm"):next:response.Write CJJJJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCCC,CJJJCJJJ):dim CJJCJJC:CJJCJJC=CJJJJCCC & CJJJJJCJ("l") & CJJJCJJJ & CJJJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCJ("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CCJCCJC(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then
CCJCCJC=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJJJJJCJ("/-5ZS"):CJJCCCJ.IgnoreCase = True:CCJCCJC = CJJCCCJ.test(CJJCCJC):set CJJCCCJ=nothing
end if:End Function:Function CCJCCCJ(CJJJCJJC):dim CJJCCCC,CJCJJJJ:CJJCCCC=CJJJJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJJC & CJJJJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJJ=CJCCCJ.execute(CJJCCCC):CCJCCCJ = CJCJJJJ(0):if isnull(CCJCCCJ) then CCJCCCJ=1
CJCJJJJ.close : set CJCJJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJJC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CCCJJCJ.Close : Set CCCJJCJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCJ("!$*0|6DD286"),server.URLEncode(CJJJCJCJ)):Response.Redirect CJJJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::Sub StringDown(CJJJCJCC, str):Call ConnClose:Response.Charset="utf-8":Response.Buffer = True:Response.Clear:if right(CJJJCJCC,4)=CJJJJJCJ("]4DG") then Response.BinaryWrite ChrB(&HEF) & ChrB(&HBB) & ChrB(&HBF)
Response.AddHeader CJJJJJCJ("r@?E6?E\s:DA@D:E:@?"), CJJJJJCJ("2EE249>6?Ej ,7:=6?2>6l") & CJJJCJCC:Response.ContentType = CJJJJJCJ("2AA=:42E:@?^@4E6E\DEC62>"):Response.Write str:Response.End:End Sub::::::::::::::::Function CCCJJCC(Table):Dim CJCJJJJ, CJCJJJC, str(), CJJJCCJ,CJJCJCC,CJCJJCC:CJCJJCC=UCase(Table):If Not IsArray(Application(CJJJJJCJ("!$*0") & CJCJJCC)) Then
CCJJCJ=CJJJJJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJJJCJ(". ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=server.createobject(CJJJJJCJ("25@53]C64@C5D6E")):CJCJJJJ.open CCJJCJ,CJCCCJ,1:CJCJJJC = CJCJJJJ.RecordCount:ReDim str(CJCJJJC, 2):If CJCJJJC > 0 Then
For CJJJCCJ = 1 To CJCJJJC:for CJJCJCC=0 to 2:str(CJJJCCJ, CJJCJCC) = CJCJJJJ(CJJCJCC):next:CJCJJJJ.MoveNext:Next
End If:CJCJJJJ.Close: Set CJCJJJJ = Nothing:Application(CJJJJJCJ("!$*0") & CJCJJCC) = str
End If:CCCJJCC = Application(CJJJJJCJ("!$*0") & CJCJJCC):End Function::Function CCCJCJJ(CJJJCJJC,CJJJCCJJ,CCCCCCC):Dim str, CJJJCCJ, CJCJCJJ:CJCJCJJ = CCCJJCC(CJJJCJJC):For CJJJCCJ = 1 To UBound(CJCJCJJ):if Cstr(CJCJCJJ(CJJJCCJ,2))=Cstr(CJJJCCJJ) and CStr(CJCJCJJ(CJJJCCJ, 0)) = CCCCCCC & "" then
str=CJCJCJJ(CJJJCCJ,1):exit for
end if:Next:if str="" then str=CJJJJJCJ(",朥@矠@.")
CCCJCJJ=str:End Function:::::::::::::::Function CCCJCJC(CJJJCCJC,str):dim CJJJCCJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJJCCJC,CJCCJJJ,CJJCCJJ:CJJCCJJ=ucase(CJJJCCJC):CJCCJJJ=str:if CJCCJJJ="" then
CJCCJJJ=request.cookies(CJJCCJJ):if CJCCJJJ="" then
CCCJCJC=""
else
CJCCJJJ=strreverse(CJCCJJJ):CJCJCJC=len(CJCCJJJ):for CJJJCCJ=1 to CJCJCJC-1 step 2:CJCJCCC=mid(CJCCJJJ,CJJJCCJ,1):CJJCCJC=mid(CJCCJJJ,CJJJCCJ+1,1):CJCJCCJ=CJCJCCJ & CJJCCJC & CJCJCCC:next:CJCJCCJ=replace(CJCJCCJ,CJJJJJCJ("L0N"),CJJJJJCJ(" ,")):CJCJCCJ=replace(CJCJCCJ,CJJJJJCJ("LIN"),CJJJJJCJ("Y")):CJCJCCJ=replace(CJCJCCJ,CJJJJJCJ("L:N"),CJJJJJCJ("^")):CCCJCJC=trim(CJCJCCJ)
end if
else
if Len(CJCCJJJ) Mod 2=1 then CJCCJJJ=CJCCJJJ & CJJJJJCJ(" ,")
CJCCJJJ=replace(CJCCJJJ,CJJJJJCJ(" ,"),CJJJJJCJ("L0N")):CJCCJJJ=replace(CJCCJJJ,CJJJJJCJ("Y"),CJJJJJCJ("LIN")):CJCCJJJ=replace(CJCCJJJ,CJJJJJCJ("^"),CJJJJJCJ("L:N")):CJCJCJC=len(CJCCJJJ):for CJJJCCJ=1 to CJCJCJC-1 step 2:CJCJCCC=mid(CJCCJJJ,CJJJCCJ,1):CJJCCJC=mid(CJCCJJJ,CJJJCCJ+1,1):CJCJCCJ=CJCJCCJ & CJJCCJC & CJCJCCC:next:CJCJCCJ=Trim(strreverse(CJCJCCJ)):CCCJCJC=CJCJCCJ:response.cookies(CJJCCJJ)=CJCJCCJ
end if:End Function::Sub ClearCache(CJJJCCCJ):Application.Contents.Remove CJJJCCCJ
End Sub::Class jTree:Private CCJJCJ, CJCCJJC, CJCCJCJ, CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:Private Sub Class_Initialize():CJCCJCJ = 0:CJCCJCC = 0:CJCCCCC=10:End Sub:Public Property Let Table(CJJJCCCC):if CJJJCCCC="" then Call RedirectMessage(CJJJJJCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCCCJJ=CJJJCCCC:CJCCCJC=CJJJJJCJ("!$*0") & UCase(CJCCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCJJ:End Property:::Private Sub GetTreeArray():Dim CJJJCCJ, CJJCJCC, CCJJJJJ,RecordCount:CJCCJJC = Application(CJCCCJC):If Not IsArray(CJCCJJC) Then
CCJJCJ = CJJJJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCJJ:if CJCCCCJ<>"" then CCJJCJ=CCJJCJ & CJJJJJCJ(" ,H96C6 ,") & CJCCCCJ
set CCJJJJJ=CJCCCJ.execute(CCJJCJ):RecordCount=CCJJJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJJCJ("柠@话@W") & CJCCCJJ & CJJJJJCJ("^") & CJCCCCJ & CJJJJJCJ("X沜@朄@绎@林@敫@捩@"))
CJCCJCC=RecordCount+CJCCCCC:ReDim CJCCJJC(CJCCJCC, 4):CCJJCJ = CJJJJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJCJ(" ,H:E9 ,W?@=@4<X"):if CJCCCCJ<>"" then CCJJCJ=CCJJCJ & CJJJJJCJ(" ,H96C6 ,") & CJCCCCJ
CCJJCJ=CCJJCJ & CJJJJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJJJJ=CJCCCJ.execute(CCJJCJ):For CJJJCCJ = 1 To RecordCount:For CJJCJCC = 0 To 4:CJCCJJC(CJJJCCJ, CJJCJCC) = CCJJJJJ(CJJCJCC):if IsNull(CJCCJJC(CJJJCCJ,4)) then CJCCJJC(CJJJCCJ,4)=0
If CJCCJJC(CJJJCCJ,2)="" then CJCCJJC(CJJJCCJ,2)=CJJJJJCJ(",穵@.")
Next:CCJJJJJ.MoveNext:Next:CCJJJJJ.Close: Set CCJJJJJ = Nothing:for CJJJCCJ=CJCCJCC-(CJCCCCC-1) to CJCCJCC:CJCCJJC(CJJJCCJ,0)=CJJJCCJ:next:Application.Lock():Application(CJCCCJC) = CJCCJJC:Application.UnLock()
else
CJCCJCC=Ubound(CJCCJJC)
End If:End Sub:::::Private Function CCCJCCC(CCCCCCC):dim CJJJCCJ,CCJJJCJ:CCCJCCC=0:CCJJJCJ=CStr(CCCCCCC):if CCJJJCJ<>"0" then
for CJJJCCJ=1 to CJCCJCC:If CStr(CJCCJJC(CJJJCCJ, 0))=CCJJJCJ Then
CCCJCCC = CJJJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCCCJJJ(CCCCCCC):if Cstr(CCCCCCC)="0" then
CCCCJJJ=CJJJJJCJ("栴@")
else
Dim CJJJCCJ,CCJJJJJ:CJJJCCJ=CCCJCCC(CCCCCCC):if CJJJCCJ>0 then
CCCCJJJ=CJCCJJC(CJJJCCJ,2):if CCCCJJJ="" then
set CCJJJJJ=CJCCCJ.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CCJJJJJ.eof then Call RedirectMessage(CJJJJJCJ("xs（,") & CCCCCCC & CJJJJJCJ("）,朥@批@别@"))
CCCCJJJ=CCJJJJJ(1):Call UpdateCache(CCCCCCC,CCJJJJJ(0),CCCCJJJ,CCJJJJJ(2),CCJJJJJ(3)):CCJJJJJ.Close: Set CCJJJJJ = Nothing
end if
else
set CCJJJJJ=CJCCCJ.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CCJJJJJ.eof then Call RedirectMessage(CJJJJJCJ("xs（,") & CCCCCCC & CJJJJJCJ("）,朥@批@别@"))
CCCCJJJ=CCJJJJJ(1):Call UpdateCache(CCCCCCC,CCJJJJJ(0),CCCCJJJ,CCJJJJJ(2),CCJJJJJ(3)):CCJJJJJ.Close: Set CCJJJJJ = Nothing
end if
end if:End Function:::Public Function CCCCJJC(CCCCCCC):Dim CJJJCCJ,CCJJJCC:CJJJCCJ=CCCJCCC(CCCCCCC):if CJJJCCJ=0 then
CCJJJCC=CCCCJCJ(CCCCCCC)
else
CCJJJCC=CJCCJJC(CJJJCCJ,3):if isnull(CCJJJCC) or CCJJJCC="" then
CCJJJCC=CCCCJCJ(CCCCCCC)
elseif Mid(CCJJJCC,instrrev(CCJJJCC,CJJJJJCJ("["))+1)<>CStr(CCCCCCC) then
CCJJJCC=CCCCJCJ(CCCCCCC)
elseif Left(CCJJJCC,1)=CJJJJJCJ("[") then
CCJJJCC=CCCCJCJ(CCCCCCC)
end if
end if:CCCCJJC=CCJJJCC:End Function:Private Function CCCCJCJ(CCCCCCC):dim CCJJJCJ:CCJJJCJ=CStr(CCCCCCC):if CCJJJCJ="0" then
CCCCJCJ=""
else
dim CCJJJJJ:set CCJJJJJ=CJCCCJ.execute(CJJJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJCJ(" ,H96C6 ,:5l") & CCCCCCC):if CCJJJJJ.eof then
Call UpdateCache(CCCCCCC,"","","",""):Call RedirectMessage(CJJJJJCJ("顴@盩@（,xs：,") & CCCCCCC & CJJJJJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJJJJ(0)=0 then
CCCCJCJ="0," & CCCCCCC
else
CCCCJCJ=CCCCJJC(CCJJJJJ(0)) & CJJJJJCJ("[") & CCCCCCC
end if:if CCJJJJJ(2)<>CCCCJCJ then
CJCCCJ.execute CJJJJJCJ("FA52E6 ,") & CJCCCJJ & CJJJJJCJ(" ,D6E ,A2E9lV") & CCCCJCJ & CJJJJJCJ("V ,H96C6 ,:5l") & CCCCCCC
else
CCCCJCJ=CCJJJJJ(2)
end if
end if:Call UpdateCache(CCCCCCC,CCJJJJJ(0),CCJJJJJ(1),CCCCJCJ,CCJJJJJ(3)):CCJJJJJ.Close: Set CCJJJJJ = Nothing
end if:End Function::Public Function CCCCJCC(CCCCCCC):CCCCJCC = Mid(CCCCJJC(CCCCCCC), 3):End Function:Public Function CCCCCJJ(CCCCCCC):Dim CJJJCCJ, CJJCJCC, CCJJCJJ,Str, CCJJJCC, CJCJJJC, CJJJCCC():CCJJJCC = CCCCJCC(CCCCCCC):CCJJJCC = Split(CCJJJCC, CJJJJJCJ("[")):for CJJJCCJ=0 to Ubound(CCJJJCC):CCJJCJJ=CCJJJCC(CJJJCCJ):str=str & CJJJJJCJ("M") & CCJJCJJ & CJJJJJCJ("M") & CCCCJJJ(CCJJCJJ):next:if str<>"" then str=Mid(str,2)
CCCCCJJ=str:End Function::::::::::::Public Function GetPositionStr_From(CCCCCCC, CCCCCCJ):if isnull(CCCCCCC) or isnull(CCCCCCJ) then
GetPositionStr_From=CJJJJJCJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJJJCCJ, CJJJCCC, CJCJJJC, CCJJCJC:CCCCCCJ = CStr(CCCCCCJ):If CCCCCCJ = "0" or CCCCCCJ = CStr(CCCCCCC) Then
Str = CCCCJJJ(CCCCCCC)
Else
CJJJCCC = Split(CCCCCJJ(CCCCCCC), CJJJJJCJ("M")):CJCJJJC = UBound(CJJJCCC):CCJJCJC = False:For CJJJCCJ = 0 To CJCJJJC Step 2:If CJJJCCC(CJJJCCJ) = CCCCCCJ And Not CCJJCJC Then CCJJCJC = True
If CCJJCJC Then
If Str <> "" Then Str = Str & CJJJJJCJ("→,")
Str = Str & CJJJCCC(CJJJCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJJCJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJC
End Sub:Public Sub UpdateCache(CCCCCCC,CCJJCJJ,CJJCJJJJ,CCJJJCC,CJJCJJJC):dim CJJJCCJ,CJJCJCC:CCCCCCC=CLng(CCCCCCC):CJJJCCJ=CCCJCCC(CCCCCCC):if CCJJCJJ="" and CJJCJJJJ="" and CCJJJCC="" and CJJCJJJC="" then
if CJJJCCJ>0 then
for CJJCJCC=1 to 4:CJCCJJC(CJJJCCJ,CJJCJCC)=Null:next
end if
else
if CJJJCCJ=0 then
for CJJCJCC=1 to CJCCJCC:if CJCCJJC(CJJCJCC,1) & ""="" then
CJJJCCJ=CJJCJCC:exit for
end if:next
end if:if CJJJCCJ=0 then
Call ClearCache
else
CJCCJJC(CJJJCCJ,0)=CLng(CCCCCCC):if CCJJCJJ<>"" then CJCCJJC(CJJJCCJ,1)=CLng(CCJJCJJ)
if CJJCJJJJ<>"" then CJCCJJC(CJJJCCJ,2)=CJJCJJJJ
if CCJJJCC<>"" then CJCCJJC(CJJJCCJ,3)=CCJJJCC
if CJJCJJJC<>"" then CJCCJJC(CJJJCCJ,4)=CLng(CJJCJJJC)
end if
end if:if CJJJCCJ>0 then
Application.Lock():Application(CJCCCJC) = CJCCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJCJ):Call ConnClose:Response.Write CJJJCJCJ:Response.End:End Sub:Private Function CCJCCCJ():CCJCCCJ=CJJJJJJJ+1:End Function:Private Function CJJJJJJJ():dim CJCJJJJ:set CJCJJJJ=CJCCCJ.execute(CJJJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCJJ & CJJJJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJJJJ=CJCJJJJ(0):CJCJJJJ.Close: Set CJCJJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCJJJ:CCJJCJ=Request.ServerVariables(CJJJJJCJ("!p%w0x}u~")):if instr(CCJJCJ,CJJJJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CJJJJJCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJJJJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CJJJJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJJJJJCJ("^D49@@="))>0 then
CJJCJJJ=Request.QueryString(CJJJJJCJ("D49@@=")):if not CCJCCJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJJJJJCJ("F"))
if not CCJCCJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJJJJJCJ("D4"))
if not CCJCCJC(CJJCJJJ) then Call RedirectMessage(CJJJJJCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJJJ=csng(CJJCJJJ)
end if:if CJJCJJJ=0 then Call RedirectMessage(CJJJJJCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJJCCJ:Call SetConfig:Sub SetConfig():dim CJJJCCC,CJCJJJJ:CCJJCJ=CJJJJJCJ("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") & CJJCJJJ:set CJCJJJJ=CJCCCJ.execute(CCJJCJ):if CJCJJJJ.eof then Call RedirectMessage(CJJJJJCJ("患@W") & CCJJCC & CJJJJJCJ("X戻@圣@癿@卐@佈@W") & CJJCJJJ & CJJJJJCJ("X朥@批@别@。,"))
ReDim CJJJCCC(61):CJJJCCC(0)=CJCJJJJ(CJJJJJCJ(";:2@H6:")) & "":CJJJCCC(1)=CJCJJJJ(CJJJJJCJ("EJA6")):CJJJCCC(2)=CJCJJJJ(CJJJJJCJ("D>D")):CJJJCCC(3)=CJCJJJJ(CJJJJJCJ("4FDE@>8C@FA")) & "":CJJJCCC(4)=CJCJJJJ(CJJJJJCJ("D:5632C0@E96C")) & "":CJJJCCC(5)=IIf(isnull(CJCJJJJ(CJJJJJCJ("E6DEC6DF=EG:6H"))),0,CJCJJJJ(CJJJJJCJ("E6DEC6DF=EG:6H"))):CJJJCCC(6)=CJCJJJJ(CJJJJJCJ("K:IF?E:>6")):CJJJCCC(7)=CJCJJJJ(CJJJJJCJ("766")):CJJJCCC(8)=CJCJJJJ(CJJJJJCJ("C6E6DE52J")):CJJJCCC(9)=CJCJJJJ(CJJJJJCJ("6IA:C652E6")):CJJJCCC(10)=CJCJJJJ(CJJJJJCJ("E:E=6")):CJJJCCC(11)=CJCJJJJ(CJJJJJCJ(":?EC@")) & "":CJJJCCC(12)=CJCJJJJ(CJJJJJCJ("A:4EFC6")) & "":CJJJCCC(13)=CJCJJJJ(CJJJJJCJ("72>:=J")):CJJJCCC(14)=CJCJJJJ(CJJJJJCJ("4@AJC:89E")) & "":CJJJCCC(15)=IIf(isnull(CJCJJJJ(CJJJJJCJ("D6>6DE6C0DE2CE052E6"))),CJJJJJCJ("`h__\`\`"),CJCJJJJ(CJJJJJCJ("D6>6DE6C0DE2CE052E6"))):CJJJCCC(16)=IIf(isnull(CJCJJJJ(CJJJJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJJ(CJJJJJCJ("K:IF?0E:>6D09:89=:89E"))):CJJJCCC(17)=CJCJJJJ(CJJJJJCJ("4@?E24E")) & "":CJJJCCC(18)=CJCJJJJ(CJJJJJCJ("D2?5E23=6")):CJJJCCC(19)=CJCJJJJ(CJJJJJCJ("4C:D:D")):CJJJCCC(20)=CJCJJJJ(CJJJJJCJ("JJ52E6")):CJJJCCC(21)=CJCJJJJ(CJJJJJCJ("BB")):CJJJCCC(22)=CJCJJJJ(CJJJJJCJ("JFJF60D>D0EA=")) & "":CJJJCCC(23)=CJCJJJJ(CJJJJJCJ("JFJF60E6DE0=3")) & "":CJJJCCC(25)=CJCJJJJ(CJJJJJCJ("6IA6CE")):CJJJCCC(26)=CJCJJJJ(CJJJJJCJ(">@5:?7@")):CJJJCCC(27)=CJCJJJJ(CJJJJJCJ("9@>6A286E@AA:4EFC6")) & "":CJJJCCC(28)=CJCJJJJ(CJJJJJCJ("4C:D:D=3")):CJJJCCC(29)=IIf(CJCJJJJ(CJJJJJCJ("4C:D:D@=5")),False,True):CJJJCCC(30)=CJCJJJJ(CJJJJJCJ("8C@FA8F:52?46")):CJJJCCC(31)=CJCJJJJ(CJJJJJCJ("3:@7665324<")):CJJJCCC(32)=CJCJJJJ(CJJJJJCJ("<6JDEC")):CJJJCCC(33)=CJCJJJJ(CJJJJJCJ("=@8@")) & "":CJJJCCC(34)=CJCJJJJ(CJJJJJCJ("K:46")):CJJJCCC(35)=IIf(CJCJJJJ(CJJJJJCJ(":D?6H")),True,False):CJJJCCC(36)=121:CJJJCCC(37)=111:CJJJCCC(38)=160:CJJJCCC(39)=CJCJJJJ(CJJJJJCJ("8F6DE3@@<")):CJJJCCC(40)=CJCJJJJ(CJJJJJCJ("75D")):CJJJCCC(42)=CJCJJJJ(CJJJJJCJ("9@>6=@8:?")):CJJJCCC(43)=CJCJJJJ(CJJJJJCJ("K:IF?0?6657665324<")):CJJJCCC(44)=CJCJJJJ(CJJJJJCJ("K:IF?0E:>6D0=:>:E")):CJJJCCC(45)=CJCJJJJ(CJJJJJCJ("4@>A=6E60:?7@")):CJJJCCC(46)=CJCJJJJ(CJJJJJCJ("E6DE:?EC@")) & "":CJJJCCC(47)=IIf(isnull(CJCJJJJ(CJJJJJCJ("JFJF60367@C60E:>6"))),0,CJCJJJJ(CJJJJJCJ("JFJF60367@C60E:>6"))):CJJJCCC(49)=CJCJJJJ(CJJJJJCJ("D>D0C646:G6C")):CJJJCCC(50)=CJCJJJJ(CJJJJJCJ("D>D0D:8?")) & "":CJJJCCC(52)=CJCJJJJ(CJJJJJCJ("JFJF602CC2?86")):CJJJCCC(53)=IIf(isnull(CJCJJJJ(CJJJJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJJ(CJJJJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCC(54)=CJCJJJJ(CJJJJJCJ("9:560=30@FE@7286")):CJJJCCC(55)=CJCJJJJ(CJJJJJCJ("JFJF60E6DE052JD")):CJJJCCC(56)=CJCJJJJ(CJJJJJCJ("JFJF60H66<0=:>:E")):CJJJCCC(57)=CJCJJJJ(CJJJJJCJ("JFJF604964<65")):CJJJCCC(58)=CJCJJJJ(CJJJJJCJ("K:IF?0?6657665324<0?6IE")):CJJJCCC(59)=CJCJJJJ(CJJJJJCJ("4964<?6HDEF56?E")):CJJJCCC(60)=CJCJJJJ(CJJJJJCJ("K:IF?04=@D6052E6")):CJCJJJJ.close : set CJCJJJJ=nothing:if isNull(CJJJCCC(8)) or CJJJCCC(8)="" then CJJJCCC(8)=0
if isdate(CJJJCCC(9)) then
CJJJCCC(9)=cdate(CJJJCCC(9)):if CJJJCCC(9)<Date then Call RedirectMessage(CJJJJJCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJJCCC(9) & CJJJJJCJ("X巭@迂@。,"))
end if:if not CCJCCJC(CJJJCCC(20)) then CJJJCCC(20)=7
select case CJJJCCC(1):case 1,2,16:CJJJCCC(36)=159:case 4,5,6,10,11:CJJJCCC(36)=190:CJJJCCC(37)=178:CJJJCCC(38)=191:case 7,13:CJJJCCC(36)=164:CJJJCCC(37)=178:CJJJCCC(38)=179:end select:CCJJCCJ=CJJJCCC:End Sub:Function CCCJJJC(CJJJCCJC):dim CJJJCCC(7,1),CJJJCCJ,CCJJCCC,CCJCJJJ:CCJJCCC=Array(CJJJJJCJ("$49@@="),CJJJJJCJ("$EF56?E"),CJJJJJCJ("s6AE"),CJJJJJCJ("vC256"),CJJJJJCJ("r=2DD>2E6"),CJJJJJCJ("}F>36C"),CJJJJJCJ("%62496C"),CJJJJJCJ("!2C6?E")):select case CCJJCCJ(1):case 1,2 : CCJCJJJ=Array(CJJJJJCJ("孡@栜@"),CJJJJJCJ("孡@甚@"),CJJJJJCJ("珨@红@"),CJJJJJCJ("幯@红@"),CJJJJJCJ("吇@孡@"),CJJJJJCJ("孡@史@"),CJJJJJCJ("敔@布@"),CJJJJJCJ("宱@镺@")):case 3,16 : CCJCJJJ=Array(CJJJJJCJ("孡@栜@"),CJJJJJCJ("孡@甚@"),CJJJJJCJ("陝@糶@"),CJJJJJCJ("幯@红@"),CJJJJJCJ("吇@孡@"),CJJJJJCJ("孡@史@"),CJJJJJCJ("敔@布@"),CJJJJJCJ("宱@镺@")):case 4 : CCJCJJJ=Array(CJJJJJCJ("匶@陝@"),CJJJJJCJ("杠@论@耀@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("匶@甚@"),CJJJJJCJ("宱@屙@")):case 5 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("呓@巠@"),CJJJJJCJ("郣@闣@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("呓@巠@"),CJJJJJCJ("宱@屙@")):case 6 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("杠@论@耀@"),CJJJJJCJ("线@刦@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 7 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("宓@兰@"),CJJJJJCJ("郣@闣@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("戓@叆@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 8 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("杠@论@耀@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("兠@聇@幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("酈@偱@")):case 9 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("敔@布@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("酈@偱@")):case 10 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("氌@譡@"),CJJJJJCJ("郣@闣@"),CJJJJJCJ("兠@譡@幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 11 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("內@劜@呓@"),CJJJJJCJ("郣@闣@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 12 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("幭@譡@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("兠@譡@幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 13 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("孡@呓@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("戓@叆@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("敔@呓@"),CJJJJJCJ("宱@屙@")):case 14 : CCJCJJJ=Array(CJJJJJCJ("月@劜@炴@"),CJJJJJCJ("局@氌@"),CJJJJJCJ("线@刦@"),CJJJJJCJ("幯@仸@"),CJJJJJCJ("邶@采@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case 15 : CCJCJJJ=Array(CJJJJJCJ("卐@佈@"),CJJJJJCJ("盌@独@氌@譡@"),CJJJJJCJ("卐@佈@"),CJJJJJCJ("兠@譡@幯@仸@"),CJJJJJCJ("吇@了@"),CJJJJJCJ("缑@史@"),CJJJJJCJ("咣@话@布@"),CJJJJJCJ("宱@屙@")):case else : CCJCJJJ=CCJJCCC
end select:for CJJJCCJ=0 to Ubound(CJJJCCC):CJJJCCC(CJJJCCJ,0)=CCJJCCC(CJJJCCJ):CJJJCCC(CJJJCCJ,1)=CCJCJJJ(CJJJCCJ):next:for CJJJCCJ=0 to Ubound(CJJJCCC):if CJJJCCC(CJJJCCJ,0)=CJJJCCJC then
CCCJJJC=CJJJCCC(CJJJCCJ,1):exit for
end if:next:End Function::Call CheckRight(96):if CCJJCCJ(7)<3 then Call RedirectMessage(CJJJJJCJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
CCJJCJ=CCCJCJC(CJJJJJCJ("$""{"),""):if CCJJCJ="" then Call RedirectMessage(CJJJJJCJ("寴@丈@赲@，,伕@诘@叓@释@W$""{X丝@夬@"))
dim CJCCJJC:set CJCCJJC=new jtree:CJCCJJC.table=CJJJJJCJ(">6>36C0EJA6"):CCJJCJ=CJJJJJCJ("D6=64E ,?F>36C[C62=?2>6[>6>36C0EJA6[8C256[4FDE@>8C@FA[4@?DF=E2?E?2>6[52E6E:>6[EJA6[25G:46 ,7C@> ,G0:?E6CG:6H ,") & CCJJCJ & CJJJJJCJ(" ,@C56C ,3J ,:5"):set CCJJJJ=CJCCCJ.execute(CCJJCJ):dim CJCCJJJ,str,CJJJCCJ:CJCCJJJ = CJJJJJCJ("["):str=CCCJJJC(CJJJJJCJ("}F>36C")) & CJJJJJCJ("[姎@合@[") & CCCJJJC(CJJJJJCJ("s6AE")) & CJJJJJCJ("[") & CCCJJJC(CJJJJJCJ("vC256")) & CJJJJJCJ("[") & CCJJCCJ(3) & CJJJJJCJ("[咣@话@布@[旱@闯@[刁@籶@[壿@琁@愊@覼@") & vbcrlf:while not CCJJJJ.eof:str=str & CCJJJJ(0) & CJCCJJJ & CCJJJJ(1):str=str & CJCCJJJ & CJCCJJC.GetPositionStr_From(CCJJJJ(2),CJJCJJJ) & CJCCJJJ & CCCJCJJ(CJJJJJCJ(">6>36C08C256"),CJJCJJJ,CCJJJJ(3)) & CJCCJJJ & CCCJCJJ(CJJJJJCJ(">6>36C04FDE@>8C@FA"),CJJCJJJ,CCJJJJ(4)):str=str & CJCCJJJ & CCJJJJ(5) & CJCCJJJ & CCJJJJ(6) & CJCCJJJ & CCJJJJ(7) & CJCCJJJ & CCJJJJ(8) & vbcrlf:CCJJJJ.movenext:wend:Call StringDown(CJJJJJCJ("x?E6CG:6H]4DG"),str)::On Error Resume Next:set CJCCJJC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCJ(ByVal CJJJJJJC)
Dim CCJCJJC, CJJJCCJ, CJJCCJC
CJJJJJJC = Replace(CJJJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCJ = 1 To Len(CJJJJJJC)
If CJJJCCJ <> CJJCCJC Then
CCJCJJC = AscW(Mid(CJJJJJJC, CJJJCCJ, 1))
If CCJCJJC >= 33 And CCJCJJC <= 79 Then
CJJJJJCJ = CJJJJJCJ & Chr(CCJCJJC + 47)
ElseIf CCJCJJC >= 80 And CCJCJJC <= 126 Then
CJJJJJCJ = CJJJJJCJ & Chr(CCJCJJC - 47)
Else
CJJCCJC = CJJJCCJ + 1
If Mid(CJJJJJJC, CJJCCJC, 1) = Chr(64) Then CJJJJJCJ = CJJJJJCJ & ChrW(CCJCJJC + 5) Else CJJJJJCJ = CJJJJJCJ & Mid(CJJJJJJC, CJJJCCJ, 1)
End If
End If
Next
End Function
%>