<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCC, CCJCJJ,CCJCJC, CCJCCJ, CCJCCC:Set CCJJCC = server.CreateObject(CJJJJJJC("ps~sq]r@??64E:@?")):CCJJCC.open Application(CJJJJJJC("r@??64E:@?$EC:?8")):Set CCJCJJ=CCJJCC::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CJJJJJJC("!$*|t|qt#"))):if CJJCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJJ>0 then
CCJCCC=CJJJJJJC("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") & CCCJJC & CJJJJJJC("V ,2?5 ,:5l") & CCCJJJ
set CCJCJC=CCJJCC.execute(CCJCCC):If CCJCJC.EOF Then
Call ClearMemberCookie
Else
CCCJCJ=CCJCJC(2) & "":CCCJCC=CCJCJC(3):CCCCJJ=CCJCJC(5):CCCCJC=CCJCJC(6):CCCCCJ=CCJCJC(9):CCCCCC=CCJCJC(15):CJJJJJC=CCJCJC(0):CJJCJJJ=CCJCJC(1):CJJJCCC=CCJCJC(11) & "":CJJJJCJ=CCJCJC(10) & "":CJJJJJJ=CCJCJC(12):CJJJJCC=CCJCJC(14):CJJJCJJ=CCJCJC(13):CJJJCJC=CCJCJC(7) & "":CJJJCCJ=CCJCJC(4):CJJCJJC=CCJCJC(8):if isnull(CCCCCC) then CCCCCC=0
if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC
if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CCCCJJ) then CCCCJJ=0
if instr(CJJJJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CJJJJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJJJ,CCCJJC)
End IF
end if:::Sub CheckLogined():if CCCJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJCC:CJJCJCC=trim(request.QueryString(CJJJJJJC("D49@@="))):if isnumeric(CJJCJCC) then
response.Redirect CJJJJJJC("^>^G2?E^R^D49@@=^") & CJJCJCC & CJJJJJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJC("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:CJJCCJJ=split(CJJCJCJ,CJJJJJJC("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCCCJ=1 to len(CJJCCJC):CJJCCCC=mid(CJJCCJC,CJJCCCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJCJJJJ<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCC=mid(CJJCCJC,18,10)/2:if CJJCCCC<DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJJ=Clng(CJJCCJJ(0)):CCCJJC=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJCC,CJJJJJCJ):dim CJJCCCJ,CJJCCCC,CJCJJJJ:for CJJCCCJ=1 to len(CJJJJJCJ):CJJCCCC=mid(CJJJJJCJ,CJJCCCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJCJJJJ=CCCCJCC & CJJJJJJC("]") & CJJJJJCJ & CJJJJJJC("]") & Fix(10000*(Rnd+1)) & CJCJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJC("!$*|t|qt#"))=CJCJJJJ:End Sub:::Function IIf(CJJJJJCC, CJJJJCJJ, CJJJJCJC):if isnull(CJJJJJCC) or isempty(CJJJJJCC) then
IIf = CJJJJCJC
elseif CJJJJJCC Then
IIf = CJJJJCJJ
Else
IIf = CJJJJCJC
end if:End Function:Const CCJCCJC="^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 CJJCCCJ,CJJCCCC,CJCJJJC:if isarray(str) then
on error resume next:CJJCCCJ=ubound(str,2):CJCJJJC=err.number:err.clear:on error goto 0:if CJCJJJC<>0 then
for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CJJJJJJC("k3C ,^m")
response.Write CJJCCCJ & CJJJJJJC("i ,") & str(CJJCCCJ):next
else
response.Write CJJJJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCJ=0 to ubound(str,2):response.Write CJJJJJJC("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CJJJJJJC("k^E9m")
next:response.Write CJJJJJJC("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CJJJJJJC("kECmkE9m") & CJJCCCJ & CJJJJJJC("k^E9m"):for CJJCCCC=0 to ubound(str,2):response.Write CJJJJJJC("kE5m") & str(CJJCCCJ,CJJCCCC) & CJJJJJJC("k^E5m"):next:response.Write CJJJJJJC("k^ECm"):next:response.Write CJJJJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCCJ,CJJJJCCC):dim CJJCCJJ:CJJCCJJ=CJJJJCCJ & CJJJJJJC("l") & CJJJJCCC & CJJJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJC("$6E\r@@<:6"),CJJCCJJ):End Sub:::::::Function CCJCCCC(CJCJJJC):if isnull(CJCJJJC) or trim(CJCJJJC)="" or not isnumeric(CJCJJJC) then
CCJCCCC=false
else
Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJJJJJJC("/-5ZS"):CJCJJCJ.IgnoreCase = True:CCJCCCC = CJCJJCJ.test(CJCJJJC):set CJCJJCJ=nothing
end if:End Function:Function CCCJJJJ(CJJJCJJJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJJJJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJJJ & CJJJJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CCJJCC.execute(CJCJJCC):CCCJJJJ = CJCJCJJ(0):if isnull(CCCJJJJ) then CCCJJJJ=1
CJCJCJJ.close : set CJCJCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCCJCJJ.Close : Set CCCJCJJ = Nothing:CCJJCC.Close : Set CCJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJC("!$*0|6DD286"),server.URLEncode(CJJJCJJC)):Response.Redirect CJJJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCCJCJC(Table):Dim CJCJCJJ, CJCJCJC, str(), CJJCCCJ,CJJCCCC,CJCJCCC:CJCJCCC=UCase(Table):If Not IsArray(Application(CJJJJJJC("!$*0") & CJCJCCC)) Then
CCJCCC=CJJJJJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJJJJC(". ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=server.createobject(CJJJJJJC("25@53]C64@C5D6E")):CJCJCJJ.open CCJCCC,CCJJCC,1:CJCJCJC = CJCJCJJ.RecordCount:ReDim str(CJCJCJC, 2):If CJCJCJC > 0 Then
For CJJCCCJ = 1 To CJCJCJC:for CJJCCCC=0 to 2:str(CJJCCCJ, CJJCCCC) = CJCJCJJ(CJJCCCC):next:CJCJCJJ.MoveNext:Next
End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJJJJJJC("!$*0") & CJCJCCC) = str
End If:CCCJCJC = Application(CJJJJJJC("!$*0") & CJCJCCC):End Function:Sub ShowListSelect(CJJJCJJJ,CJJJCJCJ,CJJJCJCC):Dim str, CJJCCCJ, CJCCJJJ:CJCCJJJ = CCCJCJC(CJJJCJJJ):For CJJCCCJ = 1 To UBound(CJCCJJJ):if Cstr(CJCCJJJ(CJJCCCJ,2))=Cstr(CJJJCJCJ) then
str = str & CJJJJJJC("k@AE:@? ,G2=F6lV") & CJCCJJJ(CJJCCCJ, 0) & CJJJJJJC("V")
If CStr(CJCCJJJ(CJJCCCJ, 0)) = CJJJCJCC & "" Then str = str & CJJJJJJC(" ,D6=64E65lVD6=64E65V")
str = str & CJJJJJJC("m") & CJCCJJJ(CJJCCCJ, 1) & CJJJJJJC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCCJCCJ(CJJJCJJJ,CJJJCJCJ,CCCCJCC):Dim str, CJJCCCJ, CJCCJJJ:CJCCJJJ = CCCJCJC(CJJJCJJJ):For CJJCCCJ = 1 To UBound(CJCCJJJ):if Cstr(CJCCJJJ(CJJCCCJ,2))=Cstr(CJJJCJCJ) and CStr(CJCCJJJ(CJJCCCJ, 0)) = CCCCJCC & "" then
str=CJCCJJJ(CJJCCCJ,1):exit for
end if:Next:if str="" then str=CJJJJJJC(",朥@矠@.")
CCCJCCJ=str:End Function:::::::::::::::::Sub ClearCache(CJJJCCJJ):Application.Contents.Remove CJJJCCJJ
End Sub::Class jTree:Private CCJCCC, CJCCJJC, CJCCJCJ, CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:Private Sub Class_Initialize():CJCCJCJ = 0:CJCCJCC = 0:CJCCCCC=10:End Sub:Public Property Let Table(CJJJCCJC):if CJJJCCJC="" then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCCCJJ=CJJJCCJC:CJCCCJC=CJJJJJJC("!$*0") & UCase(CJCCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCJJ:End Property:::Private Sub GetTreeArray():Dim CJJCCCJ, CJJCCCC, CCJJJJJ,RecordCount:CJCCJJC = Application(CJCCCJC):If Not IsArray(CJCCJJC) Then
CCJCCC = CJJJJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCJJ:if CJCCCCJ<>"" then CCJCCC=CCJCCC & CJJJJJJC(" ,H96C6 ,") & CJCCCCJ
set CCJJJJJ=CCJJCC.execute(CCJCCC):RecordCount=CCJJJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJJJC("柠@话@W") & CJCCCJJ & CJJJJJJC("^") & CJCCCCJ & CJJJJJJC("X沜@朄@绎@林@敫@捩@"))
CJCCJCC=RecordCount+CJCCCCC:ReDim CJCCJJC(CJCCJCC, 4):CCJCCC = CJJJJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJJC(" ,H:E9 ,W?@=@4<X"):if CJCCCCJ<>"" then CCJCCC=CCJCCC & CJJJJJJC(" ,H96C6 ,") & CJCCCCJ
CCJCCC=CCJCCC & CJJJJJJC(" ,@C56C ,3J ,D@CE[:5"):set CCJJJJJ=CCJJCC.execute(CCJCCC):For CJJCCCJ = 1 To RecordCount:For CJJCCCC = 0 To 4:CJCCJJC(CJJCCCJ, CJJCCCC) = CCJJJJJ(CJJCCCC):if IsNull(CJCCJJC(CJJCCCJ,4)) then CJCCJJC(CJJCCCJ,4)=0
If CJCCJJC(CJJCCCJ,2)="" then CJCCJJC(CJJCCCJ,2)=CJJJJJJC(",穵@.")
Next:CCJJJJJ.MoveNext:Next:CCJJJJJ.Close: Set CCJJJJJ = Nothing:for CJJCCCJ=CJCCJCC-(CJCCCCC-1) to CJCCJCC:CJCCJJC(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CJCCCJC) = CJCCJJC:Application.UnLock()
else
CJCCJCC=Ubound(CJCCJJC)
End If:End Sub:::::Private Function CCCCJJJ(CCCCJCC):dim CJJCCCJ,CCJJJCJ:CCCCJJJ=0:CCJJJCJ=CStr(CCCCJCC):if CCJJJCJ<>"0" then
for CJJCCCJ=1 to CJCCJCC:If CStr(CJCCJJC(CJJCCCJ, 0))=CCJJJCJ Then
CCCCJJJ = CJJCCCJ:Exit For
End If:Next
end if:End Function::::Public Function CCCCJJC(CCCCJCC):Dim CJJCCCJ,CCJJJCC:CJJCCCJ=CCCCJJJ(CCCCJCC):if CJJCCCJ=0 then
CCJJJCC=CCCCJCJ(CCCCJCC)
else
CCJJJCC=CJCCJJC(CJJCCCJ,3):if isnull(CCJJJCC) or CCJJJCC="" then
CCJJJCC=CCCCJCJ(CCCCJCC)
elseif Mid(CCJJJCC,instrrev(CCJJJCC,CJJJJJJC("["))+1)<>CStr(CCCCJCC) then
CCJJJCC=CCCCJCJ(CCCCJCC)
elseif Left(CCJJJCC,1)=CJJJJJJC("[") then
CCJJJCC=CCCCJCJ(CCCCJCC)
end if
end if:CCCCJJC=CCJJJCC:End Function:Private Function CCCCJCJ(CCCCJCC):dim CCJJJCJ:CCJJJCJ=CStr(CCCCJCC):if CCJJJCJ="0" then
CCCCJCJ=""
else
dim CCJJJJJ:set CCJJJJJ=CCJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCJJ & CJJJJJJC(" ,H96C6 ,:5l") & CCCCJCC):if CCJJJJJ.eof then
Call UpdateCache(CCCCJCC,"","","",""):Call RedirectMessage(CJJJJJJC("顴@盩@（,xs：,") & CCCCJCC & CJJJJJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJJJJ(0)=0 then
CCCCJCJ="0," & CCCCJCC
else
CCCCJCJ=CCCCJJC(CCJJJJJ(0)) & CJJJJJJC("[") & CCCCJCC
end if:if CCJJJJJ(2)<>CCCCJCJ then
CCJJCC.execute CJJJJJJC("FA52E6 ,") & CJCCCJJ & CJJJJJJC(" ,D6E ,A2E9lV") & CCCCJCJ & CJJJJJJC("V ,H96C6 ,:5l") & CCCCJCC
else
CCCCJCJ=CCJJJJJ(2)
end if
end if:Call UpdateCache(CCCCJCC,CCJJJJJ(0),CCJJJJJ(1),CCCCJCJ,CCJJJJJ(3)):CCJJJJJ.Close: Set CCJJJJJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJC
End Sub:Public Sub UpdateCache(CCCCJCC,CJJJCCCJ,CJJJCCCC,CCJJJCC,CJJCJJJJ):dim CJJCCCJ,CJJCCCC:CCCCJCC=CLng(CCCCJCC):CJJCCCJ=CCCCJJJ(CCCCJCC):if CJJJCCCJ="" and CJJJCCCC="" and CCJJJCC="" and CJJCJJJJ="" then
if CJJCCCJ>0 then
for CJJCCCC=1 to 4:CJCCJJC(CJJCCCJ,CJJCCCC)=Null:next
end if
else
if CJJCCCJ=0 then
for CJJCCCC=1 to CJCCJCC:if CJCCJJC(CJJCCCC,1) & ""="" then
CJJCCCJ=CJJCCCC:exit for
end if:next
end if:if CJJCCCJ=0 then
Call ClearCache
else
CJCCJJC(CJJCCCJ,0)=CLng(CCCCJCC):if CJJJCCCJ<>"" then CJCCJJC(CJJCCCJ,1)=CLng(CJJJCCCJ)
if CJJJCCCC<>"" then CJCCJJC(CJJCCCJ,2)=CJJJCCCC
if CCJJJCC<>"" then CJCCJJC(CJJCCCJ,3)=CCJJJCC
if CJJCJJJJ<>"" then CJCCJJC(CJJCCCJ,4)=CLng(CJJCJJJJ)
end if
end if:if CJJCCCJ>0 then
Application.Lock():Application(CJCCCJC) = CJCCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJJC):Call ConnClose:Response.Write CJJJCJJC:Response.End:End Sub:Private Function CCCJJJJ():CCCJJJJ=CCCCCJJ+1:End Function:Private Function CCCCCJJ():dim CJCJCJJ:set CJCJCJJ=CCJJCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCJJ & CJJJJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCJJ=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Public Function CCCCCJC(CJCJJJC):dim CCJJCJJ:if isnull(CJCJJJC) or trim(CJCJJJC)="" or not isnumeric(CJCJJJC) or instr(CJCJJJC,CJJJJJJC("\"))>0 or instr(CJCJJJC,CJJJJJJC("]"))>0 or left(CJCJJJC,1)="0" then
CCJJCJJ=""
else
CCJJCJJ=CJCJJJC:if Len(CCJJCJJ) Mod 2=1 then CCJJCJJ="0" & CCJJCJJ
Randomize:CCJJCJJ=CCJJCJJ & Int((99-10+1)*Rnd+10):CCJJCJJ=CCCCCCJ(CCJJCJJ):CCJJCJJ=CCJJCJJ & CCCCCCC(CCJJCJJ)
end if:CCCCCJC=CCJJCJJ:End Function::Private Function CCCCCCJ(str):Dim CCJJCJC, CJJCCCJ, CJCJJJJ, CCJJCCJ, CCJJCCC, CJCJJJC,CCJJCJJ:CCJJCCJ = Len(str):For CJJCCCJ = 1 To CCJJCCJ:CJCJJJJ = CInt(Mid(str, CJJCCCJ, 1)):If CJCJJJJ < 5 Then CJCJJJJ = CJCJJJJ + 5 Else CJCJJJJ = CJCJJJJ - 5
CCJJCJC = CCJJCJC & CJCJJJJ:Next:For CJJCCCJ = 1 To CCJJCCJ - 1 Step 2:CCJJCCC = Mid(CCJJCJC, CJJCCCJ, 1):CJCJJJC = Mid(CCJJCJC, CJJCCCJ + 1, 1):CCJJCJJ = CCJJCJJ & CJCJJJC & CCJJCCC:Next:CCCCCCJ = StrReverse(CCJJCJJ):End Function:Private Function CCCCCCC(CJJCJJJC):Dim CCJJCCJ, CJJCCCJ, CJCJJJC, CCJJCJC:CCJJCCJ = Len(CJJCJJJC):CJCJJJC = 0:For CJJCCCJ = 1 To CCJJCCJ:CCJJCJC = CInt(Mid(CJJCJJJC, CJJCCCJ, 1)):If CJJCCCJ Mod 2 = 0 Then CJCJJJC = CJCJJJC + CCJJCJC * 3 Else CJCJJJC = CJCJJJC + CCJJCJC
Next:CJCJJJC = CJCJJJC Mod 100:CJCJJJC = 100 - CJCJJJC:CCCCCCC = Right("0" & CJCJJJC, 2):End Function::dim CJJCJCC:CCJCCC=Request.ServerVariables(CJJJJJJC("!p%w0x}u~")):if instr(CCJCCC,CJJJJJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJJC and not CJJCJJJ then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJCC=CCCCCJ
elseif instr(CCJCCC,CJJJJJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCCC,CJJJJJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJCC=CCCCCJ
elseif instr(CCJCCC,CJJJJJJC("^D49@@="))>0 then
CJJCJCC=Request.QueryString(CJJJJJJC("D49@@=")):if not CCJCCCC(CJJCJCC) then CJJCJCC=Request.QueryString(CJJJJJJC("F"))
if not CCJCCCC(CJJCJCC) then CJJCJCC=Request.QueryString(CJJJJJJC("D4"))
if not CCJCCCC(CJJCJCC) then Call RedirectMessage(CJJJJJJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJCC=csng(CJJCJCC)
end if:if CJJCJCC=0 then Call RedirectMessage(CJJJJJJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCJJJ:Call SetConfig:Sub SetConfig():dim CCJCJJC,CJCJCJJ:CCJCCC=CJJJJJJC("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") & CJJCJCC:set CJCJCJJ=CCJJCC.execute(CCJCCC):if CJCJCJJ.eof then Call RedirectMessage(CJJJJJJC("患@W") & CCCJJJ & CJJJJJJC("X戻@圣@癿@卐@佈@W") & CJJCJCC & CJJJJJJC("X朥@批@别@。,"))
ReDim CCJCJJC(61):CCJCJJC(0)=CJCJCJJ(CJJJJJJC(";:2@H6:")) & "":CCJCJJC(1)=CJCJCJJ(CJJJJJJC("EJA6")):CCJCJJC(2)=CJCJCJJ(CJJJJJJC("D>D")):CCJCJJC(3)=CJCJCJJ(CJJJJJJC("4FDE@>8C@FA")) & "":CCJCJJC(4)=CJCJCJJ(CJJJJJJC("D:5632C0@E96C")) & "":CCJCJJC(5)=IIf(isnull(CJCJCJJ(CJJJJJJC("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CJJJJJJC("E6DEC6DF=EG:6H"))):CCJCJJC(6)=CJCJCJJ(CJJJJJJC("K:IF?E:>6")):CCJCJJC(7)=CJCJCJJ(CJJJJJJC("766")):CCJCJJC(8)=CJCJCJJ(CJJJJJJC("C6E6DE52J")):CCJCJJC(9)=CJCJCJJ(CJJJJJJC("6IA:C652E6")):CCJCJJC(10)=CJCJCJJ(CJJJJJJC("E:E=6")):CCJCJJC(11)=CJCJCJJ(CJJJJJJC(":?EC@")) & "":CCJCJJC(12)=CJCJCJJ(CJJJJJJC("A:4EFC6")) & "":CCJCJJC(13)=CJCJCJJ(CJJJJJJC("72>:=J")):CCJCJJC(14)=CJCJCJJ(CJJJJJJC("4@AJC:89E")) & "":CCJCJJC(15)=IIf(isnull(CJCJCJJ(CJJJJJJC("D6>6DE6C0DE2CE052E6"))),CJJJJJJC("`h__\`\`"),CJCJCJJ(CJJJJJJC("D6>6DE6C0DE2CE052E6"))):CCJCJJC(16)=IIf(isnull(CJCJCJJ(CJJJJJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CJJJJJJC("K:IF?0E:>6D09:89=:89E"))):CCJCJJC(17)=CJCJCJJ(CJJJJJJC("4@?E24E")) & "":CCJCJJC(18)=CJCJCJJ(CJJJJJJC("D2?5E23=6")):CCJCJJC(19)=CJCJCJJ(CJJJJJJC("4C:D:D")):CCJCJJC(20)=CJCJCJJ(CJJJJJJC("JJ52E6")):CCJCJJC(21)=CJCJCJJ(CJJJJJJC("BB")):CCJCJJC(22)=CJCJCJJ(CJJJJJJC("JFJF60D>D0EA=")) & "":CCJCJJC(23)=CJCJCJJ(CJJJJJJC("JFJF60E6DE0=3")) & "":CCJCJJC(25)=CJCJCJJ(CJJJJJJC("6IA6CE")):CCJCJJC(26)=CJCJCJJ(CJJJJJJC(">@5:?7@")):CCJCJJC(27)=CJCJCJJ(CJJJJJJC("9@>6A286E@AA:4EFC6")) & "":CCJCJJC(28)=CJCJCJJ(CJJJJJJC("4C:D:D=3")):CCJCJJC(29)=IIf(CJCJCJJ(CJJJJJJC("4C:D:D@=5")),False,True):CCJCJJC(30)=CJCJCJJ(CJJJJJJC("8C@FA8F:52?46")):CCJCJJC(31)=CJCJCJJ(CJJJJJJC("3:@7665324<")):CCJCJJC(32)=CJCJCJJ(CJJJJJJC("<6JDEC")):CCJCJJC(33)=CJCJCJJ(CJJJJJJC("=@8@")) & "":CCJCJJC(34)=CJCJCJJ(CJJJJJJC("K:46")):CCJCJJC(35)=IIf(CJCJCJJ(CJJJJJJC(":D?6H")),True,False):CCJCJJC(36)=121:CCJCJJC(37)=111:CCJCJJC(38)=160:CCJCJJC(39)=CJCJCJJ(CJJJJJJC("8F6DE3@@<")):CCJCJJC(40)=CJCJCJJ(CJJJJJJC("75D")):CCJCJJC(42)=CJCJCJJ(CJJJJJJC("9@>6=@8:?")):CCJCJJC(43)=CJCJCJJ(CJJJJJJC("K:IF?0?6657665324<")):CCJCJJC(44)=CJCJCJJ(CJJJJJJC("K:IF?0E:>6D0=:>:E")):CCJCJJC(45)=CJCJCJJ(CJJJJJJC("4@>A=6E60:?7@")):CCJCJJC(46)=CJCJCJJ(CJJJJJJC("E6DE:?EC@")) & "":CCJCJJC(47)=IIf(isnull(CJCJCJJ(CJJJJJJC("JFJF60367@C60E:>6"))),0,CJCJCJJ(CJJJJJJC("JFJF60367@C60E:>6"))):CCJCJJC(49)=CJCJCJJ(CJJJJJJC("D>D0C646:G6C")):CCJCJJC(50)=CJCJCJJ(CJJJJJJC("D>D0D:8?")) & "":CCJCJJC(52)=CJCJCJJ(CJJJJJJC("JFJF602CC2?86")):CCJCJJC(53)=IIf(isnull(CJCJCJJ(CJJJJJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CJJJJJJC("DEF56?E0BF6DE:@?04@F?E"))):CCJCJJC(54)=CJCJCJJ(CJJJJJJC("9:560=30@FE@7286")):CCJCJJC(55)=CJCJCJJ(CJJJJJJC("JFJF60E6DE052JD")):CCJCJJC(56)=CJCJCJJ(CJJJJJJC("JFJF60H66<0=:>:E")):CCJCJJC(57)=CJCJCJJ(CJJJJJJC("JFJF604964<65")):CCJCJJC(58)=CJCJCJJ(CJJJJJJC("K:IF?0?6657665324<0?6IE")):CCJCJJC(59)=CJCJCJJ(CJJJJJJC("4964<?6HDEF56?E")):CCJCJJC(60)=CJCJCJJ(CJJJJJJC("K:IF?04=@D6052E6")):CJCJCJJ.close : set CJCJCJJ=nothing:if isNull(CCJCJJC(8)) or CCJCJJC(8)="" then CCJCJJC(8)=0
if isdate(CCJCJJC(9)) then
CCJCJJC(9)=cdate(CCJCJJC(9)):if CCJCJJC(9)<Date then Call RedirectMessage(CJJJJJJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCJJC(9) & CJJJJJJC("X巭@迂@。,"))
end if:if not CCJCCCC(CCJCJJC(20)) then CCJCJJC(20)=7
select case CCJCJJC(1):case 1,2,16:CCJCJJC(36)=159:case 4,5,6,10,11:CCJCJJC(36)=190:CCJCJJC(37)=178:CCJCJJC(38)=191:case 7,13:CCJCJJC(36)=164:CCJCJJC(37)=178:CCJCJJC(38)=179:end select:CCJCJJJ=CCJCJJC:End Sub:Function CCCJJCC(CJJCJJCJ):dim CCJCJJC(7,1),CJJCCCJ,CCJCJCJ,CCJCJCC:CCJCJCJ=Array(CJJJJJJC("$49@@="),CJJJJJJC("$EF56?E"),CJJJJJJC("s6AE"),CJJJJJJC("vC256"),CJJJJJJC("r=2DD>2E6"),CJJJJJJC("}F>36C"),CJJJJJJC("%62496C"),CJJJJJJC("!2C6?E")):select case CCJCJJJ(1):case 1,2 : CCJCJCC=Array(CJJJJJJC("孡@栜@"),CJJJJJJC("孡@甚@"),CJJJJJJC("珨@红@"),CJJJJJJC("幯@红@"),CJJJJJJC("吇@孡@"),CJJJJJJC("孡@史@"),CJJJJJJC("敔@布@"),CJJJJJJC("宱@镺@")):case 3,16 : CCJCJCC=Array(CJJJJJJC("孡@栜@"),CJJJJJJC("孡@甚@"),CJJJJJJC("陝@糶@"),CJJJJJJC("幯@红@"),CJJJJJJC("吇@孡@"),CJJJJJJC("孡@史@"),CJJJJJJC("敔@布@"),CJJJJJJC("宱@镺@")):case 4 : CCJCJCC=Array(CJJJJJJC("匶@陝@"),CJJJJJJC("杠@论@耀@"),CJJJJJJC("卐@佈@"),CJJJJJJC("幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("匶@甚@"),CJJJJJJC("宱@屙@")):case 5 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("呓@巠@"),CJJJJJJC("郣@闣@"),CJJJJJJC("幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("呓@巠@"),CJJJJJJC("宱@屙@")):case 6 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("杠@论@耀@"),CJJJJJJC("线@刦@"),CJJJJJJC("幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 7 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("宓@兰@"),CJJJJJJC("郣@闣@"),CJJJJJJC("幯@仸@"),CJJJJJJC("戓@叆@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 8 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("杠@论@耀@"),CJJJJJJC("卐@佈@"),CJJJJJJC("兠@聇@幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("酈@偱@")):case 9 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("敔@布@"),CJJJJJJC("卐@佈@"),CJJJJJJC("幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("酈@偱@")):case 10 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("氌@譡@"),CJJJJJJC("郣@闣@"),CJJJJJJC("兠@譡@幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 11 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("內@劜@呓@"),CJJJJJJC("郣@闣@"),CJJJJJJC("幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 12 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("幭@譡@"),CJJJJJJC("卐@佈@"),CJJJJJJC("兠@譡@幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 13 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("孡@呓@"),CJJJJJJC("卐@佈@"),CJJJJJJC("幯@仸@"),CJJJJJJC("戓@叆@"),CJJJJJJC("缑@史@"),CJJJJJJC("敔@呓@"),CJJJJJJC("宱@屙@")):case 14 : CCJCJCC=Array(CJJJJJJC("月@劜@炴@"),CJJJJJJC("局@氌@"),CJJJJJJC("线@刦@"),CJJJJJJC("幯@仸@"),CJJJJJJC("邶@采@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case 15 : CCJCJCC=Array(CJJJJJJC("卐@佈@"),CJJJJJJC("盌@独@氌@譡@"),CJJJJJJC("卐@佈@"),CJJJJJJC("兠@譡@幯@仸@"),CJJJJJJC("吇@了@"),CJJJJJJC("缑@史@"),CJJJJJJC("咣@话@布@"),CJJJJJJC("宱@屙@")):case else : CCJCJCC=CCJCJCJ
end select:for CJJCCCJ=0 to Ubound(CCJCJJC):CCJCJJC(CJJCCCJ,0)=CCJCJCJ(CJJCCCJ):CCJCJJC(CJJCCCJ,1)=CCJCJCC(CJJCCCJ):next:for CJJCCCJ=0 to Ubound(CCJCJJC):if CCJCJJC(CJJCCCJ,0)=CJJCJJCJ then
CCCJJCC=CCJCJJC(CJJCCCJ,1):exit for
end if:next:End Function::if not CCJCJJJ(35) or not CCJCJJJ(19) then
Call ConnClose:response.Redirect CJJJJJJC("H6=4@>60@=5]2DA")
end if:dim CJCCJJC:set CJCCJJC=new jtree:CJCCJJC.table=CJJJJJJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJC("k9625m") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJC("kE:E=6m亵@呓@箜@琁@馑@顰@k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("7:6=5D6E ,L ,3@C56C\3@EE@>i ,_j , ,N") & vbCrLf):Response.Write(CJJJJJJC("RE3\4@F?E ,L ,H:5E9i ,`__Tj ,3@C56C\4@==2AD6i ,4@==2AD6j ,>2C8:?\E@Ai ,`_AIj ,N") & vbCrLf):Response.Write(CJJJJJJC("RE3\4@F?E ,E9[ ,RE3\4@F?E ,E5 ,L ,3@C56Ci ,`AI ,D@=:5 ,R444j ,E6IE\2=:8?i ,46?E6Cj ,A255:?8i ,dAIj ,N") & vbCrLf):Response.Write(CJJJJJJC("RE3\4@F?E ,E9625 ,EC ,L ,324<8C@F?5i ,R7`7`7`j ,N") & vbCrLf):Response.Write(CJJJJJJC("]E30=:DE ,E5 ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("k^9625m") & vbCrLf):Response.Write(CJJJJJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k7@C>m") & vbCrLf):Response.Write(CJJJJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k=686?5m绷@吃@俜@恪@k^=686?5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJCC(CJJJJJJC("s6AE")):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mkD6=64E ,?2>6lQ56AEQmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJCC(CJJJJJJC("vC256")):Response.Write(CJJJJJJC("k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mkD6=64E ,?2>6lQ8C256Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,")):if CCCCCC=0 then
response.Write CJJJJJJC("k@AE:@? ,G2=F6lVVm,丈@陋@.k^@AE:@?m")
Call ShowListSelect(CJJJJJJC(">6>36C08C256"),IIf(CCJCJJJ(1)<=2,0,CJJCJCC),0)
else
response.Write CJJJJJJC("k@AE:@? ,G2=F6lV") & CCCCCC & CJJJJJJC("Vm") & CCCJCCJ(CJJJJJJC(">6>36C08C256"),CJJCJCC,CCCCCC) & CJJJJJJC("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5 ,4=2DDlQ=236=Qm赲@歝@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQE`Q ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65m") & vbCrLf):Response.Write(CJJJJJJC(" ,O") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQEaQ ,2FE@4@>A=6E6lQ@77Q ,C6BF:C65m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,:5lQ3E?\52JQm仅@ ,夤@k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,:5lQ3E?\H66<Qm朧@ ,呣@k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,:5lQ3E?\>@?E9Qm朧@ ,會@k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5 ,4=2DDlQ24EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k3FEE@? ,:5lQ3E?\@<Qm柠@ ,话@k^3FEE@?m") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ24EQ ,G2=F6lQ`[a[b[c[d[e[fQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE23=6 ,:5lQE3\4@F?EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m")):Response.Write  CCCJJCC(CJJJJJJC("$EF56?E")):Response.Write(CJJJJJJC("亵@敫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m论@调@遻@诲@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m顿@纡@咣@话@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m潗@圣@飉@除@访@伫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m臥@朻@倹@同@访@伫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m鉯@刦@访@伫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m劣@忼@访@伫@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE9m严@桃@迸@踥@k^E9m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJJJJJJC(" ,kD4C:AE ,EJA6lQE6IE^E6>A=2E6Q ,:5lQE\4@F?EQm") & vbCrLf):Response.Write(CJJJJJJC(" ,kECm") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,_.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,`.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,a.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,b.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,c.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,d.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,e.NN亵@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE5mLL52E2,f.NN來@k^E5m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC("k^7@C>m") & vbCrLf):Response.Write(CJJJJJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CCCJCC:Response.Write(CJJJJJJC("Qm") & vbCrLf):Response.Write(CJJJJJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CCCCCJC(CJJCJCC):Response.Write(CJJJJJJC("Qm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^52J;D^52J;D]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJJJJJC(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJJJJJC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJJJJJC(" ,EC66iECF6") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,^^ ,壿@琁@无@朚@赲@歝@") & vbCrLf):Response.Write(CJJJJJJC(" ,G2C ,E@52J ,l ,52J;DWX]7@C>2EWV****\||\ssVX") & vbCrLf):Response.Write(CJJJJJJC(" ,G2C ,E`lSWV:?AFE,?2>6lQE`Q.VX]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,G2C ,EalSWV:?AFE,?2>6lQEaQ.VX]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\52JVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,E`]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,Ea]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\@<VX]4=:4<WX") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\H66<VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,E`]G2=W52J;DWX]52JW_X]7@C>2EWV****\||\ssVXX") & vbCrLf):Response.Write(CJJJJJJC(" ,Ea]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\@<VX]4=:4<WX") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\>@?E9VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,E`]G2=W52J;DWX]DE2CE~7WV>@?E9VX]7@C>2EWV****\||\ssVXX") & vbCrLf):Response.Write(CJJJJJJC(" ,Ea]G2=WE@52JX") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVR3E?\@<VX]4=:4<WX") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,^^ ,力@轸@亵@敫@") & vbCrLf):Response.Write(CJJJJJJC(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,S]86Ey$~}Wv=@32=]w@DEZV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^DF>>2CJ\4@F?EV[SWV7@C>VX]D6C:2=:K6WX[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CJJJJJJC(" ,SWVRE3\4@F?E ,E3@5JVX]9E>=WE6>A=2E6WVE\4@F?EV[;D@?XX") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJJJJC(" ,NX") & vbCrLf):Response.Write(CJJJJJJC(" ,H:?5@H]D6E%:>6@FEW7F?4E:@?WXLSWV7@C>VX]EC:886CWVDF3>:EVXN[b___X") & vbCrLf):Response.Write(CJJJJJJC("NX") & vbCrLf):Response.Write(CJJJJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJJCC.Close:Set CCJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJC(ByVal CJJJJJJJ)
Dim CCJCCJJ, CJJCCCJ, CJCJJJC
CJJJJJJJ = Replace(CJJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCJ = 1 To Len(CJJJJJJJ)
If CJJCCCJ <> CJCJJJC Then
CCJCCJJ = AscW(Mid(CJJJJJJJ, CJJCCCJ, 1))
If CCJCCJJ >= 33 And CCJCCJJ <= 79 Then
CJJJJJJC = CJJJJJJC & Chr(CCJCCJJ + 47)
ElseIf CCJCCJJ >= 80 And CCJCCJJ <= 126 Then
CJJJJJJC = CJJJJJJC & Chr(CCJCCJJ - 47)
Else
CJCJJJC = CJJCCCJ + 1
If Mid(CJJJJJJJ, CJCJJJC, 1) = Chr(64) Then CJJJJJJC = CJJJJJJC & ChrW(CCJCCJJ + 5) Else CJJJJJJC = CJJJJJJC & Mid(CJJJJJJJ, CJJCCCJ, 1)
End If
End If
Next
End Function
%>