<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJC, CJJJCCJ,CJJJCCC, CJJCJJJ, CJJCJJC:Set CJJJCJC = server.CreateObject(CJJJCCJC("ps~sq]r@??64E:@?")):CJJJCJC.open Application(CJJJCCJC("r@??64E:@?$EC:?8")):Set CJJJCCJ=CJJJCJC::Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:Dim CJCCJJC,CJCCJCJ,CJCCJCC:Dim CJCCCJJ:CJCCCJJ=Trim(Request.Cookies(CJJJCCJC("!$*|t|qt#"))):if CJCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJCJ>0 then
CJJCJJC=CJJJCCJC("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") & CJJCJCC & CJJJCCJC("V ,2?5 ,:5l") & CJJCJCJ
set CJJJCCC=CJJJCJC.execute(CJJCJJC):If CJJJCCC.EOF Then
Call ClearMemberCookie
Else
CJJCCJJ=CJJJCCC(2) & "":CJJCCJC=CJJJCCC(3):CJJCCCJ=CJJJCCC(5):CJJCCCC=CJJJCCC(6):CJCJJJJ=CJJJCCC(9):CJCJJJC=CJJJCCC(15):CJCJJCC=CJJJCCC(0):CJCCJCJ=CJJJCCC(1):CJCCJJC=CJJJCCC(11) & "":CJCJCJJ=CJJJCCC(10) & "":CJCJJCJ=CJJJCCC(12):CJCJCJC=CJJJCCC(14):CJCJCCJ=CJJJCCC(13):CJCJCCC=CJJJCCC(7) & "":CJCCJJJ=CJJJCCC(4):CJCCJCC=CJJJCCC(8):if isnull(CJCJJJC) then CJCJJJC=0
if isnull(CJCJJJJ) or CJCJJJJ=0 then CJCJJJJ=CJJCCJC
if isnull(CJCCJJJ) then CJCCJJJ=0
if isnull(CJJCCCJ) then CJJCCCJ=0
if instr(CJJJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCC)>0 then Call RedirectMessage(CJJJCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJCJCJ,CJJCJCC)
End IF
end if:::Sub CheckLogined():if CJJCJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCJC:CJCCCJC=trim(request.QueryString(CJJJCCJC("D49@@="))):if isnumeric(CJCCCJC) then
response.Redirect CJJJCCJC("^>^G2?E^R^D49@@=^") & CJCCCJC & CJJJCCJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCJC("!$*|t|qt#"))="":CJJCJCJ=0:CJJCCCC=0:CJJCJCC=Empty:CJJCCCJ=0:CJCJJJC=0:CJCJJJJ=0:CJJCCJC=0:CJCJJCC=False:CJCCJCJ=False:CJCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ:CJCCCCJ=split(CJCCCJJ,CJJJCCJC("]")):if ubound(CJCCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCCJ(0)) or len(CJCCCCJ(1))<>32 or len(CJCCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCCC=CJCCCCJ(1):for CCJJJJJ=1 to len(CJCCCCC):CCJJJJC=mid(CJCCCCC,CCJJJJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CJCCCCC=CJCCCCJ(2):if CCJJJCJ<>mid(CJCCCCC,6,7) then
Call ClearMemberCookie
else
CCJJJJC=mid(CJCCCCC,18,10)/2:if CCJJJJC<DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJCJ=Clng(CJCCCCJ(0)):CJJCJCC=CJCCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJCC,CJJJCCCJ):dim CCJJJJJ,CCJJJJC,CCJJJCJ:for CCJJJJJ=1 to len(CJJJCCCJ):CCJJJJC=mid(CJJJCCCJ,CCJJJJJ,1):if isnumeric(CCJJJJC) then CCJJJCJ=CCJJJCJ & CCJJJJC
if len(CCJJJCJ)=7 then exit for
next:CCJJJCJ=CCCCJCC & CJJJCCJC("]") & CJJJCCCJ & CJJJCCJC("]") & Fix(10000*(Rnd+1)) & CCJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJC("D"), CJJJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJC("!$*|t|qt#"))=CCJJJCJ:End Sub:::Function IIf(CJJJCCCC, CJJCJJJJ, CJJCJJJC):if isnull(CJJJCCCC) or isempty(CJJJCCCC) then
IIf = CJJCJJJC
elseif CJJJCCCC Then
IIf = CJJCJJJJ
Else
IIf = CJJCJJJC
end if:End Function:Const CCCCCJC="^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 CCJJJJJ,CCJJJJC,CCJJJCC:if isarray(str) then
on error resume next:CCJJJJJ=ubound(str,2):CCJJJCC=err.number:err.clear:on error goto 0:if CCJJJCC<>0 then
for CCJJJJJ=0 to ubound(str):if CCJJJJJ>0 then response.Write CJJJCCJC("k3C ,^m")
response.Write CCJJJJJ & CJJJCCJC("i ,") & str(CCJJJJJ):next
else
response.Write CJJJCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJJJJ=0 to ubound(str,2):response.Write CJJJCCJC("kE9 ,2=:8?lV=67EVm") & CCJJJJJ & CJJJCCJC("k^E9m")
next:response.Write CJJJCCJC("k^ECm"):for CCJJJJJ=0 to ubound(str):response.Write CJJJCCJC("kECmkE9m") & CCJJJJJ & CJJJCCJC("k^E9m"):for CCJJJJC=0 to ubound(str,2):response.Write CJJJCCJC("kE5m") & str(CCJJJJJ,CCJJJJC) & CJJJCCJC("k^E5m"):next:response.Write CJJJCCJC("k^ECm"):next:response.Write CJJJCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJCC,CJJCJCJJ):dim CJCCCCJ:CJCCCCJ=CJJCJJCC & CJJJCCJC("l") & CJJCJCJJ & CJJJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJC("$6E\r@@<:6"),CJCCCCJ):End Sub:::::::Function CCCCCCC(CCJJJCC):if isnull(CCJJJCC) or trim(CCJJJCC)="" or not isnumeric(CCJJJCC) then
CCCCCCC=false
else
Dim CCJJCJJ:Set CCJJCJJ = New RegExp:CCJJCJJ.Pattern = CJJJCCJC("/-5ZS"):CCJJCJJ.IgnoreCase = True:CCCCCCC = CCJJCJJ.test(CCJJJCC):set CCJJCJJ=nothing
end if:End Function:Function CJJJJJJJ(CJJCJCJC):dim CCJJCJC,CCJJCCJ:CCJJCJC=CJJJCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJC & CJJJCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCCJ=CJJJCJC.execute(CCJJCJC):CJJJJJJJ = CCJJCCJ(0):if isnull(CJJJJJJJ) then CJJJJJJJ=1
CCJJCCJ.close : set CCJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJCC=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CCJJCCJ.close : set CCJJCCJ=nothing:CJJCJJJ.Close : Set CJJCJJJ=Nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJJCJJ.Close : Set CJJJJCJJ = Nothing:CJJJCJC.Close : Set CJJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJC("!$*0|6DD286"),server.URLEncode(CJJCJCCJ)):Response.Redirect CJJJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJJCJC(ByVal CJJJJCCJ,style):if not isdate(CJJJJCCJ) then
CJJJJCJC=CJJJJCCJ:exit function
end if:dim CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:CJJJJCCJ=cdate(CJJJJCCJ):CCJJCCC=Year(CJJJJCCJ):CCJCJJJ=Month(CJJJJCCJ):CCJCJJC=Day(CJJJJCCJ):select case style:case 0:CJJJJCJC=CCJJCCC & CJJJCCJC("\") & right(0 & CCJCJJJ,2) & CJJJCCJC("\") & right(0 & CCJCJJC,2):case 1:CJJJJCJC=CCJJCCC & right(0 & CCJCJJJ,2) & right(0 & CCJCJJC,2):case 2:CJJJJCJC=right(CCJJCCC,2) & CJJJCCJC("\") & right(0 & CCJCJJJ,2) & CJJJCCJC("\") & right(0 & CCJCJJC,2):case 3:CJJJJCJC=CCJJCCC & CJJJCCJC("\") & right(0 & CCJCJJJ,2):case 4:CJJJJCJC=right(0 & CCJCJJJ,2) & CJJJCCJC("\") & right(0 & CCJCJJC,2):case 5:CJJJJCJC=right(0 & CCJCJJC,2):case 6:CJJJJCJC=CCJJCCC & CJJJCCJC("幯@") & right(0 & CCJCJJJ,2) & CJJJCCJC("會@") & right(0 & CCJCJJC,2) & CJJJCCJC("无@"):case else
CJJJJCJC=CJJJJCCJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJJCJCCC):Application.Contents.Remove CJJCJCCC
End Sub:::::::Class jTree:Private CJJCJJC, CCJCJCC, CCJCCJJ, CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC:Private Sub Class_Initialize():CCJCCJJ = 0:CCJCCJC = 0:CCCJJJC=10:End Sub:Public Property Let CJJJJCCC(CJJCCJJJ):if CJJCCJJJ="" then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJCCCJ=CJJCCJJJ:CCJCCCC=CJJJCCJC("!$*0") & UCase(CCJCCCJ):Call GetTreeArray:End Property:Public Property Get CJJJJCCC():CJJJJCCC=CCJCCCJ:End Property:::Private Sub GetTreeArray():Dim CCJJJJJ, CCJJJJC, CCCJJCJ,CCCJJCC:CCJCJCC = Application(CCJCCCC):If Not IsArray(CCJCJCC) Then
CJJCJJC = CJJJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCCJ:if CCCJJJJ<>"" then CJJCJJC=CJJCJJC & CJJJCCJC(" ,H96C6 ,") & CCCJJJJ
set CCCJJCJ=CJJJCJC.execute(CJJCJJC):CCCJJCC=CCCJJCJ(0):if CCCJJCC=0 then Call RedirectMessage(CJJJCCJC("柠@话@W") & CCJCCCJ & CJJJCCJC("^") & CCCJJJJ & CJJJCCJC("X沜@朄@绎@林@敫@捩@"))
CCJCCJC=CCCJJCC+CCCJJJC:ReDim CCJCJCC(CCJCCJC, 4):CJJCJJC = CJJJCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCCJ & CJJJCCJC(" ,H:E9 ,W?@=@4<X"):if CCCJJJJ<>"" then CJJCJJC=CJJCJJC & CJJJCCJC(" ,H96C6 ,") & CCCJJJJ
CJJCJJC=CJJCJJC & CJJJCCJC(" ,@C56C ,3J ,D@CE[:5"):set CCCJJCJ=CJJJCJC.execute(CJJCJJC):For CCJJJJJ = 1 To CCCJJCC:For CCJJJJC = 0 To 4:CCJCJCC(CCJJJJJ, CCJJJJC) = CCCJJCJ(CCJJJJC):if IsNull(CCJCJCC(CCJJJJJ,4)) then CCJCJCC(CCJJJJJ,4)=0
If CCJCJCC(CCJJJJJ,2)="" then CCJCJCC(CCJJJJJ,2)=CJJJCCJC(",穵@.")
Next:CCCJJCJ.MoveNext:Next:CCCJJCJ.Close: Set CCCJJCJ = Nothing:for CCJJJJJ=CCJCCJC-(CCCJJJC-1) to CCJCCJC:CCJCJCC(CCJJJJJ,0)=CCJJJJJ:next:Application.Lock():Application(CCJCCCC) = CCJCJCC:Application.UnLock()
else
CCJCCJC=Ubound(CCJCJCC)
End If:End Sub:::::Private Function CJJJCJJJ(CCCCJCC):dim CCJJJJJ,CCCJCJJ:CJJJCJJJ=0:CCCJCJJ=CStr(CCCCJCC):if CCCJCJJ<>"0" then
for CCJJJJJ=1 to CCJCCJC:If CStr(CCJCJCC(CCJJJJJ, 0))=CCCJCJJ Then
CJJJCJJJ = CCJJJJJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJCJJC(CCCCJCC):Dim CCJJJJJ,CCCJCJC:CCJJJJJ=CJJJCJJJ(CCCCJCC):if CCJJJJJ=0 then
CCCJCJC=CJJJCJCJ(CCCCJCC)
else
CCCJCJC=CCJCJCC(CCJJJJJ,3):if isnull(CCCJCJC) or CCCJCJC="" then
CCCJCJC=CJJJCJCJ(CCCCJCC)
elseif Mid(CCCJCJC,instrrev(CCCJCJC,CJJJCCJC("["))+1)<>CStr(CCCCJCC) then
CCCJCJC=CJJJCJCJ(CCCCJCC)
elseif Left(CCCJCJC,1)=CJJJCCJC("[") then
CCCJCJC=CJJJCJCJ(CCCCJCC)
end if
end if:CJJJCJJC=CCCJCJC:End Function:Private Function CJJJCJCJ(CCCCJCC):dim CCCJCJJ:CCCJCJJ=CStr(CCCCJCC):if CCCJCJJ="0" then
CJJJCJCJ=""
else
dim CCCJJCJ:set CCCJJCJ=CJJJCJC.execute(CJJJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCCJ & CJJJCCJC(" ,H96C6 ,:5l") & CCCCJCC):if CCCJJCJ.eof then
Call UpdateCache(CCCCJCC,"","","",""):Call RedirectMessage(CJJJCCJC("顴@盩@（,xs：,") & CCCCJCC & CJJJCCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCCJJCJ(0)=0 then
CJJJCJCJ="0," & CCCCJCC
else
CJJJCJCJ=CJJJCJJC(CCCJJCJ(0)) & CJJJCCJC("[") & CCCCJCC
end if:if CCCJJCJ(2)<>CJJJCJCJ then
CJJJCJC.execute CJJJCCJC("FA52E6 ,") & CCJCCCJ & CJJJCCJC(" ,D6E ,A2E9lV") & CJJJCJCJ & CJJJCCJC("V ,H96C6 ,:5l") & CCCCJCC
else
CJJJCJCJ=CCCJJCJ(2)
end if
end if:Call UpdateCache(CCCCJCC,CCCJJCJ(0),CCCJJCJ(1),CJJJCJCJ,CCCJJCJ(3)):CCCJJCJ.Close: Set CCCJJCJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCCC
End Sub:Public Sub UpdateCache(CCCCJCC,CJJCCJJC,CJJCCJCJ,CCCJCJC,CJJCCJCC):dim CCJJJJJ,CCJJJJC:CCCCJCC=CLng(CCCCJCC):CCJJJJJ=CJJJCJJJ(CCCCJCC):if CJJCCJJC="" and CJJCCJCJ="" and CCCJCJC="" and CJJCCJCC="" then
if CCJJJJJ>0 then
for CCJJJJC=1 to 4:CCJCJCC(CCJJJJJ,CCJJJJC)=Null:next
end if
else
if CCJJJJJ=0 then
for CCJJJJC=1 to CCJCCJC:if CCJCJCC(CCJJJJC,1) & ""="" then
CCJJJJJ=CCJJJJC:exit for
end if:next
end if:if CCJJJJJ=0 then
Call ClearCache
else
CCJCJCC(CCJJJJJ,0)=CLng(CCCCJCC):if CJJCCJJC<>"" then CCJCJCC(CCJJJJJ,1)=CLng(CJJCCJJC)
if CJJCCJCJ<>"" then CCJCJCC(CCJJJJJ,2)=CJJCCJCJ
if CCCJCJC<>"" then CCJCJCC(CCJJJJJ,3)=CCCJCJC
if CJJCCJCC<>"" then CCJCJCC(CCJJJJJ,4)=CLng(CJJCCJCC)
end if
end if:if CCJJJJJ>0 then
Application.Lock():Application(CCJCCCC) = CCJCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCJ):Call ConnClose:Response.Write CJJCJCCJ:Response.End:End Sub:Private Function CJJJJJJJ():CJJJJJJJ=CJJJCJCC+1:End Function:Private Function CJJJCJCC():dim CCJJCCJ:set CCJJCCJ=CJJJCJC.execute(CJJJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCCJ & CJJJCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCC=CCJJCCJ(0):CCJJCCJ.Close: Set CCJJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCCCJC:CJJCJJC=Request.ServerVariables(CJJJCCJC("!p%w0x}u~")):if instr(CJJCJJC,CJJJCCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJCC and not CJCCJCJ then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCCCJC=CJCJJJJ
elseif instr(CJJCJJC,CJJJCCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJC,CJJJCCJC("^DEF56?E^"))>0 then
Call CheckLogined:CJCCCJC=CJCJJJJ
elseif instr(CJJCJJC,CJJJCCJC("^D49@@="))>0 then
CJCCCJC=Request.QueryString(CJJJCCJC("D49@@=")):if not CCCCCCC(CJCCCJC) then CJCCCJC=Request.QueryString(CJJJCCJC("F"))
if not CCCCCCC(CJCCCJC) then CJCCCJC=Request.QueryString(CJJJCCJC("D4"))
if not CCCCCCC(CJCCCJC) then Call RedirectMessage(CJJJCCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCCCJC=csng(CJCCCJC)
end if:if CJCCCJC=0 then Call RedirectMessage(CJJJCCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCCJCCJ:Call SetConfig:Sub SetConfig():dim CCCJCCC,CCJJCCJ:CJJCJJC=CJJJCCJC("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") & CJCCCJC:set CCJJCCJ=CJJJCJC.execute(CJJCJJC):if CCJJCCJ.eof then Call RedirectMessage(CJJJCCJC("患@W") & CJJCJCJ & CJJJCCJC("X戻@圣@癿@卐@佈@W") & CJCCCJC & CJJJCCJC("X朥@批@别@。,"))
ReDim CCCJCCC(61):CCCJCCC(0)=CCJJCCJ(CJJJCCJC(";:2@H6:")) & "":CCCJCCC(1)=CCJJCCJ(CJJJCCJC("EJA6")):CCCJCCC(2)=CCJJCCJ(CJJJCCJC("D>D")):CCCJCCC(3)=CCJJCCJ(CJJJCCJC("4FDE@>8C@FA")) & "":CCCJCCC(4)=CCJJCCJ(CJJJCCJC("D:5632C0@E96C")) & "":CCCJCCC(5)=IIf(isnull(CCJJCCJ(CJJJCCJC("E6DEC6DF=EG:6H"))),0,CCJJCCJ(CJJJCCJC("E6DEC6DF=EG:6H"))):CCCJCCC(6)=CCJJCCJ(CJJJCCJC("K:IF?E:>6")):CCCJCCC(7)=CCJJCCJ(CJJJCCJC("766")):CCCJCCC(8)=CCJJCCJ(CJJJCCJC("C6E6DE52J")):CCCJCCC(9)=CCJJCCJ(CJJJCCJC("6IA:C652E6")):CCCJCCC(10)=CCJJCCJ(CJJJCCJC("E:E=6")):CCCJCCC(11)=CCJJCCJ(CJJJCCJC(":?EC@")) & "":CCCJCCC(12)=CCJJCCJ(CJJJCCJC("A:4EFC6")) & "":CCCJCCC(13)=CCJJCCJ(CJJJCCJC("72>:=J")):CCCJCCC(14)=CCJJCCJ(CJJJCCJC("4@AJC:89E")) & "":CCCJCCC(15)=IIf(isnull(CCJJCCJ(CJJJCCJC("D6>6DE6C0DE2CE052E6"))),CJJJCCJC("`h__\`\`"),CCJJCCJ(CJJJCCJC("D6>6DE6C0DE2CE052E6"))):CCCJCCC(16)=IIf(isnull(CCJJCCJ(CJJJCCJC("K:IF?0E:>6D09:89=:89E"))),0,CCJJCCJ(CJJJCCJC("K:IF?0E:>6D09:89=:89E"))):CCCJCCC(17)=CCJJCCJ(CJJJCCJC("4@?E24E")) & "":CCCJCCC(18)=CCJJCCJ(CJJJCCJC("D2?5E23=6")):CCCJCCC(19)=CCJJCCJ(CJJJCCJC("4C:D:D")):CCCJCCC(20)=CCJJCCJ(CJJJCCJC("JJ52E6")):CCCJCCC(21)=CCJJCCJ(CJJJCCJC("BB")):CCCJCCC(22)=CCJJCCJ(CJJJCCJC("JFJF60D>D0EA=")) & "":CCCJCCC(23)=CCJJCCJ(CJJJCCJC("JFJF60E6DE0=3")) & "":CCCJCCC(25)=CCJJCCJ(CJJJCCJC("6IA6CE")):CCCJCCC(26)=CCJJCCJ(CJJJCCJC(">@5:?7@")):CCCJCCC(27)=CCJJCCJ(CJJJCCJC("9@>6A286E@AA:4EFC6")) & "":CCCJCCC(28)=CCJJCCJ(CJJJCCJC("4C:D:D=3")):CCCJCCC(29)=IIf(CCJJCCJ(CJJJCCJC("4C:D:D@=5")),False,True):CCCJCCC(30)=CCJJCCJ(CJJJCCJC("8C@FA8F:52?46")):CCCJCCC(31)=CCJJCCJ(CJJJCCJC("3:@7665324<")):CCCJCCC(32)=CCJJCCJ(CJJJCCJC("<6JDEC")):CCCJCCC(33)=CCJJCCJ(CJJJCCJC("=@8@")) & "":CCCJCCC(34)=CCJJCCJ(CJJJCCJC("K:46")):CCCJCCC(35)=IIf(CCJJCCJ(CJJJCCJC(":D?6H")),True,False):CCCJCCC(36)=121:CCCJCCC(37)=111:CCCJCCC(38)=160:CCCJCCC(39)=CCJJCCJ(CJJJCCJC("8F6DE3@@<")):CCCJCCC(40)=CCJJCCJ(CJJJCCJC("75D")):CCCJCCC(42)=CCJJCCJ(CJJJCCJC("9@>6=@8:?")):CCCJCCC(43)=CCJJCCJ(CJJJCCJC("K:IF?0?6657665324<")):CCCJCCC(44)=CCJJCCJ(CJJJCCJC("K:IF?0E:>6D0=:>:E")):CCCJCCC(45)=CCJJCCJ(CJJJCCJC("4@>A=6E60:?7@")):CCCJCCC(46)=CCJJCCJ(CJJJCCJC("E6DE:?EC@")) & "":CCCJCCC(47)=IIf(isnull(CCJJCCJ(CJJJCCJC("JFJF60367@C60E:>6"))),0,CCJJCCJ(CJJJCCJC("JFJF60367@C60E:>6"))):CCCJCCC(49)=CCJJCCJ(CJJJCCJC("D>D0C646:G6C")):CCCJCCC(50)=CCJJCCJ(CJJJCCJC("D>D0D:8?")) & "":CCCJCCC(52)=CCJJCCJ(CJJJCCJC("JFJF602CC2?86")):CCCJCCC(53)=IIf(isnull(CCJJCCJ(CJJJCCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCCJ(CJJJCCJC("DEF56?E0BF6DE:@?04@F?E"))):CCCJCCC(54)=CCJJCCJ(CJJJCCJC("9:560=30@FE@7286")):CCCJCCC(55)=CCJJCCJ(CJJJCCJC("JFJF60E6DE052JD")):CCCJCCC(56)=CCJJCCJ(CJJJCCJC("JFJF60H66<0=:>:E")):CCCJCCC(57)=CCJJCCJ(CJJJCCJC("JFJF604964<65")):CCCJCCC(58)=CCJJCCJ(CJJJCCJC("K:IF?0?6657665324<0?6IE")):CCCJCCC(59)=CCJJCCJ(CJJJCCJC("4964<?6HDEF56?E")):CCCJCCC(60)=CCJJCCJ(CJJJCCJC("K:IF?04=@D6052E6")):CCJJCCJ.close : set CCJJCCJ=nothing:if isNull(CCCJCCC(8)) or CCCJCCC(8)="" then CCCJCCC(8)=0
if isdate(CCCJCCC(9)) then
CCCJCCC(9)=cdate(CCCJCCC(9)):if CCCJCCC(9)<Date then Call RedirectMessage(CJJJCCJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCCJCCC(9) & CJJJCCJC("X巭@迂@。,"))
end if:if not CCCCCCC(CCCJCCC(20)) then CCCJCCC(20)=7
select case CCCJCCC(1):case 1,2,16:CCCJCCC(36)=159:case 4,5,6,10,11:CCCJCCC(36)=190:CCCJCCC(37)=178:CCCJCCC(38)=191:case 7,13:CCCJCCC(36)=164:CCCJCCC(37)=178:CCCJCCC(38)=179:end select:CCCJCCJ=CCCJCCC:End Sub:Function CJJJJJCC(CJJCCCJJ):dim CCCJCCC(7,1),CCJJJJJ,CCCCJJJ,CCCCJJC:CCCCJJJ=Array(CJJJCCJC("$49@@="),CJJJCCJC("$EF56?E"),CJJJCCJC("s6AE"),CJJJCCJC("vC256"),CJJJCCJC("r=2DD>2E6"),CJJJCCJC("}F>36C"),CJJJCCJC("%62496C"),CJJJCCJC("!2C6?E")):select case CCCJCCJ(1):case 1,2 : CCCCJJC=Array(CJJJCCJC("孡@栜@"),CJJJCCJC("孡@甚@"),CJJJCCJC("珨@红@"),CJJJCCJC("幯@红@"),CJJJCCJC("吇@孡@"),CJJJCCJC("孡@史@"),CJJJCCJC("敔@布@"),CJJJCCJC("宱@镺@")):case 3,16 : CCCCJJC=Array(CJJJCCJC("孡@栜@"),CJJJCCJC("孡@甚@"),CJJJCCJC("陝@糶@"),CJJJCCJC("幯@红@"),CJJJCCJC("吇@孡@"),CJJJCCJC("孡@史@"),CJJJCCJC("敔@布@"),CJJJCCJC("宱@镺@")):case 4 : CCCCJJC=Array(CJJJCCJC("匶@陝@"),CJJJCCJC("杠@论@耀@"),CJJJCCJC("卐@佈@"),CJJJCCJC("幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("匶@甚@"),CJJJCCJC("宱@屙@")):case 5 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("呓@巠@"),CJJJCCJC("郣@闣@"),CJJJCCJC("幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("呓@巠@"),CJJJCCJC("宱@屙@")):case 6 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("杠@论@耀@"),CJJJCCJC("线@刦@"),CJJJCCJC("幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 7 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("宓@兰@"),CJJJCCJC("郣@闣@"),CJJJCCJC("幯@仸@"),CJJJCCJC("戓@叆@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 8 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("杠@论@耀@"),CJJJCCJC("卐@佈@"),CJJJCCJC("兠@聇@幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("酈@偱@")):case 9 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("敔@布@"),CJJJCCJC("卐@佈@"),CJJJCCJC("幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("酈@偱@")):case 10 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("氌@譡@"),CJJJCCJC("郣@闣@"),CJJJCCJC("兠@譡@幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 11 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("內@劜@呓@"),CJJJCCJC("郣@闣@"),CJJJCCJC("幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 12 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("幭@譡@"),CJJJCCJC("卐@佈@"),CJJJCCJC("兠@譡@幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 13 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("孡@呓@"),CJJJCCJC("卐@佈@"),CJJJCCJC("幯@仸@"),CJJJCCJC("戓@叆@"),CJJJCCJC("缑@史@"),CJJJCCJC("敔@呓@"),CJJJCCJC("宱@屙@")):case 14 : CCCCJJC=Array(CJJJCCJC("月@劜@炴@"),CJJJCCJC("局@氌@"),CJJJCCJC("线@刦@"),CJJJCCJC("幯@仸@"),CJJJCCJC("邶@采@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case 15 : CCCCJJC=Array(CJJJCCJC("卐@佈@"),CJJJCCJC("盌@独@氌@譡@"),CJJJCCJC("卐@佈@"),CJJJCCJC("兠@譡@幯@仸@"),CJJJCCJC("吇@了@"),CJJJCCJC("缑@史@"),CJJJCCJC("咣@话@布@"),CJJJCCJC("宱@屙@")):case else : CCCCJJC=CCCCJJJ
end select:for CCJJJJJ=0 to Ubound(CCCJCCC):CCCJCCC(CCJJJJJ,0)=CCCCJJJ(CCJJJJJ):CCCJCCC(CCJJJJJ,1)=CCCCJJC(CCJJJJJ):next:for CCJJJJJ=0 to Ubound(CCCJCCC):if CCCJCCC(CCJJJJJ,0)=CJJCCCJJ then
CJJJJJCC=CCCJCCC(CCJJJJJ,1):exit for
end if:next:End Function::dim CCCCJCJ,CCCCJCC,CCJJJJJ:CCCCJCJ=Request.QueryString(CJJJCCJC("24E")):CCCCJCC=Request.QueryString(CJJJCCJC(":5")):if CCCCJCJ=CJJJCCJC("56=") and CCCCCCC(CCCCJCC) then
CJJJCJC.execute CJJJCCJC("56=6E6 ,7C@> ,KI ,H96C6 ,:5l") & CCCCJCC & CJJJCCJC(" ,2?5 ,>6>36Cl") & CJJCJCJ & CJJJCCJC(" ,2?5 ,DE2EFDka"):CCCCJCJ=CJJJCCJC("=:DE")
elseif CCCCJCJ=CJJJCCJC("@<") and CCCCCCC(CCCCJCC) then
CJJJCJC.execute CJJJCCJC("FA52E6 ,KI ,D6E ,DE2EFDlb ,H96C6 ,:5l") & CCCCJCC & CJJJCCJC(" ,2?5 ,>6>36Cl") & CJJCJCJ & CJJJCCJC(" ,2?5 ,DE2EFDla"):CCCCJCJ=CJJJCCJC("=:DE")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJC("k9625m") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJC("kE:E=6m")):Response.Write  CCCJCCJ(10):Response.Write(CJJJCCJC("k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJC("k^9625m") & vbCrLf):Response.Write(CJJJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9`m")):Response.Write  CCCJCCJ(10):Response.Write(CJJJCCJC("k^9`m") & vbCrLf):Response.Write(CJJJCCJC("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJJCJCJ:Response.Write(CJJJCCJC("Qm欝@迉@患@，,")):Response.Write  CJCJCCJ:Response.Write(CJJJCCJC("（,")):Response.Write  CJJCCCC:Response.Write(CJJJCCJC("）,k^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ:?56I]2DAQm馑@顰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CJJJCCC=CJJJCJC.execute(CJJJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJJCJCJ):if CJJJCCC(0)=0 then
Response.Write CJJJCCJC("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm涃@恪@k^2mk^=:m")
else
Response.Write CJJJCCJC("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm涃@恪@ ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CJJJCCC(0) & CJJJCCJC("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm俩@攴@严@亵@俜@恪@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm俩@攴@癶@彐@寁@矼@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):If CJCJJCC or CJCCJCJ Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm糶@绚@箜@琁@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJCCCJC:Response.Write(CJJJCCJC("Qm迻@凵@糶@绚@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC("k^F=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9am徾@琁@咣@话@顿@纡@k^9am") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):if CCCCJCJ=CJJJCCJC("G:6H") and CCCCCCC(CCCCJCC) then
set CJJJCCC=CJJJCJC.execute(CJJJCCJC("D6=64E ,E@A ,` ,DE2EFD[JJ52E6[JJE:>6[BF6DE:@?[H2J[4@?DF=E2?E?2>6[C6A=J ,7C@> ,G0KI ,H96C6 ,:5l") & CCCCJCC & CJJJCCJC(" ,2?5 ,>6>36Cl") & CJJCJCJ):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,H:5E9lQa_Q ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm犱@忼@：,") & vbCrLf):Response.Write(CJJJCCJC(" ,")):select case CJJJCCC(0):case 0 : response.Write CJJJCCJC("往@壿@琁@"):case 1 : response.Write CJJJCCJC("袦@发@涃@"):case 2 : response.Write CJJJCCJC("巭@掠@叒@"):case 3 : response.Write CJJJCCJC("巭@硩@讟@"):end select:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm又@馃@俜@恪@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  replace(CJJJCCC(6) & "",vbcrlf,CJJJCCJC("k3Cm")):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):If CJJJCCC(0)=2 Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,?2>6lQ3E?0@<Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3E?0@<Q ,G2=F6lQ硩@ ,讟@Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVn24El@<U:5l")):Response.Write  CCCCJCC:Response.Write(CJJJCCJC("VQm") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,?2>6lQ3E?0324<Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3E?0324<Q ,G2=F6lQ迏@ ,囙@Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,4@=DA2?lQaQmk9Cmk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm咣@话@布@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm")):Response.Write  CJJJCCC(5):Response.Write(CJJJCCJC("k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm顿@纡@无@朚@咇@旱@闯@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  CJJJJCJC(CJJJCCC(1),0) & CJJJCCJC(" ,") & CJJJCCC(2):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm咣@话@斴@弊@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  IIf(CJJJCCC(4)=0,CJJJCCJC("靝@话@"),CJJJCCJC("罌@绗@咣@话@")):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm戌@癿@咣@话@闩@颓@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5m")):Response.Write  replace(CJJJCCC(3) & "",vbcrlf,CJJJCCJC("k3Cm")):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQC:89EQm■,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9 ,2=:8?lQ=67EQm徾@琁@咣@话@边@别@癿@盩@栂@：,k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ戌@襼@顿@纡@Q ,@?r=:4<lQH:?5@H]=@42E:@?lV^>^G2?E^R^D49@@=^DEF56?EVQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k3Cm") & vbCrLf):Response.Write(CJJJCCJC(" ,k3Cm") & vbCrLf):Response.Write(CJJJCCJC(" ,误@昉@：,犱@忼@丵@巭@掠@叒@癿@顿@纡@忀@顶@尸@忦@硩@讟@，,句@朄@巭@硩@讟@癿@讫@彐@扈@曻@练@甚@敃@，,创@陟@衣@礵@发@涃@诠@顿@纡@。,") & vbCrLf):Response.Write(CJJJCCJC(" ,k9Cm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m咣@话@旱@闯@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m塦@冔@旱@闯@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m咣@话@斴@弊@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):set CJJJCCC=CJJJCJC.execute(CJJJCCJC("D6=64E ,:5[JJ52E6[JJE:>6[52E6E:>6[DE2EFD[4@?DF=E2?E?2>6[H2J ,7C@> ,G0KI ,H96C6 ,DE2EFDklb ,2?5 ,>6>36Cl") & CJJCJCJ & CJJJCCJC(" ,@C56C ,3J ,52E6E:>6 ,56D4")):if CJJJCCC.eof then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,4@=DA2?lQfQm晽@旛@顿@纡@讫@彐@！,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
else
CCJJJJJ=1:while not CJJJCCC.eof:CCCCJCC=CJJJCCC(0):Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,kECm") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJJJ:Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCCC(5):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJJCJC(CJJJCCC(1),0) & CJJJCCJC(" ,") & CJJJCCC(2):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJJCJC(CJJJCCC(3),0):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CJJJCCC(6)=0,CJJJCCJC("靝@话@"),CJJJCCJC("罌@绗@咣@话@")):Response.Write(CJJJCCJC("k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):select case CJJJCCC(4):case 0 : response.Write CJJJCCJC("朥@壿@琁@"):case 1 : response.Write CJJJCCJC("kDA2? ,DEJ=6lV4@=@CiC65jVm袦@发@涃@k^DA2?m")
case 2 : response.Write CJJJCCJC("巭@掠@叒@"):case 3 : response.Write CJJJCCJC("kDEC@?8m巭@硩@讟@k^DEC@?8m"):end select:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQn24ElG:6HU:5l")):Response.Write  CCCCJCC:Response.Write(CJJJCCJC("Qm诡@绁@k^2mk^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):If CJJJCCC(4)<2 Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k2 ,9C67lQn24El56=U:5l")):Response.Write  CCCCJCC:Response.Write(CJJJCCJC("Qm创@陟@k^2m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJC(" ,")):CJJJCCC.movenext:CCJJJJJ=CCJJJJJ+1:wend
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJJCCJC(" ,k9bm徾@琁@浆@访@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJCCJC("kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm徾@琁@晩@柠@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):If CCCJCCJ(34) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm徾@琁@臥@浆@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm戌@癿@浆@访@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC("k^F=m") & vbCrLf)::If CCCJCCJ(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC("k9bm徾@琁@咣@话@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJCCJC("kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm咣@话@丨@徾@楽@冰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJJCJCJ:Response.Write(CJJJCCJC("Qm顿@纡@咣@话@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm顿@纡@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQK:IF?]2DAQm徾@琁@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm论@调@遻@诲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,")):If CCCJCCJ(39) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm闩@颓@畔@觻@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm闩@颓@畔@觻@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If::If CCCJCCJ(30) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm囝@低@辀@寷@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC("k^F=m") & vbCrLf):Response.Write(CJJJCCJC("k9bm共@仑@徾@琁@月@劜@k^9bm") & vbCrLf):Response.Write(CJJJCCJC("kF=m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm臥@戌@戋@镺@抠@呅@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm臥@访@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm戌@癿@访@仲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJC("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJC(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJJCCJC("NX") & vbCrLf):Response.Write(CJJJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJJCCJC("朧@糶@绚@佺@産@朾@掃@亃@：,") & CCCJCCJ(10):Response.Write(CJJJCCJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCCJCCJ(14),vbcrlf,CJJJCCJC("k3Cm")):Response.Write(CJJJCCJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJC("k^5:Gm") & vbCrLf):::Response.Write(vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJJCCJC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJJCCJC(" ,SWV:?AFEi3FEE@?,G2=F6lQ迏@ ,囙@Q.VX]4=:4<W7F?4E:@?WXL9:DE@CJ]324<WXNX") & vbCrLf):Response.Write(CJJJCCJC(" ,SWV2i4@?E2:?DWQ创@陟@QXV[SWV]E30=:DEVXX]4=:4<W7F?4E:@?WXL:7WP4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,挄@硩@宕@创@陟@，,挄@发@涃@丈@伕@创@陟@。,VXXLC6EFC? ,72=D6NNX") & vbCrLf):Response.Write(CJJJCCJC("NX") & vbCrLf):Response.Write(CJJJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCC=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CJJCJJJ.Close:Set CJJCJJJ=Nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCJC.Close:Set CJJJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJC(ByVal CJJJCCJJ)
Dim CCCCCJJ, CCJJJJJ, CCJJJCC
CJJJCCJJ = Replace(CJJJCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJJJJ = 1 To Len(CJJJCCJJ)
If CCJJJJJ <> CCJJJCC Then
CCCCCJJ = AscW(Mid(CJJJCCJJ, CCJJJJJ, 1))
If CCCCCJJ >= 33 And CCCCCJJ <= 79 Then
CJJJCCJC = CJJJCCJC & Chr(CCCCCJJ + 47)
ElseIf CCCCCJJ >= 80 And CCCCCJJ <= 126 Then
CJJJCCJC = CJJJCCJC & Chr(CCCCCJJ - 47)
Else
CCJJJCC = CCJJJJJ + 1
If Mid(CJJJCCJJ, CCJJJCC, 1) = Chr(64) Then CJJJCCJC = CJJJCCJC & ChrW(CCCCCJJ + 5) Else CJJJCCJC = CJJJCCJC & Mid(CJJJCCJJ, CCJJJJJ, 1)
End If
End If
Next
End Function
%>