<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Buffer=False
Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CCCCJJC("ps~sq]r@??64E:@?")):CJJJJC.open Application(CCCCJJC("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC:::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 CJCCCCC="^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 CJJCCJ,CJJCCC,CJCJJJ:if isarray(str) then
on error resume next:CJJCCJ=ubound(str,2):CJCJJJ=err.number:err.clear:on error goto 0:if CJCJJJ<>0 then
for CJJCCJ=0 to ubound(str):if CJJCCJ>0 then response.Write CCCCJJC("k3C ,^m")
response.Write CJJCCJ & CCCCJJC("i ,") & str(CJJCCJ):next
else
response.Write CCCCJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCJ=0 to ubound(str,2):response.Write CCCCJJC("kE9 ,2=:8?lV=67EVm") & CJJCCJ & CCCCJJC("k^E9m")
next:response.Write CCCCJJC("k^ECm"):for CJJCCJ=0 to ubound(str):response.Write CCCCJJC("kECmkE9m") & CJJCCJ & CCCCJJC("k^E9m"):for CJJCCC=0 to ubound(str,2):response.Write CCCCJJC("kE5m") & str(CJJCCJ,CJJCCC) & CCCCJJC("k^E5m"):next:response.Write CCCCJJC("k^ECm"):next:response.Write CCCCJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCCCJC,CCCCCCJ):dim CJCJJC:CJCJJC=CCCCCJC & CCCCJJC("l") & CCCCCCJ & CCCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJJC("$6E\r@@<:6"),CJCJJC):End Sub:::::::Function CCJJJJC(CJCJJJ):if isnull(CJCJJJ) or trim(CJCJJJ)="" or not isnumeric(CJCJJJ) then
CCJJJJC=false
else
Dim CJCJCJ:Set CJCJCJ = New RegExp:CJCJCJ.Pattern = CCCCJJC("/-5ZS"):CJCJCJ.IgnoreCase = True:CCJJJJC = CJCJCJ.test(CJCJJJ):set CJCJCJ=nothing
end if:End Function:Function CCJJJCJ(CCCCCCC):dim CJCJCC,CJCCJJ:CJCJCC=CCCCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCCC & CCCCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJ=CJJJJC.execute(CJCJCC):CCJJJCJ = CJCCJJ(0):if isnull(CCJJJCJ) then CCJJJCJ=1
CJCCJJ.close : set CJCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:CJCCJJ.close : set CJCCJJ=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CCJJCCJ.Close : Set CCJJCCJ = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJJC("!$*0|6DD286"),server.URLEncode(CJJJJJJJ)):Response.Redirect CCCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCJJCCC(Table):Dim CJCCJJ, CJCCJC, str(), CJJCCJ,CJJCCC,CJCCCC:CJCCCC=UCase(Table):If Not IsArray(Application(CCCCJJC("!$*0") & CJCCCC)) Then
CJJCJC=CCCCJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCCJJC(". ,@C56C ,3J ,D@CE[:5"):set CJCCJJ=server.createobject(CCCCJJC("25@53]C64@C5D6E")):CJCCJJ.open CJJCJC,CJJJJC,1:CJCCJC = CJCCJJ.RecordCount:ReDim str(CJCCJC, 2):If CJCCJC > 0 Then
For CJJCCJ = 1 To CJCCJC:for CJJCCC=0 to 2:str(CJJCCJ, CJJCCC) = CJCCJJ(CJJCCC):next:CJCCJJ.MoveNext:Next
End If:CJCCJJ.Close: Set CJCCJJ = Nothing:Application(CCCCJJC("!$*0") & CJCCCC) = str
End If:CCJJCCC = Application(CCCCJJC("!$*0") & CJCCCC):End Function::Function CCJCJJJ(CCCCCCC,CJJJJJJC,CCCJCJJ):Dim str, CJJCCJ, CCJJJJ:CCJJJJ = CCJJCCC(CCCCCCC):For CJJCCJ = 1 To UBound(CCJJJJ):if Cstr(CCJJJJ(CJJCCJ,2))=Cstr(CJJJJJJC) and CStr(CCJJJJ(CJJCCJ, 0)) = CCCJCJJ & "" then
str=CCJJJJ(CJJCCJ,1):exit for
end if:Next:if str="" then str=CCCCJJC(",朥@矠@.")
CCJCJJJ=str:End Function::::::::::::::::Function CCJCJJC(str,CJJJJJCJ):if isnull(str) or str="" or CJJJJJCJ="" then
CCJCJJC=False:exit function
end if:Dim CJCJCJ:Set CJCJCJ = New RegExp:CJCJCJ.Pattern = CJJJJJCJ:CJCJCJ.IgnoreCase = True:CCJCJJC = CJCJCJ.test(str):set CJCJCJ=nothing:End Function:Sub ClearCache(CJJJJJCC):Application.Contents.Remove CJJJJJCC
End Sub::Dim CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC:CJJJJCC=Trim(Request.Cookies(CCCCJJC("!$*|t|qt#"))):if CJJJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJJC>0 then
CJJCJC=CCCCJJC("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") & CCJJCJ & CCCCJJC("V ,2?5 ,:5l") & CCJJJC
set CJJJCC=CJJJJC.execute(CJJCJC):If CJJJCC.EOF Then
Call ClearMemberCookie
Else
CCJJCC=CJJJCC(2) & "":CCJCJJ=CJJJCC(3):CCJCJC=CJJJCC(5):CCJCCJ=CJJJCC(6):CCJCCC=CJJJCC(9):CCCJJJ=CJJJCC(15):CCCJCJ=CJJJCC(0):CJJJJJC=CJJJCC(1):CJJJJJJ=CJJJCC(11) & "":CCCJCC=CJJJCC(10) & "":CCCJJC=CJJJCC(12):CCCCJJ=CJJJCC(14):CCCCJC=CJJJCC(13):CCCCCJ=CJJJCC(7) & "":CCCCCC=CJJJCC(4):CJJJJCJ=CJJJCC(8):if isnull(CCCJJJ) then CCCJJJ=0
if isnull(CCJCCC) or CCJCCC=0 then CCJCCC=CCJCJJ
if isnull(CCCCCC) then CCCCCC=0
if isnull(CCJCJC) then CCJCJC=0
if instr(CCCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCJ)>0 then Call RedirectMessage(CCCCJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJJC,CCJJCJ)
End IF
end if:Sub CheckRight(CJCCJC):dim CJJCCJ,CJJJCJJ:if CCJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJCJ(CJCCJC) then
Call RedirectMessage(CCCCJJC("朾@陋@W") & CJCCJC & CCCCJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJCJ(CJCCJC):dim CJJCCJ,CJJJCJJ:CJJJCJJ=split(CJCCJC,CCCCJJC("[")):CCJCJCJ=False:for CJJCCJ=0 to ubound(CJJJCJJ):If Mid(CCJJCC,CJJJCJJ(CJJCCJ),1)="1" then
CCJCJCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCJC:CJJJCJC=trim(request.QueryString(CCCCJJC("D49@@="))):if isnumeric(CJJJCJC) then
response.Redirect CCCCJJC("^>^G2?E^R^D49@@=^") & CJJJCJC & CCCCJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCJJC("!$*|t|qt#"))="":CCJJJC=0:CCJCCJ=0:CCJJCJ=Empty:CCJCJC=0:CCCJJJ=0:CCJCCC=0:CCJCJJ=0:CCCJCJ=False:CJJJJJC=False:CJJJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJC,CJJJCCJ,CJJCCJ,CJJCCC,CJJJCCC:CJCJJC=split(CJJJJCC,CCCCJJC("]")):if ubound(CJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJC(0)) or len(CJCJJC(1))<>32 or len(CJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJCCJ=CJCJJC(1):for CJJCCJ=1 to len(CJJJCCJ):CJJCCC=mid(CJJJCCJ,CJJCCJ,1):if isnumeric(CJJCCC) then CJJJCCC=CJJJCCC & CJJCCC
if len(CJJJCCC)=7 then exit for
next:CJJJCCJ=CJCJJC(2):if CJJJCCC<>mid(CJJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJCCC=mid(CJJJCCJ,18,10)/2:if CJJCCC<DateDiff(CCCCJJC("D"), CCCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJJC=Clng(CJCJJC(0)):CCJJCJ=CJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJJ,CJJJJCJJ):dim CJJCCJ,CJJCCC,CJJJCCC:for CJJCCJ=1 to len(CJJJJCJJ):CJJCCC=mid(CJJJJCJJ,CJJCCJ,1):if isnumeric(CJJCCC) then CJJJCCC=CJJJCCC & CJJCCC
if len(CJJJCCC)=7 then exit for
next:CJJJCCC=CCCJCJJ & CCCCJJC("]") & CJJJJCJJ & CCCCJJC("]") & Fix(10000*(Rnd+1)) & CJJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCCJJC("D"), CCCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJJC("!$*|t|qt#"))=CJJJCCC:End Sub::Class jTree:Private CJJCJC, CJJCJJJ, CJJCJJC, CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Private Sub Class_Initialize():CJJCJJC = 0:CJJCJCJ = 0:CJJCCCJ=10:End Sub:Public Property Let Table(CJJJJCJC):if CJJJJCJC="" then Call RedirectMessage(CCCCJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCJCC=CJJJJCJC:CJJCCJJ=CCCCJJC("!$*0") & UCase(CJJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCC:End Property:::Private Sub GetTreeArray():Dim CJJCCJ, CJJCCC, CJJCCCC,RecordCount:CJJCJJJ = Application(CJJCCJJ):If Not IsArray(CJJCJJJ) Then
CJJCJC = CCCCJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCC:if CJJCCJC<>"" then CJJCJC=CJJCJC & CCCCJJC(" ,H96C6 ,") & CJJCCJC
set CJJCCCC=CJJJJC.execute(CJJCJC):RecordCount=CJJCCCC(0):if RecordCount=0 then Call RedirectMessage(CCCCJJC("柠@话@W") & CJJCJCC & CCCCJJC("^") & CJJCCJC & CCCCJJC("X沜@朄@绎@林@敫@捩@"))
CJJCJCJ=RecordCount+CJJCCCJ:ReDim CJJCJJJ(CJJCJCJ, 4):CJJCJC = CCCCJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CCCCJJC(" ,H:E9 ,W?@=@4<X"):if CJJCCJC<>"" then CJJCJC=CJJCJC & CCCCJJC(" ,H96C6 ,") & CJJCCJC
CJJCJC=CJJCJC & CCCCJJC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCC=CJJJJC.execute(CJJCJC):For CJJCCJ = 1 To RecordCount:For CJJCCC = 0 To 4:CJJCJJJ(CJJCCJ, CJJCCC) = CJJCCCC(CJJCCC):if IsNull(CJJCJJJ(CJJCCJ,4)) then CJJCJJJ(CJJCCJ,4)=0
If CJJCJJJ(CJJCCJ,2)="" then CJJCJJJ(CJJCCJ,2)=CCCCJJC(",穵@.")
Next:CJJCCCC.MoveNext:Next:CJJCCCC.Close: Set CJJCCCC = Nothing:for CJJCCJ=CJJCJCJ-(CJJCCCJ-1) to CJJCJCJ:CJJCJJJ(CJJCCJ,0)=CJJCCJ:next:Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
else
CJJCJCJ=Ubound(CJJCJJJ)
End If:End Sub:::::Private Function CCJCCJJ(CCCJCJJ):dim CJJCCJ,CJCJJJC:CCJCCJJ=0:CJCJJJC=CStr(CCCJCJJ):if CJCJJJC<>"0" then
for CJJCCJ=1 to CJJCJCJ:If CStr(CJJCJJJ(CJJCCJ, 0))=CJCJJJC Then
CCJCCJJ = CJJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCJCCJC(CCCJCJJ):if Cstr(CCCJCJJ)="0" then
CCJCCJC=CCCCJJC("栴@")
else
Dim CJJCCJ,CJJCCCC:CJJCCJ=CCJCCJJ(CCCJCJJ):if CJJCCJ>0 then
CCJCCJC=CJJCJJJ(CJJCCJ,2):if CCJCCJC="" then
set CJJCCCC=CJJJJC.execute(CCCCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CCCCJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCCC.eof then Call RedirectMessage(CCCCJJC("xs（,") & CCCJCJJ & CCCCJJC("）,朥@批@别@"))
CCJCCJC=CJJCCCC(1):Call UpdateCache(CCCJCJJ,CJJCCCC(0),CCJCCJC,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
else
set CJJCCCC=CJJJJC.execute(CCCCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CCCCJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCCC.eof then Call RedirectMessage(CCCCJJC("xs（,") & CCCJCJJ & CCCCJJC("）,朥@批@别@"))
CCJCCJC=CJJCCCC(1):Call UpdateCache(CCCJCJJ,CJJCCCC(0),CCJCCJC,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
end if:End Function:::Public Function CCJCCCJ(CCCJCJJ):Dim CJJCCJ,CJCJJCJ:CJJCCJ=CCJCCJJ(CCCJCJJ):if CJJCCJ=0 then
CJCJJCJ=CCJCCCC(CCCJCJJ)
else
CJCJJCJ=CJJCJJJ(CJJCCJ,3):if isnull(CJCJJCJ) or CJCJJCJ="" then
CJCJJCJ=CCJCCCC(CCCJCJJ)
elseif Mid(CJCJJCJ,instrrev(CJCJJCJ,CCCCJJC("["))+1)<>CStr(CCCJCJJ) then
CJCJJCJ=CCJCCCC(CCCJCJJ)
elseif Left(CJCJJCJ,1)=CCCCJJC("[") then
CJCJJCJ=CCJCCCC(CCCJCJJ)
end if
end if:CCJCCCJ=CJCJJCJ:End Function:Private Function CCJCCCC(CCCJCJJ):dim CJCJJJC:CJCJJJC=CStr(CCCJCJJ):if CJCJJJC="0" then
CCJCCCC=""
else
dim CJJCCCC:set CJJCCCC=CJJJJC.execute(CCCCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CCCCJJC(" ,H96C6 ,:5l") & CCCJCJJ):if CJJCCCC.eof then
Call UpdateCache(CCCJCJJ,"","","",""):Call RedirectMessage(CCCCJJC("顴@盩@（,xs：,") & CCCJCJJ & CCCCJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJCCCC(0)=0 then
CCJCCCC="0," & CCCJCJJ
else
CCJCCCC=CCJCCCJ(CJJCCCC(0)) & CCCCJJC("[") & CCCJCJJ
end if:if CJJCCCC(2)<>CCJCCCC then
CJJJJC.execute CCCCJJC("FA52E6 ,") & CJJCJCC & CCCCJJC(" ,D6E ,A2E9lV") & CCJCCCC & CCCCJJC("V ,H96C6 ,:5l") & CCCJCJJ
else
CCJCCCC=CJJCCCC(2)
end if
end if:Call UpdateCache(CCCJCJJ,CJJCCCC(0),CJJCCCC(1),CCJCCCC,CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if:End Function::Public Function CCCJJJJ(CCCJCJJ):CCCJJJJ = Mid(CCJCCCJ(CCCJCJJ), 3):End Function:Public Function CCCJJJC(CCCJCJJ):Dim CJJCCJ, CJJCCC, CJCJJCC,Str, CJCJJCJ, CJCCJC, CJJJCJJ():CJCJJCJ = CCCJJJJ(CCCJCJJ):CJCJJCJ = Split(CJCJJCJ, CCCCJJC("[")):for CJJCCJ=0 to Ubound(CJCJJCJ):CJCJJCC=CJCJJCJ(CJJCCJ):str=str & CCCCJJC("M") & CJCJJCC & CCCCJJC("M") & CCJCCJC(CJCJJCC):next:if str<>"" then str=Mid(str,2)
CCCJJJC=str:End Function::::::::::::Public Function GetPositionStr_From(CCCJCJJ, CCCJJCC):if isnull(CCCJCJJ) or isnull(CCCJJCC) then
GetPositionStr_From=CCCCJJC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJJCCJ, CJJJCJJ, CJCCJC, CJCJCJJ:CCCJJCC = CStr(CCCJJCC):If CCCJJCC = "0" or CCCJJCC = CStr(CCCJCJJ) Then
Str = CCJCCJC(CCCJCJJ)
Else
CJJJCJJ = Split(CCCJJJC(CCCJCJJ), CCCCJJC("M")):CJCCJC = UBound(CJJJCJJ):CJCJCJJ = False:For CJJCCJ = 0 To CJCCJC Step 2:If CJJJCJJ(CJJCCJ) = CCCJJCC And Not CJCJCJJ Then CJCJCJJ = True
If CJCJCJJ Then
If Str <> "" Then Str = Str & CCCCJJC("→,")
Str = Str & CJJJCJJ(CJJCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CCCCJJC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJJ
End Sub:Public Sub UpdateCache(CCCJCJJ,CJCJJCC,CJJJJCCJ,CJCJJCJ,CJJJJCCC):dim CJJCCJ,CJJCCC:CCCJCJJ=CLng(CCCJCJJ):CJJCCJ=CCJCCJJ(CCCJCJJ):if CJCJJCC="" and CJJJJCCJ="" and CJCJJCJ="" and CJJJJCCC="" then
if CJJCCJ>0 then
for CJJCCC=1 to 4:CJJCJJJ(CJJCCJ,CJJCCC)=Null:next
end if
else
if CJJCCJ=0 then
for CJJCCC=1 to CJJCJCJ:if CJJCJJJ(CJJCCC,1) & ""="" then
CJJCCJ=CJJCCC:exit for
end if:next
end if:if CJJCCJ=0 then
Call ClearCache
else
CJJCJJJ(CJJCCJ,0)=CLng(CCCJCJJ):if CJCJJCC<>"" then CJJCJJJ(CJJCCJ,1)=CLng(CJCJJCC)
if CJJJJCCJ<>"" then CJJCJJJ(CJJCCJ,2)=CJJJJCCJ
if CJCJJCJ<>"" then CJJCJJJ(CJJCCJ,3)=CJCJJCJ
if CJJJJCCC<>"" then CJJCJJJ(CJJCCJ,4)=CLng(CJJJJCCC)
end if
end if:if CJJCCJ>0 then
Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJJJ):Call ConnClose:Response.Write CJJJJJJJ:Response.End:End Sub:Private Function CCJJJCJ():CCJJJCJ=CCCJCJC+1:End Function:Private Function CCCJCJC():dim CJCCJJ:set CJCCJJ=CJJJJC.execute(CCCCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCC & CCCCJJC(" ,@C56C ,3J ,:5 ,56D4")):CCCJCJC=CJCCJJ(0):CJCCJJ.Close: Set CJCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJJCJC:CJJCJC=Request.ServerVariables(CCCCJJC("!p%w0x}u~")):if instr(CJJCJC,CCCCJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCJCJ and not CJJJJJC then Call RedirectMessage(CCCCJJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJJCJC=CCJCCC
elseif instr(CJJCJC,CCCCJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJC,CCCCJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCJC=CCJCCC
elseif instr(CJJCJC,CCCCJJC("^D49@@="))>0 then
CJJJCJC=Request.QueryString(CCCCJJC("D49@@=")):if not CCJJJJC(CJJJCJC) then CJJJCJC=Request.QueryString(CCCCJJC("F"))
if not CCJJJJC(CJJJCJC) then CJJJCJC=Request.QueryString(CCCCJJC("D4"))
if not CCJJJJC(CJJJCJC) then Call RedirectMessage(CCCCJJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJJCJC=csng(CJJJCJC)
end if:if CJJJCJC=0 then Call RedirectMessage(CCCCJJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJCJC:Call SetConfig:Sub SetConfig():dim CJJJCJJ,CJCCJJ:CJJCJC=CCCCJJC("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") & CJJJCJC:set CJCCJJ=CJJJJC.execute(CJJCJC):if CJCCJJ.eof then Call RedirectMessage(CCCCJJC("患@W") & CCJJJC & CCCCJJC("X戻@圣@癿@卐@佈@W") & CJJJCJC & CCCCJJC("X朥@批@别@。,"))
ReDim CJJJCJJ(61):CJJJCJJ(0)=CJCCJJ(CCCCJJC(";:2@H6:")) & "":CJJJCJJ(1)=CJCCJJ(CCCCJJC("EJA6")):CJJJCJJ(2)=CJCCJJ(CCCCJJC("D>D")):CJJJCJJ(3)=CJCCJJ(CCCCJJC("4FDE@>8C@FA")) & "":CJJJCJJ(4)=CJCCJJ(CCCCJJC("D:5632C0@E96C")) & "":CJJJCJJ(5)=IIf(isnull(CJCCJJ(CCCCJJC("E6DEC6DF=EG:6H"))),0,CJCCJJ(CCCCJJC("E6DEC6DF=EG:6H"))):CJJJCJJ(6)=CJCCJJ(CCCCJJC("K:IF?E:>6")):CJJJCJJ(7)=CJCCJJ(CCCCJJC("766")):CJJJCJJ(8)=CJCCJJ(CCCCJJC("C6E6DE52J")):CJJJCJJ(9)=CJCCJJ(CCCCJJC("6IA:C652E6")):CJJJCJJ(10)=CJCCJJ(CCCCJJC("E:E=6")):CJJJCJJ(11)=CJCCJJ(CCCCJJC(":?EC@")) & "":CJJJCJJ(12)=CJCCJJ(CCCCJJC("A:4EFC6")) & "":CJJJCJJ(13)=CJCCJJ(CCCCJJC("72>:=J")):CJJJCJJ(14)=CJCCJJ(CCCCJJC("4@AJC:89E")) & "":CJJJCJJ(15)=IIf(isnull(CJCCJJ(CCCCJJC("D6>6DE6C0DE2CE052E6"))),CCCCJJC("`h__\`\`"),CJCCJJ(CCCCJJC("D6>6DE6C0DE2CE052E6"))):CJJJCJJ(16)=IIf(isnull(CJCCJJ(CCCCJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJ(CCCCJJC("K:IF?0E:>6D09:89=:89E"))):CJJJCJJ(17)=CJCCJJ(CCCCJJC("4@?E24E")) & "":CJJJCJJ(18)=CJCCJJ(CCCCJJC("D2?5E23=6")):CJJJCJJ(19)=CJCCJJ(CCCCJJC("4C:D:D")):CJJJCJJ(20)=CJCCJJ(CCCCJJC("JJ52E6")):CJJJCJJ(21)=CJCCJJ(CCCCJJC("BB")):CJJJCJJ(22)=CJCCJJ(CCCCJJC("JFJF60D>D0EA=")) & "":CJJJCJJ(23)=CJCCJJ(CCCCJJC("JFJF60E6DE0=3")) & "":CJJJCJJ(25)=CJCCJJ(CCCCJJC("6IA6CE")):CJJJCJJ(26)=CJCCJJ(CCCCJJC(">@5:?7@")):CJJJCJJ(27)=CJCCJJ(CCCCJJC("9@>6A286E@AA:4EFC6")) & "":CJJJCJJ(28)=CJCCJJ(CCCCJJC("4C:D:D=3")):CJJJCJJ(29)=IIf(CJCCJJ(CCCCJJC("4C:D:D@=5")),False,True):CJJJCJJ(30)=CJCCJJ(CCCCJJC("8C@FA8F:52?46")):CJJJCJJ(31)=CJCCJJ(CCCCJJC("3:@7665324<")):CJJJCJJ(32)=CJCCJJ(CCCCJJC("<6JDEC")):CJJJCJJ(33)=CJCCJJ(CCCCJJC("=@8@")) & "":CJJJCJJ(34)=CJCCJJ(CCCCJJC("K:46")):CJJJCJJ(35)=IIf(CJCCJJ(CCCCJJC(":D?6H")),True,False):CJJJCJJ(36)=121:CJJJCJJ(37)=111:CJJJCJJ(38)=160:CJJJCJJ(39)=CJCCJJ(CCCCJJC("8F6DE3@@<")):CJJJCJJ(40)=CJCCJJ(CCCCJJC("75D")):CJJJCJJ(42)=CJCCJJ(CCCCJJC("9@>6=@8:?")):CJJJCJJ(43)=CJCCJJ(CCCCJJC("K:IF?0?6657665324<")):CJJJCJJ(44)=CJCCJJ(CCCCJJC("K:IF?0E:>6D0=:>:E")):CJJJCJJ(45)=CJCCJJ(CCCCJJC("4@>A=6E60:?7@")):CJJJCJJ(46)=CJCCJJ(CCCCJJC("E6DE:?EC@")) & "":CJJJCJJ(47)=IIf(isnull(CJCCJJ(CCCCJJC("JFJF60367@C60E:>6"))),0,CJCCJJ(CCCCJJC("JFJF60367@C60E:>6"))):CJJJCJJ(49)=CJCCJJ(CCCCJJC("D>D0C646:G6C")):CJJJCJJ(50)=CJCCJJ(CCCCJJC("D>D0D:8?")) & "":CJJJCJJ(52)=CJCCJJ(CCCCJJC("JFJF602CC2?86")):CJJJCJJ(53)=IIf(isnull(CJCCJJ(CCCCJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJ(CCCCJJC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCJJ(54)=CJCCJJ(CCCCJJC("9:560=30@FE@7286")):CJJJCJJ(55)=CJCCJJ(CCCCJJC("JFJF60E6DE052JD")):CJJJCJJ(56)=CJCCJJ(CCCCJJC("JFJF60H66<0=:>:E")):CJJJCJJ(57)=CJCCJJ(CCCCJJC("JFJF604964<65")):CJJJCJJ(58)=CJCCJJ(CCCCJJC("K:IF?0?6657665324<0?6IE")):CJJJCJJ(59)=CJCCJJ(CCCCJJC("4964<?6HDEF56?E")):CJJJCJJ(60)=CJCCJJ(CCCCJJC("K:IF?04=@D6052E6")):CJCCJJ.close : set CJCCJJ=nothing:if isNull(CJJJCJJ(8)) or CJJJCJJ(8)="" then CJJJCJJ(8)=0
if isdate(CJJJCJJ(9)) then
CJJJCJJ(9)=cdate(CJJJCJJ(9)):if CJJJCJJ(9)<Date then Call RedirectMessage(CCCCJJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJJCJJ(9) & CCCCJJC("X巭@迂@。,"))
end if:if not CCJJJJC(CJJJCJJ(20)) then CJJJCJJ(20)=7
select case CJJJCJJ(1):case 1,2,16:CJJJCJJ(36)=159:case 4,5,6,10,11:CJJJCJJ(36)=190:CJJJCJJ(37)=178:CJJJCJJ(38)=191:case 7,13:CJJJCJJ(36)=164:CJJJCJJ(37)=178:CJJJCJJ(38)=179:end select:CJCJCJC=CJJJCJJ:End Sub:Function CCJJCJC(CJJJCJJJ):dim CJJJCJJ(7,1),CJJCCJ,CJCJCCJ,CJCJCCC:CJCJCCJ=Array(CCCCJJC("$49@@="),CCCCJJC("$EF56?E"),CCCCJJC("s6AE"),CCCCJJC("vC256"),CCCCJJC("r=2DD>2E6"),CCCCJJC("}F>36C"),CCCCJJC("%62496C"),CCCCJJC("!2C6?E")):select case CJCJCJC(1):case 1,2 : CJCJCCC=Array(CCCCJJC("孡@栜@"),CCCCJJC("孡@甚@"),CCCCJJC("珨@红@"),CCCCJJC("幯@红@"),CCCCJJC("吇@孡@"),CCCCJJC("孡@史@"),CCCCJJC("敔@布@"),CCCCJJC("宱@镺@")):case 3,16 : CJCJCCC=Array(CCCCJJC("孡@栜@"),CCCCJJC("孡@甚@"),CCCCJJC("陝@糶@"),CCCCJJC("幯@红@"),CCCCJJC("吇@孡@"),CCCCJJC("孡@史@"),CCCCJJC("敔@布@"),CCCCJJC("宱@镺@")):case 4 : CJCJCCC=Array(CCCCJJC("匶@陝@"),CCCCJJC("杠@论@耀@"),CCCCJJC("卐@佈@"),CCCCJJC("幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("匶@甚@"),CCCCJJC("宱@屙@")):case 5 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("呓@巠@"),CCCCJJC("郣@闣@"),CCCCJJC("幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("呓@巠@"),CCCCJJC("宱@屙@")):case 6 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("杠@论@耀@"),CCCCJJC("线@刦@"),CCCCJJC("幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 7 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("宓@兰@"),CCCCJJC("郣@闣@"),CCCCJJC("幯@仸@"),CCCCJJC("戓@叆@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 8 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("杠@论@耀@"),CCCCJJC("卐@佈@"),CCCCJJC("兠@聇@幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("酈@偱@")):case 9 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("敔@布@"),CCCCJJC("卐@佈@"),CCCCJJC("幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("酈@偱@")):case 10 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("氌@譡@"),CCCCJJC("郣@闣@"),CCCCJJC("兠@譡@幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 11 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("內@劜@呓@"),CCCCJJC("郣@闣@"),CCCCJJC("幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 12 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("幭@譡@"),CCCCJJC("卐@佈@"),CCCCJJC("兠@譡@幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 13 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("孡@呓@"),CCCCJJC("卐@佈@"),CCCCJJC("幯@仸@"),CCCCJJC("戓@叆@"),CCCCJJC("缑@史@"),CCCCJJC("敔@呓@"),CCCCJJC("宱@屙@")):case 14 : CJCJCCC=Array(CCCCJJC("月@劜@炴@"),CCCCJJC("局@氌@"),CCCCJJC("线@刦@"),CCCCJJC("幯@仸@"),CCCCJJC("邶@采@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case 15 : CJCJCCC=Array(CCCCJJC("卐@佈@"),CCCCJJC("盌@独@氌@譡@"),CCCCJJC("卐@佈@"),CCCCJJC("兠@譡@幯@仸@"),CCCCJJC("吇@了@"),CCCCJJC("缑@史@"),CCCCJJC("咣@话@布@"),CCCCJJC("宱@屙@")):case else : CJCJCCC=CJCJCCJ
end select:for CJJCCJ=0 to Ubound(CJJJCJJ):CJJJCJJ(CJJCCJ,0)=CJCJCCJ(CJJCCJ):CJJJCJJ(CJJCCJ,1)=CJCJCCC(CJJCCJ):next:for CJJCCJ=0 to Ubound(CJJJCJJ):if CJJJCJJ(CJJCCJ,0)=CJJJCJJJ then
CCJJCJC=CJJJCJJ(CJJCCJ,1):exit for
end if:next:End Function::Call CheckRight(79)::dim CJJCCJ,CJCCJJJ,CJCCJJC:CJCCJJC=Request.QueryString(CCCCJJC(":5=:DE")):if CJCCJJC="" then CJCCJJC=Request.Form(CCCCJJC(":5=:DE"))
if not CCJCJJC(CJCCJJC,CCCCJJC("/W-5Z[XY-5ZS")) then Call RedirectMessage(CCCCJJC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@。,"))
CJJCJC=CCCCJJC("D6=64E ,=3?2>649[?F>36C[C62=?2>6[D6I?2>6[E6DE286[>6>36CEJA6[8C256[52E6E:>6[D4@C6056E2:=[492CE[6IA=2:?[25G:46[E62496C[2?DH6C[=3[=3?2>66?[D4@C60E[D4@C60C2H[4FDE@>8C@FA[>@3:=6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X"):CJJCJC=CJJCJC & CCCCJJC(" ,H96C6 ,:5 ,:? ,W") & CJCCJJC & CCCCJJC("X ,@C56C ,3J ,52E6E:>6"):set CJJJCC=CJJJCJ.execute(CJJCJC):if CJJJCC.eof then Call RedirectMessage(CCCCJJC("寴@丈@赲@，,患@襼@柠@眆@癿@绎@林@丈@孓@圣@。,"))
dim CJJCJJJ:set CJJCJJJ=new jtree:CJJCJJJ.table=CCCCJJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCJJC("k9625m") & vbCrLf):Response.Write(CCCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCJJC("kE:E=6m访@浆@抠@呅@k^E:E=6m") & vbCrLf):Response.Write(CCCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^DE2E]4DDQm") & vbCrLf):Response.Write(CCCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CCCCJJC("3@5J ,L ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,`d_Tj ,N") & vbCrLf):Response.Write(CCCCJJC("E5[ ,E9 ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CCCCJJC("9` ,L ,7@?E\D:K6i ,acAIj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______j ,>2C8:?\3@EE@>i ,_AIj ,A255:?8i ,dAI ,_j ,N") & vbCrLf):Response.Write(CCCCJJC("9a ,L ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R______j ,7@?E\D:K6i ,`eAIj ,N") & vbCrLf):Response.Write(CCCCJJC("]6?8=:D9 ,L ,7@?Ei ,3@=5 ,`cAI ,Qr@FC:6C ,}6HQ[ ,r@FC:6C[ ,>@?@DA246j ,N") & vbCrLf):Response.Write(CCCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CCCCJJC("9` ,L ,>2C8:?\E@Ai ,a__AIj ,N") & vbCrLf):Response.Write(CCCCJJC("]A2863C62< ,L ,A286\3C62<\367@C6i ,2=H2JDj ,N") & vbCrLf):Response.Write(CCCCJJC("RAC:?E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCJJC("]:?7@ ,L ,>2C8:?\E@Ai ,`__AIj ,N") & vbCrLf):Response.Write(CCCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CCCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJJC("k^9625m") & vbCrLf):Response.Write(CCCCJJC("k3@5Jm") & vbCrLf):Response.Write(CCCCJJC("k5:G ,:5lQAC:?EQm") & vbCrLf):Response.Write(CCCCJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ廻@姆@扎@卫@Q ,:5lQ3E?\AC:?EQm") & vbCrLf):Response.Write(CCCCJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ孓@丵@(@C5斂@桞@Q ,:5lQ3E?\H@C5Qm") & vbCrLf):Response.Write(CCCCJJC("k^5:Gm") & vbCrLf):Response.Write(CCCCJJC("k2CE:4=6m") & vbCrLf):Response.Write(CCCCJJC(" ,")):CJJCCJ=0:while not CJJJCC.eof:if CJJCCJ>0 then response.Write CCCCJJC("k5:G ,4=2DDlVA2863C62<Vmk^5:Gm")
Response.Write(vbCrLf):Response.Write(CCCCJJC(" ,k9`m")):Response.Write  CJJJCC(0) & CCCCJJC("浆@访@抠@呅@"):Response.Write(CCCCJJC("k^9`m") & vbCrLf):Response.Write(CCCCJJC(" ,k5:G ,4=2DDlQ6?8=:D9Qm#6A@CE ,@7 ,!DJ49@=@8:42= ,%6DEk^5:Gm") & vbCrLf):Response.Write(CCCCJJC(" ,k5:G ,4=2DDlQ:?7@Qm") & vbCrLf):Response.Write(CCCCJJC(" ,kF=m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m")):Response.Write CCJJCJC(CCCCJJC("}F>36C")):Response.Write(CCCCJJC("：,")):Response.Write  CJJJCC(1):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m姎@合@：,")):Response.Write  CJJJCC(2):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m怢@刦@：,")):Response.Write  CJJJCC(3):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m幯@齿@：,")):Response.Write  CJJJCC(4):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m")):Response.Write  CCJJCJC(CCCCJJC("s6AE")):Response.Write(CCCCJJC("：,")):Response.Write  CJJCJJJ.GetPositionStr_From(CJJJCC(5),CCJCCC):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,")):If CJCJCJC(7)=3 Then
Response.Write(vbCrLf):Response.Write(CCCCJJC(" ,k=:m")):Response.Write  CCJJCJC(CCCCJJC("vC256")):Response.Write(CCCCJJC("：,")):Response.Write  CCJCJJJ(CCCCJJC(">6>36C08C256"),CJJJCJC,CJJJCC(6)):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,"))
End If::If CJCJCJC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CCCCJJC(" ,k=:m")):Response.Write  CJCJCJC(3):Response.Write(CCCCJJC("：,")):Response.Write  CCJCJJJ(CCCCJJC(">6>36C04FDE@>8C@FA"),CJJJCJC,CJJJCC(18)):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCJJC(" ,k=:m扆@朵@：,")):Response.Write  CJJJCC(19):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k=:m无@朚@：,")):Response.Write  formatdatetime(CJJJCC(7),1):Response.Write(CCCCJJC("k^=:m") & vbCrLf):Response.Write(CCCCJJC(" ,k^F=m") & vbCrLf):Response.Write(CCCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCJJC(" ,k5:G ,4=2DDlQA2863C62<Qmk^5:Gm") & vbCrLf):Response.Write(CCCCJJC(" ,")):CJCCJJJ=CJJJCC(8) & "":if CJCCJJJ<>"" then response.Write CCCCJJC("k9am绎@林@刁@敫@k^9am") & replace(CJCCJJJ,vbcrlf,CCCCJJC("k3Cm"))
if CJJJCC(CCCCJJC("492CE"))>0 then
dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCCJC=CJJJCC(CCCCJJC("=3")):if CJJJCC(CCCCJJC("492CE"))=1 then CJCCJCJ=CJJJCC(CCCCJJC("D4@C60C2H")) else CJCCJCJ=CJJJCC(CCCCJJC("D4@C60E"))
if instr(CCCCJJC("[`[e["),CCCCJJC("[") & CJCCCJC & CCCCJJC("["))>0 then
CJCCJCC=400:CJCCCJJ=600
else
CJCCCJJ=350
end if:response.Write CCCCJJC("k9am绎@林@囹@牂@k^9amkD4C:AE ,DC4lV^=3^492CE^") & CJJJCC(CCCCJJC("=3?2>66?")) & CCCCJJC("];DnHl") & CJCCJCC & CCCCJJC("U9l") & CJCCCJJ & CCCCJJC("UGl") & CJCCJCJ & CCCCJJC("Vmk^D4C:AEm")
end if:CJCCJJJ=CJJJCC(10) & "":if CJCCJJJ<>"" then response.Write CCCCJJC("k9am绎@林@觞@釅@k^9amkAm") & replace(CJCCJJJ,vbcrlf,CCCCJJC("k^AmkAm")) & CCCCJJC("k^Am")
CJCCJJJ=CJJJCC(11) & "":if CJCCJJJ<>"" then response.Write CCCCJJC("k9am徾@琁@廵@让@k^9amkAm") & replace(CJCCJJJ,vbcrlf,CCCCJJC("k^AmkAm")) & CCCCJJC("k^Am") & IIf(CJJJCC(12) & ""="","",CCCCJJC("kAm（,敔@布@：,") & CJJJCC(12) & CCCCJJC("）,k^Am"))
response.Write CCCCJJC("k9am诡@绁@又@序@k^9am") & CCCJCCC(CJJJCC(14),CJJJCC(13)):CJJJCC.movenext:CJJCCJ=CJJCCJ+1:wend:Response.Write(vbCrLf):Response.Write(CCCCJJC(" ,k5:G ,4=2DDlQA2863C62<Qmk^5:Gm") & vbCrLf):Response.Write(CCCCJJC(" ,k9am误@昉@k^9am") & vbCrLf):Response.Write(CCCCJJC(" ,朧@抠@呅@什@侖@厽@考,，,共@觞@釅@朾@彍@")):Response.Write  CJCJCJC(0):Response.Write(CCCCJJC("咇@丨@囸@徾@琁@罌@公@吇@拠@朄@，,曯@夕@俜@恪@诲@论@闩@k2 ,9C67lV9EEADi^^HHH]ADJ]4@>]4?V ,E2C86ElV03=2?<Vm9EEADi^^HHH]ADJ]4@>]4?k^2m") & vbCrLf):Response.Write(CCCCJJC("k^2CE:4=6m") & vbCrLf)::Function CCCJCCC(CJCCCJC,CCCJCCJ):dim str,CJJCCJ,CJJCCC,CJJJCCC,CJCJJJ:CCCJCCJ=split(CCCCJJC("M") & CCCJCCJ,CCCCJJC("M")):CJCJJJ=ubound(CCCJCCJ):str=CCCCJJC("kE23=6 ,H:5E9lV`__TV ,3@C56ClV_Vm")
if CJCCCJC=9 then
for CJJCCJ=1 to 66 step 10:str=str & CCCCJJC("kECm"):for CJJCCC=0 to 9:CJJJCCC=CJJCCJ+CJJCCC:str=str & CCCCJJC("kE5 ,2=:8?lVC:89EVm") & CJJJCCC & CCCCJJC("．,k3m") & CCCJCCJ(CJJJCCC*2-1) & CCCCJJC(" ,") & CCCJCCJ(CJJJCCC*2) & CCCCJJC("k^3mk^E5m")
if CJJJCCC=66 then exit for
next:str=str & CCCCJJC("k^ECm"):next
else
for CJJCCJ=1 to CJCJJJ step 10:str=str & CCCCJJC("kECm"):for CJJCCC=0 to 9:CJJJCCC=CJJCCJ+CJJCCC:str=str & CCCCJJC("kE5 ,2=:8?lVC:89EVm") & CJJJCCC & CCCCJJC("] ,k3m") & CCCJCCJ(CJJJCCC) & CCCCJJC("k^3mk^E5m")
if CJJJCCC=CJCJJJ then exit for
next:str=str & CCCCJJC("k^ECm"):next
end if:str=str & CCCCJJC("k^E23=6m"):CCCJCCC=str:end function:Response.Write(vbCrLf):Response.Write(CCCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CCCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CCCCJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CCCCJJC("NX") & vbCrLf):Response.Write(CCCCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CCCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CCCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:set CCJJCJC=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCJJC(ByVal CCCCJJJ)
Dim CJCCCCJ, CJJCCJ, CJCJJJ
CCCCJJJ = Replace(CCCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCJ = 1 To Len(CCCCJJJ)
If CJJCCJ <> CJCJJJ Then
CJCCCCJ = AscW(Mid(CCCCJJJ, CJJCCJ, 1))
If CJCCCCJ >= 33 And CJCCCCJ <= 79 Then
CCCCJJC = CCCCJJC & Chr(CJCCCCJ + 47)
ElseIf CJCCCCJ >= 80 And CJCCCCJ <= 126 Then
CCCCJJC = CCCCJJC & Chr(CJCCCCJ - 47)
Else
CJCJJJ = CJJCCJ + 1
If Mid(CCCCJJJ, CJCJJJ, 1) = Chr(64) Then CCCCJJC = CCCCJJC & ChrW(CJCCCCJ + 5) Else CCCCJJC = CCCCJJC & Mid(CCCCJJJ, CJJCCJ, 1)
End If
End If
Next
End Function
%>