Edit D:\xinhaisoft\crisis_new\school\admin\adminimport.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCCCJ, CCCCCC,CJJJJJJ, CJJJJJC, CJJJJCJ:Set CCCCCJ = server.CreateObject(CCJCCCJJ("ps~sq]r@??64E:@?")):CCCCCJ.open Application(CCJCCCJJ("r@??64E:@?$EC:?8")):Set CCCCCC=CCCCCJ::Dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC:CJCJCJC=Trim(Request.Cookies(CCJCCCJJ("!$*|t|qt#"))):if CJCJCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJJCC>0 then CJJJJCJ=CCJCCCJJ("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") & CJJJCJJ & CCJCCCJJ("V ,2?5 ,:5l") & CJJJJCC set CJJJJJJ=CCCCCJ.execute(CJJJJCJ):If CJJJJJJ.EOF Then Call ClearMemberCookie Else CJJJCJC=CJJJJJJ(2) & "":CJJJCCJ=CJJJJJJ(3):CJJJCCC=CJJJJJJ(5):CJJCJJJ=CJJJJJJ(6):CJJCJJC=CJJJJJJ(9):CJJCJCJ=CJJJJJJ(15):CJJCCJJ=CJJJJJJ(0):CJCJJCC=CJJJJJJ(1):CJCJJCJ=CJJJJJJ(11) & "":CJJCCJC=CJJJJJJ(10) & "":CJJCJCC=CJJJJJJ(12):CJJCCCJ=CJJJJJJ(14):CJJCCCC=CJJJJJJ(13):CJCJJJJ=CJJJJJJ(7) & "":CJCJJJC=CJJJJJJ(4):CJCJCJJ=CJJJJJJ(8):if isnull(CJJCJCJ) then CJJCJCJ=0 if isnull(CJJCJJC) or CJJCJJC=0 then CJJCJJC=CJJJCCJ if isnull(CJCJJJC) then CJCJJJC=0 if isnull(CJJJCCC) then CJJJCCC=0 if instr(CCJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJJ)>0 then Call RedirectMessage(CCJCCCJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJJCC,CJJJCJJ) End IF end if:Sub CheckRight(CCJJCJC):dim CJCJCCJ,CJCJCCC:if CJJJJCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCCJJ("??????????????,????????????,")) elseIf not CJCCCCJC(CCJJCJC) then Call RedirectMessage(CCJCCCJJ("????W") & CCJJCJC & CCJCCCJJ("X????????,????????????????????,")) end if:End Sub:Function CJCCCCJC(CCJJCJC):dim CJCJCCJ,CJCJCCC:CJCJCCC=split(CCJJCJC,CCJCCCJJ("[")):CJCCCCJC=False:for CJCJCCJ=0 to ubound(CJCJCCC):If Mid(CJJJCJC,CJCJCCC(CJCJCCJ),1)="1" then CJCCCCJC=True:exit function end if:next:End Function:Sub CheckLogined():if CJJJJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CCJCCCJJ("D49@@="))):if isnumeric(CJCCJJJ) then response.Redirect CCJCCCJJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CCJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJCJ else Call RedirectMessage(CCJCCCJJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCCJJ("!$*|t|qt#"))="":CJJJJCC=0:CJJCJJJ=0:CJJJCJJ=Empty:CJJJCCC=0:CJJCJCJ=0:CJJCJJC=0:CJJJCCJ=0:CJJCCJJ=False:CJCJJCC=False:CJCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCJCCJ,CJCCJCC,CJCCCJJ:CJCCJJC=split(CJCJCJC,CCJCCCJJ("]")):if ubound(CJCCJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then Call ClearMemberCookie else CJCCJCJ=CJCCJJC(1):for CJCJCCJ=1 to len(CJCCJCJ):CJCCJCC=mid(CJCCJCJ,CJCJCCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC if len(CJCCCJJ)=7 then exit for next:CJCCJCJ=CJCCJJC(2):if CJCCCJJ<>mid(CJCCJCJ,6,7) then Call ClearMemberCookie else CJCCJCC=mid(CJCCJCJ,18,10)/2:if CJCCJCC<DateDiff(CCJCCCJJ("D"), CCJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJJCC=Clng(CJCCJJC(0)):CJJJCJJ=CJCCJJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CCJJCCCC,CCJCCCJC):dim CJCJCCJ,CJCCJCC,CJCCCJJ:for CJCJCCJ=1 to len(CCJCCCJC):CJCCJCC=mid(CCJCCCJC,CJCJCCJ,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC if len(CJCCCJJ)=7 then exit for next:CJCCCJJ=CCJJCCCC & CCJCCCJJ("]") & CCJCCCJC & CCJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCCCJJ("D"), CCJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCCJJ("!$*|t|qt#"))=CJCCCJJ:End Sub::Function CJCCCCCJ(CCJCCCCJ):Dim str,CJCCCCJ:str = Trim(CCJCCCCJ):If IsNull(str) Or str = "" Then CJCCCCCJ = "" else str=Replace(str, CCJCCCJJ("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCCJJ("k:7C2>6"), CCJCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCCJJ("kD4C:AE"), CCJCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCCJ=new RegExp:CJCCCCJ.Pattern=CCJCCCJJ("@?W,2\K.ZXl"):CJCCCCJ.IgnoreCase = True:CJCCCCJ.Global=True:str=CJCCCCJ.Replace(str,CCJCCCJJ("@?S`U6BF2=Dj")):set CJCCCCJ=nothing:CJCCCCCJ=str End If:End Function:Function IIf(CCJCCCCC, CCCJJJJJ, CCCJJJJC):if isnull(CCJCCCCC) or isempty(CCJCCCCC) then IIf = CCCJJJJC elseif CCJCCCCC Then IIf = CCCJJJJJ Else IIf = CCCJJJJC end if:End Function:Const CJCJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCJJJJJJ(str):if isnull(str) or str="" then CCJJJJJJ=False:exit function end if:Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CCJCCCJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCCCJ.IgnoreCase = True:CCJJJJJJ = CJCCCCJ.test(str):set CJCCCCJ=nothing:End Function:Function CCJJJJJC():dim CJCCCCC:CJCCCCC = Cstr(Request.ServerVariables(CCJCCCJJ("w%%!0)0u~#(p#sts0u~#"))):If CJCCCCC = "" Then CJCCCCC = Cstr(Request.ServerVariables(CCJCCCJJ("#t|~%t0pss#"))) if instr(CJCCCCC,CCJCCCJJ("i"))>0 then CJCCCCC=left(CJCCCCC,instr(CJCCCCC,CCJCCCJJ("i"))-1) elseif instr(CJCCCCC,CCJCCCJJ("["))>0 then CJCCCCC=left(CJCCCCC,instr(CJCCCCC,CCJCCCJJ("["))-1) end if:CCJJJJJC=left(CJCCCCC,15):End Function:Sub Debug(str):response.Charset=CCJCCCJJ("FE7\g"):dim CJCJCCJ,CJCCJCC,CCJJJJJ:if isarray(str) then on error resume next:CJCJCCJ=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then for CJCJCCJ=0 to ubound(str):if CJCJCCJ>0 then response.Write CCJCCCJJ("k3C ,^m") response.Write CJCJCCJ & CCJCCCJJ("i ,") & str(CJCJCCJ):next else response.Write CCJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJCCJ=0 to ubound(str,2):response.Write CCJCCCJJ("kE9 ,2=:8?lV=67EVm") & CJCJCCJ & CCJCCCJJ("k^E9m") next:response.Write CCJCCCJJ("k^ECm"):for CJCJCCJ=0 to ubound(str):response.Write CCJCCCJJ("kECmkE9m") & CJCJCCJ & CCJCCCJJ("k^E9m"):for CJCCJCC=0 to ubound(str,2):response.Write CCJCCCJJ("kE5m") & str(CJCJCCJ,CJCCJCC) & CCJCCCJJ("k^E5m"):next:response.Write CCJCCCJJ("k^ECm"):next:response.Write CCJCCCJJ("k^E23=6m") end if elseif isnull(str) then response.Write CCJCCCJJ(",}F==.") else Response.Write replace(str,vbcrlf,CCJCCCJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CCJJJJCJ():Dim CCJJJJC, CCJJJCJ:CCJJJCJ = Request.ServerVariables(CCJCCCJJ("!p%w0x}u~")):CCJJJJC = Request.ServerVariables(CCJCCCJJ("""&t#*0$%#x}v")):If CCJJJJC <> Empty Then if instr(lcase(CCJJJJC),CCJCCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJJC),CCJCCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCCCJJ("????????,????????????????????????,??,??,")) CCJJJCJ = CCJJJCJ & CCJCCCJJ("n") & CCJJJJC end if:CCJJJJCJ = CCJJJCJ:End Function:Sub SetHttpOnlyCookie(CCCJJJCJ,CCCJJJCC):dim CJCCJJC:CJCCJJC=CCCJJJCJ & CCJCCCJJ("l") & CCCJJJCC & CCJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCCJJ("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CCJJJJCC(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then CCJJJJCC=false else Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CCJCCCJJ("/-5ZS"):CJCCCCJ.IgnoreCase = True:CCJJJJCC = CJCCCCJ.test(CCJJJJJ):set CJCCCCJ=nothing end if:End Function:Function CCJJJCJJ(CCCJJCJJ):dim CCJJJCC,CCJJCJJ:CCJJJCC=CCJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJCJJ & CCJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJJ=CCCCCJ.execute(CCJJJCC):CCJJJCJJ = CCJJCJJ(0):if isnull(CCJJJCJJ) then CCJJJCJJ=1 CCJJCJJ.close : set CCJJCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCCC=nothing:set CCJJJCJC=nothing:set CCJJJCCJ=nothing:set CCJJJCCC=nothing:CCJJCJJ.close : set CCJJCJJ=nothing:CJJJJJC.Close : Set CJJJJJC=Nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CJJCJJJJ.Close : Set CJJCJJJJ = Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCCJJ("!$*0|6DD286"),server.URLEncode(CCCJJCJC)):Response.Redirect CCJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCJJCJJJ(Table):Dim CCJJCJJ, CCJJCJC, str(), CJCJCCJ,CJCCJCC,CCJJCCJ:CCJJCCJ=UCase(Table):If Not IsArray(Application(CCJCCCJJ("!$*0") & CCJJCCJ)) Then CJJJJCJ=CCJCCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCJJ=server.createobject(CCJCCCJJ("25@53]C64@C5D6E")):CCJJCJJ.open CJJJJCJ,CCCCCJ,1:CCJJCJC = CCJJCJJ.RecordCount:ReDim str(CCJJCJC, 2):If CCJJCJC > 0 Then For CJCJCCJ = 1 To CCJJCJC:for CJCCJCC=0 to 2:str(CJCJCCJ, CJCCJCC) = CCJJCJJ(CJCCJCC):next:CCJJCJJ.MoveNext:Next End If:CCJJCJJ.Close: Set CCJJCJJ = Nothing:Application(CCJCCCJJ("!$*0") & CCJJCCJ) = str End If:CCJJCJJJ = Application(CCJCCCJJ("!$*0") & CCJJCCJ):End Function:::Sub InsertLog(CCCJJCCJ,CJJJCJJJ):dim CCJJJCC:CCJJJCC=CCJCCCJJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJJJCC & CCJCCCJJ("[V") & CCJJJJJC & CCJCCCJJ("V") & CCJCCCJJ("[V") & CJCCCCCJ(CJJJCJJJ) & CCJCCCJJ("V") & CCJCCCJJ("[") & CCCJJCCJ & CCJCCCJJ("[V") & CCJJJJCJ & CCJCCCJJ("V") & CCJCCCJJ("X") CCCCCJ.execute CCJJJCC:End Sub::::::::::::::::Sub ClearCache(CCCJJCCC):Application.Contents.Remove CCCJJCCC End Sub::Class jTree:Private CJJJJCJ, CCJJCCC, CCJCJJJ, CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC:Private Sub Class_Initialize():CCJCJJJ = 0:CCJCJJC = 0:CCJCCJC=10:End Sub:Public Property Let Table(CCCJCJJJ):if CCCJCJJJ="" then Call RedirectMessage(CCJCCCJJ("????????,;%C66????????????????????@??????????,")) CCJCJCJ=CCCJCJJJ:CCJCJCC=CCJCCCJJ("!$*0") & UCase(CCJCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJCJ:End Property::Public Property Get Count():Count=CCJCJJC-CCJCCJC:End Property:Private Sub GetTreeArray():Dim CJCJCCJ, CJCCJCC, CCJCCCJ,RecordCount:CCJJCCC = Application(CCJCJCC):If Not IsArray(CCJJCCC) Then CJJJJCJ = CCJCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJCJ:if CCJCCJJ<>"" then CJJJJCJ=CJJJJCJ & CCJCCCJJ(" ,H96C6 ,") & CCJCCJJ set CCJCCCJ=CCCCCJ.execute(CJJJJCJ):RecordCount=CCJCCCJ(0):if RecordCount=0 then Call RedirectMessage(CCJCCCJJ("????W") & CCJCJCJ & CCJCCCJJ("^") & CCJCCJJ & CCJCCCJJ("X????????????")) CCJCJJC=RecordCount+CCJCCJC:ReDim CCJJCCC(CCJCJJC, 4):CJJJJCJ = CCJCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCJ & CCJCCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCJJ<>"" then CJJJJCJ=CJJJJCJ & CCJCCCJJ(" ,H96C6 ,") & CCJCCJJ CJJJJCJ=CJJJJCJ & CCJCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCCJ=CCCCCJ.execute(CJJJJCJ):For CJCJCCJ = 1 To RecordCount:For CJCCJCC = 0 To 4:CCJJCCC(CJCJCCJ, CJCCJCC) = CCJCCCJ(CJCCJCC):if IsNull(CCJJCCC(CJCJCCJ,4)) then CCJJCCC(CJCJCCJ,4)=0 If CCJJCCC(CJCJCCJ,2)="" then CCJJCCC(CJCJCCJ,2)=CCJCCCJJ(",??.") Next:CCJCCCJ.MoveNext:Next:CCJCCCJ.Close: Set CCJCCCJ = Nothing:for CJCJCCJ=CCJCJJC-(CCJCCJC-1) to CCJCJJC:CCJJCCC(CJCJCCJ,0)=CJCJCCJ:next:Application.Lock():Application(CCJCJCC) = CCJJCCC:Application.UnLock() else CCJCJJC=Ubound(CCJJCCC) End If:End Sub:::::Private Function CCJJCJCJ(CCJJCCCC):dim CJCJCCJ,CCCJJJJ:CCJJCJCJ=0:CCCJJJJ=CStr(CCJJCCCC):if CCCJJJJ<>"0" then for CJCJCCJ=1 to CCJCJJC:If CStr(CCJJCCC(CJCJCCJ, 0))=CCCJJJJ Then CCJJCJCJ = CJCJCCJ:Exit For End If:Next end if:End Function::::Public Function CCJJCJCC(CCJJCCCC):Dim CJCJCCJ,CCCJJJC:CJCJCCJ=CCJJCJCJ(CCJJCCCC):if CJCJCCJ=0 then CCCJJJC=CCJJCCJJ(CCJJCCCC) else CCCJJJC=CCJJCCC(CJCJCCJ,3):if isnull(CCCJJJC) or CCCJJJC="" then CCCJJJC=CCJJCCJJ(CCJJCCCC) elseif Mid(CCCJJJC,instrrev(CCCJJJC,CCJCCCJJ("["))+1)<>CStr(CCJJCCCC) then CCCJJJC=CCJJCCJJ(CCJJCCCC) elseif Left(CCCJJJC,1)=CCJCCCJJ("[") then CCCJJJC=CCJJCCJJ(CCJJCCCC) end if end if:CCJJCJCC=CCCJJJC:End Function:Private Function CCJJCCJJ(CCJJCCCC):dim CCCJJJJ:CCCJJJJ=CStr(CCJJCCCC):if CCCJJJJ="0" then CCJJCCJJ="" else dim CCJCCCJ:set CCJCCCJ=CCCCCJ.execute(CCJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCJ & CCJCCCJJ(" ,H96C6 ,:5l") & CCJJCCCC):if CCJCCCJ.eof then Call UpdateCache(CCJJCCCC,"","","",""):Call RedirectMessage(CCJCCCJJ("??????,xs??,") & CCJJCCCC & CCJCCCJJ("??,????????,????????????????????,")) else if CCJCCCJ(0)=0 then CCJJCCJJ="0," & CCJJCCCC else CCJJCCJJ=CCJJCJCC(CCJCCCJ(0)) & CCJCCCJJ("[") & CCJJCCCC end if:if CCJCCCJ(2)<>CCJJCCJJ then CCCCCJ.execute CCJCCCJJ("FA52E6 ,") & CCJCJCJ & CCJCCCJJ(" ,D6E ,A2E9lV") & CCJJCCJJ & CCJCCCJJ("V ,H96C6 ,:5l") & CCJJCCCC else CCJJCCJJ=CCJCCCJ(2) end if end if:Call UpdateCache(CCJJCCCC,CCJCCCJ(0),CCJCCCJ(1),CCJJCCJJ,CCJCCCJ(3)):CCJCCCJ.Close: Set CCJCCCJ = Nothing end if:End Function::::::::Public Function GetAllChildID(CCJJCCCC):Dim Str, CJCJCCJ:if CCJJCCCJ(CCJJCCCC) then For CJCJCCJ = 1 To CCJCJJC:If InStr(CCJJCCC(CJCJCCJ, 3) & CCJCCCJJ("["), CCJCCCJJ("[") & CCJJCCCC & CCJCCCJJ("[")) > 0 Then Str = Str & CCJCCCJJ("[") & CCJJCCC(CJCJCCJ, 0) End If:Next:Str = Mid(Str, 2) else str=CCJJCCCC end if:GetAllChildID = Str:End Function:::::Public Function CCJJCCCJ(CCJJCCCC):Dim CJCJCCJ:CCJJCCCJ = False:CCJJCCCC=CLng(CCJJCCCC):For CJCJCCJ = 1 To CCJCJJC:If CCJJCCC(CJCJCCJ, 1) = CCJJCCCC Then CCJJCCCJ = True:Exit For End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJCC End Sub:Public Sub UpdateCache(CCJJCCCC,CCCJCJJC,name,CCCJJJC,CCCJCJCC):dim CJCJCCJ,CJCCJCC:CCJJCCCC=CLng(CCJJCCCC):CJCJCCJ=CCJJCJCJ(CCJJCCCC):if CCCJCJJC="" and name="" and CCCJJJC="" and CCCJCJCC="" then if CJCJCCJ>0 then for CJCCJCC=1 to 4:CCJJCCC(CJCJCCJ,CJCCJCC)=Null:next end if else if CJCJCCJ=0 then for CJCCJCC=1 to CCJCJJC:if CCJJCCC(CJCCJCC,1) & ""="" then CJCJCCJ=CJCCJCC:exit for end if:next end if:if CJCJCCJ=0 then Call ClearCache else CCJJCCC(CJCJCCJ,0)=CLng(CCJJCCCC):if CCCJCJJC<>"" then CCJJCCC(CJCJCCJ,1)=CLng(CCCJCJJC) if name<>"" then CCJJCCC(CJCJCCJ,2)=name if CCCJJJC<>"" then CCJJCCC(CJCJCCJ,3)=CCCJJJC if CCCJCJCC<>"" then CCJJCCC(CJCJCCJ,4)=CLng(CCCJCJCC) end if end if:if CJCJCCJ>0 then Application.Lock():Application(CCJCJCC) = CCJJCCC:Application.UnLock() end if:End Sub:Private Sub Debug(CCCJJCJC):Call ConnClose:Response.Write CCCJJCJC:Response.End:End Sub:Private Function CCJJJCJJ():CCJJJCJJ=CCJCJJJJ+1:End Function:Private Function CCJCJJJJ():dim CCJJCJJ:set CCJJCJJ=CCCCCJ.execute(CCJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJCJ & CCJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJJJJ=CCJJCJJ(0):CCJJCJJ.Close: Set CCJJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJCJJCCC =8:Private Const CJCJCJJJ =4:Private Const CJCJCJJC =32:Private CCCJJCJ(30):Private CCCJJCC(30):Private Function CCJCJJJC(CCCJCCJJ, CCCJCCJC):If CCCJCCJC = 0 Then CCJCJJJC = CCCJCCJJ:Exit Function ElseIf CCCJCCJC = 31 Then If CCCJCCJJ And 1 Then CCJCJJJC = &H80000000 Else CCJCJJJC = 0 End If:Exit Function ElseIf CCCJCCJC < 0 Or CCCJCCJC > 31 Then Err.Raise 6 End If:If (CCCJCCJJ And CCCJJCC(31 - CCCJCCJC)) Then CCJCJJJC = ((CCCJCCJJ And CCCJJCJ(31 - (CCCJCCJC + 1))) * CCCJJCC(CCCJCCJC)) Or &H80000000 Else CCJCJJJC = ((CCCJCCJJ And CCCJJCJ(31 - CCCJCCJC)) * CCCJJCC(CCCJCCJC)) End If:End Function:Private Function CCJCJJCJ(CCCJCCJJ, CCCJCCJC):If CCCJCCJC = 0 Then CCJCJJCJ = CCCJCCJJ:Exit Function ElseIf CCCJCCJC = 31 Then If CCCJCCJJ And &H80000000 Then CCJCJJCJ = 1 Else CCJCJJCJ = 0 End If:Exit Function ElseIf CCCJCCJC < 0 Or CCCJCCJC > 31 Then Err.Raise 6 End If:CCJCJJCJ = (CCCJCCJJ And &H7FFFFFFE) \ CCCJJCC(CCCJCCJC):If (CCCJCCJJ And &H80000000) Then CCJCJJCJ = (CCJCJJCJ Or (&H40000000 \ CCCJJCC(CCCJCCJC - 1))) End If:End Function:Private Function CCJCJJCC(CCCJCCJJ, CCCJCCJC):CCJCJJCC = CCJCJJJC(CCCJCCJJ, CCCJCCJC) Or CCJCJJCJ(CCCJCCJJ, (32 - CCCJCCJC)):End Function:Private Function CCJCJCJJ(CCCJCCCJ, CCCJCCCC):Dim CCCJCJJ:Dim CCCJCJC:Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:CCCJCCJ = CCCJCCCJ And &H80000000:CCCJCCC = CCCJCCCC And &H80000000:CCCJCJJ = CCCJCCCJ And &H40000000:CCCJCJC = CCCJCCCC And &H40000000:CCCCJJJ = (CCCJCCCJ And &H3FFFFFFF) + (CCCJCCCC And &H3FFFFFFF):If CCCJCJJ And CCCJCJC Then CCCCJJJ = CCCCJJJ Xor &H80000000 Xor CCCJCCJ Xor CCCJCCC ElseIf CCCJCJJ Or CCCJCJC Then If CCCCJJJ And &H40000000 Then CCCCJJJ = CCCCJJJ Xor &HC0000000 Xor CCCJCCJ Xor CCCJCCC Else CCCCJJJ = CCCCJJJ Xor &H40000000 Xor CCCJCCJ Xor CCCJCCC End If Else CCCCJJJ = CCCCJJJ Xor CCCJCCJ Xor CCCJCCC End If:CCJCJCJJ = CCCCJJJ:End Function:Private Function CCJCJCJC(CJJJJJJC, CCCCJJJJ, CCCCJJJC):CCJCJCJC = (CJJJJJJC And CCCCJJJJ) Or ((Not CJJJJJJC) And CCCCJJJC):End Function:Private Function CCJCJCCJ(CJJJJJJC, CCCCJJJJ, CCCCJJJC):CCJCJCCJ = (CJJJJJJC And CCCCJJJC) Or (CCCCJJJJ And (Not CCCCJJJC)):End Function:Private Function CCJCJCCC(CJJJJJJC, CCCCJJJJ, CCCCJJJC):CCJCJCCC = (CJJJJJJC Xor CCCCJJJJ Xor CCCCJJJC):End Function:Private Function CCJCCJJJ(CJJJJJJC, CCCCJJJJ, CCCCJJJC):CCJCCJJJ = (CCCCJJJJ Xor (CJJJJJJC Or (Not CCCCJJJC))):End Function:Private Sub md5_FF(CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC, CJCJJJCC, CCCCJJCJ):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CCJCJCJJ(CCJCJCJJ(CCJCJCJC(CJJJJCCC, CJJJCJJJ, CJJJCJJC), CJJJJJJC), CCCCJJCJ)):CJJJJCCJ = CCJCJJCC(CJJJJCCJ, CJCJJJCC):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CJJJJCCC):End Sub:Private Sub md5_GG(CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC, CJCJJJCC, CCCCJJCJ):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CCJCJCJJ(CCJCJCJJ(CCJCJCCJ(CJJJJCCC, CJJJCJJJ, CJJJCJJC), CJJJJJJC), CCCCJJCJ)):CJJJJCCJ = CCJCJJCC(CJJJJCCJ, CJCJJJCC):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CJJJJCCC):End Sub:Private Sub md5_HH(CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC, CJCJJJCC, CCCCJJCJ):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CCJCJCJJ(CCJCJCJJ(CCJCJCCC(CJJJJCCC, CJJJCJJJ, CJJJCJJC), CJJJJJJC), CCCCJJCJ)):CJJJJCCJ = CCJCJJCC(CJJJJCCJ, CJCJJJCC):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CJJJJCCC):End Sub:Private Sub md5_II(CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC, CJCJJJCC, CCCCJJCJ):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CCJCJCJJ(CCJCJCJJ(CCJCCJJJ(CJJJJCCC, CJJJCJJJ, CJJJCJJC), CJJJJJJC), CCCCJJCJ)):CJJJJCCJ = CCJCJJCC(CJJJJCCJ, CJCJJJCC):CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CJJJJCCC):End Sub:Private Function CCJCCJJC(CCCCJJCC):Dim CCCCJJC:Dim CCCCJCJ:Dim CCCCJCC():Dim CCCCCJJ:Dim CCCCCJC:Dim CCCCCCJ:Const CJCJCJCJ =512:Const CJCJCJCC =448:CCCCJJC = Len(CCCCJJCC):CCCCJCJ = (((CCCCJJC + ((CJCJCJCJ - CJCJCJCC) \ CJCJJCCC)) \ (CJCJCJCJ \ CJCJJCCC)) + 1) * (CJCJCJCJ \ CJCJCJJC):ReDim CCCCJCC(CCCCJCJ - 1):CCCCCJJ = 0:CCCCCJC = 0:Do Until CCCCCJC >= CCCCJJC:CCCCCCJ = CCCCCJC \ CJCJCJJJ:CCCCCJJ = (CCCCCJC Mod CJCJCJJJ) * CJCJJCCC:CCCCJCC(CCCCCCJ) = CCCCJCC(CCCCCCJ) Or CCJCJJJC(Asc(Mid(CCCCJJCC, CCCCCJC + 1, 1)), CCCCCJJ):CCCCCJC = CCCCCJC + 1:Loop:CCCCCCJ = CCCCCJC \ CJCJCJJJ:CCCCCJJ = (CCCCCJC Mod CJCJCJJJ) * CJCJJCCC:CCCCJCC(CCCCCCJ) = CCCCJCC(CCCCCCJ) Or CCJCJJJC(&H80, CCCCCJJ):CCCCJCC(CCCCJCJ - 2) = CCJCJJJC(CCCCJJC, 3):CCCCJCC(CCCCJCJ - 1) = CCJCJJCJ(CCCCJJC, 29):CCJCCJJC = CCCCJCC:End Function:Private Function CCJCCJCJ(CCCJCCJJ):Dim CCCCCCC:Dim CJJJJJJJ:For CJJJJJJJ = 0 To 3:CCCCCCC = CCJCJJCJ(CCCJCCJJ, CJJJJJJJ * CJCJJCCC) And CCCJJCJ(CJCJJCCC - 1):CCJCCJCJ = CCJCCJCJ & Right("0" & Hex(CCCCCCC), 2):Next:End Function:Public Function CCJCCJCC(CCCCJJCC):CCCJJCJ(0) = CLng(1):CCCJJCJ(1) = CLng(3):CCCJJCJ(2) = CLng(7):CCCJJCJ(3) = CLng(15):CCCJJCJ(4) = CLng(31):CCCJJCJ(5) = CLng(63):CCCJJCJ(6) = CLng(127):CCCJJCJ(7) = CLng(255):CCCJJCJ(8) = CLng(511):CCCJJCJ(9) = CLng(1023):CCCJJCJ(10) = CLng(2047):CCCJJCJ(11) = CLng(4095):CCCJJCJ(12) = CLng(8191):CCCJJCJ(13) = CLng(16383):CCCJJCJ(14) = CLng(32767):CCCJJCJ(15) = CLng(65535):CCCJJCJ(16) = CLng(131071):CCCJJCJ(17) = CLng(262143):CCCJJCJ(18) = CLng(524287):CCCJJCJ(19) = CLng(1048575):CCCJJCJ(20) = CLng(2097151):CCCJJCJ(21) = CLng(4194303):CCCJJCJ(22) = CLng(8388607):CCCJJCJ(23) = CLng(16777215):CCCJJCJ(24) = CLng(33554431):CCCJJCJ(25) = CLng(67108863):CCCJJCJ(26) = CLng(134217727):CCCJJCJ(27) = CLng(268435455):CCCJJCJ(28) = CLng(536870911):CCCJJCJ(29) = CLng(1073741823):CCCJJCJ(30) = CLng(2147483647):CCCJJCC(0) = CLng(1):CCCJJCC(1) = CLng(2):CCCJJCC(2) = CLng(4):CCCJJCC(3) = CLng(8):CCCJJCC(4) = CLng(16):CCCJJCC(5) = CLng(32):CCCJJCC(6) = CLng(64):CCCJJCC(7) = CLng(128):CCCJJCC(8) = CLng(256):CCCJJCC(9) = CLng(512):CCCJJCC(10) = CLng(1024):CCCJJCC(11) = CLng(2048):CCCJJCC(12) = CLng(4096):CCCJJCC(13) = CLng(8192):CCCJJCC(14) = CLng(16384):CCCJJCC(15) = CLng(32768):CCCJJCC(16) = CLng(65536):CCCJJCC(17) = CLng(131072):CCCJJCC(18) = CLng(262144):CCCJJCC(19) = CLng(524288):CCCJJCC(20) = CLng(1048576):CCCJJCC(21) = CLng(2097152):CCCJJCC(22) = CLng(4194304):CCCJJCC(23) = CLng(8388608):CCCJJCC(24) = CLng(16777216):CCCJJCC(25) = CLng(33554432):CCCJJCC(26) = CLng(67108864):CCCJJCC(27) = CLng(134217728):CCCJJCC(28) = CLng(268435456):CCCJJCC(29) = CLng(536870912):CCCJJCC(30) = CLng(1073741824):Dim CJJJJJJC:Dim CJCCCJJ:Dim CJJJJJCJ:Dim CJJJJJCC:Dim CJJJJCJJ:Dim CJJJJCJC:Dim CJJJJCCJ:Dim CJJJJCCC:Dim CJJJCJJJ:Dim CJJJCJJC:Const CJCJCCJJ =7:Const CJCJCCJC =12:Const CJCJCCCJ =17:Const CJCJCCCC =22:Const CJCCJJJJ =5:Const CJCCJJJC =9:Const CJCCJJCJ =14:Const CJCCJJCC =20:Const CJCCJCJJ =4:Const CJCCJCJC =11:Const CJCCJCCJ =16:Const CJCCJCCC =23:Const CJCCCJJJ =6:Const CJCCCJJC =10:Const CJCCCJCJ =15:Const CJCCCJCC =21:CJJJJJJC = CCJCCJJC(CCCCJJCC):CJJJJCCJ = &H67452301:CJJJJCCC = &HEFCDAB89:CJJJCJJJ = &H98BADCFE:CJJJCJJC = &H10325476:For CJCCCJJ = 0 To UBound(CJJJJJJC) Step 16:CJJJJJCJ = CJJJJCCJ:CJJJJJCC = CJJJJCCC:CJJJJCJJ = CJJJCJJJ:CJJJJCJC = CJJJCJJC:md5_FF CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 0), CJCJCCJJ, &HD76AA478:md5_FF CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 1), CJCJCCJC, &HE8C7B756:md5_FF CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 2), CJCJCCCJ, &H242070DB:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 3), CJCJCCCC, &HC1BDCEEE:md5_FF CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 4), CJCJCCJJ, &HF57C0FAF:md5_FF CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 5), CJCJCCJC, &H4787C62A:md5_FF CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 6), CJCJCCCJ, &HA8304613:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 7), CJCJCCCC, &HFD469501:md5_FF CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 8), CJCJCCJJ, &H698098D8:md5_FF CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 9), CJCJCCJC, &H8B44F7AF:md5_FF CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 10), CJCJCCCJ, &HFFFF5BB1:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 11), CJCJCCCC, &H895CD7BE:md5_FF CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 12), CJCJCCJJ, &H6B901122:md5_FF CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 13), CJCJCCJC, &HFD987193:md5_FF CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 14), CJCJCCCJ, &HA679438E:md5_FF CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 15), CJCJCCCC, &H49B40821:md5_GG CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 1), CJCCJJJJ, &HF61E2562:md5_GG CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 6), CJCCJJJC, &HC040B340:md5_GG CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 11), CJCCJJCJ, &H265E5A51:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 0), CJCCJJCC, &HE9B6C7AA:md5_GG CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 5), CJCCJJJJ, &HD62F105D:md5_GG CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 10), CJCCJJJC, &H2441453:md5_GG CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 15), CJCCJJCJ, &HD8A1E681:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 4), CJCCJJCC, &HE7D3FBC8:md5_GG CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 9), CJCCJJJJ, &H21E1CDE6:md5_GG CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 14), CJCCJJJC, &HC33707D6:md5_GG CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 3), CJCCJJCJ, &HF4D50D87:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 8), CJCCJJCC, &H455A14ED:md5_GG CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 13), CJCCJJJJ, &HA9E3E905:md5_GG CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 2), CJCCJJJC, &HFCEFA3F8:md5_GG CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 7), CJCCJJCJ, &H676F02D9:md5_GG CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 12), CJCCJJCC, &H8D2A4C8A:md5_HH CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 5), CJCCJCJJ, &HFFFA3942:md5_HH CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 8), CJCCJCJC, &H8771F681:md5_HH CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 11), CJCCJCCJ, &H6D9D6122:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 14), CJCCJCCC, &HFDE5380C:md5_HH CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 1), CJCCJCJJ, &HA4BEEA44:md5_HH CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 4), CJCCJCJC, &H4BDECFA9:md5_HH CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 7), CJCCJCCJ, &HF6BB4B60:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 10), CJCCJCCC, &HBEBFBC70:md5_HH CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 13), CJCCJCJJ, &H289B7EC6:md5_HH CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 0), CJCCJCJC, &HEAA127FA:md5_HH CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 3), CJCCJCCJ, &HD4EF3085:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 6), CJCCJCCC, &H4881D05:md5_HH CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 9), CJCCJCJJ, &HD9D4D039:md5_HH CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 12), CJCCJCJC, &HE6DB99E5:md5_HH CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 15), CJCCJCCJ, &H1FA27CF8:md5_HH CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 2), CJCCJCCC, &HC4AC5665:md5_II CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 0), CJCCCJJJ, &HF4292244:md5_II CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 7), CJCCCJJC, &H432AFF97:md5_II CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 14), CJCCCJCJ, &HAB9423A7:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 5), CJCCCJCC, &HFC93A039:md5_II CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 12), CJCCCJJJ, &H655B59C3:md5_II CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 3), CJCCCJJC, &H8F0CCC92:md5_II CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 10), CJCCCJCJ, &HFFEFF47D:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 1), CJCCCJCC, &H85845DD1:md5_II CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 8), CJCCCJJJ, &H6FA87E4F:md5_II CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 15), CJCCCJJC, &HFE2CE6E0:md5_II CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 6), CJCCCJCJ, &HA3014314:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 13), CJCCCJCC, &H4E0811A1:md5_II CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJJJC(CJCCCJJ + 4), CJCCCJJJ, &HF7537E82:md5_II CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJJJJC(CJCCCJJ + 11), CJCCCJJC, &HBD3AF235:md5_II CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJCCC, CJJJJJJC(CJCCCJJ + 2), CJCCCJCJ, &H2AD7D2BB:md5_II CJJJJCCC, CJJJCJJJ, CJJJCJJC, CJJJJCCJ, CJJJJJJC(CJCCCJJ + 9), CJCCCJCC, &HEB86D391:CJJJJCCJ = CCJCJCJJ(CJJJJCCJ, CJJJJJCJ):CJJJJCCC = CCJCJCJJ(CJJJJCCC, CJJJJJCC):CJJJCJJJ = CCJCJCJJ(CJJJCJJJ, CJJJJCJJ):CJJJCJJC = CCJCJCJJ(CJJJCJJC, CJJJJCJC):Next:CCJCCJCC = LCase(CCJCCJCJ(CJJJJCCJ) & CCJCCJCJ(CJJJJCCC) & CCJCCJCJ(CJJJCJJJ) & CCJCCJCJ(CJJJCJJC)):End Function::dim CJCCJJJ:CJJJJCJ=Request.ServerVariables(CCJCCCJJ("!p%w0x}u~")):if instr(CJJJJCJ,CCJCCCJJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCCJJ and not CJCJJCC then Call RedirectMessage(CCJCCCJJ("????????,????????????????????????,")) CJCCJJJ=CJJCJJC elseif instr(CJJJJCJ,CCJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJCJ,CCJCCCJJ("^DEF56?E^"))>0 then Call CheckLogined:CJCCJJJ=CJJCJJC elseif instr(CJJJJCJ,CCJCCCJJ("^D49@@="))>0 then CJCCJJJ=Request.QueryString(CCJCCCJJ("D49@@=")):if not CCJJJJCC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CCJCCCJJ("F")) if not CCJJJJCC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CCJCCCJJ("D4")) if not CCJJJJCC(CJCCJJJ) then Call RedirectMessage(CCJCCCJJ("????????W$49@@=X??@??????????,")) CJCCJJJ=csng(CJCCJJJ) end if:if CJCCJJJ=0 then Call RedirectMessage(CCJCCCJJ("????????W$49@@=X????W_X??,")) Dim CJJJCJCJ:Call SetConfig:Sub SetConfig():dim CJCJCCC,CCJJCJJ:CJJJJCJ=CCJCCCJJ("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") & CJCCJJJ:set CCJJCJJ=CCCCCJ.execute(CJJJJCJ):if CCJJCJJ.eof then Call RedirectMessage(CCJCCCJJ("??W") & CJJJJCC & CCJCCCJJ("X??????????W") & CJCCJJJ & CCJCCCJJ("X????????,")) ReDim CJCJCCC(61):CJCJCCC(0)=CCJJCJJ(CCJCCCJJ(";:2@H6:")) & "":CJCJCCC(1)=CCJJCJJ(CCJCCCJJ("EJA6")):CJCJCCC(2)=CCJJCJJ(CCJCCCJJ("D>D")):CJCJCCC(3)=CCJJCJJ(CCJCCCJJ("4FDE@>8C@FA")) & "":CJCJCCC(4)=CCJJCJJ(CCJCCCJJ("D:5632C0@E96C")) & "":CJCJCCC(5)=IIf(isnull(CCJJCJJ(CCJCCCJJ("E6DEC6DF=EG:6H"))),0,CCJJCJJ(CCJCCCJJ("E6DEC6DF=EG:6H"))):CJCJCCC(6)=CCJJCJJ(CCJCCCJJ("K:IF?E:>6")):CJCJCCC(7)=CCJJCJJ(CCJCCCJJ("766")):CJCJCCC(8)=CCJJCJJ(CCJCCCJJ("C6E6DE52J")):CJCJCCC(9)=CCJJCJJ(CCJCCCJJ("6IA:C652E6")):CJCJCCC(10)=CCJJCJJ(CCJCCCJJ("E:E=6")):CJCJCCC(11)=CCJJCJJ(CCJCCCJJ(":?EC@")) & "":CJCJCCC(12)=CCJJCJJ(CCJCCCJJ("A:4EFC6")) & "":CJCJCCC(13)=CCJJCJJ(CCJCCCJJ("72>:=J")):CJCJCCC(14)=CCJJCJJ(CCJCCCJJ("4@AJC:89E")) & "":CJCJCCC(15)=IIf(isnull(CCJJCJJ(CCJCCCJJ("D6>6DE6C0DE2CE052E6"))),CCJCCCJJ("`h__\`\`"),CCJJCJJ(CCJCCCJJ("D6>6DE6C0DE2CE052E6"))):CJCJCCC(16)=IIf(isnull(CCJJCJJ(CCJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJJ(CCJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCJCCC(17)=CCJJCJJ(CCJCCCJJ("4@?E24E")) & "":CJCJCCC(18)=CCJJCJJ(CCJCCCJJ("D2?5E23=6")):CJCJCCC(19)=CCJJCJJ(CCJCCCJJ("4C:D:D")):CJCJCCC(20)=CCJJCJJ(CCJCCCJJ("JJ52E6")):CJCJCCC(21)=CCJJCJJ(CCJCCCJJ("BB")):CJCJCCC(22)=CCJJCJJ(CCJCCCJJ("JFJF60D>D0EA=")) & "":CJCJCCC(23)=CCJJCJJ(CCJCCCJJ("JFJF60E6DE0=3")) & "":CJCJCCC(25)=CCJJCJJ(CCJCCCJJ("6IA6CE")):CJCJCCC(26)=CCJJCJJ(CCJCCCJJ(">@5:?7@")):CJCJCCC(27)=CCJJCJJ(CCJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCJCCC(28)=CCJJCJJ(CCJCCCJJ("4C:D:D=3")):CJCJCCC(29)=IIf(CCJJCJJ(CCJCCCJJ("4C:D:D@=5")),False,True):CJCJCCC(30)=CCJJCJJ(CCJCCCJJ("8C@FA8F:52?46")):CJCJCCC(31)=CCJJCJJ(CCJCCCJJ("3:@7665324<")):CJCJCCC(32)=CCJJCJJ(CCJCCCJJ("<6JDEC")):CJCJCCC(33)=CCJJCJJ(CCJCCCJJ("=@8@")) & "":CJCJCCC(34)=CCJJCJJ(CCJCCCJJ("K:46")):CJCJCCC(35)=IIf(CCJJCJJ(CCJCCCJJ(":D?6H")),True,False):CJCJCCC(36)=121:CJCJCCC(37)=111:CJCJCCC(38)=160:CJCJCCC(39)=CCJJCJJ(CCJCCCJJ("8F6DE3@@<")):CJCJCCC(40)=CCJJCJJ(CCJCCCJJ("75D")):CJCJCCC(42)=CCJJCJJ(CCJCCCJJ("9@>6=@8:?")):CJCJCCC(43)=CCJJCJJ(CCJCCCJJ("K:IF?0?6657665324<")):CJCJCCC(44)=CCJJCJJ(CCJCCCJJ("K:IF?0E:>6D0=:>:E")):CJCJCCC(45)=CCJJCJJ(CCJCCCJJ("4@>A=6E60:?7@")):CJCJCCC(46)=CCJJCJJ(CCJCCCJJ("E6DE:?EC@")) & "":CJCJCCC(47)=IIf(isnull(CCJJCJJ(CCJCCCJJ("JFJF60367@C60E:>6"))),0,CCJJCJJ(CCJCCCJJ("JFJF60367@C60E:>6"))):CJCJCCC(49)=CCJJCJJ(CCJCCCJJ("D>D0C646:G6C")):CJCJCCC(50)=CCJJCJJ(CCJCCCJJ("D>D0D:8?")) & "":CJCJCCC(52)=CCJJCJJ(CCJCCCJJ("JFJF602CC2?86")):CJCJCCC(53)=IIf(isnull(CCJJCJJ(CCJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJJ(CCJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCC(54)=CCJJCJJ(CCJCCCJJ("9:560=30@FE@7286")):CJCJCCC(55)=CCJJCJJ(CCJCCCJJ("JFJF60E6DE052JD")):CJCJCCC(56)=CCJJCJJ(CCJCCCJJ("JFJF60H66<0=:>:E")):CJCJCCC(57)=CCJJCJJ(CCJCCCJJ("JFJF604964<65")):CJCJCCC(58)=CCJJCJJ(CCJCCCJJ("K:IF?0?6657665324<0?6IE")):CJCJCCC(59)=CCJJCJJ(CCJCCCJJ("4964<?6HDEF56?E")):CJCJCCC(60)=CCJJCJJ(CCJCCCJJ("K:IF?04=@D6052E6")):CCJJCJJ.close : set CCJJCJJ=nothing:if isNull(CJCJCCC(8)) or CJCJCCC(8)="" then CJCJCCC(8)=0 if isdate(CJCJCCC(9)) then CJCJCCC(9)=cdate(CJCJCCC(9)):if CJCJCCC(9)<Date then Call RedirectMessage(CCJCCCJJ("????????,????????????????W") & CJCJCCC(9) & CCJCCCJJ("X??????,")) end if:if not CCJJJJCC(CJCJCCC(20)) then CJCJCCC(20)=7 select case CJCJCCC(1):case 1,2,16:CJCJCCC(36)=159:case 4,5,6,10,11:CJCJCCC(36)=190:CJCJCCC(37)=178:CJCJCCC(38)=191:case 7,13:CJCJCCC(36)=164:CJCJCCC(37)=178:CJCJCCC(38)=179:end select:CJJJCJCJ=CJCJCCC:End Sub:Function CCJJJCCC(CJJJCCCJ):dim CJCJCCC(7,1),CJCJCCJ,CJJJCJCC,CJJJCCJJ:CJJJCJCC=Array(CCJCCCJJ("$49@@="),CCJCCCJJ("$EF56?E"),CCJCCCJJ("s6AE"),CCJCCCJJ("vC256"),CCJCCCJJ("r=2DD>2E6"),CCJCCCJJ("}F>36C"),CCJCCCJJ("%62496C"),CCJCCCJJ("!2C6?E")):select case CJJJCJCJ(1):case 1,2 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????")):case 3,16 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????")):case 4 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("??????@"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????")):case 5 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????")):case 6 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("??????@"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 7 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 8 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("??????@"),CCJCCCJJ("????"),CCJCCCJJ("????????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 9 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 10 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 11 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 12 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 13 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????")):case 14 : CJJJCCJJ=Array(CCJCCCJJ("??????"),CCJCCCJJ("??@??"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case 15 : CJJJCCJJ=Array(CCJCCCJJ("????"),CCJCCCJJ("????????"),CCJCCCJJ("????"),CCJCCCJJ("????????"),CCJCCCJJ("????"),CCJCCCJJ("????"),CCJCCCJJ("??????"),CCJCCCJJ("????")):case else : CJJJCCJJ=CJJJCJCC end select:for CJCJCCJ=0 to Ubound(CJCJCCC):CJCJCCC(CJCJCCJ,0)=CJJJCJCC(CJCJCCJ):CJCJCCC(CJCJCCJ,1)=CJJJCCJJ(CJCJCCJ):next:for CJCJCCJ=0 to Ubound(CJCJCCC):if CJCJCCC(CJCJCCJ,0)=CJJJCCCJ then CCJJJCCC=CJCJCCC(CJCJCCJ,1):exit for end if:next:End Function::Call CheckRight(62):Const CJCCCCJJ=5000:if CJJJCJCJ(7)<3 then Call RedirectMessage(CCJCCCJJ("????????,??????????????????????,")) dim CJJJCCJC:CJJJCCJC=request.QueryString(CCJCCCJJ("24E")):dim CJJJCCCJ:CJJJCCCJ=CCJCCJCC(CJJJCCJ & Date):if CJJJCCJC=CCJCCCJJ("AC6G:6H") or CJJJCCJC=CCJCCCJJ(":>A@CE") then Response.CharSet=CCJCCCJJ("FE7\g"):dim CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJJCJJCJ:CJJCJJCJ=Request.QueryString(CCJCCCJJ("7:=66IE")):if CJJCJJCJ<>CCJCCCJJ("I=D") and CJJCJJCJ<>CCJCCCJJ("I=DI") then Call RedirectMessage(CCJCCCJJ("????????]I=D????@]I=DI????????tI46=??????,")) CJJCJJJC=server.MapPath(CCJCCCJJ("]]^]]^2EE249>6?ED^p5>:?0") & CJJJCCCJ & CCJCCCJJ("]") & CJJCJJCJ):set CJJJCCCC=server.CreateObject(CCJCCCJJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJJJCCCC.FileExists(CJJCJJJC) Then Call RedirectMessage(CCJCCCJJ("??????????tI46=????????????,????????????????????,??????????????,?????? ,d ,????????,??????????,??????????,??????,??????????????,??,")) if CJJCJJCJ=CCJCCCJJ("I=D") then CJJJJCJ=CCJCCCJJ("!C@G:56Cl|:4C@D@7E]prt]~{tsq]`a]_js2E2 ,$@FC46l") & CJJCJJJC & CCJCCCJJ("jtIE6?565 ,!C@A6CE:6DlQtI46= ,g]_jws#l*6Djx|t)l`Qj") else CJJJJCJ=CCJCCCJJ("!C@G:56Cl|:4C@D@7E]prt]~{tsq]`a]_js2E2 ,$@FC46l") & CJJCJJJC & CCJCCCJJ("jtIE6?565 ,!C@A6CE:6DlQtI46= ,`a]_ ,)>=jws#l*6Djx|t)l`Qj") end if:On Error Resume Next:Set CJJCJJJJ = server.CreateObject(CCJCCCJJ("ps~sq]r@??64E:@?")):CJJCJJJJ.Open CJJJJCJ:if err then Call RedirectMessage(CCJCCCJJ("????tI46=??????????,??????,") & err.description) set CJJJJJC=CJJCJJJJ.OpenSchema(20):if CJJJJJC.eof then Call RedirectMessage(CCJCCCJJ("????tI46=??????????,????????????????????,")) dim table:table=replace(CJJJJJC(CCJCCCJJ("E23=60?2>6")),CCJCCCJJ("V"),"") if right(table,1)<>CCJCCCJJ("S") then table=table & CCJCCCJJ("S") set CJJJJJC=CJJCJJJJ.execute(CCJCCCJJ("D6=64E ,Y ,7C@> ,,") & table & CCJCCCJJ("pix.")):if err then Call RedirectMessage(CCJCCCJJ("????tI46=??????????,??????,") & err.description) On Error Goto 0:if CJJJJJC.eof then Call RedirectMessage(CCJCCCJJ("????????,????tI46=??????????@????????,????????,")) if CJJJCCJC=CCJCCCJJ("AC6G:6H") then Call ShowExcel(CJJJJJC):Call ConnClose:response.End() end if:if CJJJJJC.Fields.Count<9 then Call RedirectMessage(CCJCCCJJ("tI46=????????????W") & CJJJJJC.Fields.Count & CCJCCCJJ("^hX????????,????????@????????????,")) set CJJJJJJ=CCCCCJ.execute(CCJCCCJJ("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if DateDiff(CCJCCCJJ("?"),CJJJJJJ(0),Now)<3 then Call RedirectMessage(CCJCCCJJ("????????????????????????????????????,????????????????????,")) CCCCCJ.execute CCJCCCJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX"):dim CJJCJCJJ,CJCJCCJ,CJCCJCC,CJJCJCJC,CJJCJCCJ,CJCJCCC:dim CJJCJCCC,CCJJCJC,CJJCCJJJ,CJJCCJJC,CJJCCJCJ,CJJCCJCC,CJJCCCJJ,CJJCCCJC,CJJCCCCJ,CJJCCCCC,CJCJJJJJ,CJCJJJJC:dim CCJJCCC:set CCJJCCC=new jtree:CCJJCCC.table=CCJCCCJJ(">6>36C0EJA6"):CJJCJCJJ=CCJJCCC.GetAllChildID(CJJJCCJ):if CJJJCJCJ(1)>=3 then CJCJCCC=CCJJCJJJ(CCJCCCJJ(">6>36C08C256")):for CJCJCCJ=1 to ubound(CJCJCCC):if CJCJCCC(CJCJCCJ,2)=CJCCJJJ then CJJCJCJC=CJJCJCJC & CCJCCCJJ("[") & CJCJCCC(CJCJCCJ,0) next:CJJCJCJC=CJJCJCJC & CCJCCCJJ("[") end if:if CJJJCJCJ(3)<>"" then CJCJCCC=CCJJCJJJ(CCJCCCJJ(">6>36C04FDE@>8C@FA")):for CJCJCCJ=1 to ubound(CJCJCCC):if CJCJCCC(CJCJCCJ,2)=CJCCJJJ then CJJCJCCJ=CJJCJCCJ & CCJCCCJJ("[") & CJCJCCC(CJCJCCJ,0) next:CJJCJCCJ=CJJCJCCJ & CCJCCCJJ("[") end if:CJCJCCC=CCJJCJJJ(CCJCCCJJ("D49@@=025>:?0EJA6")):for CJCJCCJ=1 to ubound(CJCJCCC):if CJCJCCC(CJCJCCJ,2)=CJCCJJJ then CJJCCCCJ=CJJCCCCJ & CCJCCCJJ("[") & CJCJCCC(CJCJCCJ,0) next:CJJCCCCJ=CJJCCCCJ & CCJCCCJJ("["):set CJJJJJJ=CCCCCJ.execute(CCJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CJJCJCCC=CJJJJJJ(0)+1:response.Write CCJCCCJJ("k5:G ,DEJ=6lV7@?E\D:K6i`cAIVmk3m??????????????,??????????????????????????,??????????????,??????,????,??????????????????,k^3mk9Cm") dim CJCJJJCJ:CJCJJJCJ=0:CJCJCCJ=1:do while not CJJJJJC.eof:CJJCCJJJ=trim(CJJJJJC(1) & ""):CJJCCJJC=trim(CJJJJJC(2) & ""):if CJJCCJJJ="" then response.Write CCJCCCJJ("kDA2? ,DEJ=6lV4@=@CiC65jVmkDEC@?8m") & CJCJCCJ & CCJCCCJJ("k^DEC@?8m??,??????????,??????????????,k^DA2?mk3Cm") elseif CJJCCJJC="" then response.Write CCJCCCJJ("kDA2? ,DEJ=6lV4@=@CiC65jVmkDEC@?8m") & CJCJCCJ & CCJCCCJJ("k^DEC@?8m??,??????????????,??????????????,k^DA2?mk3Cm") else CCJJCJC=replace(replace(trim(CJJJJJC(0)) & "",CCJCCCJJ("V"),""),chr(9),"") if CCJJCJC="" then CCJJCJC=CCJCCCJJ("?F==") else CCJJCJC=CCJCCCJJ("V") & CCJJCJC & CCJCCCJJ("V") CJJCCJJJ=CJCCCCCJ(CJJCCJJJ):CJJCCJJJ=replace(CJJCCJJJ,CCJCCCJJ(" ,"),""):CJJCCJJJ=replace(CJJCCJJJ,CCJCCCJJ("??,"),""):CJJCCJJJ=replace(CJJCCJJJ,chr(9),""):CJCJJJJC=Trim(CJJJJJC(3)):if CJCJJJJC=CCJCCCJJ("??") or CJCJJJJC="1" then CJCJJJJC=1 elseif CJCJJJJC=CCJCCCJJ("??") or CJCJJJJC="0" then CJCJJJJC=0 else CJCJJJJC=1 end if:CJJCCJCJ=replace(Trim(CJJJJJC(4)) & "",chr(9),""):if instr(CCJCCCJJ("[") & CJJCJCJJ & CCJCCCJJ("["),CCJCCCJJ("[") & CJJCCJCJ & CCJCCCJJ("["))=0 then CJJCCJCJ=CJJJCCJ CJJCCJCC=Trim(CJJJJJC(5)):if instr(CJJCJCJC,CCJCCCJJ("[") & CJJCCJCC & CCJCCCJJ("["))=0 then CJJCCJCC=CCJCCCJJ("?F==") CJJCCCJJ=Trim(CJJJJJC(6)):if instr(CJJCJCCJ,CCJCCCJJ("[") & CJJCCCJJ & CCJCCCJJ("["))=0 then CJJCCCJJ=CCJCCCJJ("?F==") CJCJJJJJ=Trim(CJJJJJC(7)):if instr(CJJCCCCJ,CCJCCCJJ("[") & CJCJJJJJ & CCJCCCJJ("["))=0 then CJCJJJJJ=CCJCCCJJ("?F=="):CJJCCCCC=CCJCCCJJ("?F==") else set CJJJJJJ=CCCCCJ.execute(CCJCCCJJ("D6=64E ,E@A ,` ,,C:89E. ,7C@> ,D49@@=025>:?0EJA6 ,H96C6 ,:5l") & CJCJJJJJ):CJJCCCCC=CCJCCCJJ("V") & CJJJJJJ(0) & CCJCCCJJ("V") end if:CJJCCCJC=replace(Trim(CJJJJJC(8)) & "",chr(9),""):if CCJJJJJJ(CJJCCCJC) then CJJCCCJC=CCJCCCJJ("V") & CJJCCCJC & CCJCCCJJ("V") else CJJCCCJC=CCJCCCJJ("?F==") CJJJJCJ=CCJCCCJJ(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[4FDE@>8C@FA[,DE2E6.[,8C@FA.[:DD49@@=25>:?[:Dr@?DF=E2?E[:DDEF56?E[,C:89E.[>@3:=6[D49@@=25>:?EJA6X ,G2=F6DW") & CJJCJCCC & CCJCCCJJ("[") & CCJJCJC & CCJCCCJJ("[V") & CCJCCJCC(CJJCCJJC) & CCJCCCJJ("V") & CCJCCCJJ("[}V") & CJJCCJJJ & CCJCCCJJ("V") & CCJCCCJJ("[") & CJCJJJJC & CCJCCCJJ("[86E52E6WX") & CCJCCCJJ("[") & CJJCCJCJ & CCJCCCJJ("[") & CJJCCJCC & CCJCCCJJ("[") & CJJCCCJJ & CCJCCCJJ("[d[`[`[`[_") & CCJCCCJJ("[") & CJJCCCCC & CCJCCCJJ("[") & CJJCCCJC & CCJCCCJJ("[") & CJCJJJJJ & CCJCCCJJ("X") CJJCJCCC=CJJCJCCC+1:CCCCCJ.execute CJJJJCJ:CJCJJJCJ=CJCJJJCJ+1:response.Write CCJCCCJJ("kDA2? ,DEJ=6lV4@=@Ci8C66?jVmkDEC@?8m") & CJCJCCJ & CCJCCCJJ("k^DEC@?8m??,???? ,") & CJJCCJJJ & CCJCCCJJ(" ,??????,k^DA2?mk3Cm") end if:CJJJJJC.movenext:CJCJCCJ=CJCJCCJ+1:if CJCJCCJ>CJCCCCJJ then exit do loop:Call InsertLog(0,CCJCCCJJ("????W") & CJCCJJJ & CCJCCCJJ("X??????????????") & CJCJCCJ-1 & CCJCCCJJ("??")):CCCCCJ.execute CCJCCCJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F=="):response.Write CCJCCCJJ("k9Cm??????????,tI46=????????,") & CJCJCCJ-1 & CCJCCCJJ("??,??????,") & CJCJJJCJ & CCJCCCJJ("??,k^5:Gm"):CJJJJJC.close : set CJJJJJC=nothing:CJJCJJJJ.close : set CJJCJJJJ=nothing:CJJJCCCC.DeleteFile CJJCJJJC:set CJJJCCCC=nothing:Call ConnClose:response.End() end if:Sub ShowExcel(CJJJJJJ):dim CJCJCCJ,CJCCJCC,CJCJJJCC,CJCJJCJJ:CJCJJJCC=CCJCCCJJ("kDEJ=6 ,EJA6lVE6IE^4DDVmE23=6L3@C56C\4@==2AD6i4@==2AD6NE9[E5L3@C56Ci`AI ,D@=:5 ,RbbbjE6IE\2=:8?i46?E6Cj7@?E\D:K6i`aAIjA255:?8idAI ,_AIjNE9L324<8C@F?5\4@=@CiRrrrjNk^DEJ=6m") & CCJCCCJJ("kE23=6 ,H:5E9lV`__TVmkECmkE9mk^E9m") CJCJJCJJ=CJJJJJJ.fields.count-1:for CJCJCCJ=0 to CJCJJCJJ:CJCJJJCC=CJCJJJCC & CCJCCCJJ("kE9m") & CJJJJJJ.fields(CJCJCCJ).name & CCJCCCJJ("k^E9m"):next:CJCJJJCC=CJCJJJCC & CCJCCCJJ("k^ECm"):CJCJCCJ=1:do while not CJJJJJJ.eof:CJCJJJCC=CJCJJJCC & CCJCCCJJ("kECmkE5m") & CJCJCCJ & CCJCCCJJ("k^E5m"):for CJCCJCC=0 to CJCJJCJJ:if Trim(CJJJJJJ(CJCCJCC) & "")="" then CJCJJJCC=CJCJJJCC & CCJCCCJJ("kE5 ,DEJ=6lV4@=@CiC65jVm??????????,k^E5m") else CJCJJJCC=CJCJJJCC & CCJCCCJJ("kE5m") & CJJJJJJ(CJCCJCC) & CCJCCCJJ("k^E5m") end if:next:CJCJJJCC=CJCJJJCC & CCJCCCJJ("k^ECm"):CJJJJJJ.movenext:CJCJCCJ=CJCJCCJ+1:if CJCJCCJ>CJCCCCJJ then exit do loop:CJCJJJCC=CJCJJJCC & CCJCCCJJ("k^E23=6m"):response.Write CJCJJJCC:End Sub:Response.Write(vbCrLf):Response.Write(CCJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCCJJ("k9625m") & vbCrLf):Response.Write(CCJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCCCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCCCJJ("k^9625m") & vbCrLf):Response.Write(CCJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCCJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:mk2 ,9C67lQ25>:?255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ25>:?:>A@CE]2DAQmtI46=????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJJ("k^F=m") & vbCrLf):Response.Write(CCJCCCJJ("k7@C>m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=686?5m??????????,????????k^=686?5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,kE23=6m") & vbCrLf):Response.Write(CCJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCJJ(" ,kE5 ,2=:8?lQC:89EQmk:>8 ,DC4lQ:>286D^2CC@H]8:7Q ,H:5E9lQ`_Q ,96:89ElQ``Qmk^E5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,kE5mk:7C2>6 ,DC4lQ^:?4^FA=@25]2DAInp4El`Uu%lhUu}lp5>:?0")):Response.Write CJJJCCCJ:Response.Write(CCJCCCJJ("Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\:>A@CEQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\AC6G:6HQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCJCCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ7:=66IEQm") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCJJ("k^7@C>m") & vbCrLf):Response.Write(CCJCCCJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k@=m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:mtI46=??????????@??`??????????,????????????????????????????,??????????????????????????,??,??????????????????????????@????,????,??????????,??????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m????????????????????????????????@??????????,????^??????,??????,??????????,??????,")):Response.Write CCJJJCCC(CCJCCCJJ("s6AE")):Response.Write(CCJCCCJJ("??,")):Response.Write IIf(CJJJCJCJ(1)>=3,CCJJJCCC(CCJCCCJJ("vC256")),CCJCCCJJ("????")):Response.Write(CCJCCCJJ("??,")):Response.Write IIf(CJJJCJCJ(3)<>"",CJJJCJCJ(3),CCJCCCJJ("????")):Response.Write(CCJCCCJJ("??,??????,??????????,??h????,??,??????,") & vbCrLf):Response.Write(CCJCCCJJ(" ,kF=m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????,????????????,??,????????@??????,????????????????????????,????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????????,??@????,????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????????,??@????,????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,????????????,????,????????,`??,??,????????????,????,????????,_??,??????,????????????????@????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m")):Response.Write CCJJJCCC(CCJCCCJJ("s6AE")):Response.Write(CCJCCCJJ("??,??????,k2 ,9C67lQDEF56?E056AE]2DAQm")):Response.Write CCJJJCCC(CCJCCCJJ("s6AE")):Response.Write(CCJCCCJJ("????k^2m??,????????????xs????????@??,????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,")):If CJJJCJCJ(1)>=3 Then Response.Write(vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m")):Response.Write CCJJJCCC(CCJCCCJJ("vC256")):Response.Write(CCJCCCJJ("??,??????,k2 ,9C67lQDEF56?E08C256]2DAQm")):Response.Write CCJJJCCC(CCJCCCJJ("vC256")):Response.Write(CCJCCCJJ("????k^2m??,????????????xs????????@??,????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????????????,??????????,????????????????,??????????@????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,")) End If::If CJJJCJCJ(3)<>"" Then Response.Write(vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m")):Response.Write CJJJCJCJ(3):Response.Write(CCJCCCJJ("??,??????,k2 ,9C67lQDEF56?E08C@FA]2DAQm")):Response.Write CJJJCJCJ(3):Response.Write(CCJCCCJJ("????k^2m??,????????????xs????????@??,????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????????????,??????????,????????????????,??????????@????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????,k2 ,9C67lQ25>:?EJA6]2DAQm??????????k^2m??,??????????????xs????????@??,????????,????xs????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m??????,??????????,??????????????????????????????,????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k=:m????????????????????????????,??????????,????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCCJJ(" ,k^@=m") & vbCrLf):Response.Write(CCJCCCJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCCJJ("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CCJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCJJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJCCCJJ(" ,SWVR3E?\:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCJJ(" ,G2C ,6IElSWVR7:=66IEVX]G2=WX") & vbCrLf):Response.Write(CCJCCCJJ(" ,:7W6IElllVVXL=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCJCCCJJ(" ,6=D6LH:?0@A6?WVn24El:>A@CEU7:=66IElVZ6IE[V??????????,??????]]]V[Vh__[c__VXN") & vbCrLf):Response.Write(CCJCCCJJ(" ,NX") & vbCrLf):Response.Write(CCJCCCJJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJCCCJJ(" ,SWVR3E?\AC6G:6HVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCJJ(" ,G2C ,6IElSWVR7:=66IEVX]G2=WX") & vbCrLf):Response.Write(CCJCCCJJ(" ,:7W6IElllVVXL=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCJCCCJJ(" ,6=D6LH:?0@A6?WVn24ElAC6G:6HU7:=66IElVZ6IE[V????????V[Vh__[c__VXN") & vbCrLf):Response.Write(CCJCCCJJ(" ,NX") & vbCrLf):Response.Write(CCJCCCJJ("NX") & vbCrLf):Response.Write(CCJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCC=nothing:set CCJJJCJC=nothing:set CCJJJCCJ=nothing:set CCJJJCCC=nothing:CJJJJJC.Close:Set CJJJJJC=Nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCJ.Close:Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCCCJJ(ByVal CJJJCJJJ) Dim CJCJJCJC, CJCJCCJ, CCJJJJJ CJJJCJJJ = Replace(CJJJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJCCJ = 1 To Len(CJJJCJJJ) If CJCJCCJ <> CCJJJJJ Then CJCJJCJC = AscW(Mid(CJJJCJJJ, CJCJCCJ, 1)) If CJCJJCJC >= 33 And CJCJJCJC <= 79 Then CCJCCCJJ = CCJCCCJJ & Chr(CJCJJCJC + 47) ElseIf CJCJJCJC >= 80 And CJCJJCJC <= 126 Then CCJCCCJJ = CCJCCCJJ & Chr(CJCJJCJC - 47) Else CCJJJJJ = CJCJCCJ + 1 If Mid(CJJJCJJJ, CCJJJJJ, 1) = Chr(64) Then CCJCCCJJ = CCJCCCJJ & ChrW(CJCJJCJC + 5) Else CCJCCCJJ = CCJCCCJJ & Mid(CJJJCJJJ, CJCJCCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de