<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJCCCJCC("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJCCCJCC("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CJCCCJCC("!$*|t|qt#"))):if CJJJCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJJCC>0 then CCJJCJ=CJCCCJCC("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(CJCCCJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCJJCC,CCJCJJ) End IF end if:Sub CheckRight(CJCJCJC):dim CJJJCCJ,CJJJCCC:if CCJJCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJCCJJC(CJCJCJC) then Call RedirectMessage(CJCCCJCC("朾@陋@W") & CJCJCJC & CJCCCJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJCCJJC(CJCJCJC):dim CJJJCCJ,CJJJCCC:CJJJCCC=split(CJCJCJC,CJCCCJCC("[")):CJJCCJJC=False:for CJJJCCJ=0 to ubound(CJJJCCC):If Mid(CCJCJC,CJJJCCC(CJJJCCJ),1)="1" then CJJCCJJC=True:exit function end if:next:End Function:Sub CheckLogined():if CCJJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CJCCCJCC("D49@@="))):if isnumeric(CJJCJJJ) then response.Redirect CJCCCJCC("^>^G2?E^R^D49@@=^") & CJJCJJJ & CJCCCJCC("^DEF56?E^=@8:?nC65:C64El") & CJCJJCJ else Call RedirectMessage(CJCCCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJCC("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCJ,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCJC,CJCCCJCC("]")):if ubound(CJJCJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then Call ClearMemberCookie else CJJCJCJ=CJJCJJC(1):for CJJJCCJ=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC if len(CJJCCJJ)=7 then exit for next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then Call ClearMemberCookie else CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC6"), CJCCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCC("kD4C:AE"), CJCCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCCJ=new RegExp:CJJCCCJ.Pattern=CJCCCJCC("@?W,2\K.ZXl"):CJJCCCJ.IgnoreCase = True:CJJCCCJ.Global=True:str=CJJCCCJ.Replace(str,CJCCCJCC("@?S`U6BF2=Dj")):set CJJCCCJ=nothing:CJJCCJCJ=str End If:End Function:Function IIf(CJCCCCJC, CJCCCCCJ, CJCCCCCC):if isnull(CJCCCCJC) or isempty(CJCCCCJC) then IIf = CJCCCCCC elseif CJCCCCJC Then IIf = CJCCCCCJ Else IIf = CJCCCCCC end if:End Function:Const CJJJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJJCCCJJ():dim CJJCCCC:CJJCCCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCCCC = "" Then CJJCCCC = Cstr(Request.ServerVariables(CJCCCJCC("#t|~%t0pss#"))) if instr(CJJCCCC,CJCCCJCC("i"))>0 then CJJCCCC=left(CJJCCCC,instr(CJJCCCC,CJCCCJCC("i"))-1) elseif instr(CJJCCCC,CJCCCJCC("["))>0 then CJJCCCC=left(CJJCCCC,instr(CJJCCCC,CJCCCJCC("["))-1) end if:CJJCCCJJ=left(CJJCCCC,15):End Function:Sub Debug(str):response.Charset=CJCCCJCC("FE7\g"):dim CJJJCCJ,CJJCJCC,CJCJJJJ:if isarray(str) then on error resume next:CJJJCCJ=ubound(str,2):CJCJJJJ=err.number:err.clear:on error goto 0:if CJCJJJJ<>0 then for CJJJCCJ=0 to ubound(str):if CJJJCCJ>0 then response.Write CJCCCJCC("k3C ,^m") response.Write CJJJCCJ & CJCCCJCC("i ,") & str(CJJJCCJ):next else response.Write CJCCCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJJCCJ=0 to ubound(str,2):response.Write CJCCCJCC("kE9 ,2=:8?lV=67EVm") & CJJJCCJ & CJCCCJCC("k^E9m") next:response.Write CJCCCJCC("k^ECm"):for CJJJCCJ=0 to ubound(str):response.Write CJCCCJCC("kECmkE9m") & CJJJCCJ & CJCCCJCC("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJCCCJCC("kE5m") & str(CJJJCCJ,CJJCJCC) & CJCCCJCC("k^E5m"):next:response.Write CJCCCJCC("k^ECm"):next:response.Write CJCCCJCC("k^E23=6m") end if elseif isnull(str) then response.Write CJCCCJCC(",}F==.") else Response.Write replace(str,vbcrlf,CJCCCJCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJJCCCJC():Dim CJCJJJC, CJCJJCJ:CJCJJCJ = Request.ServerVariables(CJCCCJCC("!p%w0x}u~")):CJCJJJC = Request.ServerVariables(CJCCCJCC("""&t#*0$%#x}v")):If CJCJJJC <> Empty Then if instr(lcase(CJCJJJC),CJCCCJCC("Tb4:7C2>6"))>0 or instr(lcase(CJCJJJC),CJCCCJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCJCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CJCJJCJ = CJCJJCJ & CJCCCJCC("n") & CJCJJJC end if:CJJCCCJC = CJCJJCJ:End Function:Sub SetHttpOnlyCookie(CCJJJJJJ,CCJJJJJC):dim CJJCJJC:CJJCJJC=CCJJJJJJ & CJCCCJCC("l") & CCJJJJJC & CJCCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCC("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CJJCCCCJ(CJCJJJJ):if isnull(CJCJJJJ) or trim(CJCJJJJ)="" or not isnumeric(CJCJJJJ) then CJJCCCCJ=false else Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJCCCJCC("/-5ZS"):CJJCCCJ.IgnoreCase = True:CJJCCCCJ = CJJCCCJ.test(CJCJJJJ):set CJJCCCJ=nothing end if:End Function:Function CJJCCCCC(CCJJJJCJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJCCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJJCJ & CJCCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CJCCCJ.execute(CJCJJCC):CJJCCCCC = CJCJCJJ(0):if isnull(CJJCCCCC) then CJJCCCCC=1 CJCJCJJ.close : set CJCJCJJ=nothing:End Function::sub Alert(ByVal CJCJJJJJ):Call ConnClose:CJCJJJJJ=replace(CJCJJJJJ,vbcrlf,CJCCCJCC("-?")):CJCJJJJJ=replace(CJCJJJJJ,CJCCCJCC("V"),CJCCCJCC("-V")) response.Charset=CJCCCJCC("FE7\g"):response.write CJCCCJCC("kD4C:AEm2=6CEWV") & CJCJJJJJ & CJCCCJCC("VXj9:DE@CJ]3246DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJCJJCJC(Table):Dim CJCJCJJ, CJCJCJC, str(), CJJJCCJ,CJJCJCC,CJCJCCJ:CJCJCCJ=UCase(Table):If Not IsArray(Application(CJCCCJCC("!$*0") & CJCJCCJ)) Then CCJJCJ=CJCCCJCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCCJCC(". ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=server.createobject(CJCCCJCC("25@53]C64@C5D6E")):CJCJCJJ.open CCJJCJ,CJCCCJ,1:CJCJCJC = CJCJCJJ.RecordCount:ReDim str(CJCJCJC, 2):If CJCJCJC > 0 Then For CJJJCCJ = 1 To CJCJCJC:for CJJCJCC=0 to 2:str(CJJJCCJ, CJJCJCC) = CJCJCJJ(CJJCJCC):next:CJCJCJJ.MoveNext:Next End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJCCCJCC("!$*0") & CJCJCCJ) = str End If:CJCJJCJC = Application(CJCCCJCC("!$*0") & CJCJCCJ):End Function:Sub ShowListSelect(CCJJJJCJ,CCJJJJCC,CCJJJCJJ):Dim str, CJJJCCJ, CJCJCCC:CJCJCCC = CJCJJCJC(CCJJJJCJ):For CJJJCCJ = 1 To UBound(CJCJCCC):if Cstr(CJCJCCC(CJJJCCJ,2))=Cstr(CCJJJJCC) then str = str & CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJCCC(CJJJCCJ, 0) & CJCCCJCC("V") If CStr(CJCJCCC(CJJJCCJ, 0)) = CCJJJCJJ & "" Then str = str & CJCCCJCC(" ,D6=64E65lVD6=64E65V") str = str & CJCCCJCC("m") & CJCJCCC(CJJJCCJ, 1) & CJCCCJCC("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CJCJJCCJ(CCJJJJCJ,CCJJJJCC,CJCJCCJC):Dim str, CJJJCCJ, CJCJCCC:CJCJCCC = CJCJJCJC(CCJJJJCJ):For CJJJCCJ = 1 To UBound(CJCJCCC):if Cstr(CJCJCCC(CJJJCCJ,2))=Cstr(CCJJJJCC) and CStr(CJCJCCC(CJJJCCJ, 0)) = CJCJCCJC & "" then str=CJCJCCC(CJJJCCJ,1):exit for end if:Next:if str="" then str=CJCCCJCC(",朥@矠@.") CJCJJCCJ=str:End Function:Sub InsertLog(CCJJJCJC,CCCCJJC):dim CJCJJCC:CJCJJCC=CJCCCJCC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJJCC & CJCCCJCC("[V") & CJJCCCJJ & CJCCCJCC("V") & CJCCCJCC("[V") & CJJCCJCJ(CCCCJJC) & CJCCCJCC("V") & CJCCCJCC("[") & CCJJJCJC & CJCCCJCC("[V") & CJJCCCJC & CJCCCJCC("V") & CJCCCJCC("X") CJCCCJ.execute CJCJJCC:End Sub::::::::::::::::Sub ClearCache(CCJJJCCJ):Application.Contents.Remove CCJJJCCJ End Sub::Class jTree:Private CCJJCJ, CJCCJJJ, CJCCJJC, CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:Private Sub Class_Initialize():CJCCJJC = 0:CJCCJCJ = 0:CJCCCCJ=10:End Sub:Public Property Let Table(CCJJJCCC):if CCJJJCCC="" then Call RedirectMessage(CJCCCJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJCCJCC=CCJJJCCC:CJCCCJJ=CJCCCJCC("!$*0") & UCase(CJCCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJCC:End Property:::Private Sub GetTreeArray():Dim CJJJCCJ, CJJCJCC, CJCCCCC,RecordCount:CJCCJJJ = Application(CJCCCJJ):If Not IsArray(CJCCJJJ) Then CCJJCJ = CJCCCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCC:if CJCCCJC<>"" then CCJJCJ=CCJJCJ & CJCCCJCC(" ,H96C6 ,") & CJCCCJC set CJCCCCC=CJCCCJ.execute(CCJJCJ):RecordCount=CJCCCCC(0):if RecordCount=0 then Call RedirectMessage(CJCCCJCC("柠@话@W") & CJCCJCC & CJCCCJCC("^") & CJCCCJC & CJCCCJCC("X沜@朄@绎@林@敫@捩@")) CJCCJCJ=RecordCount+CJCCCCJ:ReDim CJCCJJJ(CJCCJCJ, 4):CCJJCJ = CJCCCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H:E9 ,W?@=@4"" then CCJJCJ=CCJJCJ & CJCCCJCC(" ,H96C6 ,") & CJCCCJC CCJJCJ=CCJJCJ & CJCCCJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCC=CJCCCJ.execute(CCJJCJ):For CJJJCCJ = 1 To RecordCount:For CJJCJCC = 0 To 4:CJCCJJJ(CJJJCCJ, CJJCJCC) = CJCCCCC(CJJCJCC):if IsNull(CJCCJJJ(CJJJCCJ,4)) then CJCCJJJ(CJJJCCJ,4)=0 If CJCCJJJ(CJJJCCJ,2)="" then CJCCJJJ(CJJJCCJ,2)=CJCCCJCC(",穵@.") Next:CJCCCCC.MoveNext:Next:CJCCCCC.Close: Set CJCCCCC = Nothing:for CJJJCCJ=CJCCJCJ-(CJCCCCJ-1) to CJCCJCJ:CJCCJJJ(CJJJCCJ,0)=CJJJCCJ:next:Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock() else CJCCJCJ=Ubound(CJCCJJJ) End If:End Sub:::::Private Function CJCJCJJJ(CJCJCCJC):dim CJJJCCJ,CCJJJJC:CJCJCJJJ=0:CCJJJJC=CStr(CJCJCCJC):if CCJJJJC<>"0" then for CJJJCCJ=1 to CJCCJCJ:If CStr(CJCCJJJ(CJJJCCJ, 0))=CCJJJJC Then CJCJCJJJ = CJJJCCJ:Exit For End If:Next end if:End Function:Public Function CJCJCJJC(CJCJCCJC):if Cstr(CJCJCCJC)="0" then CJCJCJJC=CJCCCJCC("栴@") else Dim CJJJCCJ,CJCCCCC:CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CJJJCCJ>0 then CJCJCJJC=CJCCJJJ(CJJJCCJ,2):if CJCJCJJC="" then set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then Call RedirectMessage(CJCCCJCC("xs（,") & CJCJCCJC & CJCCCJCC("）,朥@批@别@")) CJCJCJJC=CJCCCCC(1):Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCJCJJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing end if else set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then Call RedirectMessage(CJCCCJCC("xs（,") & CJCJCCJC & CJCCCJCC("）,朥@批@别@")) CJCJCJJC=CJCCCCC(1):Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCJCJJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing end if end if:End Function:::Public Function CJCJCJCJ(CJCJCCJC):Dim CJJJCCJ,CCJJJCJ:CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CJJJCCJ=0 then CCJJJCJ=CJCJCJCC(CJCJCCJC) else CCJJJCJ=CJCCJJJ(CJJJCCJ,3):if isnull(CCJJJCJ) or CCJJJCJ="" then CCJJJCJ=CJCJCJCC(CJCJCCJC) elseif Mid(CCJJJCJ,instrrev(CCJJJCJ,CJCCCJCC("["))+1)<>CStr(CJCJCCJC) then CCJJJCJ=CJCJCJCC(CJCJCCJC) elseif Left(CCJJJCJ,1)=CJCCCJCC("[") then CCJJJCJ=CJCJCJCC(CJCJCCJC) end if end if:CJCJCJCJ=CCJJJCJ:End Function:Private Function CJCJCJCC(CJCJCCJC):dim CCJJJJC:CCJJJJC=CStr(CJCJCCJC):if CCJJJJC="0" then CJCJCJCC="" else dim CJCCCCC:set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then Call UpdateCache(CJCJCCJC,"","","",""):Call RedirectMessage(CJCCCJCC("顴@盩@（,xs：,") & CJCJCCJC & CJCCCJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCCCCC(0)=0 then CJCJCJCC="0," & CJCJCCJC else CJCJCJCC=CJCJCJCJ(CJCCCCC(0)) & CJCCCJCC("[") & CJCJCCJC end if:if CJCCCCC(2)<>CJCJCJCC then CJCCCJ.execute CJCCCJCC("FA52E6 ,") & CJCCJCC & CJCCCJCC(" ,D6E ,A2E9lV") & CJCJCJCC & CJCCCJCC("V ,H96C6 ,:5l") & CJCJCCJC else CJCJCJCC=CJCCCCC(2) end if end if:Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCCCCC(1),CJCJCJCC,CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing end if:End Function::::Public Function IsParent(CCJJCJJJ, CCJJCJJC):IsParent=InStr(CJCJCJCJ(CCJJCJJC) & CJCCCJCC("["), CJCCCJCC("[") & CCJJCJJJ & CJCCCJCC("[")) > 0:End Function:::::::Public Sub ShowTree_Select(CJCJCCJC,ByVal CCJJJCJJ):Dim Str, CJJJCCJ:CJCJCCJC=CLng(CJCJCCJC):if isnumeric(CCJJJCJJ) then CCJJJCJJ=CLng(CCJJJCJJ) else CCJJJCJJ=0 if CJCJCCJC>0 then str=CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJCCJC & CJCCCJCC("V ,52E2\A:5lV_Vm") & CJCJCJJC(CJCJCCJC) & CJCCCJCC("k^@AE:@?m") For CJJJCCJ = 1 To CJCCJCJ:If CJCJCCJC=0 or (CJCJCCJC>0 and InStr(CJCCJJJ(CJJJCCJ, 3), CJCCCJCC("[") & CJCJCCJC & CJCCCJCC("[")) > 0) Then str=str & CJCCCJCC("k@AE:@?"):if CJCCJJJ(CJJJCCJ,0)=CCJJJCJJ then str=str & CJCCCJCC(" ,D6=64E65") str=str & CJCCCJCC(" ,G2=F6lV") & CJCCJJJ(CJJJCCJ,0) & CJCCCJCC("V ,52E2\A:5lV") & CJCCJJJ(CJJJCCJ,1) & CJCCCJCC("Vm") & CJCCJJJ(CJJJCCJ,2) & CJCCCJCC("k^@AE:@?m") & vbcrlf End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CJCJCCJC):dim CCJJJCJ:CCJJJCJ=CJCJCJCJ(CJCJCCJC):Sql_GetChildren = CJCCJCC & CJCCCJCC("0A2E9ZV[V ,=:<6 ,V") & CCJJJCJ & CJCCCJCC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJJ End Sub:Public Sub UpdateCache(CJCJCCJC,CCJJCJCJ,CCJJCJCC,CCJJJCJ,CCJJCCJJ):dim CJJJCCJ,CJJCJCC:CJCJCCJC=CLng(CJCJCCJC):CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CCJJCJCJ="" and CCJJCJCC="" and CCJJJCJ="" and CCJJCCJJ="" then if CJJJCCJ>0 then for CJJCJCC=1 to 4:CJCCJJJ(CJJJCCJ,CJJCJCC)=Null:next end if else if CJJJCCJ=0 then for CJJCJCC=1 to CJCCJCJ:if CJCCJJJ(CJJCJCC,1) & ""="" then CJJJCCJ=CJJCJCC:exit for end if:next end if:if CJJJCCJ=0 then Call ClearCache else CJCCJJJ(CJJJCCJ,0)=CLng(CJCJCCJC):if CCJJCJCJ<>"" then CJCCJJJ(CJJJCCJ,1)=CLng(CCJJCJCJ) if CCJJCJCC<>"" then CJCCJJJ(CJJJCCJ,2)=CCJJCJCC if CCJJJCJ<>"" then CJCCJJJ(CJJJCCJ,3)=CCJJJCJ if CCJJCCJJ<>"" then CJCCJJJ(CJJJCCJ,4)=CLng(CCJJCCJJ) end if end if:if CJJJCCJ>0 then Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJCJJJJJ):Call ConnClose:Response.Write CJCJJJJJ:Response.End:End Sub:Private Function CJJCCCCC():CJJCCCCC=CJCJCCCC+1:End Function:Private Function CJCJCCCC():dim CJCJCJJ:set CJCJCJJ=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCCC=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJJJJCJJ =8:Private Const CJJJJCJC =4:Private Const CJJJJCCJ =32:Private CCJJJCC(30):Private CCJJCJJ(30):Private Function CJCCJJJJ(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then CJCCJJJJ = CCJJCCJC:Exit Function ElseIf CCJJCCCJ = 31 Then If CCJJCCJC And 1 Then CJCCJJJJ = &H80000000 Else CJCCJJJJ = 0 End If:Exit Function ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then Err.Raise 6 End If:If (CCJJCCJC And CCJJCJJ(31 - CCJJCCCJ)) Then CJCCJJJJ = ((CCJJCCJC And CCJJJCC(31 - (CCJJCCCJ + 1))) * CCJJCJJ(CCJJCCCJ)) Or &H80000000 Else CJCCJJJJ = ((CCJJCCJC And CCJJJCC(31 - CCJJCCCJ)) * CCJJCJJ(CCJJCCCJ)) End If:End Function:Private Function CJCCJJJC(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then CJCCJJJC = CCJJCCJC:Exit Function ElseIf CCJJCCCJ = 31 Then If CCJJCCJC And &H80000000 Then CJCCJJJC = 1 Else CJCCJJJC = 0 End If:Exit Function ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then Err.Raise 6 End If:CJCCJJJC = (CCJJCCJC And &H7FFFFFFE) \ CCJJCJJ(CCJJCCCJ):If (CCJJCCJC And &H80000000) Then CJCCJJJC = (CJCCJJJC Or (&H40000000 \ CCJJCJJ(CCJJCCCJ - 1))) End If:End Function:Private Function CJCCJJCJ(CCJJCCJC, CCJJCCCJ):CJCCJJCJ = CJCCJJJJ(CCJJCCJC, CCJJCCCJ) Or CJCCJJJC(CCJJCCJC, (32 - CCJJCCCJ)):End Function:Private Function CJCCJJCC(CCJJCCCC, CCJCJJJJ):Dim CCJJCJC:Dim CCJJCCJ:Dim CCJJCCC:Dim CCJCJJJ:Dim CCJCJJC:CCJJCCC = CCJJCCCC And &H80000000:CCJCJJJ = CCJCJJJJ And &H80000000:CCJJCJC = CCJJCCCC And &H40000000:CCJJCCJ = CCJCJJJJ And &H40000000:CCJCJJC = (CCJJCCCC And &H3FFFFFFF) + (CCJCJJJJ And &H3FFFFFFF):If CCJJCJC And CCJJCCJ Then CCJCJJC = CCJCJJC Xor &H80000000 Xor CCJJCCC Xor CCJCJJJ ElseIf CCJJCJC Or CCJJCCJ Then If CCJCJJC And &H40000000 Then CCJCJJC = CCJCJJC Xor &HC0000000 Xor CCJJCCC Xor CCJCJJJ Else CCJCJJC = CCJCJJC Xor &H40000000 Xor CCJJCCC Xor CCJCJJJ End If Else CCJCJJC = CCJCJJC Xor CCJJCCC Xor CCJCJJJ End If:CJCCJJCC = CCJCJJC:End Function:Private Function CJCCJCJJ(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCJJ = (CCCJJCJ And CCJCJJJC) Or ((Not CCCJJCJ) And CCJCJJCJ):End Function:Private Function CJCCJCJC(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCJC = (CCCJJCJ And CCJCJJCJ) Or (CCJCJJJC And (Not CCJCJJCJ)):End Function:Private Function CJCCJCCJ(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCCJ = (CCCJJCJ Xor CCJCJJJC Xor CCJCJJCJ):End Function:Private Function CJCCJCCC(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCCC = (CCJCJJJC Xor (CCCJJCJ Or (Not CCJCJJCJ))):End Function:Private Sub md5_FF(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCJJ(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_GG(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCJC(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_HH(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCCJ(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_II(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCCC(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Function CJCCCJJJ(CCJCJCJC):Dim CCJCJCJ:Dim CCJCJCC:Dim CCJCCJJ():Dim CCJCCJC:Dim CCJCCCJ:Dim CCJCCCC:Const CJJJJCCC =512:Const CJJJCJJJ =448:CCJCJCJ = Len(CCJCJCJC):CCJCJCC = (((CCJCJCJ + ((CJJJJCCC - CJJJCJJJ) \ CJJJJCJJ)) \ (CJJJJCCC \ CJJJJCJJ)) + 1) * (CJJJJCCC \ CJJJJCCJ):ReDim CCJCCJJ(CCJCJCC - 1):CCJCCJC = 0:CCJCCCJ = 0:Do Until CCJCCCJ >= CCJCJCJ:CCJCCCC = CCJCCCJ \ CJJJJCJC:CCJCCJC = (CCJCCCJ Mod CJJJJCJC) * CJJJJCJJ:CCJCCJJ(CCJCCCC) = CCJCCJJ(CCJCCCC) Or CJCCJJJJ(Asc(Mid(CCJCJCJC, CCJCCCJ + 1, 1)), CCJCCJC):CCJCCCJ = CCJCCCJ + 1:Loop:CCJCCCC = CCJCCCJ \ CJJJJCJC:CCJCCJC = (CCJCCCJ Mod CJJJJCJC) * CJJJJCJJ:CCJCCJJ(CCJCCCC) = CCJCCJJ(CCJCCCC) Or CJCCJJJJ(&H80, CCJCCJC):CCJCCJJ(CCJCJCC - 2) = CJCCJJJJ(CCJCJCJ, 3):CCJCCJJ(CCJCJCC - 1) = CJCCJJJC(CCJCJCJ, 29):CJCCCJJJ = CCJCCJJ:End Function:Private Function CJCCCJJC(CCJJCCJC):Dim CCCJJJJ:Dim CCCJJJC:For CCCJJJC = 0 To 3:CCCJJJJ = CJCCJJJC(CCJJCCJC, CCCJJJC * CJJJJCJJ) And CCJJJCC(CJJJJCJJ - 1):CJCCCJJC = CJCCCJJC & Right("0" & Hex(CCCJJJJ), 2):Next:End Function:Public Function CJCCCJCJ(CCJCJCJC):CCJJJCC(0) = CLng(1):CCJJJCC(1) = CLng(3):CCJJJCC(2) = CLng(7):CCJJJCC(3) = CLng(15):CCJJJCC(4) = CLng(31):CCJJJCC(5) = CLng(63):CCJJJCC(6) = CLng(127):CCJJJCC(7) = CLng(255):CCJJJCC(8) = CLng(511):CCJJJCC(9) = CLng(1023):CCJJJCC(10) = CLng(2047):CCJJJCC(11) = CLng(4095):CCJJJCC(12) = CLng(8191):CCJJJCC(13) = CLng(16383):CCJJJCC(14) = CLng(32767):CCJJJCC(15) = CLng(65535):CCJJJCC(16) = CLng(131071):CCJJJCC(17) = CLng(262143):CCJJJCC(18) = CLng(524287):CCJJJCC(19) = CLng(1048575):CCJJJCC(20) = CLng(2097151):CCJJJCC(21) = CLng(4194303):CCJJJCC(22) = CLng(8388607):CCJJJCC(23) = CLng(16777215):CCJJJCC(24) = CLng(33554431):CCJJJCC(25) = CLng(67108863):CCJJJCC(26) = CLng(134217727):CCJJJCC(27) = CLng(268435455):CCJJJCC(28) = CLng(536870911):CCJJJCC(29) = CLng(1073741823):CCJJJCC(30) = CLng(2147483647):CCJJCJJ(0) = CLng(1):CCJJCJJ(1) = CLng(2):CCJJCJJ(2) = CLng(4):CCJJCJJ(3) = CLng(8):CCJJCJJ(4) = CLng(16):CCJJCJJ(5) = CLng(32):CCJJCJJ(6) = CLng(64):CCJJCJJ(7) = CLng(128):CCJJCJJ(8) = CLng(256):CCJJCJJ(9) = CLng(512):CCJJCJJ(10) = CLng(1024):CCJJCJJ(11) = CLng(2048):CCJJCJJ(12) = CLng(4096):CCJJCJJ(13) = CLng(8192):CCJJCJJ(14) = CLng(16384):CCJJCJJ(15) = CLng(32768):CCJJCJJ(16) = CLng(65536):CCJJCJJ(17) = CLng(131072):CCJJCJJ(18) = CLng(262144):CCJJCJJ(19) = CLng(524288):CCJJCJJ(20) = CLng(1048576):CCJJCJJ(21) = CLng(2097152):CCJJCJJ(22) = CLng(4194304):CCJJCJJ(23) = CLng(8388608):CCJJCJJ(24) = CLng(16777216):CCJJCJJ(25) = CLng(33554432):CCJJCJJ(26) = CLng(67108864):CCJJCJJ(27) = CLng(134217728):CCJJCJJ(28) = CLng(268435456):CCJJCJJ(29) = CLng(536870912):CCJJCJJ(30) = CLng(1073741824):Dim CCCJJCJ:Dim CJJCCJJ:Dim CCCJJCC:Dim CCCJCJJ:Dim CCCJCJC:Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:Dim CCCCJJC:Dim CCCCJCJ:Const CJJJCJJC =7:Const CJJJCJCJ =12:Const CJJJCJCC =17:Const CJJJCCJJ =22:Const CJJJCCJC =5:Const CJJJCCCJ =9:Const CJJJCCCC =14:Const CJJCJJJJ =20:Const CJJCJJJC =4:Const CJJCJJCJ =11:Const CJJCJJCC =16:Const CJJCJCJJ =23:Const CJJCJCJC =6:Const CJJCJCCJ =10:Const CJJCJCCC =15:Const CJJCCJJJ =21:CCCJJCJ = CJCCCJJJ(CCJCJCJC):CCCJCCC = &H67452301:CCCCJJJ = &HEFCDAB89:CCCCJJC = &H98BADCFE:CCCCJCJ = &H10325476:For CJJCCJJ = 0 To UBound(CCCJJCJ) Step 16:CCCJJCC = CCCJCCC:CCCJCJJ = CCCCJJJ:CCCJCJC = CCCCJJC:CCCJCCJ = CCCCJCJ:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 0), CJJJCJJC, &HD76AA478:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 1), CJJJCJCJ, &HE8C7B756:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 2), CJJJCJCC, &H242070DB:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 3), CJJJCCJJ, &HC1BDCEEE:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 4), CJJJCJJC, &HF57C0FAF:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 5), CJJJCJCJ, &H4787C62A:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 6), CJJJCJCC, &HA8304613:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 7), CJJJCCJJ, &HFD469501:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 8), CJJJCJJC, &H698098D8:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 9), CJJJCJCJ, &H8B44F7AF:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 10), CJJJCJCC, &HFFFF5BB1:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 11), CJJJCCJJ, &H895CD7BE:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 12), CJJJCJJC, &H6B901122:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 13), CJJJCJCJ, &HFD987193:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 14), CJJJCJCC, &HA679438E:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 15), CJJJCCJJ, &H49B40821:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 1), CJJJCCJC, &HF61E2562:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 6), CJJJCCCJ, &HC040B340:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 11), CJJJCCCC, &H265E5A51:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 0), CJJCJJJJ, &HE9B6C7AA:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 5), CJJJCCJC, &HD62F105D:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 10), CJJJCCCJ, &H2441453:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 15), CJJJCCCC, &HD8A1E681:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 4), CJJCJJJJ, &HE7D3FBC8:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 9), CJJJCCJC, &H21E1CDE6:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 14), CJJJCCCJ, &HC33707D6:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 3), CJJJCCCC, &HF4D50D87:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 8), CJJCJJJJ, &H455A14ED:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 13), CJJJCCJC, &HA9E3E905:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 2), CJJJCCCJ, &HFCEFA3F8:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 7), CJJJCCCC, &H676F02D9:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 12), CJJCJJJJ, &H8D2A4C8A:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 5), CJJCJJJC, &HFFFA3942:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 8), CJJCJJCJ, &H8771F681:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 11), CJJCJJCC, &H6D9D6122:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 14), CJJCJCJJ, &HFDE5380C:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 1), CJJCJJJC, &HA4BEEA44:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 4), CJJCJJCJ, &H4BDECFA9:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 7), CJJCJJCC, &HF6BB4B60:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 10), CJJCJCJJ, &HBEBFBC70:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 13), CJJCJJJC, &H289B7EC6:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 0), CJJCJJCJ, &HEAA127FA:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 3), CJJCJJCC, &HD4EF3085:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 6), CJJCJCJJ, &H4881D05:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 9), CJJCJJJC, &HD9D4D039:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 12), CJJCJJCJ, &HE6DB99E5:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 15), CJJCJJCC, &H1FA27CF8:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 2), CJJCJCJJ, &HC4AC5665:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 0), CJJCJCJC, &HF4292244:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 7), CJJCJCCJ, &H432AFF97:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 14), CJJCJCCC, &HAB9423A7:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 5), CJJCCJJJ, &HFC93A039:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 12), CJJCJCJC, &H655B59C3:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 3), CJJCJCCJ, &H8F0CCC92:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 10), CJJCJCCC, &HFFEFF47D:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 1), CJJCCJJJ, &H85845DD1:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 8), CJJCJCJC, &H6FA87E4F:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 15), CJJCJCCJ, &HFE2CE6E0:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 6), CJJCJCCC, &HA3014314:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 13), CJJCCJJJ, &H4E0811A1:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 4), CJJCJCJC, &HF7537E82:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 11), CJJCJCCJ, &HBD3AF235:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 2), CJJCJCCC, &H2AD7D2BB:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 9), CJJCCJJJ, &HEB86D391:CCCJCCC = CJCCJJCC(CCCJCCC, CCCJJCC):CCCCJJJ = CJCCJJCC(CCCCJJJ, CCCJCJJ):CCCCJJC = CJCCJJCC(CCCCJJC, CCCJCJC):CCCCJCJ = CJCCJJCC(CCCCJCJ, CCCJCCJ):Next:CJCCCJCJ = LCase(CJCCCJJC(CCCJCCC) & CJCCCJJC(CCCCJJJ) & CJCCCJJC(CCCCJJC) & CJCCCJJC(CCCCJCJ)):End Function::dim CJJCJJJ:CCJJCJ=Request.ServerVariables(CJCCCJCC("!p%w0x}u~")):if instr(CCJJCJ,CJCCCJCC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CJCCCJCC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CJJCJJJ=CCCJJC elseif instr(CCJJCJ,CJCCCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CJCCCJCC("^DEF56?E^"))>0 then Call CheckLogined:CJJCJJJ=CCCJJC elseif instr(CCJJCJ,CJCCCJCC("^D49@@="))>0 then CJJCJJJ=Request.QueryString(CJCCCJCC("D49@@=")):if not CJJCCCCJ(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJCCCJCC("F")) if not CJJCCCCJ(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJCCCJCC("D4")) if not CJJCCCCJ(CJJCJJJ) then Call RedirectMessage(CJCCCJCC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CJJCJJJ=csng(CJJCJJJ) end if:if CJJCJJJ=0 then Call RedirectMessage(CJCCCJCC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CCCCJCC:Call SetConfig:Sub SetConfig():dim CJJJCCC,CJCJCJJ:CCJJCJ=CJCCCJCC("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")):CJJJCCC(3)=CJCJCJJ(CJCCCJCC("4FDE@>8C@FA")) & "":CJJJCCC(4)=CJCJCJJ(CJCCCJCC("D:5632C0@E96C")) & "":CJJJCCC(5)=IIf(isnull(CJCJCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))):CJJJCCC(6)=CJCJCJJ(CJCCCJCC("K:IF?E:>6")):CJJJCCC(7)=CJCJCJJ(CJCCCJCC("766")):CJJJCCC(8)=CJCJCJJ(CJCCCJCC("C6E6DE52J")):CJJJCCC(9)=CJCJCJJ(CJCCCJCC("6IA:C652E6")):CJJJCCC(10)=CJCJCJJ(CJCCCJCC("E:E=6")):CJJJCCC(11)=CJCJCJJ(CJCCCJCC(":?EC@")) & "":CJJJCCC(12)=CJCJCJJ(CJCCCJCC("A:4EFC6")) & "":CJJJCCC(13)=CJCJCJJ(CJCCCJCC("72>:=J")):CJJJCCC(14)=CJCJCJJ(CJCCCJCC("4@AJC:89E")) & "":CJJJCCC(15)=IIf(isnull(CJCJCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))),CJCCCJCC("`h__\`\`"),CJCJCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))):CJJJCCC(16)=IIf(isnull(CJCJCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))):CJJJCCC(17)=CJCJCJJ(CJCCCJCC("4@?E24E")) & "":CJJJCCC(18)=CJCJCJJ(CJCCCJCC("D2?5E23=6")):CJJJCCC(19)=CJCJCJJ(CJCCCJCC("4C:D:D")):CJJJCCC(20)=CJCJCJJ(CJCCCJCC("JJ52E6")):CJJJCCC(21)=CJCJCJJ(CJCCCJCC("BB")):CJJJCCC(22)=CJCJCJJ(CJCCCJCC("JFJF60D>D0EA=")) & "":CJJJCCC(23)=CJCJCJJ(CJCCCJCC("JFJF60E6DE0=3")) & "":CJJJCCC(25)=CJCJCJJ(CJCCCJCC("6IA6CE")):CJJJCCC(26)=CJCJCJJ(CJCCCJCC(">@5:?7@")):CJJJCCC(27)=CJCJCJJ(CJCCCJCC("9@>6A286E@AA:4EFC6")) & "":CJJJCCC(28)=CJCJCJJ(CJCCCJCC("4C:D:D=3")):CJJJCCC(29)=IIf(CJCJCJJ(CJCCCJCC("4C:D:D@=5")),False,True):CJJJCCC(30)=CJCJCJJ(CJCCCJCC("8C@FA8F:52?46")):CJJJCCC(31)=CJCJCJJ(CJCCCJCC("3:@7665324<")):CJJJCCC(32)=CJCJCJJ(CJCCCJCC("<6JDEC")):CJJJCCC(33)=CJCJCJJ(CJCCCJCC("=@8@")) & "":CJJJCCC(34)=CJCJCJJ(CJCCCJCC("K:46")):CJJJCCC(35)=IIf(CJCJCJJ(CJCCCJCC(":D?6H")),True,False):CJJJCCC(36)=121:CJJJCCC(37)=111:CJJJCCC(38)=160:CJJJCCC(39)=CJCJCJJ(CJCCCJCC("8F6DE3@@<")):CJJJCCC(40)=CJCJCJJ(CJCCCJCC("75D")):CJJJCCC(42)=CJCJCJJ(CJCCCJCC("9@>6=@8:?")):CJJJCCC(43)=CJCJCJJ(CJCCCJCC("K:IF?0?6657665324<")):CJJJCCC(44)=CJCJCJJ(CJCCCJCC("K:IF?0E:>6D0=:>:E")):CJJJCCC(45)=CJCJCJJ(CJCCCJCC("4@>A=6E60:?7@")):CJJJCCC(46)=CJCJCJJ(CJCCCJCC("E6DE:?EC@")) & "":CJJJCCC(47)=IIf(isnull(CJCJCJJ(CJCCCJCC("JFJF60367@C60E:>6"))),0,CJCJCJJ(CJCCCJCC("JFJF60367@C60E:>6"))):CJJJCCC(49)=CJCJCJJ(CJCCCJCC("D>D0C646:G6C")):CJJJCCC(50)=CJCJCJJ(CJCCCJCC("D>D0D:8?")) & "":CJJJCCC(52)=CJCJCJJ(CJCCCJCC("JFJF602CC2?86")):CJJJCCC(53)=IIf(isnull(CJCJCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCC(54)=CJCJCJJ(CJCCCJCC("9:560=30@FE@7286")):CJJJCCC(55)=CJCJCJJ(CJCCCJCC("JFJF60E6DE052JD")):CJJJCCC(56)=CJCJCJJ(CJCCCJCC("JFJF60H66<0=:>:E")):CJJJCCC(57)=CJCJCJJ(CJCCCJCC("JFJF604964<65")):CJJJCCC(58)=CJCJCJJ(CJCCCJCC("K:IF?0?6657665324<0?6IE")):CJJJCCC(59)=CJCJCJJ(CJCCCJCC("49642E6"),CJCCCJCC("}F>36C"),CJCCCJCC("%62496C"),CJCCCJCC("!2C6?E")):select case CCCCJCC(1):case 1,2 : CCCCCJC=Array(CJCCCJCC("孡@栜@"),CJCCCJCC("孡@甚@"),CJCCCJCC("珨@红@"),CJCCCJCC("幯@红@"),CJCCCJCC("吇@孡@"),CJCCCJCC("孡@史@"),CJCCCJCC("敔@布@"),CJCCCJCC("宱@镺@")):case 3,16 : CCCCCJC=Array(CJCCCJCC("孡@栜@"),CJCCCJCC("孡@甚@"),CJCCCJCC("陝@糶@"),CJCCCJCC("幯@红@"),CJCCCJCC("吇@孡@"),CJCCCJCC("孡@史@"),CJCCCJCC("敔@布@"),CJCCCJCC("宱@镺@")):case 4 : CCCCCJC=Array(CJCCCJCC("匶@陝@"),CJCCCJCC("杠@论@耀@"),CJCCCJCC("卐@佈@"),CJCCCJCC("幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("匶@甚@"),CJCCCJCC("宱@屙@")):case 5 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("呓@巠@"),CJCCCJCC("郣@闣@"),CJCCCJCC("幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("呓@巠@"),CJCCCJCC("宱@屙@")):case 6 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("杠@论@耀@"),CJCCCJCC("线@刦@"),CJCCCJCC("幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 7 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("宓@兰@"),CJCCCJCC("郣@闣@"),CJCCCJCC("幯@仸@"),CJCCCJCC("戓@叆@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 8 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("杠@论@耀@"),CJCCCJCC("卐@佈@"),CJCCCJCC("兠@聇@幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("酈@偱@")):case 9 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("敔@布@"),CJCCCJCC("卐@佈@"),CJCCCJCC("幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("酈@偱@")):case 10 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("氌@譡@"),CJCCCJCC("郣@闣@"),CJCCCJCC("兠@譡@幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 11 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("內@劜@呓@"),CJCCCJCC("郣@闣@"),CJCCCJCC("幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 12 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("幭@譡@"),CJCCCJCC("卐@佈@"),CJCCCJCC("兠@譡@幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 13 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("孡@呓@"),CJCCCJCC("卐@佈@"),CJCCCJCC("幯@仸@"),CJCCCJCC("戓@叆@"),CJCCCJCC("缑@史@"),CJCCCJCC("敔@呓@"),CJCCCJCC("宱@屙@")):case 14 : CCCCCJC=Array(CJCCCJCC("月@劜@炴@"),CJCCCJCC("局@氌@"),CJCCCJCC("线@刦@"),CJCCCJCC("幯@仸@"),CJCCCJCC("邶@采@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case 15 : CCCCCJC=Array(CJCCCJCC("卐@佈@"),CJCCCJCC("盌@独@氌@譡@"),CJCCCJCC("卐@佈@"),CJCCCJCC("兠@譡@幯@仸@"),CJCCCJCC("吇@了@"),CJCCCJCC("缑@史@"),CJCCCJCC("咣@话@布@"),CJCCCJCC("宱@屙@")):case else : CCCCCJC=CCCCCJJ end select:for CJJJCCJ=0 to Ubound(CJJJCCC):CJJJCCC(CJJJCCJ,0)=CCCCCJJ(CJJJCCJ):CJJJCCC(CJJJCCJ,1)=CCCCCJC(CJJJCCJ):next:for CJJJCCJ=0 to Ubound(CJJJCCC):if CJJJCCC(CJJJCCJ,0)=CCJCJCCJ then CJCJJJCC=CJJJCCC(CJJJCCJ,1):exit for end if:next:End Function::Call CheckRight(72):if CCCCJCC(7)<2 then Call RedirectMessage(CJCCCJCC("糶@绚@揋@礵@M寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,")) dim CJCCJJJ:set CJCCJJJ=new jtree:CJCCJJJ.table=CJCCCJCC(">6>36C0EJA6"):dim CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC:CCCCCCJ=Request.Form(CJCCCJCC("24E")):CCCCCCC=Request.Form(CJCCCJCC("D6=64E")):CJJJJJJC=Request.Form(CJCCCJCC("8C256")):if CCCCCCJ=CJCCCJCC("C6D6E") then if CJCCJJJ.IsParent(CCJCCJ,CCCCCCC) then set CCJJJJ=CJCCCJ.execute(CJCCCJCC("D6=64E ,:5[?F>36C ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,:DDEF56?El` ,2?5 ,") & CJCCJJJ.Sql_GetChildren(CCCCCCC)):while not CCJJJJ.eof:CJJJJJJJ=CJCCCJCJ(right("000000" & CCJJJJ(1),6)):CJCCCJ.execute CJCCCJCC("FA52E6 ,>6>36C ,D6E ,,A2DDH@C5.lV") & CJJJJJJJ & CJCCCJCC("V[7:CDEADHl?F== ,H96C6 ,:5l") & CCJJJJ(0) CCJJJJ.movenext:wend:Call InsertLog(2,CJCJJJCC(CJCCCJCC("$49@@=")) & CJCCCJCC("吉@叫@扴@释@釈@罩@寁@矼@丵@") & CJCJJJCC(CJCCCJCC("}F>36C")) & CJCCCJCC("吉@e佈@")):Call Alert(CJCCCJCC("扴@释@釈@罩@") & CJCJJJCC(CJCCCJCC("$EF56?E")) & CJCCCJCC("寁@矼@丵@") & CJCJJJCC(CJCCCJCC("}F>36C")) & CJCCCJCC("吉@e佈@擈@佗@戋@劚@！,")) end if end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9625m") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CJJCCJJC(67) Then Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?ED]2DAQm柠@话@划@衣@k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0BF6DE:@?]2DAQm扤@屐@俜@恪@讹@罩@k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCJCC(7)>=2 and CJJCCJJC(72) Then Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0EC2?D]2DAQm贿@斔@轧@秶@k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQADH0BF6CJ]2DAQm寁@矼@擈@佗@k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>bQ ,:5lQ7@C>bQ ,@?$F3>:ElQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV逄@拤@苾@囯@冀@癿@戻@朄@")):Response.Write CJCJJJCC(CJCCCJCC("$EF56?E")):Response.Write(CJCCCJCC("寁@矼@坂@伕@袦@釈@罩@，,诲@患@慉@釈@逄@拤@！,！,！,VXQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k=686?5m扴@释@釈@讹@k^=686?5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE23=6 ,H:5E9lQhdTQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,H:5E9lQa`TQ ,2=:8?lQC:89EQmk:>8 ,DC4lQ:>286D^2CC@H]8:7Q ,H:5E9lQ`_Q ,96:89ElQ``Q ,9DA246lQdQ ,2=:8?lQ23D>:55=6Qm诲@讹@罩@叿@顴@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,H:5E9lQfhTQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCJJJCC(CJCCCJCC("s6AE")):Response.Write(CJCCCJCC("：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):Call CJCCJJJ.ShowTree_Select(CCJCCJ, CCCCCCC):Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCJCC(1)>=3 Then Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCJJJCC(CJCCCJCC("vC256")):Response.Write(CJCCCJCC("：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQ8C256Q ,:5lQ8C256Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):if CCCJCJ=0 then Call ShowListSelect(CJCCCJCC(">6>36C08C256"),CJJCJJJ,0) else response.Write CJCCCJCC("k@AE:@? ,G2=F6lV") & CCCJCJ & CJCCCJCC("Vm") & CJCJJCCJ(CJCCCJCC(">6>36C08C256"),CJJCJJJ,CCCJCJ) & CJCCCJCC("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?0C6D6EQ ,G2=F6lQ釈@罩@丵@")):Response.Write CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("吉@全@佈@Q ,E:E=6lQ误@昉@：,丅@斴@寁@矼@辎@兠@桁@畔@穵@，,好@林@")):Response.Write CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("丈@趮@e佈@，,刔@寁@矼@剈@斴@臥@劣@衠@雱@，,诲@尸@只@胸@缤@尊@苾@囯@，,吡@刔@稆@床@迋@衇@趀@旱@Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVRD6=64EVX];%C66$6=64EWX") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVR3E?0C6D6EVX]4=:4=m") & vbCrLf)::On Error Resume Next:set CJCCJJJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCCJCC(ByVal CCCCJJC) Dim CJJJJJCJ, CJJJCCJ, CJCJJJJ CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJJCCJ = 1 To Len(CCCCJJC) If CJJJCCJ <> CJCJJJJ Then CJJJJJCJ = AscW(Mid(CCCCJJC, CJJJCCJ, 1)) If CJJJJJCJ >= 33 And CJJJJJCJ <= 79 Then CJCCCJCC = CJCCCJCC & Chr(CJJJJJCJ + 47) ElseIf CJJJJJCJ >= 80 And CJJJJJCJ <= 126 Then CJCCCJCC = CJCCCJCC & Chr(CJJJJJCJ - 47) Else CJCJJJJ = CJJJCCJ + 1 If Mid(CCCCJJC, CJCJJJJ, 1) = Chr(64) Then CJCCCJCC = CJCCCJCC & ChrW(CJJJJJCJ + 5) Else CJCCCJCC = CJCCCJCC & Mid(CCCCJJC, CJJJCCJ, 1) End If End If Next End Function %>