<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCC, CCCCJJ,CCCCJC, CCCCCJ, CCCCCC:Set CCCJCC = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CCCJCC.open Application(CJJJCCJJ("r@??64E:@?$EC:?8")):Set CCCCJJ=CCCJCC::Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ:CJCJJCJ=Trim(Request.Cookies(CJJJCCJJ("!$*|t|qt#"))):if CJCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJJ>0 then
CCCCCC=CJJJCCJJ("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") & CJJJJJC & CJJJCCJJ("V ,2?5 ,:5l") & CJJJJJJ
set CCCCJC=CCCJCC.execute(CCCCCC):If CCCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJJCJ=CCCCJC(2) & "":CJJJJCC=CCCCJC(3):CJJJCJJ=CCCCJC(5):CJJJCJC=CCCCJC(6):CJJJCCJ=CCCCJC(9):CJJJCCC=CCCCJC(15):CJJCJJC=CCCCJC(0):CJCJJJJ=CCCCJC(1):CJJCCCC=CCCCJC(11) & "":CJJCJCJ=CCCCJC(10) & "":CJJCJJJ=CCCCJC(12):CJJCJCC=CCCCJC(14):CJJCCJJ=CCCCJC(13):CJJCCJC=CCCCJC(7) & "":CJJCCCJ=CCCCJC(4):CJCJJJC=CCCCJC(8):if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CJJJCCJ) or CJJJCCJ=0 then CJJJCCJ=CJJJJCC
if isnull(CJJCCCJ) then CJJCCCJ=0
if isnull(CJJJCJJ) then CJJJCJJ=0
if instr(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJC)>0 then Call RedirectMessage(CJJJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJJ,CJJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCC:CJCJJCC=trim(request.QueryString(CJJJCCJJ("D49@@="))):if isnumeric(CJCJJCC) then
response.Redirect CJJJCCJJ("^>^G2?E^R^D49@@=^") & CJCJJCC & CJJJCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|t|qt#"))="":CJJJJJJ=0:CJJJCJC=0:CJJJJJC=Empty:CJJJCJJ=0:CJJJCCC=0:CJJJCCJ=0:CJJJJCC=0:CJJCJJC=False:CJCJJJJ=False:CJCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:CJCJCJJ=split(CJCJJCJ,CJJJCCJJ("]")):if ubound(CJCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJJ(0)) or len(CJCJCJJ(1))<>32 or len(CJCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJCJC=CJCJCJJ(1):for CJCJCCJ=1 to len(CJCJCJC):CJCJCCC=mid(CJCJCJC,CJCJCCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCJCJC=CJCJCJJ(2):if CJCCJJJ<>mid(CJCJCJC,6,7) then
Call ClearMemberCookie
else
CJCJCCC=mid(CJCJCJC,18,10)/2:if CJCJCCC<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJJ=Clng(CJCJCJJ(0)):CJJJJJC=CJCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCCJ,CJJJCCJC):dim CJCJCCJ,CJCJCCC,CJCCJJJ:for CJCJCCJ=1 to len(CJJJCCJC):CJCJCCC=mid(CJJJCCJC,CJCJCCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC
if len(CJCCJJJ)=7 then exit for
next:CJCCJJJ=CJJJJCCJ & CJJJCCJJ("]") & CJJJCCJC & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJCCJJJ:End Sub:::Function IIf(CJJJCCCJ, CJJJCCCC, CJJCJJJJ):if isnull(CJJJCCCJ) or isempty(CJJJCCCJ) then
IIf = CJJCJJJJ
elseif CJJJCCCJ Then
IIf = CJJJCCCC
Else
IIf = CJJCJJJJ
end if:End Function:Const CCCJCJC="^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 CJCJCCJ,CJCJCCC,CJCCJJC:if isarray(str) then
on error resume next:CJCJCCJ=ubound(str,2):CJCCJJC=err.number:err.clear:on error goto 0:if CJCCJJC<>0 then
for CJCJCCJ=0 to ubound(str):if CJCJCCJ>0 then response.Write CJJJCCJJ("k3C ,^m")
response.Write CJCJCCJ & CJJJCCJJ("i ,") & str(CJCJCCJ):next
else
response.Write CJJJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCCJ=0 to ubound(str,2):response.Write CJJJCCJJ("kE9 ,2=:8?lV=67EVm") & CJCJCCJ & CJJJCCJJ("k^E9m")
next:response.Write CJJJCCJJ("k^ECm"):for CJCJCCJ=0 to ubound(str):response.Write CJJJCCJJ("kECmkE9m") & CJCJCCJ & CJJJCCJJ("k^E9m"):for CJCJCCC=0 to ubound(str,2):response.Write CJJJCCJJ("kE5m") & str(CJCJCCJ,CJCJCCC) & CJJJCCJJ("k^E5m"):next:response.Write CJJJCCJJ("k^ECm"):next:response.Write CJJJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJCJJJC,CJJCJJCJ):dim CJCJCJJ:CJCJCJJ=CJJCJJJC & CJJJCCJJ("l") & CJJCJJCJ & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJCJCJJ):End Sub:::::::Function CCCJCCC(CJCCJJC):if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) then
CCCJCCC=false
else
Dim CJCCJCJ:Set CJCCJCJ = New RegExp:CJCCJCJ.Pattern = CJJJCCJJ("/-5ZS"):CJCCJCJ.IgnoreCase = True:CCCJCCC = CJCCJCJ.test(CJCCJJC):set CJCCJCJ=nothing
end if:End Function:Function CCCCJJJ(CJJCJJCC):dim CJCCJCC,CJCCCJJ:CJCCJCC=CJJJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJCC & CJJJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCCJCC.execute(CJCCJCC):CCCCJJJ = CJCCCJJ(0):if isnull(CCCCJJJ) then CCCCJJJ=1
CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCJC=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCCJJ.Close : Set CCCCCJJ = Nothing:CCCJCC.Close : Set CCCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJCJC):Application.Contents.Remove CJJCJCJC
End Sub::Class jTree:Private CCCCCC, CJCCCJC, CJCCCCJ, CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:Private Sub Class_Initialize():CJCCCCJ = 0:CJCCCCC = 0:CCJJJCC=10:End Sub:Public Property Let Table(CJJCJCCJ):if CJJCJCCJ="" then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJJJJ=CJJCJCCJ:CCJJJJC=CJJJCCJJ("!$*0") & UCase(CCJJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJJ:End Property:::Private Sub GetTreeArray():Dim CJCJCCJ, CJCJCCC, CCJJCJJ,CCJJCJC:CJCCCJC = Application(CCJJJJC):If Not IsArray(CJCCCJC) Then
CCCCCC = CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJJ:if CCJJJCJ<>"" then CCCCCC=CCCCCC & CJJJCCJJ(" ,H96C6 ,") & CCJJJCJ
set CCJJCJJ=CCCJCC.execute(CCCCCC):CCJJCJC=CCJJCJJ(0):if CCJJCJC=0 then Call RedirectMessage(CJJJCCJJ("柠@话@W") & CCJJJJJ & CJJJCCJJ("^") & CCJJJCJ & CJJJCCJJ("X沜@朄@绎@林@敫@捩@"))
CJCCCCC=CCJJCJC+CCJJJCC:ReDim CJCCCJC(CJCCCCC, 4):CCCCCC = CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CJJJCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCJ<>"" then CCCCCC=CCCCCC & CJJJCCJJ(" ,H96C6 ,") & CCJJJCJ
CCCCCC=CCCCCC & CJJJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJJ=CCCJCC.execute(CCCCCC):For CJCJCCJ = 1 To CCJJCJC:For CJCJCCC = 0 To 4:CJCCCJC(CJCJCCJ, CJCJCCC) = CCJJCJJ(CJCJCCC):if IsNull(CJCCCJC(CJCJCCJ,4)) then CJCCCJC(CJCJCCJ,4)=0
If CJCCCJC(CJCJCCJ,2)="" then CJCCCJC(CJCJCCJ,2)=CJJJCCJJ(",穵@.")
Next:CCJJCJJ.MoveNext:Next:CCJJCJJ.Close: Set CCJJCJJ = Nothing:for CJCJCCJ=CJCCCCC-(CCJJJCC-1) to CJCCCCC:CJCCCJC(CJCJCCJ,0)=CJCJCCJ:next:Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
else
CJCCCCC=Ubound(CJCCCJC)
End If:End Sub:::::Private Function CCCCCCJ(CJJJJCCJ):dim CJCJCCJ,CCJJCCJ:CCCCCCJ=0:CCJJCCJ=CStr(CJJJJCCJ):if CCJJCCJ<>"0" then
for CJCJCCJ=1 to CJCCCCC:If CStr(CJCCCJC(CJCJCCJ, 0))=CCJJCCJ Then
CCCCCCJ = CJCJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCCCCCC(CJJJJCCJ):if Cstr(CJJJJCCJ)="0" then
CCCCCCC=CJJJCCJJ("栴@")
else
Dim CJCJCCJ,CCJJCJJ:CJCJCCJ=CCCCCCJ(CJJJJCCJ):if CJCJCCJ>0 then
CCCCCCC=CJCCCJC(CJCJCCJ,2):if CCCCCCC="" then
set CCJJCJJ=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJCCJ):if CCJJCJJ.eof then Call RedirectMessage(CJJJCCJJ("xs（,") & CJJJJCCJ & CJJJCCJJ("）,朥@批@别@"))
CCCCCCC=CCJJCJJ(1):Call UpdateCache(CJJJJCCJ,CCJJCJJ(0),CCCCCCC,CCJJCJJ(2),CCJJCJJ(3)):CCJJCJJ.Close: Set CCJJCJJ = Nothing
end if
else
set CCJJCJJ=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJCCJ):if CCJJCJJ.eof then Call RedirectMessage(CJJJCCJJ("xs（,") & CJJJJCCJ & CJJJCCJJ("）,朥@批@别@"))
CCCCCCC=CCJJCJJ(1):Call UpdateCache(CJJJJCCJ,CCJJCJJ(0),CCCCCCC,CCJJCJJ(2),CCJJCJJ(3)):CCJJCJJ.Close: Set CCJJCJJ = Nothing
end if
end if:End Function:::Public Function CJJJJJJJ(CJJJJCCJ):Dim CJCJCCJ,CCJJCCC:CJCJCCJ=CCCCCCJ(CJJJJCCJ):if CJCJCCJ=0 then
CCJJCCC=CJJJJJJC(CJJJJCCJ)
else
CCJJCCC=CJCCCJC(CJCJCCJ,3):if isnull(CCJJCCC) or CCJJCCC="" then
CCJJCCC=CJJJJJJC(CJJJJCCJ)
elseif Mid(CCJJCCC,instrrev(CCJJCCC,CJJJCCJJ("["))+1)<>CStr(CJJJJCCJ) then
CCJJCCC=CJJJJJJC(CJJJJCCJ)
elseif Left(CCJJCCC,1)=CJJJCCJJ("[") then
CCJJCCC=CJJJJJJC(CJJJJCCJ)
end if
end if:CJJJJJJJ=CCJJCCC:End Function:Private Function CJJJJJJC(CJJJJCCJ):dim CCJJCCJ:CCJJCCJ=CStr(CJJJJCCJ):if CCJJCCJ="0" then
CJJJJJJC=""
else
dim CCJJCJJ:set CCJJCJJ=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJJCCJ):if CCJJCJJ.eof then
Call UpdateCache(CJJJJCCJ,"","","",""):Call RedirectMessage(CJJJCCJJ("顴@盩@（,xs：,") & CJJJJCCJ & CJJJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJCJJ(0)=0 then
CJJJJJJC="0," & CJJJJCCJ
else
CJJJJJJC=CJJJJJJJ(CCJJCJJ(0)) & CJJJCCJJ("[") & CJJJJCCJ
end if:if CCJJCJJ(2)<>CJJJJJJC then
CCCJCC.execute CJJJCCJJ("FA52E6 ,") & CCJJJJJ & CJJJCCJJ(" ,D6E ,A2E9lV") & CJJJJJJC & CJJJCCJJ("V ,H96C6 ,:5l") & CJJJJCCJ
else
CJJJJJJC=CCJJCJJ(2)
end if
end if:Call UpdateCache(CJJJJCCJ,CCJJCJJ(0),CCJJCJJ(1),CJJJJJJC,CCJJCJJ(3)):CCJJCJJ.Close: Set CCJJCJJ = Nothing
end if:End Function::Public Function CJJJJJCJ(CJJJJCCJ):CJJJJJCJ = Mid(CJJJJJJJ(CJJJJCCJ), 3):End Function:Public Function CJJJJJCC(CJJJJCCJ):Dim CJCJCCJ, CJCJCCC, CCJCJJJ,Str, CCJJCCC, CCJCJCJ, CCJCJCC():CCJJCCC = CJJJJJCJ(CJJJJCCJ):CCJJCCC = Split(CCJJCCC, CJJJCCJJ("[")):for CJCJCCJ=0 to Ubound(CCJJCCC):CCJCJJJ=CCJJCCC(CJCJCCJ):str=str & CJJJCCJJ("M") & CCJCJJJ & CJJJCCJJ("M") & CCCCCCC(CCJCJJJ):next:if str<>"" then str=Mid(str,2)
CJJJJJCC=str:End Function::::::::::::Public Function GetPositionStr_From(CJJJJCCJ, CJJJJCJC):if isnull(CJJJJCCJ) or isnull(CJJJJCJC) then
GetPositionStr_From=CJJJCCJJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJCJCCJ, CCJCJCC, CCJCJCJ, CCJCCJJ:CJJJJCJC = CStr(CJJJJCJC):If CJJJJCJC = "0" or CJJJJCJC = CStr(CJJJJCCJ) Then
Str = CCCCCCC(CJJJJCCJ)
Else
CCJCJCC = Split(CJJJJJCC(CJJJJCCJ), CJJJCCJJ("M")):CCJCJCJ = UBound(CCJCJCC):CCJCCJJ = False:For CJCJCCJ = 0 To CCJCJCJ Step 2:If CCJCJCC(CJCJCCJ) = CJJJJCJC And Not CCJCCJJ Then CCJCCJJ = True
If CCJCCJJ Then
If Str <> "" Then Str = Str & CJJJCCJJ("→,")
Str = Str & CCJCJCC(CJCJCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJCCJJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJJJJC
End Sub:Public Sub UpdateCache(CJJJJCCJ,CCJCJJJ,CJJCJCCC,CCJJCCC,CJJCCJJJ):dim CJCJCCJ,CJCJCCC:CJJJJCCJ=CLng(CJJJJCCJ):CJCJCCJ=CCCCCCJ(CJJJJCCJ):if CCJCJJJ="" and CJJCJCCC="" and CCJJCCC="" and CJJCCJJJ="" then
if CJCJCCJ>0 then
for CJCJCCC=1 to 4:CJCCCJC(CJCJCCJ,CJCJCCC)=Null:next
end if
else
if CJCJCCJ=0 then
for CJCJCCC=1 to CJCCCCC:if CJCCCJC(CJCJCCC,1) & ""="" then
CJCJCCJ=CJCJCCC:exit for
end if:next
end if:if CJCJCCJ=0 then
Call ClearCache
else
CJCCCJC(CJCJCCJ,0)=CLng(CJJJJCCJ):if CCJCJJJ<>"" then CJCCCJC(CJCJCCJ,1)=CLng(CCJCJJJ)
if CJJCJCCC<>"" then CJCCCJC(CJCJCCJ,2)=CJJCJCCC
if CCJJCCC<>"" then CJCCCJC(CJCJCCJ,3)=CCJJCCC
if CJJCCJJJ<>"" then CJCCCJC(CJCJCCJ,4)=CLng(CJJCCJJJ)
end if
end if:if CJCJCCJ>0 then
Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCJJ):Call ConnClose:Response.Write CJJCJCJJ:Response.End:End Sub:Private Function CCCCJJJ():CCCCJJJ=CJJJJCCC+1:End Function:Private Function CJJJJCCC():dim CJCCCJJ:set CJCCCJJ=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJJ & CJJJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCCC=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCJJCC:CCCCCC=Request.ServerVariables(CJJJCCJJ("!p%w0x}u~")):if instr(CCCCCC,CJJJCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJJC and not CJCJJJJ then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCJJCC=CJJJCCJ
elseif instr(CCCCCC,CJJJCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCC,CJJJCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCC=CJJJCCJ
elseif instr(CCCCCC,CJJJCCJJ("^D49@@="))>0 then
CJCJJCC=Request.QueryString(CJJJCCJJ("D49@@=")):if not CCCJCCC(CJCJJCC) then CJCJJCC=Request.QueryString(CJJJCCJJ("F"))
if not CCCJCCC(CJCJJCC) then CJCJJCC=Request.QueryString(CJJJCCJJ("D4"))
if not CCCJCCC(CJCJJCC) then Call RedirectMessage(CJJJCCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCJJCC=csng(CJCJJCC)
end if:if CJCJJCC=0 then Call RedirectMessage(CJJJCCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCCJC:Call SetConfig:Sub SetConfig():dim CCJCJCC,CJCCCJJ:CCCCCC=CJJJCCJJ("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") & CJCJJCC:set CJCCCJJ=CCCJCC.execute(CCCCCC):if CJCCCJJ.eof then Call RedirectMessage(CJJJCCJJ("患@W") & CJJJJJJ & CJJJCCJJ("X戻@圣@癿@卐@佈@W") & CJCJJCC & CJJJCCJJ("X朥@批@别@。,"))
ReDim CCJCJCC(61):CCJCJCC(0)=CJCCCJJ(CJJJCCJJ(";:2@H6:")) & "":CCJCJCC(1)=CJCCCJJ(CJJJCCJJ("EJA6")):CCJCJCC(2)=CJCCCJJ(CJJJCCJJ("D>D")):CCJCJCC(3)=CJCCCJJ(CJJJCCJJ("4FDE@>8C@FA")) & "":CCJCJCC(4)=CJCCCJJ(CJJJCCJJ("D:5632C0@E96C")) & "":CCJCJCC(5)=IIf(isnull(CJCCCJJ(CJJJCCJJ("E6DEC6DF=EG:6H"))),0,CJCCCJJ(CJJJCCJJ("E6DEC6DF=EG:6H"))):CCJCJCC(6)=CJCCCJJ(CJJJCCJJ("K:IF?E:>6")):CCJCJCC(7)=CJCCCJJ(CJJJCCJJ("766")):CCJCJCC(8)=CJCCCJJ(CJJJCCJJ("C6E6DE52J")):CCJCJCC(9)=CJCCCJJ(CJJJCCJJ("6IA:C652E6")):CCJCJCC(10)=CJCCCJJ(CJJJCCJJ("E:E=6")):CCJCJCC(11)=CJCCCJJ(CJJJCCJJ(":?EC@")) & "":CCJCJCC(12)=CJCCCJJ(CJJJCCJJ("A:4EFC6")) & "":CCJCJCC(13)=CJCCCJJ(CJJJCCJJ("72>:=J")):CCJCJCC(14)=CJCCCJJ(CJJJCCJJ("4@AJC:89E")) & "":CCJCJCC(15)=IIf(isnull(CJCCCJJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))),CJJJCCJJ("`h__\`\`"),CJCCCJJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))):CCJCJCC(16)=IIf(isnull(CJCCCJJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCCJJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))):CCJCJCC(17)=CJCCCJJ(CJJJCCJJ("4@?E24E")) & "":CCJCJCC(18)=CJCCCJJ(CJJJCCJJ("D2?5E23=6")):CCJCJCC(19)=CJCCCJJ(CJJJCCJJ("4C:D:D")):CCJCJCC(20)=CJCCCJJ(CJJJCCJJ("JJ52E6")):CCJCJCC(21)=CJCCCJJ(CJJJCCJJ("BB")):CCJCJCC(22)=CJCCCJJ(CJJJCCJJ("JFJF60D>D0EA=")) & "":CCJCJCC(23)=CJCCCJJ(CJJJCCJJ("JFJF60E6DE0=3")) & "":CCJCJCC(25)=CJCCCJJ(CJJJCCJJ("6IA6CE")):CCJCJCC(26)=CJCCCJJ(CJJJCCJJ(">@5:?7@")):CCJCJCC(27)=CJCCCJJ(CJJJCCJJ("9@>6A286E@AA:4EFC6")) & "":CCJCJCC(28)=CJCCCJJ(CJJJCCJJ("4C:D:D=3")):CCJCJCC(29)=IIf(CJCCCJJ(CJJJCCJJ("4C:D:D@=5")),False,True):CCJCJCC(30)=CJCCCJJ(CJJJCCJJ("8C@FA8F:52?46")):CCJCJCC(31)=CJCCCJJ(CJJJCCJJ("3:@7665324<")):CCJCJCC(32)=CJCCCJJ(CJJJCCJJ("<6JDEC")):CCJCJCC(33)=CJCCCJJ(CJJJCCJJ("=@8@")) & "":CCJCJCC(34)=CJCCCJJ(CJJJCCJJ("K:46")):CCJCJCC(35)=IIf(CJCCCJJ(CJJJCCJJ(":D?6H")),True,False):CCJCJCC(36)=121:CCJCJCC(37)=111:CCJCJCC(38)=160:CCJCJCC(39)=CJCCCJJ(CJJJCCJJ("8F6DE3@@<")):CCJCJCC(40)=CJCCCJJ(CJJJCCJJ("75D")):CCJCJCC(42)=CJCCCJJ(CJJJCCJJ("9@>6=@8:?")):CCJCJCC(43)=CJCCCJJ(CJJJCCJJ("K:IF?0?6657665324<")):CCJCJCC(44)=CJCCCJJ(CJJJCCJJ("K:IF?0E:>6D0=:>:E")):CCJCJCC(45)=CJCCCJJ(CJJJCCJJ("4@>A=6E60:?7@")):CCJCJCC(46)=CJCCCJJ(CJJJCCJJ("E6DE:?EC@")) & "":CCJCJCC(47)=IIf(isnull(CJCCCJJ(CJJJCCJJ("JFJF60367@C60E:>6"))),0,CJCCCJJ(CJJJCCJJ("JFJF60367@C60E:>6"))):CCJCJCC(49)=CJCCCJJ(CJJJCCJJ("D>D0C646:G6C")):CCJCJCC(50)=CJCCCJJ(CJJJCCJJ("D>D0D:8?")) & "":CCJCJCC(52)=CJCCCJJ(CJJJCCJJ("JFJF602CC2?86")):CCJCJCC(53)=IIf(isnull(CJCCCJJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCJJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CCJCJCC(54)=CJCCCJJ(CJJJCCJJ("9:560=30@FE@7286")):CCJCJCC(55)=CJCCCJJ(CJJJCCJJ("JFJF60E6DE052JD")):CCJCJCC(56)=CJCCCJJ(CJJJCCJJ("JFJF60H66<0=:>:E")):CCJCJCC(57)=CJCCCJJ(CJJJCCJJ("JFJF604964<65")):CCJCJCC(58)=CJCCCJJ(CJJJCCJJ("K:IF?0?6657665324<0?6IE")):CCJCJCC(59)=CJCCCJJ(CJJJCCJJ("4964<?6HDEF56?E")):CCJCJCC(60)=CJCCCJJ(CJJJCCJJ("K:IF?04=@D6052E6")):CJCCCJJ.close : set CJCCCJJ=nothing:if isNull(CCJCJCC(8)) or CCJCJCC(8)="" then CCJCJCC(8)=0
if isdate(CCJCJCC(9)) then
CCJCJCC(9)=cdate(CCJCJCC(9)):if CCJCJCC(9)<Date then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCJCC(9) & CJJJCCJJ("X巭@迂@。,"))
end if:if not CCCJCCC(CCJCJCC(20)) then CCJCJCC(20)=7
select case CCJCJCC(1):case 1,2,16:CCJCJCC(36)=159:case 4,5,6,10,11:CCJCJCC(36)=190:CCJCJCC(37)=178:CCJCJCC(38)=191:case 7,13:CCJCJCC(36)=164:CCJCJCC(37)=178:CCJCJCC(38)=179:end select:CCJCCJC=CCJCJCC:End Sub:Function CCCCJCC(CJJCCJJC):dim CCJCJCC(7,1),CJCJCCJ,CCJCCCJ,CCJCCCC:CCJCCCJ=Array(CJJJCCJJ("$49@@="),CJJJCCJJ("$EF56?E"),CJJJCCJJ("s6AE"),CJJJCCJJ("vC256"),CJJJCCJJ("r=2DD>2E6"),CJJJCCJJ("}F>36C"),CJJJCCJJ("%62496C"),CJJJCCJJ("!2C6?E")):select case CCJCCJC(1):case 1,2 : CCJCCCC=Array(CJJJCCJJ("孡@栜@"),CJJJCCJJ("孡@甚@"),CJJJCCJJ("珨@红@"),CJJJCCJJ("幯@红@"),CJJJCCJJ("吇@孡@"),CJJJCCJJ("孡@史@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("宱@镺@")):case 3,16 : CCJCCCC=Array(CJJJCCJJ("孡@栜@"),CJJJCCJJ("孡@甚@"),CJJJCCJJ("陝@糶@"),CJJJCCJJ("幯@红@"),CJJJCCJJ("吇@孡@"),CJJJCCJJ("孡@史@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("宱@镺@")):case 4 : CCJCCCC=Array(CJJJCCJJ("匶@陝@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("匶@甚@"),CJJJCCJJ("宱@屙@")):case 5 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("呓@巠@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("呓@巠@"),CJJJCCJJ("宱@屙@")):case 6 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("线@刦@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 7 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("宓@兰@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("戓@叆@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 8 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@聇@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("酈@偱@")):case 9 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("酈@偱@")):case 10 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("氌@譡@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 11 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("內@劜@呓@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 12 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("幭@譡@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 13 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("孡@呓@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("戓@叆@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("敔@呓@"),CJJJCCJJ("宱@屙@")):case 14 : CCJCCCC=Array(CJJJCCJJ("月@劜@炴@"),CJJJCCJJ("局@氌@"),CJJJCCJJ("线@刦@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("邶@采@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 15 : CCJCCCC=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("盌@独@氌@譡@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case else : CCJCCCC=CCJCCCJ
end select:for CJCJCCJ=0 to Ubound(CCJCJCC):CCJCJCC(CJCJCCJ,0)=CCJCCCJ(CJCJCCJ):CCJCJCC(CJCJCCJ,1)=CCJCCCC(CJCJCCJ):next:for CJCJCCJ=0 to Ubound(CCJCJCC):if CCJCJCC(CJCJCCJ,0)=CJJCCJJC then
CCCCJCC=CCJCJCC(CJCJCCJ,1):exit for
end if:next:End Function::Public Function CJJJCJJJ(CJCCJJC):dim CCCJJJJ:if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) or instr(CJCCJJC,CJJJCCJJ("\"))>0 or instr(CJCCJJC,CJJJCCJJ("]"))>0 or left(CJCCJJC,1)="0" then
CCCJJJJ=""
else
CCCJJJJ=CJCCJJC:if Len(CCCJJJJ) Mod 2=1 then CCCJJJJ="0" & CCCJJJJ
Randomize:CCCJJJJ=CCCJJJJ & Int((99-10+1)*Rnd+10):CCCJJJJ=CJJJCJJC(CCCJJJJ):CCCJJJJ=CCCJJJJ & CJJJCJCJ(CCCJJJJ)
end if:CJJJCJJJ=CCCJJJJ:End Function::Private Function CJJJCJJC(str):Dim CCCJJJC, CJCJCCJ, CJCCJJJ, CCCJJCJ, CCCJJCC, CJCCJJC,CCCJJJJ:CCCJJCJ = Len(str):For CJCJCCJ = 1 To CCCJJCJ:CJCCJJJ = CInt(Mid(str, CJCJCCJ, 1)):If CJCCJJJ < 5 Then CJCCJJJ = CJCCJJJ + 5 Else CJCCJJJ = CJCCJJJ - 5
CCCJJJC = CCCJJJC & CJCCJJJ:Next:For CJCJCCJ = 1 To CCCJJCJ - 1 Step 2:CCCJJCC = Mid(CCCJJJC, CJCJCCJ, 1):CJCCJJC = Mid(CCCJJJC, CJCJCCJ + 1, 1):CCCJJJJ = CCCJJJJ & CJCCJJC & CCCJJCC:Next:CJJJCJJC = StrReverse(CCCJJJJ):End Function:Private Function CJJJCJCJ(CJJCCJCJ):Dim CCCJJCJ, CJCJCCJ, CJCCJJC, CCCJJJC:CCCJJCJ = Len(CJJCCJCJ):CJCCJJC = 0:For CJCJCCJ = 1 To CCCJJCJ:CCCJJJC = CInt(Mid(CJJCCJCJ, CJCJCCJ, 1)):If CJCJCCJ Mod 2 = 0 Then CJCCJJC = CJCCJJC + CCCJJJC * 3 Else CJCCJJC = CJCCJJC + CCCJJJC
Next:CJCCJJC = CJCCJJC Mod 100:CJCCJJC = 100 - CJCCJJC:CJJJCJCJ = Right("0" & CJCCJJC, 2):End Function::if CCJCCJC(19) and CCJCCJC(28) then
if CCJCCJC(29) then
set CCCCJC=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJJJJJJ & CJJJCCJJ(" ,2?5 ,G2=:5l` ,2?5 ,=3l") & CCJCCJC(36)):if CCCCJC.eof then
Call ConnClose:response.Redirect CJJJCCJJ("E6DE:?EC@]2DA")
end if
else
set CCCCJC=CCCJCC.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJJJJJJ & CJJJCCJJ(" ,2?5 ,G2=:5l` ,2?5 ,=3l`_h")):if CCCCJC.eof then
Call ConnClose:response.Redirect CJJJCCJJ("E6DE:?EC@]2DA")
end if
end if
end if:dim CJCCCJC:set CJCCCJC=new jtree:CJCCCJC.table=CJJJCCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJJ("k9625m") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m")):Response.Write  CCJCCJC(10):Response.Write(CJJJCCJJ("k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("]:4@? ,L ,96:89Ei ,d_AIj ,H:5E9i ,d_AIj ,N") & vbCrLf):Response.Write(CJJJCCJJ("]:4@? ,DA2? ,L ,7@?E\D:K6i ,`_AIj ,4@=@Ci ,Ruuuj ,324<8C@F?5i ,Rrb_j ,96:89Ei ,`dAIj ,H:5E9i ,`dAIj ,5:DA=2Ji ,3=@4<j ,7=@2Ei ,C:89Ej ,=:?6\96:89Ei ,`dAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9`m")):Response.Write  CCJCCJC(10):Response.Write(CJJJCCJJ("k^9`m") & vbCrLf):Response.Write(CJJJCCJJ("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJJJJJJ:Response.Write(CJJJCCJJ("Qm欝@迉@患@，,")):Response.Write  CJJCCJJ:Response.Write(CJJJCCJJ("（,")):Response.Write  CJJJCJC:Response.Write(CJJJCCJJ("）,k^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAQm馑@顰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):set CCCCJC=CCCJCC.execute(CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJJJJJJ):if CCCCJC(0)=0 then
Response.Write CJJJCCJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm涃@恪@k^2mk^=:m")
else
Response.Write CJJJCCJJ("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") & CCCCJC(0) & CJJJCCJJ("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm俩@攴@严@亵@俜@恪@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm俩@攴@癶@彐@寁@矼@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):If CJJCJJC or CJCJJJJ Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm糶@绚@箜@琁@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CJJJCCJJ("Qm迻@凵@糶@绚@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ("k^F=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am欝@迉@，,")):Response.Write  CJJCCJJ:Response.Write(CJJJCCJJ("k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkDEC@?8m")):Response.Write  CCCCJCC(CJJJCCJJ("}F>36C")):Response.Write(CJJJCCJJ("：,k^DEC@?8m")):Response.Write  CJJJCJC:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkDEC@?8m姎@合@：,k^DEC@?8m")):Response.Write  CJJCCJJ:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkDEC@?8m")):Response.Write  CCCCJCC(CJJJCCJJ("s6AE")):Response.Write(CJJJCCJJ("：,k^DEC@?8m")):Response.Write  CJCCCJC.GetPositionStr_From(CJJJJCC,CJJJCCJ):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkDEC@?8m伕@呓@缑@史@：,k^DEC@?8m")):Response.Write  CJJJJJJ:Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,好@林@仠@丅@俜@恪@丈@昪@患@癿@贿@斔@，,诲@炴@凶@k2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CJJJCCJJ("Qm歟@壿@k^2m迻@凵@糶@绚@。, ,k3Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k2 ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6Jl")):Response.Write  CJJJCJJJ(CJJJJJJ):Response.Write(CJJJCCJJ("Q ,DEJ=6lQ5:DA=2Ji:?=:?6\3=@4<jE6IE\2=:8?i46?E6CjQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:>8 ,DC4lQ9EEADi^^:]=@=:]?6E^a_a_^_a^`c^syv!Ih+:wB68r9)]A?8Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3Cm顿@纡@咣@话@") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^2m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bm徾@琁@浆@访@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ("kF=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm徾@琁@晩@柠@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):If CCJCCJC(34) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm徾@琁@臥@浆@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm戌@癿@浆@访@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ("k^F=m") & vbCrLf)::If CCJCCJC(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ("k9bm徾@琁@咣@话@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ("kF=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm咣@话@丨@徾@楽@冰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJJJJJJ:Response.Write(CJJJCCJJ("Qm顿@纡@咣@话@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm顿@纡@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQK:IF?]2DAQm徾@琁@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm论@调@遻@诲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):If CCJCCJC(39) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm闩@颓@畔@觻@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm闩@颓@畔@觻@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If::If CCJCCJC(30) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm囝@低@辀@寷@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("k^F=m") & vbCrLf):Response.Write(CJJJCCJJ("k9bm共@仑@徾@琁@月@劜@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ("kF=m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm臥@戌@戋@镺@抠@呅@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm臥@访@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm戌@癿@访@仲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJJCCJJ("NX") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJJCCJJ("朧@糶@绚@佺@産@朾@掃@亃@：,") & CCJCCJC(10):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCJCCJC(14),vbcrlf,CJJJCCJJ("k3Cm")):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJJCCJJ("NX") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCJC=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCJCC.Close:Set CCCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJJ(ByVal CJJJCJCC)
Dim CCCJCJJ, CJCJCCJ, CJCCJJC
CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCJ = 1 To Len(CJJJCJCC)
If CJCJCCJ <> CJCCJJC Then
CCCJCJJ = AscW(Mid(CJJJCJCC, CJCJCCJ, 1))
If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJCJJ + 47)
ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJCJJ - 47)
Else
CJCCJJC = CJCJCCJ + 1
If Mid(CJJJCJCC, CJCCJJC, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCCJCJJ + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJCJCCJ, 1)
End If
End If
Next
End Function
%>