<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJCJ, CJJJCC,CJJCJJ, CJJCJC, CJJCCJ:Set CJJJCJ = server.CreateObject(CJCCJJJC("ps~sq]r@??64E:@?")):CJJJCJ.open Application(CJCCJJJC("r@??64E:@?$EC:?8")):Set CJJJCC=CJJJCJ::Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC:CCCJJC=Trim(Request.Cookies(CJCCJJJC("!$*|t|qt#"))):if CCCJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCCC>0 then CJJCCJ=CJCCJJJC("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?@=@40 then Call RedirectMessage(CJCCJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJCCC,CJCJJJ) End IF end if:Sub CheckRight(CJJCJJC):dim CCCJCJ,CCCJCC:if CJJCCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJCJJCC(CJJCJJC) then Call RedirectMessage(CJCCJJJC("朾@陋@W") & CJJCJJC & CJCCJJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJCJJCC(CJJCJJC):dim CCCJCJ,CCCJCC:CCCJCC=split(CJJCJJC,CJCCJJJC("[")):CJJCJJCC=False:for CCCJCJ=0 to ubound(CCCJCC):If Mid(CJCJJC,CCCJCC(CCCJCJ),1)="1" then CJJCJJCC=True:exit function end if:next:End Function:Sub CheckLogined():if CJJCCC=0 then Call ClearMemberCookie:Call ConnClose:dim CCCCJJ:CCCCJJ=trim(request.QueryString(CJCCJJJC("D49@@="))):if isnumeric(CCCCJJ) then response.Redirect CJCCJJJC("^>^G2?E^R^D49@@=^") & CCCCJJ & CJCCJJJC("^DEF56?E^=@8:?nC65:C64El") & CJJJCCJ else Call RedirectMessage(CJCCJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJJJC("!$*|t|qt#"))="":CJJCCC=0:CJCCJJ=0:CJCJJJ=Empty:CJCJCC=0:CJCCCJ=0:CJCCJC=0:CJCJCJ=0:CCJJJJ=False:CCJCCC=False:CCCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJC,CCCCCJ,CCCJCJ,CCCCCC,CJJJJJJ:CCCCJC=split(CCCJJC,CJCCJJJC("]")):if ubound(CCCCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCJC(0)) or len(CCCCJC(1))<>32 or len(CCCCJC(2))<>32 then Call ClearMemberCookie else CCCCCJ=CCCCJC(1):for CCCJCJ=1 to len(CCCCCJ):CCCCCC=mid(CCCCCJ,CCCJCJ,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC if len(CJJJJJJ)=7 then exit for next:CCCCCJ=CCCCJC(2):if CJJJJJJ<>mid(CCCCCJ,6,7) then Call ClearMemberCookie else CCCCCC=mid(CCCCCJ,18,10)/2:if CCCCCC6"), CJCCJJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJJJC("kD4C:AE"), CJCCJJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJCJ=new RegExp:CJJJJCJ.Pattern=CJCCJJJC("@?W,2\K.ZXl"):CJJJJCJ.IgnoreCase = True:CJJJJCJ.Global=True:str=CJJJJCJ.Replace(str,CJCCJJJC("@?S`U6BF2=Dj")):set CJJJJCJ=nothing:CJJCJCJJ=str End If:End Function:Function IIf(CJCCJCJJ, CJCCJCJC, CJCCJCCJ):if isnull(CJCCJCJJ) or isempty(CJCCJCJJ) then IIf = CJCCJCCJ elseif CJCCJCJJ Then IIf = CJCCJCJC Else IIf = CJCCJCCJ end if:End Function:Const CCCCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJJCJCCJ():dim CJJJJCC:CJJJJCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJJJCC = "" Then CJJJJCC = Cstr(Request.ServerVariables(CJCCJJJC("#t|~%t0pss#"))) if instr(CJJJJCC,CJCCJJJC("i"))>0 then CJJJJCC=left(CJJJJCC,instr(CJJJJCC,CJCCJJJC("i"))-1) elseif instr(CJJJJCC,CJCCJJJC("["))>0 then CJJJJCC=left(CJJJJCC,instr(CJJJJCC,CJCCJJJC("["))-1) end if:CJJCJCCJ=left(CJJJJCC,15):End Function:Sub Debug(str):response.Charset=CJCCJJJC("FE7\g"):dim CCCJCJ,CCCCCC,CJJJCJJ:if isarray(str) then on error resume next:CCCJCJ=ubound(str,2):CJJJCJJ=err.number:err.clear:on error goto 0:if CJJJCJJ<>0 then for CCCJCJ=0 to ubound(str):if CCCJCJ>0 then response.Write CJCCJJJC("k3C ,^m") response.Write CCCJCJ & CJCCJJJC("i ,") & str(CCCJCJ):next else response.Write CJCCJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CCCJCJ=0 to ubound(str,2):response.Write CJCCJJJC("kE9 ,2=:8?lV=67EVm") & CCCJCJ & CJCCJJJC("k^E9m") next:response.Write CJCCJJJC("k^ECm"):for CCCJCJ=0 to ubound(str):response.Write CJCCJJJC("kECmkE9m") & CCCJCJ & CJCCJJJC("k^E9m"):for CCCCCC=0 to ubound(str,2):response.Write CJCCJJJC("kE5m") & str(CCCJCJ,CCCCCC) & CJCCJJJC("k^E5m"):next:response.Write CJCCJJJC("k^ECm"):next:response.Write CJCCJJJC("k^E23=6m") end if elseif isnull(str) then response.Write CJCCJJJC(",}F==.") else Response.Write replace(str,vbcrlf,CJCCJJJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJJCJCCC():Dim CJJJCJC, CJJJCCJ:CJJJCCJ = Request.ServerVariables(CJCCJJJC("!p%w0x}u~")):CJJJCJC = Request.ServerVariables(CJCCJJJC("""&t#*0$%#x}v")):If CJJJCJC <> Empty Then if instr(lcase(CJJJCJC),CJCCJJJC("Tb4:7C2>6"))>0 or instr(lcase(CJJJCJC),CJCCJJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCJJJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CJJJCCJ = CJJJCCJ & CJCCJJJC("n") & CJJJCJC end if:CJJCJCCC = CJJJCCJ:End Function:Sub SetHttpOnlyCookie(CJCCJCCC,CJCCCJJJ):dim CCCCJC:CCCCJC=CJCCJCCC & CJCCJJJC("l") & CJCCCJJJ & CJCCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJJC("$6E\r@@<:6"),CCCCJC):End Sub:::::::Function CJJCCJJJ(CJJJCJJ):if isnull(CJJJCJJ) or trim(CJJJCJJ)="" or not isnumeric(CJJJCJJ) then CJJCCJJJ=false else Dim CJJJJCJ:Set CJJJJCJ = New RegExp:CJJJJCJ.Pattern = CJCCJJJC("/-5ZS"):CJJJJCJ.IgnoreCase = True:CJJCCJJJ = CJJJJCJ.test(CJJJCJJ):set CJJJJCJ=nothing end if:End Function:Function CJJCCJJC(CJCCCJJC):dim CJJJCCC,CJJCJJJ:CJJJCCC=CJCCJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCJJC & CJCCJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJJJ=CJJJCJ.execute(CJJJCCC):CJJCCJJC = CJJCJJJ(0):if isnull(CJJCCJJC) then CJJCCJJC=1 CJJCJJJ.close : set CJJCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:set CJJCCCJJ=nothing:CJJCJJJ.close : set CJJCJJJ=nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJCCCJC.Close : Set CJJCCCJC = Nothing:CJJJCJ.Close : Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJJC("!$*0|6DD286"),server.URLEncode(CJCCCJCJ)):Response.Redirect CJCCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJCCCCJ(Table):Dim CJJCJJJ, CJJCJJC, str(), CCCJCJ,CCCCCC,CJJCJCJ:CJJCJCJ=UCase(Table):If Not IsArray(Application(CJCCJJJC("!$*0") & CJJCJCJ)) Then CJJCCJ=CJCCJJJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCJJJC(". ,@C56C ,3J ,D@CE[:5"):set CJJCJJJ=server.createobject(CJCCJJJC("25@53]C64@C5D6E")):CJJCJJJ.open CJJCCJ,CJJJCJ,1:CJJCJJC = CJJCJJJ.RecordCount:ReDim str(CJJCJJC, 2):If CJJCJJC > 0 Then For CCCJCJ = 1 To CJJCJJC:for CCCCCC=0 to 2:str(CCCJCJ, CCCCCC) = CJJCJJJ(CCCCCC):next:CJJCJJJ.MoveNext:Next End If:CJJCJJJ.Close: Set CJJCJJJ = Nothing:Application(CJCCJJJC("!$*0") & CJJCJCJ) = str End If:CJJCCCCJ = Application(CJCCJJJC("!$*0") & CJJCJCJ):End Function:Sub ShowListSelect(CJCCCJJC,CJCCCJCC,CJCCCCJJ):Dim str, CCCJCJ, CJJCJCC:CJJCJCC = CJJCCCCJ(CJCCCJJC):For CCCJCJ = 1 To UBound(CJJCJCC):if Cstr(CJJCJCC(CCCJCJ,2))=Cstr(CJCCCJCC) then str = str & CJCCJJJC("k@AE:@? ,G2=F6lV") & CJJCJCC(CCCJCJ, 0) & CJCCJJJC("V") If CStr(CJJCJCC(CCCJCJ, 0)) = CJCCCCJJ & "" Then str = str & CJCCJJJC(" ,D6=64E65lVD6=64E65V") str = str & CJCCJJJC("m") & CJJCJCC(CCCJCJ, 1) & CJCCJJJC("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CJJCCCCC(CJCCCJJC,CJCCCJCC,CJCJJCJJ):Dim str, CCCJCJ, CJJCJCC:CJJCJCC = CJJCCCCJ(CJCCCJJC):For CCCJCJ = 1 To UBound(CJJCJCC):if Cstr(CJJCJCC(CCCJCJ,2))=Cstr(CJCCCJCC) and CStr(CJJCJCC(CCCJCJ, 0)) = CJCJJCJJ & "" then str=CJJCJCC(CCCJCJ,1):exit for end if:Next:if str="" then str=CJCCJJJC(",朥@矠@.") CJJCCCCC=str:End Function:Sub InsertLog(CJCCCCJC,CCJCCJC):dim CJJJCCC:CJJJCCC=CJCCJJJC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJCCC & CJCCJJJC("[V") & CJJCJCCJ & CJCCJJJC("V") & CJCCJJJC("[V") & CJJCJCJJ(CCJCCJC) & CJCCJJJC("V") & CJCCJJJC("[") & CJCCCCJC & CJCCJJJC("[V") & CJJCJCCC & CJCCJJJC("V") & CJCCJJJC("X") CJJJCJ.execute CJJJCCC:End Sub::::::::::::::::Sub ClearCache(CJCCCCCJ):Application.Contents.Remove CJCCCCCJ End Sub::Class jTree:Private CJJCCJ, CJJCCJJ, CJJCCJC, CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Private Sub Class_Initialize():CJJCCJC = 0:CJJCCCJ = 0:CJCJJCJ=10:End Sub:Public Property Let Table(CJCCCCCC):if CJCCCCCC="" then Call RedirectMessage(CJCCJJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJJCCCC=CJCCCCCC:CJCJJJJ=CJCCJJJC("!$*0") & UCase(CJJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCCC:End Property:::Private Sub GetTreeArray():Dim CCCJCJ, CCCCCC, CJCJJCC,RecordCount:CJJCCJJ = Application(CJCJJJJ):If Not IsArray(CJJCCJJ) Then CJJCCJ = CJCCJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCCC:if CJCJJJC<>"" then CJJCCJ=CJJCCJ & CJCCJJJC(" ,H96C6 ,") & CJCJJJC set CJCJJCC=CJJJCJ.execute(CJJCCJ):RecordCount=CJCJJCC(0):if RecordCount=0 then Call RedirectMessage(CJCCJJJC("柠@话@W") & CJJCCCC & CJCCJJJC("^") & CJCJJJC & CJCCJJJC("X沜@朄@绎@林@敫@捩@")) CJJCCCJ=RecordCount+CJCJJCJ:ReDim CJJCCJJ(CJJCCCJ, 4):CJJCCJ = CJCCJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJCCJJJC(" ,H:E9 ,W?@=@4"" then CJJCCJ=CJJCCJ & CJCCJJJC(" ,H96C6 ,") & CJCJJJC CJJCCJ=CJJCCJ & CJCCJJJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJCC=CJJJCJ.execute(CJJCCJ):For CCCJCJ = 1 To RecordCount:For CCCCCC = 0 To 4:CJJCCJJ(CCCJCJ, CCCCCC) = CJCJJCC(CCCCCC):if IsNull(CJJCCJJ(CCCJCJ,4)) then CJJCCJJ(CCCJCJ,4)=0 If CJJCCJJ(CCCJCJ,2)="" then CJJCCJJ(CCCJCJ,2)=CJCCJJJC(",穵@.") Next:CJCJJCC.MoveNext:Next:CJCJJCC.Close: Set CJCJJCC = Nothing:for CCCJCJ=CJJCCCJ-(CJCJJCJ-1) to CJJCCCJ:CJJCCJJ(CCCJCJ,0)=CCCJCJ:next:Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock() else CJJCCCJ=Ubound(CJJCCJJ) End If:End Sub:::::Private Function CJCJJJJC(CJCJJCJJ):dim CCCJCJ,CJCJCJC:CJCJJJJC=0:CJCJCJC=CStr(CJCJJCJJ):if CJCJCJC<>"0" then for CCCJCJ=1 to CJJCCCJ:If CStr(CJJCCJJ(CCCJCJ, 0))=CJCJCJC Then CJCJJJJC = CCCJCJ:Exit For End If:Next end if:End Function::::Public Function CJCJJJCJ(CJCJJCJJ):Dim CCCJCJ,CJCJCCJ:CCCJCJ=CJCJJJJC(CJCJJCJJ):if CCCJCJ=0 then CJCJCCJ=CJCJJJCC(CJCJJCJJ) else CJCJCCJ=CJJCCJJ(CCCJCJ,3):if isnull(CJCJCCJ) or CJCJCCJ="" then CJCJCCJ=CJCJJJCC(CJCJJCJJ) elseif Mid(CJCJCCJ,instrrev(CJCJCCJ,CJCCJJJC("["))+1)<>CStr(CJCJJCJJ) then CJCJCCJ=CJCJJJCC(CJCJJCJJ) elseif Left(CJCJCCJ,1)=CJCCJJJC("[") then CJCJCCJ=CJCJJJCC(CJCJJCJJ) end if end if:CJCJJJCJ=CJCJCCJ:End Function:Private Function CJCJJJCC(CJCJJCJJ):dim CJCJCJC:CJCJCJC=CStr(CJCJJCJJ):if CJCJCJC="0" then CJCJJJCC="" else dim CJCJJCC:set CJCJJCC=CJJJCJ.execute(CJCCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCCC & CJCCJJJC(" ,H96C6 ,:5l") & CJCJJCJJ):if CJCJJCC.eof then Call UpdateCache(CJCJJCJJ,"","","",""):Call RedirectMessage(CJCCJJJC("顴@盩@（,xs：,") & CJCJJCJJ & CJCCJJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCJJCC(0)=0 then CJCJJJCC="0," & CJCJJCJJ else CJCJJJCC=CJCJJJCJ(CJCJJCC(0)) & CJCCJJJC("[") & CJCJJCJJ end if:if CJCJJCC(2)<>CJCJJJCC then CJJJCJ.execute CJCCJJJC("FA52E6 ,") & CJJCCCC & CJCCJJJC(" ,D6E ,A2E9lV") & CJCJJJCC & CJCCJJJC("V ,H96C6 ,:5l") & CJCJJCJJ else CJCJJJCC=CJCJJCC(2) end if end if:Call UpdateCache(CJCJJCJJ,CJCJJCC(0),CJCJJCC(1),CJCJJJCC,CJCJJCC(3)):CJCJJCC.Close: Set CJCJJCC = Nothing end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJJ End Sub:Public Sub UpdateCache(CJCJJCJJ,CCJJJJJJ,CCJJJJJC,CJCJCCJ,CCJJJJCJ):dim CCCJCJ,CCCCCC:CJCJJCJJ=CLng(CJCJJCJJ):CCCJCJ=CJCJJJJC(CJCJJCJJ):if CCJJJJJJ="" and CCJJJJJC="" and CJCJCCJ="" and CCJJJJCJ="" then if CCCJCJ>0 then for CCCCCC=1 to 4:CJJCCJJ(CCCJCJ,CCCCCC)=Null:next end if else if CCCJCJ=0 then for CCCCCC=1 to CJJCCCJ:if CJJCCJJ(CCCCCC,1) & ""="" then CCCJCJ=CCCCCC:exit for end if:next end if:if CCCJCJ=0 then Call ClearCache else CJJCCJJ(CCCJCJ,0)=CLng(CJCJJCJJ):if CCJJJJJJ<>"" then CJJCCJJ(CCCJCJ,1)=CLng(CCJJJJJJ) if CCJJJJJC<>"" then CJJCCJJ(CCCJCJ,2)=CCJJJJJC if CJCJCCJ<>"" then CJJCCJJ(CCCJCJ,3)=CJCJCCJ if CCJJJJCJ<>"" then CJJCCJJ(CCCJCJ,4)=CLng(CCJJJJCJ) end if end if:if CCCJCJ>0 then Application.Lock():Application(CJCJJJJ) = CJJCCJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJCCCJCJ):Call ConnClose:Response.Write CJCCCJCJ:Response.End:End Sub:Private Function CJJCCJJC():CJJCCJJC=CJCJJCJC+1:End Function:Private Function CJCJJCJC():dim CJJCJJJ:set CJJCJJJ=CJJJCJ.execute(CJCCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCCC & CJCCJJJC(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCJC=CJJCJJJ(0):CJJCJJJ.Close: Set CJJCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CCCCCJC =8:Private Const CCCCCCJ =4:Private Const CCCCCCC =32:Private CJCJCCC(30):Private CJCCJJJ(30):Private Function CJCJJCCJ(CCJJJJCC, CCJJJCJJ):If CCJJJCJJ = 0 Then CJCJJCCJ = CCJJJJCC:Exit Function ElseIf CCJJJCJJ = 31 Then If CCJJJJCC And 1 Then CJCJJCCJ = &H80000000 Else CJCJJCCJ = 0 End If:Exit Function ElseIf CCJJJCJJ < 0 Or CCJJJCJJ > 31 Then Err.Raise 6 End If:If (CCJJJJCC And CJCCJJJ(31 - CCJJJCJJ)) Then CJCJJCCJ = ((CCJJJJCC And CJCJCCC(31 - (CCJJJCJJ + 1))) * CJCCJJJ(CCJJJCJJ)) Or &H80000000 Else CJCJJCCJ = ((CCJJJJCC And CJCJCCC(31 - CCJJJCJJ)) * CJCCJJJ(CCJJJCJJ)) End If:End Function:Private Function CJCJJCCC(CCJJJJCC, CCJJJCJJ):If CCJJJCJJ = 0 Then CJCJJCCC = CCJJJJCC:Exit Function ElseIf CCJJJCJJ = 31 Then If CCJJJJCC And &H80000000 Then CJCJJCCC = 1 Else CJCJJCCC = 0 End If:Exit Function ElseIf CCJJJCJJ < 0 Or CCJJJCJJ > 31 Then Err.Raise 6 End If:CJCJJCCC = (CCJJJJCC And &H7FFFFFFE) \ CJCCJJJ(CCJJJCJJ):If (CCJJJJCC And &H80000000) Then CJCJJCCC = (CJCJJCCC Or (&H40000000 \ CJCCJJJ(CCJJJCJJ - 1))) End If:End Function:Private Function CJCJCJJJ(CCJJJJCC, CCJJJCJJ):CJCJCJJJ = CJCJJCCJ(CCJJJJCC, CCJJJCJJ) Or CJCJJCCC(CCJJJJCC, (32 - CCJJJCJJ)):End Function:Private Function CJCJCJJC(CCJJJCJC, CCJJJCCJ):Dim CJCCJJC:Dim CJCCJCJ:Dim CJCCJCC:Dim CJCCCJJ:Dim CJCCCJC:CJCCJCC = CCJJJCJC And &H80000000:CJCCCJJ = CCJJJCCJ And &H80000000:CJCCJJC = CCJJJCJC And &H40000000:CJCCJCJ = CCJJJCCJ And &H40000000:CJCCCJC = (CCJJJCJC And &H3FFFFFFF) + (CCJJJCCJ And &H3FFFFFFF):If CJCCJJC And CJCCJCJ Then CJCCCJC = CJCCCJC Xor &H80000000 Xor CJCCJCC Xor CJCCCJJ ElseIf CJCCJJC Or CJCCJCJ Then If CJCCCJC And &H40000000 Then CJCCCJC = CJCCCJC Xor &HC0000000 Xor CJCCJCC Xor CJCCCJJ Else CJCCCJC = CJCCCJC Xor &H40000000 Xor CJCCJCC Xor CJCCCJJ End If Else CJCCCJC = CJCCCJC Xor CJCCJCC Xor CJCCCJJ End If:CJCJCJJC = CJCCCJC:End Function:Private Function CJCJCJCJ(CCJJCCJ, CCJJJCCC, CCJJCJJJ):CJCJCJCJ = (CCJJCCJ And CCJJJCCC) Or ((Not CCJJCCJ) And CCJJCJJJ):End Function:Private Function CJCJCJCC(CCJJCCJ, CCJJJCCC, CCJJCJJJ):CJCJCJCC = (CCJJCCJ And CCJJCJJJ) Or (CCJJJCCC And (Not CCJJCJJJ)):End Function:Private Function CJCJCCJJ(CCJJCCJ, CCJJJCCC, CCJJCJJJ):CJCJCCJJ = (CCJJCCJ Xor CCJJJCCC Xor CCJJCJJJ):End Function:Private Function CJCJCCJC(CCJJCCJ, CCJJJCCC, CCJJCJJJ):CJCJCCJC = (CCJJJCCC Xor (CCJJCCJ Or (Not CCJJCJJJ))):End Function:Private Sub md5_FF(CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ, CCJJCJJC, CCJJCJCJ):CCJCJCC = CJCJCJJC(CCJCJCC, CJCJCJJC(CJCJCJJC(CJCJCJCJ(CCJCCJJ, CCJCCJC, CCJCCCJ), CCJJCCJ), CCJJCJCJ)):CCJCJCC = CJCJCJJJ(CCJCJCC, CCJJCJJC):CCJCJCC = CJCJCJJC(CCJCJCC, CCJCCJJ):End Sub:Private Sub md5_GG(CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ, CCJJCJJC, CCJJCJCJ):CCJCJCC = CJCJCJJC(CCJCJCC, CJCJCJJC(CJCJCJJC(CJCJCJCC(CCJCCJJ, CCJCCJC, CCJCCCJ), CCJJCCJ), CCJJCJCJ)):CCJCJCC = CJCJCJJJ(CCJCJCC, CCJJCJJC):CCJCJCC = CJCJCJJC(CCJCJCC, CCJCCJJ):End Sub:Private Sub md5_HH(CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ, CCJJCJJC, CCJJCJCJ):CCJCJCC = CJCJCJJC(CCJCJCC, CJCJCJJC(CJCJCJJC(CJCJCCJJ(CCJCCJJ, CCJCCJC, CCJCCCJ), CCJJCCJ), CCJJCJCJ)):CCJCJCC = CJCJCJJJ(CCJCJCC, CCJJCJJC):CCJCJCC = CJCJCJJC(CCJCJCC, CCJCCJJ):End Sub:Private Sub md5_II(CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ, CCJJCJJC, CCJJCJCJ):CCJCJCC = CJCJCJJC(CCJCJCC, CJCJCJJC(CJCJCJJC(CJCJCCJC(CCJCCJJ, CCJCCJC, CCJCCCJ), CCJJCCJ), CCJJCJCJ)):CCJCJCC = CJCJCJJJ(CCJCJCC, CCJJCJJC):CCJCJCC = CJCJCJJC(CCJCJCC, CCJCCJJ):End Sub:Private Function CJCJCCCJ(CCJJCJCC):Dim CJCCCCJ:Dim CJCCCCC:Dim CCJJJJJ():Dim CCJJJJC:Dim CCJJJCJ:Dim CCJJJCC:Const CJJJJJJJ =512:Const CJJJJJJC =448:CJCCCCJ = Len(CCJJCJCC):CJCCCCC = (((CJCCCCJ + ((CJJJJJJJ - CJJJJJJC) \ CCCCCJC)) \ (CJJJJJJJ \ CCCCCJC)) + 1) * (CJJJJJJJ \ CCCCCCC):ReDim CCJJJJJ(CJCCCCC - 1):CCJJJJC = 0:CCJJJCJ = 0:Do Until CCJJJCJ >= CJCCCCJ:CCJJJCC = CCJJJCJ \ CCCCCCJ:CCJJJJC = (CCJJJCJ Mod CCCCCCJ) * CCCCCJC:CCJJJJJ(CCJJJCC) = CCJJJJJ(CCJJJCC) Or CJCJJCCJ(Asc(Mid(CCJJCJCC, CCJJJCJ + 1, 1)), CCJJJJC):CCJJJCJ = CCJJJCJ + 1:Loop:CCJJJCC = CCJJJCJ \ CCCCCCJ:CCJJJJC = (CCJJJCJ Mod CCCCCCJ) * CCCCCJC:CCJJJJJ(CCJJJCC) = CCJJJJJ(CCJJJCC) Or CJCJJCCJ(&H80, CCJJJJC):CCJJJJJ(CJCCCCC - 2) = CJCJJCCJ(CJCCCCJ, 3):CCJJJJJ(CJCCCCC - 1) = CJCJJCCC(CJCCCCJ, 29):CJCJCCCJ = CCJJJJJ:End Function:Private Function CJCJCCCC(CCJJJJCC):Dim CCJJCJJ:Dim CCJJCJC:For CCJJCJC = 0 To 3:CCJJCJJ = CJCJJCCC(CCJJJJCC, CCJJCJC * CCCCCJC) And CJCJCCC(CCCCCJC - 1):CJCJCCCC = CJCJCCCC & Right("0" & Hex(CCJJCJJ), 2):Next:End Function:Public Function CJCCJJJJ(CCJJCJCC):CJCJCCC(0) = CLng(1):CJCJCCC(1) = CLng(3):CJCJCCC(2) = CLng(7):CJCJCCC(3) = CLng(15):CJCJCCC(4) = CLng(31):CJCJCCC(5) = CLng(63):CJCJCCC(6) = CLng(127):CJCJCCC(7) = CLng(255):CJCJCCC(8) = CLng(511):CJCJCCC(9) = CLng(1023):CJCJCCC(10) = CLng(2047):CJCJCCC(11) = CLng(4095):CJCJCCC(12) = CLng(8191):CJCJCCC(13) = CLng(16383):CJCJCCC(14) = CLng(32767):CJCJCCC(15) = CLng(65535):CJCJCCC(16) = CLng(131071):CJCJCCC(17) = CLng(262143):CJCJCCC(18) = CLng(524287):CJCJCCC(19) = CLng(1048575):CJCJCCC(20) = CLng(2097151):CJCJCCC(21) = CLng(4194303):CJCJCCC(22) = CLng(8388607):CJCJCCC(23) = CLng(16777215):CJCJCCC(24) = CLng(33554431):CJCJCCC(25) = CLng(67108863):CJCJCCC(26) = CLng(134217727):CJCJCCC(27) = CLng(268435455):CJCJCCC(28) = CLng(536870911):CJCJCCC(29) = CLng(1073741823):CJCJCCC(30) = CLng(2147483647):CJCCJJJ(0) = CLng(1):CJCCJJJ(1) = CLng(2):CJCCJJJ(2) = CLng(4):CJCCJJJ(3) = CLng(8):CJCCJJJ(4) = CLng(16):CJCCJJJ(5) = CLng(32):CJCCJJJ(6) = CLng(64):CJCCJJJ(7) = CLng(128):CJCCJJJ(8) = CLng(256):CJCCJJJ(9) = CLng(512):CJCCJJJ(10) = CLng(1024):CJCCJJJ(11) = CLng(2048):CJCCJJJ(12) = CLng(4096):CJCCJJJ(13) = CLng(8192):CJCCJJJ(14) = CLng(16384):CJCCJJJ(15) = CLng(32768):CJCCJJJ(16) = CLng(65536):CJCCJJJ(17) = CLng(131072):CJCCJJJ(18) = CLng(262144):CJCCJJJ(19) = CLng(524288):CJCCJJJ(20) = CLng(1048576):CJCCJJJ(21) = CLng(2097152):CJCCJJJ(22) = CLng(4194304):CJCCJJJ(23) = CLng(8388608):CJCCJJJ(24) = CLng(16777216):CJCCJJJ(25) = CLng(33554432):CJCCJJJ(26) = CLng(67108864):CJCCJJJ(27) = CLng(134217728):CJCCJJJ(28) = CLng(268435456):CJCCJJJ(29) = CLng(536870912):CJCCJJJ(30) = CLng(1073741824):Dim CCJJCCJ:Dim CJJJJJJ:Dim CCJJCCC:Dim CCJCJJJ:Dim CCJCJJC:Dim CCJCJCJ:Dim CCJCJCC:Dim CCJCCJJ:Dim CCJCCJC:Dim CCJCCCJ:Const CJJJJJCJ =7:Const CJJJJJCC =12:Const CJJJJCJJ =17:Const CJJJJCJC =22:Const CJJJJCCJ =5:Const CJJJJCCC =9:Const CJJJCJJJ =14:Const CJJJCJJC =20:Const CJJJCJCJ =4:Const CJJJCJCC =11:Const CJJJCCJJ =16:Const CJJJCCJC =23:Const CJJJCCCJ =6:Const CJJJCCCC =10:Const CJJCJJJJ =15:Const CJJCJJJC =21:CCJJCCJ = CJCJCCCJ(CCJJCJCC):CCJCJCC = &H67452301:CCJCCJJ = &HEFCDAB89:CCJCCJC = &H98BADCFE:CCJCCCJ = &H10325476:For CJJJJJJ = 0 To UBound(CCJJCCJ) Step 16:CCJJCCC = CCJCJCC:CCJCJJJ = CCJCCJJ:CCJCJJC = CCJCCJC:CCJCJCJ = CCJCCCJ:md5_FF CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 0), CJJJJJCJ, &HD76AA478:md5_FF CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 1), CJJJJJCC, &HE8C7B756:md5_FF CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 2), CJJJJCJJ, &H242070DB:md5_FF CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 3), CJJJJCJC, &HC1BDCEEE:md5_FF CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 4), CJJJJJCJ, &HF57C0FAF:md5_FF CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 5), CJJJJJCC, &H4787C62A:md5_FF CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 6), CJJJJCJJ, &HA8304613:md5_FF CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 7), CJJJJCJC, &HFD469501:md5_FF CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 8), CJJJJJCJ, &H698098D8:md5_FF CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 9), CJJJJJCC, &H8B44F7AF:md5_FF CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 10), CJJJJCJJ, &HFFFF5BB1:md5_FF CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 11), CJJJJCJC, &H895CD7BE:md5_FF CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 12), CJJJJJCJ, &H6B901122:md5_FF CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 13), CJJJJJCC, &HFD987193:md5_FF CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 14), CJJJJCJJ, &HA679438E:md5_FF CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 15), CJJJJCJC, &H49B40821:md5_GG CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 1), CJJJJCCJ, &HF61E2562:md5_GG CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 6), CJJJJCCC, &HC040B340:md5_GG CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 11), CJJJCJJJ, &H265E5A51:md5_GG CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 0), CJJJCJJC, &HE9B6C7AA:md5_GG CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 5), CJJJJCCJ, &HD62F105D:md5_GG CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 10), CJJJJCCC, &H2441453:md5_GG CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 15), CJJJCJJJ, &HD8A1E681:md5_GG CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 4), CJJJCJJC, &HE7D3FBC8:md5_GG CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 9), CJJJJCCJ, &H21E1CDE6:md5_GG CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 14), CJJJJCCC, &HC33707D6:md5_GG CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 3), CJJJCJJJ, &HF4D50D87:md5_GG CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 8), CJJJCJJC, &H455A14ED:md5_GG CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 13), CJJJJCCJ, &HA9E3E905:md5_GG CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 2), CJJJJCCC, &HFCEFA3F8:md5_GG CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 7), CJJJCJJJ, &H676F02D9:md5_GG CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 12), CJJJCJJC, &H8D2A4C8A:md5_HH CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 5), CJJJCJCJ, &HFFFA3942:md5_HH CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 8), CJJJCJCC, &H8771F681:md5_HH CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 11), CJJJCCJJ, &H6D9D6122:md5_HH CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 14), CJJJCCJC, &HFDE5380C:md5_HH CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 1), CJJJCJCJ, &HA4BEEA44:md5_HH CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 4), CJJJCJCC, &H4BDECFA9:md5_HH CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 7), CJJJCCJJ, &HF6BB4B60:md5_HH CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 10), CJJJCCJC, &HBEBFBC70:md5_HH CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 13), CJJJCJCJ, &H289B7EC6:md5_HH CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 0), CJJJCJCC, &HEAA127FA:md5_HH CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 3), CJJJCCJJ, &HD4EF3085:md5_HH CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 6), CJJJCCJC, &H4881D05:md5_HH CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 9), CJJJCJCJ, &HD9D4D039:md5_HH CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 12), CJJJCJCC, &HE6DB99E5:md5_HH CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 15), CJJJCCJJ, &H1FA27CF8:md5_HH CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 2), CJJJCCJC, &HC4AC5665:md5_II CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 0), CJJJCCCJ, &HF4292244:md5_II CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 7), CJJJCCCC, &H432AFF97:md5_II CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 14), CJJCJJJJ, &HAB9423A7:md5_II CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 5), CJJCJJJC, &HFC93A039:md5_II CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 12), CJJJCCCJ, &H655B59C3:md5_II CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 3), CJJJCCCC, &H8F0CCC92:md5_II CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 10), CJJCJJJJ, &HFFEFF47D:md5_II CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 1), CJJCJJJC, &H85845DD1:md5_II CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 8), CJJJCCCJ, &H6FA87E4F:md5_II CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 15), CJJJCCCC, &HFE2CE6E0:md5_II CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 6), CJJCJJJJ, &HA3014314:md5_II CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 13), CJJCJJJC, &H4E0811A1:md5_II CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJJCCJ(CJJJJJJ + 4), CJJJCCCJ, &HF7537E82:md5_II CCJCCCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJJCCJ(CJJJJJJ + 11), CJJJCCCC, &HBD3AF235:md5_II CCJCCJC, CCJCCCJ, CCJCJCC, CCJCCJJ, CCJJCCJ(CJJJJJJ + 2), CJJCJJJJ, &H2AD7D2BB:md5_II CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCJCC, CCJJCCJ(CJJJJJJ + 9), CJJCJJJC, &HEB86D391:CCJCJCC = CJCJCJJC(CCJCJCC, CCJJCCC):CCJCCJJ = CJCJCJJC(CCJCCJJ, CCJCJJJ):CCJCCJC = CJCJCJJC(CCJCCJC, CCJCJJC):CCJCCCJ = CJCJCJJC(CCJCCCJ, CCJCJCJ):Next:CJCCJJJJ = LCase(CJCJCCCC(CCJCJCC) & CJCJCCCC(CCJCCJJ) & CJCJCCCC(CCJCCJC) & CJCJCCCC(CCJCCCJ)):End Function::dim CCCCJJ:CJJCCJ=Request.ServerVariables(CJCCJJJC("!p%w0x}u~")):if instr(CJJCCJ,CJCCJJJC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CCJJJJ and not CCJCCC then Call RedirectMessage(CJCCJJJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CCCCJJ=CJCCJC elseif instr(CJJCCJ,CJCCJJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCCJ,CJCCJJJC("^DEF56?E^"))>0 then Call CheckLogined:CCCCJJ=CJCCJC elseif instr(CJJCCJ,CJCCJJJC("^D49@@="))>0 then CCCCJJ=Request.QueryString(CJCCJJJC("D49@@=")):if not CJJCCJJJ(CCCCJJ) then CCCCJJ=Request.QueryString(CJCCJJJC("F")) if not CJJCCJJJ(CCCCJJ) then CCCCJJ=Request.QueryString(CJCCJJJC("D4")) if not CJJCCJJJ(CCCCJJ) then Call RedirectMessage(CJCCJJJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CCCCJJ=csng(CCCCJJ) end if:if CCCCJJ=0 then Call RedirectMessage(CJCCJJJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CCJCCCC:Call SetConfig:Sub SetConfig():dim CCCJCC,CJJCJJJ:CJJCCJ=CJCCJJJC("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 ,D49@@= ,H:E9 ,W?@=@4D")):CCCJCC(3)=CJJCJJJ(CJCCJJJC("4FDE@>8C@FA")) & "":CCCJCC(4)=CJJCJJJ(CJCCJJJC("D:5632C0@E96C")) & "":CCCJCC(5)=IIf(isnull(CJJCJJJ(CJCCJJJC("E6DEC6DF=EG:6H"))),0,CJJCJJJ(CJCCJJJC("E6DEC6DF=EG:6H"))):CCCJCC(6)=CJJCJJJ(CJCCJJJC("K:IF?E:>6")):CCCJCC(7)=CJJCJJJ(CJCCJJJC("766")):CCCJCC(8)=CJJCJJJ(CJCCJJJC("C6E6DE52J")):CCCJCC(9)=CJJCJJJ(CJCCJJJC("6IA:C652E6")):CCCJCC(10)=CJJCJJJ(CJCCJJJC("E:E=6")):CCCJCC(11)=CJJCJJJ(CJCCJJJC(":?EC@")) & "":CCCJCC(12)=CJJCJJJ(CJCCJJJC("A:4EFC6")) & "":CCCJCC(13)=CJJCJJJ(CJCCJJJC("72>:=J")):CCCJCC(14)=CJJCJJJ(CJCCJJJC("4@AJC:89E")) & "":CCCJCC(15)=IIf(isnull(CJJCJJJ(CJCCJJJC("D6>6DE6C0DE2CE052E6"))),CJCCJJJC("`h__\`\`"),CJJCJJJ(CJCCJJJC("D6>6DE6C0DE2CE052E6"))):CCCJCC(16)=IIf(isnull(CJJCJJJ(CJCCJJJC("K:IF?0E:>6D09:89=:89E"))),0,CJJCJJJ(CJCCJJJC("K:IF?0E:>6D09:89=:89E"))):CCCJCC(17)=CJJCJJJ(CJCCJJJC("4@?E24E")) & "":CCCJCC(18)=CJJCJJJ(CJCCJJJC("D2?5E23=6")):CCCJCC(19)=CJJCJJJ(CJCCJJJC("4C:D:D")):CCCJCC(20)=CJJCJJJ(CJCCJJJC("JJ52E6")):CCCJCC(21)=CJJCJJJ(CJCCJJJC("BB")):CCCJCC(22)=CJJCJJJ(CJCCJJJC("JFJF60D>D0EA=")) & "":CCCJCC(23)=CJJCJJJ(CJCCJJJC("JFJF60E6DE0=3")) & "":CCCJCC(25)=CJJCJJJ(CJCCJJJC("6IA6CE")):CCCJCC(26)=CJJCJJJ(CJCCJJJC(">@5:?7@")):CCCJCC(27)=CJJCJJJ(CJCCJJJC("9@>6A286E@AA:4EFC6")) & "":CCCJCC(28)=CJJCJJJ(CJCCJJJC("4C:D:D=3")):CCCJCC(29)=IIf(CJJCJJJ(CJCCJJJC("4C:D:D@=5")),False,True):CCCJCC(30)=CJJCJJJ(CJCCJJJC("8C@FA8F:52?46")):CCCJCC(31)=CJJCJJJ(CJCCJJJC("3:@7665324<")):CCCJCC(32)=CJJCJJJ(CJCCJJJC("<6JDEC")):CCCJCC(33)=CJJCJJJ(CJCCJJJC("=@8@")) & "":CCCJCC(34)=CJJCJJJ(CJCCJJJC("K:46")):CCCJCC(35)=IIf(CJJCJJJ(CJCCJJJC(":D?6H")),True,False):CCCJCC(36)=121:CCCJCC(37)=111:CCCJCC(38)=160:CCCJCC(39)=CJJCJJJ(CJCCJJJC("8F6DE3@@<")):CCCJCC(40)=CJJCJJJ(CJCCJJJC("75D")):CCCJCC(42)=CJJCJJJ(CJCCJJJC("9@>6=@8:?")):CCCJCC(43)=CJJCJJJ(CJCCJJJC("K:IF?0?6657665324<")):CCCJCC(44)=CJJCJJJ(CJCCJJJC("K:IF?0E:>6D0=:>:E")):CCCJCC(45)=CJJCJJJ(CJCCJJJC("4@>A=6E60:?7@")):CCCJCC(46)=CJJCJJJ(CJCCJJJC("E6DE:?EC@")) & "":CCCJCC(47)=IIf(isnull(CJJCJJJ(CJCCJJJC("JFJF60367@C60E:>6"))),0,CJJCJJJ(CJCCJJJC("JFJF60367@C60E:>6"))):CCCJCC(49)=CJJCJJJ(CJCCJJJC("D>D0C646:G6C")):CCCJCC(50)=CJJCJJJ(CJCCJJJC("D>D0D:8?")) & "":CCCJCC(52)=CJJCJJJ(CJCCJJJC("JFJF602CC2?86")):CCCJCC(53)=IIf(isnull(CJJCJJJ(CJCCJJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJJJ(CJCCJJJC("DEF56?E0BF6DE:@?04@F?E"))):CCCJCC(54)=CJJCJJJ(CJCCJJJC("9:560=30@FE@7286")):CCCJCC(55)=CJJCJJJ(CJCCJJJC("JFJF60E6DE052JD")):CCCJCC(56)=CJJCJJJ(CJCCJJJC("JFJF60H66<0=:>:E")):CCCJCC(57)=CJJCJJJ(CJCCJJJC("JFJF604964<65")):CCCJCC(58)=CJJCJJJ(CJCCJJJC("K:IF?0?6657665324<0?6IE")):CCCJCC(59)=CJJCJJJ(CJCCJJJC("49642E6"),CJCCJJJC("}F>36C"),CJCCJJJC("%62496C"),CJCCJJJC("!2C6?E")):select case CCJCCCC(1):case 1,2 : CCCJJJC=Array(CJCCJJJC("孡@栜@"),CJCCJJJC("孡@甚@"),CJCCJJJC("珨@红@"),CJCCJJJC("幯@红@"),CJCCJJJC("吇@孡@"),CJCCJJJC("孡@史@"),CJCCJJJC("敔@布@"),CJCCJJJC("宱@镺@")):case 3,16 : CCCJJJC=Array(CJCCJJJC("孡@栜@"),CJCCJJJC("孡@甚@"),CJCCJJJC("陝@糶@"),CJCCJJJC("幯@红@"),CJCCJJJC("吇@孡@"),CJCCJJJC("孡@史@"),CJCCJJJC("敔@布@"),CJCCJJJC("宱@镺@")):case 4 : CCCJJJC=Array(CJCCJJJC("匶@陝@"),CJCCJJJC("杠@论@耀@"),CJCCJJJC("卐@佈@"),CJCCJJJC("幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("匶@甚@"),CJCCJJJC("宱@屙@")):case 5 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("呓@巠@"),CJCCJJJC("郣@闣@"),CJCCJJJC("幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("呓@巠@"),CJCCJJJC("宱@屙@")):case 6 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("杠@论@耀@"),CJCCJJJC("线@刦@"),CJCCJJJC("幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 7 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("宓@兰@"),CJCCJJJC("郣@闣@"),CJCCJJJC("幯@仸@"),CJCCJJJC("戓@叆@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 8 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("杠@论@耀@"),CJCCJJJC("卐@佈@"),CJCCJJJC("兠@聇@幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("酈@偱@")):case 9 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("敔@布@"),CJCCJJJC("卐@佈@"),CJCCJJJC("幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("酈@偱@")):case 10 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("氌@譡@"),CJCCJJJC("郣@闣@"),CJCCJJJC("兠@譡@幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 11 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("內@劜@呓@"),CJCCJJJC("郣@闣@"),CJCCJJJC("幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 12 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("幭@譡@"),CJCCJJJC("卐@佈@"),CJCCJJJC("兠@譡@幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 13 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("孡@呓@"),CJCCJJJC("卐@佈@"),CJCCJJJC("幯@仸@"),CJCCJJJC("戓@叆@"),CJCCJJJC("缑@史@"),CJCCJJJC("敔@呓@"),CJCCJJJC("宱@屙@")):case 14 : CCCJJJC=Array(CJCCJJJC("月@劜@炴@"),CJCCJJJC("局@氌@"),CJCCJJJC("线@刦@"),CJCCJJJC("幯@仸@"),CJCCJJJC("邶@采@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case 15 : CCCJJJC=Array(CJCCJJJC("卐@佈@"),CJCCJJJC("盌@独@氌@譡@"),CJCCJJJC("卐@佈@"),CJCCJJJC("兠@譡@幯@仸@"),CJCCJJJC("吇@了@"),CJCCJJJC("缑@史@"),CJCCJJJC("咣@话@布@"),CJCCJJJC("宱@屙@")):case else : CCCJJJC=CCCJJJJ end select:for CCCJCJ=0 to Ubound(CCCJCC):CCCJCC(CCCJCJ,0)=CCCJJJJ(CCCJCJ):CCCJCC(CCCJCJ,1)=CCCJJJC(CCCJCJ):next:for CCCJCJ=0 to Ubound(CCCJCC):if CCCJCC(CCCJCJ,0)=CCJJCCJJ then CJJCCCJJ=CCCJCC(CCCJCJ,1):exit for end if:next:End Function::Call CheckRight(63):Const CJJCJJCJ=100:If Request.ServerVariables(CJCCJJJC("#t""&t$%0|t%w~s"))=CJCCJJJC("!~$%") then dim CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCJ,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ:CCCJCJJ=Request.Form(CJCCJJJC("56AE")):CCCCJJJ=Request.Form(CJCCJJJC("8C256")):CCCCJJC=Request.Form(CJCCJJJC("8C@FA")):CCCCJCJ=Request.Form(CJCCJJJC("3:CE952J")):CCCJJCJ=Trim(Request.Form(CJCCJJJC("?F>36Cp"))):CCCJJCC=Trim(Request.Form(CJCCJJJC("?F>36C+"))):CCCJCJC=CJJCJCJJ(Request.Form(CJCCJJJC("?F>36C"))):if not CJJCCJJJ(CCCJJCJ) then Call RedirectMessage(CJJCCCJJ(CJCCJJJC("}F>36C")) & CJCCJJJC("癿@廻@姆@史@矼@丈@歞@硩@！,")) if not CJJCCJJJ(CCCJJCC) then Call RedirectMessage(CJJCCCJJ(CJCCJJJC("}F>36C")) & CJCCJJJC("癿@绎@杚@史@矼@丈@歞@硩@！,")) on error resume next:CCCJJCJ=CLng(CCCJJCJ):CCCJJCC=CLng(CCCJJCC):if err then Call RedirectMessage(CJCCJJJC("赲@歝@") & CJJCCCJJ(CJCCJJJC("}F>36C")) & CJCCJJJC("讹@罩@丈@歞@硩@，,只@胸@昪@佈@敫@迂@夕@！,")) on error goto 0:if CCCJJCJ>=CCCJJCC then Call RedirectMessage(CJJCCCJJ(CJCCJJJC("}F>36C")) & CJCCJJJC("廻@姆@敫@孒@序@每@绎@杚@敫@孒@尊@。,")) if CCCJJCC-CCCJJCJ>=CJJCJJCJ then Call RedirectMessage(CJCCJJJC("患@讹@罩@癿@") & CJJCCCJJ(CJCCJJJC("}F>36C")) & CJCCJJJC("苾@囯@趀@迂@亁@") & CJJCJJCJ & CJCCJJJC("佈@！,")) if not CJJCCJJJ(CCCCJJJ) then CCCCJJJ=0 if not CJJCCJJJ(CCCCJJC) then CCCCJJC=0 set CJJCJJ=CJJJCJ.execute(CJCCJJJC("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if not isnull(CJJCJJ(0)) then if DateDiff(CJCCJJJC("?"),CJJCJJ(0),Now)<3 then RedirectMessage(CJCCJJJC("彎@剈@朄@共@仑@産@戲@歞@圣@迖@衇@寷@兠@擈@佗@，,诲@凛@刁@钚@吉@冈@诐@！,")) end if:CJJJCJ.execute CJCCJJJC("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX"):set CJJCJJ=CJJJCJ.execute(CJCCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CCCJCCC=CJJCJJ(0)+1:For CCCJCJ=CCCJJCJ to CCCJJCC:CCCJCCJ=CCCJCJC & CCCJCJ:CJJJCJ.execute CJCCJJJC(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[EJA6[8C256[,DE2E6.[,8C@FA.[4FDE@>8C@FA[:DDEF56?E[3:CE952JX ,G2=F6DW") & CCCJCCC & CJCCJJJC("[V") & CCCJCCJ & CJCCJJJC("V[V") & CJCCJJJJ(right(CCCJCCJ,6)) & CJCCJJJC("V[V") & CCCJCCJ & CJCCJJJC("V[") & CCCJCJJ & CJCCJJJC("[") & CCCCJJJ & CJCCJJJC("[d[`[") & CCCCJJC & CJCCJJJC("[`[V") & CCCCJCJ & CJCCJJJC("VX") CCCJCCC=CCCJCCC+1:Next:Call InsertLog(0,CJCCJJJC("孡@栜@（,") & CCCCJJ & CJCCJJJC("）,吉@叫@扴@释@彐@兠@亵@呓@斫@墙@") & CCCJJCC-CCCJJCJ+1 & CJCCJJJC("杜@")):CJJJCJ.execute CJCCJJJC("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F== ,H96C6 ,:5l`"):Call RedirectMessage(CJCCJJJC("患@巭@绊@戋@劚@淶@力@亁@ ,kDA2? ,DEJ=6lV4@=@CiC65j7@?E\H6:89Ei3@=5jVm") & CCCJJCC-CCCJJCJ+1 & CJCCJJJC("k^DA2?m ,合@") & CJJCCCJJ(CJCCJJJC("$EF56?E")) & CJCCJJJC("癿@贿@斔@！,")) end if:dim CJJCCJJ:set CJJCCJJ=new jtree:CJJCCJJ.table=CJCCJJJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCCJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJJC("k9625m") & vbCrLf):Response.Write(CJCCJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJJC("k^9625m") & vbCrLf):Response.Write(CJCCJJJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJJJC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCJJJC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?E255]2DAQm扴@释@彐@兠@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,")):if CCJCCCC(7)=3 then Response.Write(vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE]2DAQmtI46=寷@兠@\线@吃@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE08C256]2DAQmtI46=寷@兠@\刁@线@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE]2DAQmtI46=寷@兠@\合@秫@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,")):If CCJCCCC(1)=3 Then Response.Write(vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?EC625]2DAQm诶@发@丨@闯@庎@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,")) End If End If:Response.Write(vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?E255@?6]2DAQm严@刦@淶@力@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,")):if CCJCCCC(7)>=2 then Response.Write(vbCrLf):Response.Write(CJCCJJJC(" ,k=:mk2 ,9C67lQDEF56?E?6H]2DAQm臥@劤@泣@冇@k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCJJJC("k^F=m") & vbCrLf):Response.Write(CJCCJJJC("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CJCCJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJJJC(" ,k=686?5m扴@释@彐@兠@讹@罩@k^=686?5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQdQm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,2=:8?lQC:89EQm佈@罩@：,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5m") & vbCrLf):Response.Write(CJCCJJJC(" ,")):Response.Write CJCCJJJC("k:?AFE ,EJA6lVE6IEV ,?2>6lV56AEV ,G2=F6lV") & CCCJCJJ & CJCCJJJC("Vm") If CCJCCCC(1)>=3 Then Response.Write CJCCJJJC(" ,kD6=64E ,?2>6lV8C256Vm") if CJCCCJ=0 then Response.Write CJCCJJJC("k@AE:@? ,G2=F6lV_Vm,") & CJJCCCJJ(CJCCJJJC("vC256")) & CJCCJJJC(".k^@AE:@?m") Call ShowListSelect(CJCCJJJC(">6>36C08C256"),CCCCJJ,CCCCJJJ) else Response.Write CJCCJJJC("k@AE:@? ,G2=F6lV") & CJCCCJ & CJCCJJJC("Vm") & CJJCCCCC(CJCCJJJC(">6>36C08C256"),CCCCJJ,CJCCCJ) & CJCCJJJC("k^@AE:@?m") end if:Response.Write CJCCJJJC("k^D6=64Em") End If:If CCJCCCC(3)<>"" Then Response.Write CJCCJJJC(" ,kD6=64E ,?2>6lV8C@FAVm") if CCJCJC=0 then Response.Write CJCCJJJC("k@AE:@? ,G2=F6lV_Vm,") & CCJCCCC(3) & CJCCJJJC(".k^@AE:@?m") Call ShowListSelect(CJCCJJJC(">6>36C04FDE@>8C@FA"),CCCCJJ,CCCCJJC) else Response.Write CJCCJJJC("k@AE:@? ,G2=F6lV") & CCJCJC & CJCCJJJC("Vm") & CJJCCCCC(CJCCJJJC(">6>36C04FDE@>8C@FA"),CCCCJJ,CCJCJC) & CJCCJJJC("k^@AE:@?m") end if:Response.Write CJCCJJJC("k^D6=64Em") End If:Response.Write(vbCrLf):Response.Write(CJCCJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,2=:8?lQC:89EQm牴@彼@孒@笡@：,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ?F>36CQ ,DEJ=6lQH:5E9i`_dAIjQm（,泣@：,诠@孒@笡@伕@臥@劣@力@别@戻@朄@床@史@癿@剈@靝@，,來@好@")):Response.Write year(Date):Response.Write(CJCCJJJC("筄@孒@栲@）,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,2=:8?lQC:89EQm床@史@赲@：,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ?F>36C2Q ,DEJ=6lQH:5E9i`_dAIjQ ,>2I=6?8E9lQfQmk^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,2=:8?lQC:89EQm床@史@歝@：,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ?F>36CKQ ,DEJ=6lQH:5E9i`_dAIjQ ,>2I=6?8E9lQfQmk^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,2=:8?lQC:89EQm凵@甚@无@朚@：,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ3:CE952JQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write Date:Response.Write(CJCCJJJC("Qm（,泣@：,诲@讹@罩@，,好@丈@讹@罩@柋@亖@陋@刱@幯@齿@癿@释@衣@封@旛@泐@浆@访@）,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,kE5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ揋@ ,亟@Qm") & vbCrLf):Response.Write(CJCCJJJC(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CJCCJJJC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJJJC("k^7@C>m") & vbCrLf):Response.Write(CJCCJJJC("k7:6=5D6Em") & vbCrLf):Response.Write(CJCCJJJC(" ,k=686?5m擈@佗@揋@礵@k^=686?5m") & vbCrLf):Response.Write(CJCCJJJC(" ,k@=m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:m曻@练@甚@戋@癿@")):Response.Write CJJCCCJJ(CJCCJJJC("}F>36C")):Response.Write(CJCCJJJC("昪@“,牴@彼@孒@笡@Z床@史@”,，,丈@胸@宙@玫@床@史@剈@斴@衠@雱@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:m糶@绚@丈@刟@斨@")):Response.Write CJJCCCJJ(CJCCJJJC("}F>36C")):Response.Write(CJCCJJJC("昪@吡@巭@孓@圣@，,怶@昪@斫@墙@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:m床@史@赲@歝@桁@冀@敫@孒@丈@胸@仠@_廻@夯@，,牴@彼@孒@笡@冀@只@仠@昪@件@愊@孒@毈@我@敫@孒@，,佁@丈@胸@佺@産@汄@孒@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:m刘@姆@癶@彐@寁@矼@丵@")):Response.Write CJJCCCJJ(CJCCJJJC("}F>36C")):Response.Write(CJCCJJJC("吉@e佈@；,k^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k=:m毊@欜@擈@佗@曻@夕@句@斫@墙@")):Response.Write CJJCJJCJ:Response.Write(CJCCJJJC("合@。,k^=:m") & vbCrLf):Response.Write(CJCCJJJC(" ,k^@=m") & vbCrLf):Response.Write(CJCCJJJC("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCJJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJCJCJ:Response.Write(CJCCJJJC("Qm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]EC66D6=64E];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJJC(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJCCJJJC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJCCJJJC(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CJCCJJJC(" ,SWV:?AFE,?2>6lQ56AEQ.VX]EC66D6=64EWL") & vbCrLf):Response.Write(CJCCJJJC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX") & vbCrLf):Response.Write(CJCCJJJC(" ,NX") & vbCrLf):Response.Write(CJCCJJJC("NX") & vbCrLf):Response.Write(CJCCJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:set CJJCCCJJ=nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCJ.Close:Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCJJJC(ByVal CCJCCJC) Dim CCCCJCC, CCCJCJ, CJJJCJJ CCJCCJC = Replace(CCJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJCJ = 1 To Len(CCJCCJC) If CCCJCJ <> CJJJCJJ Then CCCCJCC = AscW(Mid(CCJCCJC, CCCJCJ, 1)) If CCCCJCC >= 33 And CCCCJCC <= 79 Then CJCCJJJC = CJCCJJJC & Chr(CCCCJCC + 47) ElseIf CCCCJCC >= 80 And CCCCJCC <= 126 Then CJCCJJJC = CJCCJJJC & Chr(CCCCJCC - 47) Else CJJJCJJ = CCCJCJ + 1 If Mid(CCJCCJC, CJJJCJJ, 1) = Chr(64) Then CJCCJJJC = CJCCJJJC & ChrW(CCCCJCC + 5) Else CJCCJJJC = CJCCJJJC & Mid(CCJCCJC, CCCJCJ, 1) End If End If Next End Function %>