Edit D:\xinhaisoft\crisis_new\school\admin\student_import.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCCCC, CJJJJJJ,CJJJJJC, CJJJJCJ, CJJJJCC:Set CCCCCC = server.CreateObject(CCJCCJJJ("ps~sq]r@??64E:@?")):CCCCCC.open Application(CCJCCJJJ("r@??64E:@?$EC:?8")):Set CJJJJJJ=CCCCCC::Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC:Dim CJCJCCJ:CJCJCCJ=Trim(Request.Cookies(CCJCCJJJ("!$*|t|qt#"))):if CJCJCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJCJJ>0 then CJJJJCC=CCJCCJJJ("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") & CJJJCJC & CCJCCJJJ("V ,2?5 ,:5l") & CJJJCJJ set CJJJJJC=CCCCCC.execute(CJJJJCC):If CJJJJJC.EOF Then Call ClearMemberCookie Else CJJJCCJ=CJJJJJC(2) & "":CJJJCCC=CJJJJJC(3):CJJCJJJ=CJJJJJC(5):CJJCJJC=CJJJJJC(6):CJJCJCJ=CJJJJJC(9):CJJCJCC=CJJJJJC(15):CJJCCJC=CJJJJJC(0):CJCJCJJ=CJJJJJC(1):CJCJJCC=CJJJJJC(11) & "":CJJCCCJ=CJJJJJC(10) & "":CJJCCJJ=CJJJJJC(12):CJJCCCC=CJJJJJC(14):CJCJJJJ=CJJJJJC(13):CJCJJJC=CJJJJJC(7) & "":CJCJJCJ=CJJJJJC(4):CJCJCJC=CJJJJJC(8):if isnull(CJJCJCC) then CJJCJCC=0 if isnull(CJJCJCJ) or CJJCJCJ=0 then CJJCJCJ=CJJJCCC if isnull(CJCJJCJ) then CJCJJCJ=0 if isnull(CJJCJJJ) then CJJCJJJ=0 if instr(CCJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJC)>0 then Call RedirectMessage(CCJCCJJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJCJJ,CJJJCJC) End IF end if:Sub CheckRight(CCJJCCC):dim CJCJCCC,CJCCJJJ:if CJJJCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCJJJ("??????????????,????????????,")) elseIf not CJCCCJJC(CCJJCCC) then Call RedirectMessage(CCJCCJJJ("????W") & CCJJCCC & CCJCCJJJ("X????????,????????????????????,")) end if:End Sub:Function CJCCCJJC(CCJJCCC):dim CJCJCCC,CJCCJJJ:CJCCJJJ=split(CCJJCCC,CCJCCJJJ("[")):CJCCCJJC=False:for CJCJCCC=0 to ubound(CJCCJJJ):If Mid(CJJJCCJ,CJCCJJJ(CJCJCCC),1)="1" then CJCCCJJC=True:exit function end if:next:End Function:Sub CheckLogined():if CJJJCJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCJJC:CJCCJJC=trim(request.QueryString(CCJCCJJJ("D49@@="))):if isnumeric(CJCCJJC) then response.Redirect CCJCCJJJ("^>^G2?E^R^D49@@=^") & CJCCJJC & CCJCCJJJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCJCCJJJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCJJJ("!$*|t|qt#"))="":CJJJCJJ=0:CJJCJJC=0:CJJJCJC=Empty:CJJCJJJ=0:CJJCJCC=0:CJJCJCJ=0:CJJJCCC=0:CJJCCJC=False:CJCJCJJ=False:CJCJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJCJ,CJCCJCC,CJCJCCC,CJCCCJJ,CJCCCJC:CJCCJCJ=split(CJCJCCJ,CCJCCJJJ("]")):if ubound(CJCCJCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJCJ(0)) or len(CJCCJCJ(1))<>32 or len(CJCCJCJ(2))<>32 then Call ClearMemberCookie else CJCCJCC=CJCCJCJ(1):for CJCJCCC=1 to len(CJCCJCC):CJCCCJJ=mid(CJCCJCC,CJCJCCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ if len(CJCCCJC)=7 then exit for next:CJCCJCC=CJCCJCJ(2):if CJCCCJC<>mid(CJCCJCC,6,7) then Call ClearMemberCookie else CJCCCJJ=mid(CJCCJCC,18,10)/2:if CJCCCJJ<DateDiff(CCJCCJJJ("D"), CCJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJCJJ=Clng(CJCCJCJ(0)):CJJJCJC=CJCCJCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJCCCJC,CJJCCCCJ):dim CJCJCCC,CJCCCJJ,CJCCCJC:for CJCJCCC=1 to len(CJJCCCCJ):CJCCCJJ=mid(CJJCCCCJ,CJCJCCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ if len(CJCCCJC)=7 then exit for next:CJCCCJC=CJJCCCJC & CCJCCJJJ("]") & CJJCCCCJ & CCJCCJJJ("]") & Fix(10000*(Rnd+1)) & CJCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJJJ("D"), CCJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJJJ("!$*|t|qt#"))=CJCCCJC:End Sub::Function CJCCCJCJ(CCJCCJJC):Dim str,CJCCCCC:str = Trim(CCJCCJJC):If IsNull(str) Or str = "" Then CJCCCJCJ = "" else str=Replace(str, CCJCCJJJ("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCJJJ("k:7C2>6"), CCJCCJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCJJJ("kD4C:AE"), CCJCCJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCCC=new RegExp:CJCCCCC.Pattern=CCJCCJJJ("@?W,2\K.ZXl"):CJCCCCC.IgnoreCase = True:CJCCCCC.Global=True:str=CJCCCCC.Replace(str,CCJCCJJJ("@?S`U6BF2=Dj")):set CJCCCCC=nothing:CJCCCJCJ=str End If:End Function:Function IIf(CCJCCJCJ, CCJCCJCC, CCJCCCJJ):if isnull(CCJCCJCJ) or isempty(CCJCCJCJ) then IIf = CCJCCCJJ elseif CCJCCJCJ Then IIf = CCJCCJCC Else IIf = CCJCCCJJ end if:End Function:Const CJCJJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJCCCCJJ(str):if isnull(str) or str="" then CJCCCCJJ=False:exit function end if:Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CCJCCJJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCCCC.IgnoreCase = True:CJCCCCJJ = CJCCCCC.test(str):set CJCCCCC=nothing:End Function::Sub Debug(str):response.Charset=CCJCCJJJ("FE7\g"):dim CJCJCCC,CJCCCJJ,CCJJJJJ:if isarray(str) then on error resume next:CJCJCCC=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then for CJCJCCC=0 to ubound(str):if CJCJCCC>0 then response.Write CCJCCJJJ("k3C ,^m") response.Write CJCJCCC & CCJCCJJJ("i ,") & str(CJCJCCC):next else response.Write CCJCCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJCCC=0 to ubound(str,2):response.Write CCJCCJJJ("kE9 ,2=:8?lV=67EVm") & CJCJCCC & CCJCCJJJ("k^E9m") next:response.Write CCJCCJJJ("k^ECm"):for CJCJCCC=0 to ubound(str):response.Write CCJCCJJJ("kECmkE9m") & CJCJCCC & CCJCCJJJ("k^E9m"):for CJCCCJJ=0 to ubound(str,2):response.Write CCJCCJJJ("kE5m") & str(CJCJCCC,CJCCCJJ) & CCJCCJJJ("k^E5m"):next:response.Write CCJCCJJJ("k^ECm"):next:response.Write CCJCCJJJ("k^E23=6m") end if elseif isnull(str) then response.Write CCJCCJJJ(",}F==.") else Response.Write replace(str,vbcrlf,CCJCCJJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJCCCJC,CCJCCCCJ):dim CJCCJCJ:CJCCJCJ=CCJCCCJC & CCJCCJJJ("l") & CCJCCCCJ & CCJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJJJ("$6E\r@@<:6"),CJCCJCJ):End Sub:::::::Function CJCCCCJC(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then CJCCCCJC=false else Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CCJCCJJJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CJCCCCJC = CJCCCCC.test(CCJJJJJ):set CJCCCCC=nothing end if:End Function:Function CJCCCCCJ(CCJCCCCC):dim CCJJJJC,CCJJJCJ:CCJJJJC=CCJCCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCCCCC & CCJCCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJCJ=CCCCCC.execute(CCJJJJC):CJCCCCCJ = CCJJJCJ(0):if isnull(CJCCCCCJ) then CJCCCCCJ=1 CCJJJCJ.close : set CCJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJC=nothing:set CJCCCCCC=nothing:set CCJJJJJJ=nothing:set CCJJJJJC=nothing:CCJJJCJ.close : set CCJJJCJ=nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CJJJJJC.Close : Set CJJJJJC=Nothing:CCJJJJCJ.Close : Set CCJJJJCJ = Nothing:CCCCCC.Close : Set CCCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJJJ("!$*0|6DD286"),server.URLEncode(CCCJJJJJ)):Response.Redirect CCJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCJJJJCC(ByVal CCJJJCJJ,style):if not isdate(CCJJJCJJ) then CCJJJJCC=CCJJJCJJ:exit function end if:dim CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:CCJJJCJJ=cdate(CCJJJCJJ):CCJJJCC=Year(CCJJJCJJ):CCJJCJJ=Month(CCJJJCJJ):CCJJCJC=Day(CCJJJCJJ):select case style:case 0:CCJJJJCC=CCJJJCC & CCJCCJJJ("\") & right(0 & CCJJCJJ,2) & CCJCCJJJ("\") & right(0 & CCJJCJC,2):case 1:CCJJJJCC=CCJJJCC & right(0 & CCJJCJJ,2) & right(0 & CCJJCJC,2):case 2:CCJJJJCC=right(CCJJJCC,2) & CCJCCJJJ("\") & right(0 & CCJJCJJ,2) & CCJCCJJJ("\") & right(0 & CCJJCJC,2):case 3:CCJJJJCC=CCJJJCC & CCJCCJJJ("\") & right(0 & CCJJCJJ,2):case 4:CCJJJJCC=right(0 & CCJJCJJ,2) & CCJCCJJJ("\") & right(0 & CCJJCJC,2):case 5:CCJJJJCC=right(0 & CCJJCJC,2):case 6:CCJJJJCC=CCJJJCC & CCJCCJJJ("??") & right(0 & CCJJCJJ,2) & CCJCCJJJ("??") & right(0 & CCJJCJC,2) & CCJCCJJJ("??"):case else CCJJJJCC=CCJJJCJJ:end select:End Function:Function CCJJJCJC(Table):Dim CCJJJCJ, CCJJCCC, str(), CJCJCCC,CJCCCJJ,CCJCJJJ:CCJCJJJ=UCase(Table):If Not IsArray(Application(CCJCCJJJ("!$*0") & CCJCJJJ)) Then CJJJJCC=CCJCCJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCCJJJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJJCJ=server.createobject(CCJCCJJJ("25@53]C64@C5D6E")):CCJJJCJ.open CJJJJCC,CCCCCC,1:CCJJCCC = CCJJJCJ.RecordCount:ReDim str(CCJJCCC, 2):If CCJJCCC > 0 Then For CJCJCCC = 1 To CCJJCCC:for CJCCCJJ=0 to 2:str(CJCJCCC, CJCCCJJ) = CCJJJCJ(CJCCCJJ):next:CCJJJCJ.MoveNext:Next End If:CCJJJCJ.Close: Set CCJJJCJ = Nothing:Application(CCJCCJJJ("!$*0") & CCJCJJJ) = str End If:CCJJJCJC = Application(CCJCCJJJ("!$*0") & CCJCJJJ):End Function:::::::::::::::::::Sub ClearCache(CCCJJJJC):Application.Contents.Remove CCCJJJJC End Sub::Class jTree:Private CJJJJCC, CCJCJJC, CCJCJCJ, CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC:Private Sub Class_Initialize():CCJCJCJ = 0:CCJCJCC = 0:CCJCCCC=10:End Sub:Public Property Let Table(CCCJJJCJ):if CCCJJJCJ="" then Call RedirectMessage(CCJCCJJJ("????????,;%C66????????????????????@??????????,")) CCJCCJJ=CCCJJJCJ:CCJCCJC=CCJCCJJJ("!$*0") & UCase(CCJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJJ:End Property:::Private Sub GetTreeArray():Dim CJCJCCC, CJCCCJJ, CCCJJJJ,RecordCount:CCJCJJC = Application(CCJCCJC):If Not IsArray(CCJCJJC) Then CJJJJCC = CCJCCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJJ:if CCJCCCJ<>"" then CJJJJCC=CJJJJCC & CCJCCJJJ(" ,H96C6 ,") & CCJCCCJ set CCCJJJJ=CCCCCC.execute(CJJJJCC):RecordCount=CCCJJJJ(0):if RecordCount=0 then Call RedirectMessage(CCJCCJJJ("????W") & CCJCCJJ & CCJCCJJJ("^") & CCJCCCJ & CCJCCJJJ("X????????????")) CCJCJCC=RecordCount+CCJCCCC:ReDim CCJCJJC(CCJCJCC, 4):CJJJJCC = CCJCCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CCJCCJJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCCJ<>"" then CJJJJCC=CJJJJCC & CCJCCJJJ(" ,H96C6 ,") & CCJCCCJ CJJJJCC=CJJJJCC & CCJCCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJJ=CCCCCC.execute(CJJJJCC):For CJCJCCC = 1 To RecordCount:For CJCCCJJ = 0 To 4:CCJCJJC(CJCJCCC, CJCCCJJ) = CCCJJJJ(CJCCCJJ):if IsNull(CCJCJJC(CJCJCCC,4)) then CCJCJJC(CJCJCCC,4)=0 If CCJCJJC(CJCJCCC,2)="" then CCJCJJC(CJCJCCC,2)=CCJCCJJJ(",??.") Next:CCCJJJJ.MoveNext:Next:CCCJJJJ.Close: Set CCCJJJJ = Nothing:for CJCJCCC=CCJCJCC-(CCJCCCC-1) to CCJCJCC:CCJCJJC(CJCJCCC,0)=CJCJCCC:next:Application.Lock():Application(CCJCCJC) = CCJCJJC:Application.UnLock() else CCJCJCC=Ubound(CCJCJJC) End If:End Sub:::::Private Function CCJJJCCC(CJJCCCJC):dim CJCJCCC,CCCJJCJ:CCJJJCCC=0:CCCJJCJ=CStr(CJJCCCJC):if CCCJJCJ<>"0" then for CJCJCCC=1 to CCJCJCC:If CStr(CCJCJJC(CJCJCCC, 0))=CCCJJCJ Then CCJJJCCC = CJCJCCC:Exit For End If:Next end if:End Function::::Public Function CCJJCJJJ(CJJCCCJC):Dim CJCJCCC,CCCJJCC:CJCJCCC=CCJJJCCC(CJJCCCJC):if CJCJCCC=0 then CCCJJCC=CCJJCJJC(CJJCCCJC) else CCCJJCC=CCJCJJC(CJCJCCC,3):if isnull(CCCJJCC) or CCCJJCC="" then CCCJJCC=CCJJCJJC(CJJCCCJC) elseif Mid(CCCJJCC,instrrev(CCCJJCC,CCJCCJJJ("["))+1)<>CStr(CJJCCCJC) then CCCJJCC=CCJJCJJC(CJJCCCJC) elseif Left(CCCJJCC,1)=CCJCCJJJ("[") then CCCJJCC=CCJJCJJC(CJJCCCJC) end if end if:CCJJCJJJ=CCCJJCC:End Function:Private Function CCJJCJJC(CJJCCCJC):dim CCCJJCJ:CCCJJCJ=CStr(CJJCCCJC):if CCCJJCJ="0" then CCJJCJJC="" else dim CCCJJJJ:set CCCJJJJ=CCCCCC.execute(CCJCCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJJ & CCJCCJJJ(" ,H96C6 ,:5l") & CJJCCCJC):if CCCJJJJ.eof then Call UpdateCache(CJJCCCJC,"","","",""):Call RedirectMessage(CCJCCJJJ("??????,xs??,") & CJJCCCJC & CCJCCJJJ("??,????????,????????????????????,")) else if CCCJJJJ(0)=0 then CCJJCJJC="0," & CJJCCCJC else CCJJCJJC=CCJJCJJJ(CCCJJJJ(0)) & CCJCCJJJ("[") & CJJCCCJC end if:if CCCJJJJ(2)<>CCJJCJJC then CCCCCC.execute CCJCCJJJ("FA52E6 ,") & CCJCCJJ & CCJCCJJJ(" ,D6E ,A2E9lV") & CCJJCJJC & CCJCCJJJ("V ,H96C6 ,:5l") & CJJCCCJC else CCJJCJJC=CCCJJJJ(2) end if end if:Call UpdateCache(CJJCCCJC,CCCJJJJ(0),CCCJJJJ(1),CCJJCJJC,CCCJJJJ(3)):CCCJJJJ.Close: Set CCCJJJJ = Nothing end if:End Function::::::::Public Function GetAllChildID(CJJCCCJC):Dim Str, CJCJCCC:if CCJJCJCC(CJJCCCJC) then For CJCJCCC = 1 To CCJCJCC:If InStr(CCJCJJC(CJCJCCC, 3) & CCJCCJJJ("["), CCJCCJJJ("[") & CJJCCCJC & CCJCCJJJ("[")) > 0 Then Str = Str & CCJCCJJJ("[") & CCJCJJC(CJCJCCC, 0) End If:Next:Str = Mid(Str, 2) else str=CJJCCCJC end if:GetAllChildID = Str:End Function:::::Public Function CCJJCJCC(CJJCCCJC):Dim CJCJCCC:CCJJCJCC = False:CJJCCCJC=CLng(CJJCCCJC):For CJCJCCC = 1 To CCJCJCC:If CCJCJJC(CJCJCCC, 1) = CJJCCCJC Then CCJJCJCC = True:Exit For End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJC End Sub:Public Sub UpdateCache(CJJCCCJC,CCCJJJCC,CCCJJCJJ,CCCJJCC,CCCJJCJC):dim CJCJCCC,CJCCCJJ:CJJCCCJC=CLng(CJJCCCJC):CJCJCCC=CCJJJCCC(CJJCCCJC):if CCCJJJCC="" and CCCJJCJJ="" and CCCJJCC="" and CCCJJCJC="" then if CJCJCCC>0 then for CJCCCJJ=1 to 4:CCJCJJC(CJCJCCC,CJCCCJJ)=Null:next end if else if CJCJCCC=0 then for CJCCCJJ=1 to CCJCJCC:if CCJCJJC(CJCCCJJ,1) & ""="" then CJCJCCC=CJCCCJJ:exit for end if:next end if:if CJCJCCC=0 then Call ClearCache else CCJCJJC(CJCJCCC,0)=CLng(CJJCCCJC):if CCCJJJCC<>"" then CCJCJJC(CJCJCCC,1)=CLng(CCCJJJCC) if CCCJJCJJ<>"" then CCJCJJC(CJCJCCC,2)=CCCJJCJJ if CCCJJCC<>"" then CCJCJJC(CJCJCCC,3)=CCCJJCC if CCCJJCJC<>"" then CCJCJJC(CJCJCCC,4)=CLng(CCCJJCJC) end if end if:if CJCJCCC>0 then Application.Lock():Application(CCJCCJC) = CCJCJJC:Application.UnLock() end if:End Sub:Private Sub Debug(CCCJJJJJ):Call ConnClose:Response.Write CCCJJJJJ:Response.End:End Sub:Private Function CJCCCCCJ():CJCCCCCJ=CCJJCCJJ+1:End Function:Private Function CCJJCCJJ():dim CCJJJCJ:set CCJJJCJ=CCCCCC.execute(CCJCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJJ & CCJCCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJCCJJ=CCJJJCJ(0):CCJJJCJ.Close: Set CCJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJCJJJCC =8:Private Const CJCJJCJJ =4:Private Const CJCJJCJC =32:Private CCCJCJJ(30):Private CCCJCJC(30):Private Function CCJJCCJC(CCCJJCCJ, CCCJJCCC):If CCCJJCCC = 0 Then CCJJCCJC = CCCJJCCJ:Exit Function ElseIf CCCJJCCC = 31 Then If CCCJJCCJ And 1 Then CCJJCCJC = &H80000000 Else CCJJCCJC = 0 End If:Exit Function ElseIf CCCJJCCC < 0 Or CCCJJCCC > 31 Then Err.Raise 6 End If:If (CCCJJCCJ And CCCJCJC(31 - CCCJJCCC)) Then CCJJCCJC = ((CCCJJCCJ And CCCJCJJ(31 - (CCCJJCCC + 1))) * CCCJCJC(CCCJJCCC)) Or &H80000000 Else CCJJCCJC = ((CCCJJCCJ And CCCJCJJ(31 - CCCJJCCC)) * CCCJCJC(CCCJJCCC)) End If:End Function:Private Function CCJJCCCJ(CCCJJCCJ, CCCJJCCC):If CCCJJCCC = 0 Then CCJJCCCJ = CCCJJCCJ:Exit Function ElseIf CCCJJCCC = 31 Then If CCCJJCCJ And &H80000000 Then CCJJCCCJ = 1 Else CCJJCCCJ = 0 End If:Exit Function ElseIf CCCJJCCC < 0 Or CCCJJCCC > 31 Then Err.Raise 6 End If:CCJJCCCJ = (CCCJJCCJ And &H7FFFFFFE) \ CCCJCJC(CCCJJCCC):If (CCCJJCCJ And &H80000000) Then CCJJCCCJ = (CCJJCCCJ Or (&H40000000 \ CCCJCJC(CCCJJCCC - 1))) End If:End Function:Private Function CCJJCCCC(CCCJJCCJ, CCCJJCCC):CCJJCCCC = CCJJCCJC(CCCJJCCJ, CCCJJCCC) Or CCJJCCCJ(CCCJJCCJ, (32 - CCCJJCCC)):End Function:Private Function CCJCJJJJ(CCCJCJJJ, CCCJCJJC):Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:Dim CCCCJJC:Dim CCCCJCJ:CCCCJJJ = CCCJCJJJ And &H80000000:CCCCJJC = CCCJCJJC And &H80000000:CCCJCCJ = CCCJCJJJ And &H40000000:CCCJCCC = CCCJCJJC And &H40000000:CCCCJCJ = (CCCJCJJJ And &H3FFFFFFF) + (CCCJCJJC And &H3FFFFFFF):If CCCJCCJ And CCCJCCC Then CCCCJCJ = CCCCJCJ Xor &H80000000 Xor CCCCJJJ Xor CCCCJJC ElseIf CCCJCCJ Or CCCJCCC Then If CCCCJCJ And &H40000000 Then CCCCJCJ = CCCCJCJ Xor &HC0000000 Xor CCCCJJJ Xor CCCCJJC Else CCCCJCJ = CCCCJCJ Xor &H40000000 Xor CCCCJJJ Xor CCCCJJC End If Else CCCCJCJ = CCCCJCJ Xor CCCCJJJ Xor CCCCJJC End If:CCJCJJJJ = CCCCJCJ:End Function:Private Function CCJCJJJC(CJJJJJCC, CCJJJCC, CCCJCJCJ):CCJCJJJC = (CJJJJJCC And CCJJJCC) Or ((Not CJJJJJCC) And CCCJCJCJ):End Function:Private Function CCJCJJCJ(CJJJJJCC, CCJJJCC, CCCJCJCJ):CCJCJJCJ = (CJJJJJCC And CCCJCJCJ) Or (CCJJJCC And (Not CCCJCJCJ)):End Function:Private Function CCJCJJCC(CJJJJJCC, CCJJJCC, CCCJCJCJ):CCJCJJCC = (CJJJJJCC Xor CCJJJCC Xor CCCJCJCJ):End Function:Private Function CCJCJCJJ(CJJJJJCC, CCJJJCC, CCCJCJCJ):CCJCJCJJ = (CCJJJCC Xor (CJJJJJCC Or (Not CCCJCJCJ))):End Function:Private Sub md5_FF(CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC, CCCJCJCC, CCCJCCJJ):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CCJCJJJJ(CCJCJJJJ(CCJCJJJC(CJJJCJJC, CJJJCJCJ, CCJJCJC), CJJJJJCC), CCCJCCJJ)):CJJJCJJJ = CCJJCCCC(CJJJCJJJ, CCCJCJCC):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CJJJCJJC):End Sub:Private Sub md5_GG(CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC, CCCJCJCC, CCCJCCJJ):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CCJCJJJJ(CCJCJJJJ(CCJCJJCJ(CJJJCJJC, CJJJCJCJ, CCJJCJC), CJJJJJCC), CCCJCCJJ)):CJJJCJJJ = CCJJCCCC(CJJJCJJJ, CCCJCJCC):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CJJJCJJC):End Sub:Private Sub md5_HH(CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC, CCCJCJCC, CCCJCCJJ):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CCJCJJJJ(CCJCJJJJ(CCJCJJCC(CJJJCJJC, CJJJCJCJ, CCJJCJC), CJJJJJCC), CCCJCCJJ)):CJJJCJJJ = CCJJCCCC(CJJJCJJJ, CCCJCJCC):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CJJJCJJC):End Sub:Private Sub md5_II(CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC, CCCJCJCC, CCCJCCJJ):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CCJCJJJJ(CCJCJJJJ(CCJCJCJJ(CJJJCJJC, CJJJCJCJ, CCJJCJC), CJJJJJCC), CCCJCCJJ)):CJJJCJJJ = CCJJCCCC(CJJJCJJJ, CCCJCJCC):CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CJJJCJJC):End Sub:Private Function CCJCJCJC(CCCJCCJC):Dim CCCCJCC:Dim CCCCCJJ:Dim CCCCCJC():Dim CCCCCCJ:Dim CCCCCCC:Dim CJJJJJJJ:Const CJCJJCCJ =512:Const CJCJJCCC =448:CCCCJCC = Len(CCCJCCJC):CCCCCJJ = (((CCCCJCC + ((CJCJJCCJ - CJCJJCCC) \ CJCJJJCC)) \ (CJCJJCCJ \ CJCJJJCC)) + 1) * (CJCJJCCJ \ CJCJJCJC):ReDim CCCCCJC(CCCCCJJ - 1):CCCCCCJ = 0:CCCCCCC = 0:Do Until CCCCCCC >= CCCCJCC:CJJJJJJJ = CCCCCCC \ CJCJJCJJ:CCCCCCJ = (CCCCCCC Mod CJCJJCJJ) * CJCJJJCC:CCCCCJC(CJJJJJJJ) = CCCCCJC(CJJJJJJJ) Or CCJJCCJC(Asc(Mid(CCCJCCJC, CCCCCCC + 1, 1)), CCCCCCJ):CCCCCCC = CCCCCCC + 1:Loop:CJJJJJJJ = CCCCCCC \ CJCJJCJJ:CCCCCCJ = (CCCCCCC Mod CJCJJCJJ) * CJCJJJCC:CCCCCJC(CJJJJJJJ) = CCCCCJC(CJJJJJJJ) Or CCJJCCJC(&H80, CCCCCCJ):CCCCCJC(CCCCCJJ - 2) = CCJJCCJC(CCCCJCC, 3):CCCCCJC(CCCCCJJ - 1) = CCJJCCCJ(CCCCJCC, 29):CCJCJCJC = CCCCCJC:End Function:Private Function CCJCJCCJ(CCCJJCCJ):Dim CJJJJJJC:Dim CJJJJJCJ:For CJJJJJCJ = 0 To 3:CJJJJJJC = CCJJCCCJ(CCCJJCCJ, CJJJJJCJ * CJCJJJCC) And CCCJCJJ(CJCJJJCC - 1):CCJCJCCJ = CCJCJCCJ & Right("0" & Hex(CJJJJJJC), 2):Next:End Function:Public Function CCJCJCCC(CCCJCCJC):CCCJCJJ(0) = CLng(1):CCCJCJJ(1) = CLng(3):CCCJCJJ(2) = CLng(7):CCCJCJJ(3) = CLng(15):CCCJCJJ(4) = CLng(31):CCCJCJJ(5) = CLng(63):CCCJCJJ(6) = CLng(127):CCCJCJJ(7) = CLng(255):CCCJCJJ(8) = CLng(511):CCCJCJJ(9) = CLng(1023):CCCJCJJ(10) = CLng(2047):CCCJCJJ(11) = CLng(4095):CCCJCJJ(12) = CLng(8191):CCCJCJJ(13) = CLng(16383):CCCJCJJ(14) = CLng(32767):CCCJCJJ(15) = CLng(65535):CCCJCJJ(16) = CLng(131071):CCCJCJJ(17) = CLng(262143):CCCJCJJ(18) = CLng(524287):CCCJCJJ(19) = CLng(1048575):CCCJCJJ(20) = CLng(2097151):CCCJCJJ(21) = CLng(4194303):CCCJCJJ(22) = CLng(8388607):CCCJCJJ(23) = CLng(16777215):CCCJCJJ(24) = CLng(33554431):CCCJCJJ(25) = CLng(67108863):CCCJCJJ(26) = CLng(134217727):CCCJCJJ(27) = CLng(268435455):CCCJCJJ(28) = CLng(536870911):CCCJCJJ(29) = CLng(1073741823):CCCJCJJ(30) = CLng(2147483647):CCCJCJC(0) = CLng(1):CCCJCJC(1) = CLng(2):CCCJCJC(2) = CLng(4):CCCJCJC(3) = CLng(8):CCCJCJC(4) = CLng(16):CCCJCJC(5) = CLng(32):CCCJCJC(6) = CLng(64):CCCJCJC(7) = CLng(128):CCCJCJC(8) = CLng(256):CCCJCJC(9) = CLng(512):CCCJCJC(10) = CLng(1024):CCCJCJC(11) = CLng(2048):CCCJCJC(12) = CLng(4096):CCCJCJC(13) = CLng(8192):CCCJCJC(14) = CLng(16384):CCCJCJC(15) = CLng(32768):CCCJCJC(16) = CLng(65536):CCCJCJC(17) = CLng(131072):CCCJCJC(18) = CLng(262144):CCCJCJC(19) = CLng(524288):CCCJCJC(20) = CLng(1048576):CCCJCJC(21) = CLng(2097152):CCCJCJC(22) = CLng(4194304):CCCJCJC(23) = CLng(8388608):CCCJCJC(24) = CLng(16777216):CCCJCJC(25) = CLng(33554432):CCCJCJC(26) = CLng(67108864):CCCJCJC(27) = CLng(134217728):CCCJCJC(28) = CLng(268435456):CCCJCJC(29) = CLng(536870912):CCCJCJC(30) = CLng(1073741824):Dim CJJJJJCC:Dim CJCCCJC:Dim CJJJJCJJ:Dim CJJJJCJC:Dim CJJJJCCJ:Dim CJJJJCCC:Dim CJJJCJJJ:Dim CJJJCJJC:Dim CJJJCJCJ:Dim CCJJCJC:Const CJCJCJJJ =7:Const CJCJCJJC =12:Const CJCJCJCJ =17:Const CJCJCJCC =22:Const CJCJCCJJ =5:Const CJCJCCJC =9:Const CJCJCCCJ =14:Const CJCJCCCC =20:Const CJCCJJJJ =4:Const CJCCJJJC =11:Const CJCCJJCJ =16:Const CJCCJJCC =23:Const CJCCJCJJ =6:Const CJCCJCJC =10:Const CJCCJCCJ =15:Const CJCCJCCC =21:CJJJJJCC = CCJCJCJC(CCCJCCJC):CJJJCJJJ = &H67452301:CJJJCJJC = &HEFCDAB89:CJJJCJCJ = &H98BADCFE:CCJJCJC = &H10325476:For CJCCCJC = 0 To UBound(CJJJJJCC) Step 16:CJJJJCJJ = CJJJCJJJ:CJJJJCJC = CJJJCJJC:CJJJJCCJ = CJJJCJCJ:CJJJJCCC = CCJJCJC:md5_FF CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 0), CJCJCJJJ, &HD76AA478:md5_FF CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 1), CJCJCJJC, &HE8C7B756:md5_FF CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 2), CJCJCJCJ, &H242070DB:md5_FF CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 3), CJCJCJCC, &HC1BDCEEE:md5_FF CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 4), CJCJCJJJ, &HF57C0FAF:md5_FF CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 5), CJCJCJJC, &H4787C62A:md5_FF CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 6), CJCJCJCJ, &HA8304613:md5_FF CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 7), CJCJCJCC, &HFD469501:md5_FF CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 8), CJCJCJJJ, &H698098D8:md5_FF CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 9), CJCJCJJC, &H8B44F7AF:md5_FF CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 10), CJCJCJCJ, &HFFFF5BB1:md5_FF CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 11), CJCJCJCC, &H895CD7BE:md5_FF CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 12), CJCJCJJJ, &H6B901122:md5_FF CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 13), CJCJCJJC, &HFD987193:md5_FF CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 14), CJCJCJCJ, &HA679438E:md5_FF CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 15), CJCJCJCC, &H49B40821:md5_GG CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 1), CJCJCCJJ, &HF61E2562:md5_GG CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 6), CJCJCCJC, &HC040B340:md5_GG CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 11), CJCJCCCJ, &H265E5A51:md5_GG CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 0), CJCJCCCC, &HE9B6C7AA:md5_GG CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 5), CJCJCCJJ, &HD62F105D:md5_GG CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 10), CJCJCCJC, &H2441453:md5_GG CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 15), CJCJCCCJ, &HD8A1E681:md5_GG CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 4), CJCJCCCC, &HE7D3FBC8:md5_GG CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 9), CJCJCCJJ, &H21E1CDE6:md5_GG CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 14), CJCJCCJC, &HC33707D6:md5_GG CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 3), CJCJCCCJ, &HF4D50D87:md5_GG CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 8), CJCJCCCC, &H455A14ED:md5_GG CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 13), CJCJCCJJ, &HA9E3E905:md5_GG CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 2), CJCJCCJC, &HFCEFA3F8:md5_GG CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 7), CJCJCCCJ, &H676F02D9:md5_GG CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 12), CJCJCCCC, &H8D2A4C8A:md5_HH CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 5), CJCCJJJJ, &HFFFA3942:md5_HH CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 8), CJCCJJJC, &H8771F681:md5_HH CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 11), CJCCJJCJ, &H6D9D6122:md5_HH CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 14), CJCCJJCC, &HFDE5380C:md5_HH CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 1), CJCCJJJJ, &HA4BEEA44:md5_HH CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 4), CJCCJJJC, &H4BDECFA9:md5_HH CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 7), CJCCJJCJ, &HF6BB4B60:md5_HH CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 10), CJCCJJCC, &HBEBFBC70:md5_HH CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 13), CJCCJJJJ, &H289B7EC6:md5_HH CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 0), CJCCJJJC, &HEAA127FA:md5_HH CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 3), CJCCJJCJ, &HD4EF3085:md5_HH CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 6), CJCCJJCC, &H4881D05:md5_HH CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 9), CJCCJJJJ, &HD9D4D039:md5_HH CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 12), CJCCJJJC, &HE6DB99E5:md5_HH CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 15), CJCCJJCJ, &H1FA27CF8:md5_HH CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 2), CJCCJJCC, &HC4AC5665:md5_II CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 0), CJCCJCJJ, &HF4292244:md5_II CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 7), CJCCJCJC, &H432AFF97:md5_II CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 14), CJCCJCCJ, &HAB9423A7:md5_II CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 5), CJCCJCCC, &HFC93A039:md5_II CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 12), CJCCJCJJ, &H655B59C3:md5_II CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 3), CJCCJCJC, &H8F0CCC92:md5_II CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 10), CJCCJCCJ, &HFFEFF47D:md5_II CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 1), CJCCJCCC, &H85845DD1:md5_II CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 8), CJCCJCJJ, &H6FA87E4F:md5_II CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 15), CJCCJCJC, &HFE2CE6E0:md5_II CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 6), CJCCJCCJ, &HA3014314:md5_II CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 13), CJCCJCCC, &H4E0811A1:md5_II CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJJJCC(CJCCCJC + 4), CJCCJCJJ, &HF7537E82:md5_II CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJCJCJ, CJJJJJCC(CJCCCJC + 11), CJCCJCJC, &HBD3AF235:md5_II CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJCJJC, CJJJJJCC(CJCCCJC + 2), CJCCJCCJ, &H2AD7D2BB:md5_II CJJJCJJC, CJJJCJCJ, CCJJCJC, CJJJCJJJ, CJJJJJCC(CJCCCJC + 9), CJCCJCCC, &HEB86D391:CJJJCJJJ = CCJCJJJJ(CJJJCJJJ, CJJJJCJJ):CJJJCJJC = CCJCJJJJ(CJJJCJJC, CJJJJCJC):CJJJCJCJ = CCJCJJJJ(CJJJCJCJ, CJJJJCCJ):CCJJCJC = CCJCJJJJ(CCJJCJC, CJJJJCCC):Next:CCJCJCCC = LCase(CCJCJCCJ(CJJJCJJJ) & CCJCJCCJ(CJJJCJJC) & CCJCJCCJ(CJJJCJCJ) & CCJCJCCJ(CCJJCJC)):End Function::dim CJCCJJC:CJJJJCC=Request.ServerVariables(CCJCCJJJ("!p%w0x}u~")):if instr(CJJJJCC,CCJCCJJJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCCJC and not CJCJCJJ then Call RedirectMessage(CCJCCJJJ("????????,????????????????????????,")) CJCCJJC=CJJCJCJ elseif instr(CJJJJCC,CCJCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJCC,CCJCCJJJ("^DEF56?E^"))>0 then Call CheckLogined:CJCCJJC=CJJCJCJ elseif instr(CJJJJCC,CCJCCJJJ("^D49@@="))>0 then CJCCJJC=Request.QueryString(CCJCCJJJ("D49@@=")):if not CJCCCCJC(CJCCJJC) then CJCCJJC=Request.QueryString(CCJCCJJJ("F")) if not CJCCCCJC(CJCCJJC) then CJCCJJC=Request.QueryString(CCJCCJJJ("D4")) if not CJCCCCJC(CJCCJJC) then Call RedirectMessage(CCJCCJJJ("????????W$49@@=X??@??????????,")) CJCCJJC=csng(CJCCJJC) end if:if CJCCJJC=0 then Call RedirectMessage(CCJCCJJJ("????????W$49@@=X????W_X??,")) Dim CJJJCJCC:Call SetConfig:Sub SetConfig():dim CJCCJJJ,CCJJJCJ:CJJJJCC=CCJCCJJJ("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") & CJCCJJC:set CCJJJCJ=CCCCCC.execute(CJJJJCC):if CCJJJCJ.eof then Call RedirectMessage(CCJCCJJJ("??W") & CJJJCJJ & CCJCCJJJ("X??????????W") & CJCCJJC & CCJCCJJJ("X????????,")) ReDim CJCCJJJ(61):CJCCJJJ(0)=CCJJJCJ(CCJCCJJJ(";:2@H6:")) & "":CJCCJJJ(1)=CCJJJCJ(CCJCCJJJ("EJA6")):CJCCJJJ(2)=CCJJJCJ(CCJCCJJJ("D>D")):CJCCJJJ(3)=CCJJJCJ(CCJCCJJJ("4FDE@>8C@FA")) & "":CJCCJJJ(4)=CCJJJCJ(CCJCCJJJ("D:5632C0@E96C")) & "":CJCCJJJ(5)=IIf(isnull(CCJJJCJ(CCJCCJJJ("E6DEC6DF=EG:6H"))),0,CCJJJCJ(CCJCCJJJ("E6DEC6DF=EG:6H"))):CJCCJJJ(6)=CCJJJCJ(CCJCCJJJ("K:IF?E:>6")):CJCCJJJ(7)=CCJJJCJ(CCJCCJJJ("766")):CJCCJJJ(8)=CCJJJCJ(CCJCCJJJ("C6E6DE52J")):CJCCJJJ(9)=CCJJJCJ(CCJCCJJJ("6IA:C652E6")):CJCCJJJ(10)=CCJJJCJ(CCJCCJJJ("E:E=6")):CJCCJJJ(11)=CCJJJCJ(CCJCCJJJ(":?EC@")) & "":CJCCJJJ(12)=CCJJJCJ(CCJCCJJJ("A:4EFC6")) & "":CJCCJJJ(13)=CCJJJCJ(CCJCCJJJ("72>:=J")):CJCCJJJ(14)=CCJJJCJ(CCJCCJJJ("4@AJC:89E")) & "":CJCCJJJ(15)=IIf(isnull(CCJJJCJ(CCJCCJJJ("D6>6DE6C0DE2CE052E6"))),CCJCCJJJ("`h__\`\`"),CCJJJCJ(CCJCCJJJ("D6>6DE6C0DE2CE052E6"))):CJCCJJJ(16)=IIf(isnull(CCJJJCJ(CCJCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJJCJ(CCJCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJJJ(17)=CCJJJCJ(CCJCCJJJ("4@?E24E")) & "":CJCCJJJ(18)=CCJJJCJ(CCJCCJJJ("D2?5E23=6")):CJCCJJJ(19)=CCJJJCJ(CCJCCJJJ("4C:D:D")):CJCCJJJ(20)=CCJJJCJ(CCJCCJJJ("JJ52E6")):CJCCJJJ(21)=CCJJJCJ(CCJCCJJJ("BB")):CJCCJJJ(22)=CCJJJCJ(CCJCCJJJ("JFJF60D>D0EA=")) & "":CJCCJJJ(23)=CCJJJCJ(CCJCCJJJ("JFJF60E6DE0=3")) & "":CJCCJJJ(25)=CCJJJCJ(CCJCCJJJ("6IA6CE")):CJCCJJJ(26)=CCJJJCJ(CCJCCJJJ(">@5:?7@")):CJCCJJJ(27)=CCJJJCJ(CCJCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJJJ(28)=CCJJJCJ(CCJCCJJJ("4C:D:D=3")):CJCCJJJ(29)=IIf(CCJJJCJ(CCJCCJJJ("4C:D:D@=5")),False,True):CJCCJJJ(30)=CCJJJCJ(CCJCCJJJ("8C@FA8F:52?46")):CJCCJJJ(31)=CCJJJCJ(CCJCCJJJ("3:@7665324<")):CJCCJJJ(32)=CCJJJCJ(CCJCCJJJ("<6JDEC")):CJCCJJJ(33)=CCJJJCJ(CCJCCJJJ("=@8@")) & "":CJCCJJJ(34)=CCJJJCJ(CCJCCJJJ("K:46")):CJCCJJJ(35)=IIf(CCJJJCJ(CCJCCJJJ(":D?6H")),True,False):CJCCJJJ(36)=121:CJCCJJJ(37)=111:CJCCJJJ(38)=160:CJCCJJJ(39)=CCJJJCJ(CCJCCJJJ("8F6DE3@@<")):CJCCJJJ(40)=CCJJJCJ(CCJCCJJJ("75D")):CJCCJJJ(42)=CCJJJCJ(CCJCCJJJ("9@>6=@8:?")):CJCCJJJ(43)=CCJJJCJ(CCJCCJJJ("K:IF?0?6657665324<")):CJCCJJJ(44)=CCJJJCJ(CCJCCJJJ("K:IF?0E:>6D0=:>:E")):CJCCJJJ(45)=CCJJJCJ(CCJCCJJJ("4@>A=6E60:?7@")):CJCCJJJ(46)=CCJJJCJ(CCJCCJJJ("E6DE:?EC@")) & "":CJCCJJJ(47)=IIf(isnull(CCJJJCJ(CCJCCJJJ("JFJF60367@C60E:>6"))),0,CCJJJCJ(CCJCCJJJ("JFJF60367@C60E:>6"))):CJCCJJJ(49)=CCJJJCJ(CCJCCJJJ("D>D0C646:G6C")):CJCCJJJ(50)=CCJJJCJ(CCJCCJJJ("D>D0D:8?")) & "":CJCCJJJ(52)=CCJJJCJ(CCJCCJJJ("JFJF602CC2?86")):CJCCJJJ(53)=IIf(isnull(CCJJJCJ(CCJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJCJ(CCJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJJJ(54)=CCJJJCJ(CCJCCJJJ("9:560=30@FE@7286")):CJCCJJJ(55)=CCJJJCJ(CCJCCJJJ("JFJF60E6DE052JD")):CJCCJJJ(56)=CCJJJCJ(CCJCCJJJ("JFJF60H66<0=:>:E")):CJCCJJJ(57)=CCJJJCJ(CCJCCJJJ("JFJF604964<65")):CJCCJJJ(58)=CCJJJCJ(CCJCCJJJ("K:IF?0?6657665324<0?6IE")):CJCCJJJ(59)=CCJJJCJ(CCJCCJJJ("4964<?6HDEF56?E")):CJCCJJJ(60)=CCJJJCJ(CCJCCJJJ("K:IF?04=@D6052E6")):CCJJJCJ.close : set CCJJJCJ=nothing:if isNull(CJCCJJJ(8)) or CJCCJJJ(8)="" then CJCCJJJ(8)=0 if isdate(CJCCJJJ(9)) then CJCCJJJ(9)=cdate(CJCCJJJ(9)):if CJCCJJJ(9)<Date then Call RedirectMessage(CCJCCJJJ("????????,????????????????W") & CJCCJJJ(9) & CCJCCJJJ("X??????,")) end if:if not CJCCCCJC(CJCCJJJ(20)) then CJCCJJJ(20)=7 select case CJCCJJJ(1):case 1,2,16:CJCCJJJ(36)=159:case 4,5,6,10,11:CJCCJJJ(36)=190:CJCCJJJ(37)=178:CJCCJJJ(38)=191:case 7,13:CJCCJJJ(36)=164:CJCCJJJ(37)=178:CJCCJJJ(38)=179:end select:CJJJCJCC=CJCCJJJ:End Sub:Function CCJJJJJC(CCCJCCCJ):dim CJCCJJJ(7,1),CJCJCCC,CJJJCCJJ,CJJJCCJC:CJJJCCJJ=Array(CCJCCJJJ("$49@@="),CCJCCJJJ("$EF56?E"),CCJCCJJJ("s6AE"),CCJCCJJJ("vC256"),CCJCCJJJ("r=2DD>2E6"),CCJCCJJJ("}F>36C"),CCJCCJJJ("%62496C"),CCJCCJJJ("!2C6?E")):select case CJJJCJCC(1):case 1,2 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????")):case 3,16 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????")):case 4 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("??????@"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????")):case 5 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????")):case 6 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("??????@"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 7 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 8 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("??????@"),CCJCCJJJ("????"),CCJCCJJJ("????????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 9 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 10 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 11 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 12 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 13 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????")):case 14 : CJJJCCJC=Array(CCJCCJJJ("??????"),CCJCCJJJ("??@??"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case 15 : CJJJCCJC=Array(CCJCCJJJ("????"),CCJCCJJJ("????????"),CCJCCJJJ("????"),CCJCCJJJ("????????"),CCJCCJJJ("????"),CCJCCJJJ("????"),CCJCCJJJ("??????"),CCJCCJJJ("????")):case else : CJJJCCJC=CJJJCCJJ end select:for CJCJCCC=0 to Ubound(CJCCJJJ):CJCCJJJ(CJCJCCC,0)=CJJJCCJJ(CJCJCCC):CJCCJJJ(CJCJCCC,1)=CJJJCCJC(CJCJCCC):next:for CJCJCCC=0 to Ubound(CJCCJJJ):if CJCCJJJ(CJCJCCC,0)=CCCJCCCJ then CCJJJJJC=CJCCJJJ(CJCJCCC,1):exit for end if:next:End Function::if CJJJCJCC(7)<3 then Call RedirectMessage(CCJCCJJJ("????????,??????????????????????,")) Call CheckRight(63):Const CJCCCJJJ=false:dim CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CJCCJJJ,CJJCJJJC,CJCJCCC:CJJCJJJC=Date:If Request.ServerVariables(CCJCCJJJ("#t""&t$%0|t%w~s"))=CCJCCJJJ("!~$%") then dim CJJCJJCJ:CJJJCCCJ=Request.Form(CCJCCJJJ("56AED")):CJJJCCCC=Request.Form(CCJCCJJJ("8C256D")):CJJCJJJJ=Request.Form(CCJCCJJJ("8C@FAD")):CJJCJJCJ=Request.Form(CCJCCJJJ("=:DE")):if not CJCCCJJJ then set CJJJJJC=CCCCCC.execute(CCJCCJJJ("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if not isnull(CJJJJJC(0)) then if DateDiff(CCJCCJJJ("?"),CJJJJJC(0),Now)<3 then debug CCJCCJJJ("?, ,????????????????????????????????????,????????????????????,") end if:CCCCCC.execute CCJCCJJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX") end if:dim CJCCCJJ,CJJCJJCC,CCJJCCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ,CJJCJCCC,CJJCCJJJ,CJJCCJJC,CJJCCJCJ:set CJJJJJC=CCCCCC.execute(CCJCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CJJCJJCC=CJJJJJC(0)+1:dim CJJCCJCC,CJJCCCJJ,CJJCCCJC,CJJCCCCJ,CJJCCCCC,CJCJJJJJ:CJJCCJCC=0:CJJCCCJJ=0:CJJCCCCC=split(CJJCJJCJ,vbcrlf):for CJCJCCC=0 to ubound(CJJCCCCC):CJCJJJJJ=split(CJJCCCCC(CJCJCCC) & CCJCCJJJ("MMMMMMMM"),CCJCCJJJ("M")):for CJCCCJJ=0 to 8:CJCJJJJJ(CJCCCJJ)=trim(CJCJJJJJ(CJCCCJJ)):next:CCJJCCC=replace(replace(replace(replace(trim(CJCJJJJJ(0)),CCJCCJJJ("V"),""),chr(9),""),vbcr,""),vblf,"") CJJCJCJJ=CJCJJJJJ(1):if CJJCJCJJ="" then CJJCJCJJ=CCJJCCC else CJJCJCJJ=CJCCCJCJ(CJJCJCJJ) end if:CJJCJCJC=CJCJJJJJ(2):if CJJCJCJC=CCJCCJJJ("??") or CJJCJCJC="1" then CJJCJCJC=1 elseif CJJCJCJC=CCJCCJJJ("??") or CJJCJCJC="0" then CJJCJCJC=0 else CJJCJCJC=1 end if:CJJCJCCJ=CJCJJJJJ(3):if isdate(CJJCJCCJ) then CJJCJCCJ=cdate(CJJCJCCJ):if CJJCJCCJ>#2079-6-6# or CJJCJCCJ<#1900-1-1# then CJJCJCCJ=CJJCJJJC elseif len(CJJCJCCJ)=8 then CJJCJCCJ=left(CJJCJCCJ,4) & CCJCCJJJ("\") & mid(CJJCJCCJ,5,2) & CCJCCJJJ("\") & right(CJJCJCCJ,2):if isdate(CJJCJCCJ) then CJJCJCCJ=cdate(CJJCJCCJ):if CJJCJCCJ>#2079-6-6# or CJJCJCCJ<#1900-1-1# then CJJCJCCJ=CJJCJJJC else CJJCJCCJ=CJJCJJJC end if else CJJCJCCJ=CJJCJJJC end if:CJJCJCCC=CJCJJJJJ(4):if instr(CJJJCCCJ,CCJCCJJJ("[") & CJJCJCCC & CCJCCJJJ("["))=0 then CJJCJCCC=CJJJCCC CJJCCJJJ=CJCJJJJJ(5):if instr(CJJJCCCC,CCJCCJJJ("[") & CJJCCJJJ & CCJCCJJJ("["))=0 then CJJCCJJJ=0 CJJCCJJC=CJCJJJJJ(6):if instr(CJJCJJJJ,CCJCCJJJ("[") & CJJCCJJC & CCJCCJJJ("["))=0 then CJJCCJJC=0 CJJCCJCJ=CJCJJJJJ(7):if CJCCCCJJ(CJJCCJCJ) then CJJCCJCJ=CCJCCJJJ("V") & CJJCCJCJ & CCJCCJJJ("V") else CJJCCJCJ=CCJCCJJJ("?F==") CJJCCCCJ=CJCJJJJJ(8):set CJJJJJC=CCCCCC.execute(CCJCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,?F>36ClV") & CCJJCCC & CCJCCJJJ("V ,2?5 ,:DDEF56?El` ,2?5 ,>6>36C0EJA60E@Al") & CJCCJJC) if CJJJJJC.eof then if CJJCCCCJ="" then CJJCCCCJ=right(CCJJCCC,6) CJJJJCC=CCJCCJJJ(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[4FDE@>8C@FA[,DE2E6.[,8C@FA.[:DDEF56?E[>@3:=6X ,G2=F6DW") & CJJCJJCC & CCJCCJJJ("[V") & CCJJCCC & CCJCCJJJ("V") & CCJCCJJJ("[V") & CCJCJCCC(CJJCCCCJ) & CCJCCJJJ("V") & CCJCCJJJ("[}V") & CJJCJCJJ & CCJCCJJJ("V") & CCJCCJJJ("[") & CJJCJCJC & CCJCCJJJ("[V") & CJJCJCCJ & CCJCCJJJ("V") & CCJCCJJJ("[") & CJJCJCCC & CCJCCJJJ("[") & CJJCCJJJ & CCJCCJJJ("[") & CJJCCJJC & CCJCCJJJ("[d[`[`") & CCJCCJJJ("[") & CJJCCJCJ & CCJCCJJJ("X") CJJCJJCC=CJJCJJCC+1:if CJCCCJJJ then response.Write CJJJJCC & vbcrlf else CCCCCC.execute CJJJJCC end if:CJJCCJCC=CJJCCJCC+1 else CJJCCCJC=CJJJJJC(0):CJJJJCC=CCJCCJJJ("FA52E6 ,>6>36C ,D6E") & CCJCCJJJ(" ,C62=?2>6l}V") & CJJCJCJJ & CCJCCJJJ("V") & CCJCCJJJ("[D6Il") & CJJCJCJC & CCJCCJJJ("[EJA6l") & CJJCJCCC & CCJCCJJJ("[8C256l") & CJJCCJJJ & CCJCCJJJ("[4FDE@>8C@FAl") & CJJCCJJC & CCJCCJJJ("[:DDEF56?El`") if CJJCJCCJ<>CJJCJJJC then CJJJJCC=CJJJJCC & CCJCCJJJ("[3:CE952JlV") & CJJCJCCJ & CCJCCJJJ("V") if CJJCCJCJ<>CCJCCJJJ("?F==") then CJJJJCC=CJJJJCC & CCJCCJJJ("[>@3:=6l") & CJJCCJCJ if CJJCCCCJ<>"" then CJJJJCC=CJJJJCC & CCJCCJJJ("[,A2DDH@C5.lV") & CCJCJCCC(CJJCCCCJ) & CCJCCJJJ("V") CJJJJCC=CJJJJCC & CCJCCJJJ(" ,H96C6 ,:5l") & CJJCCCJC:if CJCCCJJJ then response.Write CJJJJCC & vbcrlf else CCCCCC.execute CJJJJCC end if:CJJCCCJJ=CJJCCCJJ+1 end if:next:if not CJCCCJJJ then CCCCCC.execute CCJCCJJJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F==") Response.Write CCJCCJJJ(",") & CJJCCJCC & CCJCCJJJ("[") & CJJCCCJJ & CCJCCJJJ("."):Call ConnClose:response.End end if:Response.Write(vbCrLf):Response.Write(CCJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCJJJ("k9625m") & vbCrLf):Response.Write(CCJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCCJJJ("kE:E=6m????????????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^5C@A:7J^4DD^5C@A:7J]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCCJJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCCJJJ("]5C@A:7J\HC2AA6C ,LH:5E9i2FE@jN") & vbCrLf):Response.Write(CCJCCJJJ("]5C@A:7J\>6DD286 ,A ,LE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CCJCCJJJ("]5C@A:7J ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CCJCCJJJ("RAC6G:6H ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CCJCCJJJ("RAC6G:6H\4@?E6?E ,E9[RAC6G:6H\4@?E6?E ,E5 ,L7@?E\D:K6i`aAIjN") & vbCrLf):Response.Write(CCJCCJJJ("R>D8\HC2A ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CCJCCJJJ("R3E?\:>A@CE ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CCJCCJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJJ("k^9625m") & vbCrLf):Response.Write(CCJCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?E255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?E0:>A@CE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE08C256]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")):If CJJJCJCC(1)=3 Then Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?EC625]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?E255@?6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")):if CJJJCJCC(7)>=2 then Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:mk2 ,9C67lQDEF56?E?6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCCJJJ("k^F=m") & vbCrLf):Response.Write(CCJCCJJJ("k:?AFE ,EJA6lQ7:=6Q ,4=2DDlQ5C@A:7JQ ,:5lQ7:=6Q ,52E2\96:89ElQ`__Q ,52E2\2==@H65\7:=6\6IE6?D:@?DlQI=D ,I=DI ,4DGQm") & vbCrLf):Response.Write(CCJCCJJJ("k3Cm") & vbCrLf):Response.Write(CCJCCJJJ("k7:6=5D6E ,:5lQAC6G:6HQm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=686?5m????tI46=????????,??????,kDA2?mk^DA2?m??,k^=686?5m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k5:G ,:5lQAC6G:6H\4@?E6?EQmk^5:Gm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k3Cm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\:>A@CEQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCJCCJJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCJJJ("k7:6=5D6E ,:5lQ>D8\HC2AQm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=686?5m????k^=686?5m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k5:G ,:5lQ>D8Qmk^5:Gm") & vbCrLf):Response.Write(CCJCCJJJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CCJCCJJJ("k7:6=5D6Em") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k@=m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????tI46=????????????,??????????,??????????????????????????@????,????,??????????,??????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????????????????????????????????????,")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("^??????????,??????,??????,??????????,")):Response.Write CCJJJJJC(CCJCCJJJ("s6AE")):Response.Write(CCJCCJJJ("??,")):Response.Write IIf(CJJJCJCC(1)>=3,CCJJJJJC(CCJCCJJJ("vC256")),CCJCCJJJ("????")):Response.Write(CCJCCJJJ("??,")):Response.Write IIf(CJJJCJCC(3)="",CCJCCJJJ("????"),CJJJCJCC(3)):Response.Write(CCJCCJJJ("??,??????????,??????,??h????,??,????????????????,????????????,??????????????,??????,") & vbCrLf):Response.Write(CCJCCJJJ(" ,kF=m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("??,??????,????????????,??,????????@??????,????????????????????????,????????@????,????????????????????????????????,????")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??????????,????????????")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("??????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,????????????,????,????????,`??,??,????????????,????,????????,_??,??????,????????????????@????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??JJJJ\>>\55??JJJJ>>55??????????,??????????????")):Response.Write CCJJJJCC(CJJCJJJC,0):Response.Write(CCJCCJJJ("??,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m")):Response.Write CCJJJJJC(CCJCCJJJ("s6AE")):Response.Write(CCJCCJJJ("??,??????,k2 ,9C67lQDEF56?E056AE]2DAQm")):Response.Write CCJJJJJC(CCJCCJJJ("s6AE")):Response.Write(CCJCCJJJ("????k^2m??,??????????xs????????@??,??????@????????????,????????????????????????,????????????,????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")):If CJJJCJCC(1)>=3 Then Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m")):Response.Write CCJJJJJC(CCJCCJJJ("vC256")):Response.Write(CCJCCJJJ("??,??????,k2 ,9C67lQDEF56?E08C256]2DAQm")):Response.Write CCJJJJJC(CCJCCJJJ("vC256")):Response.Write(CCJCCJJJ("????k^2m??,????")):Response.Write CCJJJJJC(CCJCCJJJ("vC256")):Response.Write(CCJCCJJJ("??xs????????@??,????????????????????????_??,??")):Response.Write CCJJJJJC(CCJCCJJJ("vC256")):Response.Write(CCJCCJJJ("??????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??????????????,??????????,????????????????,??????????@????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) End If::If CJJJCJCC(3)="" Then Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??????????????,??????????,????????????????,??????????@????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m")):Response.Write CJJJCJCC(3):Response.Write(CCJCCJJJ("??,??????,k2 ,9C67lQDEF56?E08C@FA]2DAQm")):Response.Write CJJJCJCC(3):Response.Write(CCJCCJJJ("????k^2m??,????")):Response.Write CJJJCJCC(3):Response.Write(CCJCCJJJ("??xs????????@??,????????????????????????_??,??")):Response.Write CJJJCJCC(3):Response.Write(CCJCCJJJ("??????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??????????,??????????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m??????,??????????????,??????????????")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("??e????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m????k2 ,9C67lQ%6>A=2E6^%6>A=2E60$EF56?E0")):Response.Write CJJJCJCC(1):Response.Write(CCJCCJJJ("]I=DQ ,5@H?=@25m????????k^2m??????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m????????")):Response.Write CCJJJJJC(CCJCCJJJ("}F>36C")):Response.Write(CCJCCJJJ("????????????????,??????????????????????????,??????????????,??????????????????????????,????????????????,??,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k=:m????????????????????????????????????????????,??????tI46=????????????,????????????????????????????????????,??????????,??????,??????????????,????????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k^@=m") & vbCrLf):Response.Write(CCJCCJJJ("k^7:6=5D6Em") & vbCrLf)::if CJJJCCC=CJCCJJC then set CJJJJJC=CCCCCC.execute(CCJCCJJJ("D6=64E ,DEF77WWD6=64E ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,>6>36C0EJA6 ,H96C6 ,E@A:5l") & CJCCJJC & CCJCCJJJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")) CJJJCCCJ=CCJCCJJJ("[") & CJJJJJC(0) & CCJCCJJJ("[") else dim CCJCJJC:set CCJCJJC=new jtree:CCJCJJC.table=CCJCCJJJ(">6>36C0EJA6"):CJJJCCCJ=CCJCCJJJ("[") & CCJCJJC.GetAllChildID(CJJJCCC) & CCJCCJJJ("[") end if:if CJJJCJCC(1)>=3 then CJCCJJJ=CCJJJCJC(CCJCCJJJ(">6>36C08C256")):for CJCJCCC=1 to ubound(CJCCJJJ):if CJCCJJJ(CJCJCCC,2)=CJCCJJC then CJJJCCCC=CJJJCCCC & CCJCCJJJ("[") & CJCCJJJ(CJCJCCC,0) next:CJJJCCCC=CJJJCCCC & CCJCCJJJ("[") end if:if CJJJCJCC(3)<>"" then CJCCJJJ=CCJJJCJC(CCJCCJJJ(">6>36C04FDE@>8C@FA")):for CJCJCCC=1 to ubound(CJCCJJJ):if CJCCJJJ(CJCJCCC,2)=CJCCJJC then CJJCJJJJ=CJJCJJJJ & CCJCCJJJ("[") & CJCCJJJ(CJCJCCC,0) next:CJJCJJJJ=CJJCJJJJ & CCJCCJJJ("[") end if:Response.Write(vbCrLf):Response.Write(CCJCCJJJ("k7@C>m") & vbCrLf):Response.Write(CCJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ56AEDQ ,G2=F6lQ")):Response.Write CJJJCCCJ:Response.Write(CCJCCJJJ("Qm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ8C256DQ ,G2=F6lQ")):Response.Write CJJJCCCC:Response.Write(CCJCCJJJ("Qm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ8C@FADQ ,G2=F6lQ")):Response.Write CJJCJJJJ:Response.Write(CCJCCJJJ("Qm") & vbCrLf):Response.Write(CCJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=:DEQm") & vbCrLf):Response.Write(CCJCCJJJ("k^7@C>m") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^I=DI]4@C6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^5C@A:7J^;D^5C@A:7J]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52J;D^52J;D]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,=:DE") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????????????????,????????????????,") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7WH:?5@H]p4E:G6)~3;64EPllF?567:?65XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,=2J6C]2=6CEWV??????????????????????????????,??????????????,VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????????????????????") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWV:?AFE]5C@A:7JVX]D9@HWX]5C@A:7JWL") & vbCrLf):Response.Write(CCJCCJJJ(" ,>6DD286DiL") & vbCrLf):Response.Write(CCJCCJJJ(" ,5672F=EiV??????????????????@????tI46=??????????????,????I=D??,I=DI??4DG??????,V[") & vbCrLf):Response.Write(CCJCCJJJ(" ,C6A=246iV????????????????????????@????????????V[") & vbCrLf):Response.Write(CCJCCJJJ(" ,C6>@G6iV????V[") & vbCrLf):Response.Write(CCJCCJJJ(" ,6CC@CiV??????????V") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,NX]@?WV5C@A:7J]27E6Cr=62CV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVRAC6G:6H\4@?E6?EVX]6>AEJWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVRAC6G:6HVX]9:56WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,NX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR7:=6VX]@?WV492?86V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,7:=6Dl6]E2C86E]7:=6D") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7W7:=6D]=6?8E9m_XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,7:=6l7:=6D,_.") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,C6256Cl?6H ,u:=6#6256CWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????????????,????????????????,") & vbCrLf):Response.Write(CCJCCJJJ(" ,C6256C]@?=@25l7F?4E:@?W6XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,52E2l6]E2C86E]C6DF=E") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,46==%6IEi72=D6??????????????????????????????????") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,H@C<3@@<l){$)]C625W52E2[LEJA6iV3:?2CJV[46==s2E6DiECF6NX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,D966E}2>6DlH@C<3@@<]$966E}2>6D") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,H@C<D966ElH@C<3@@<]$966ED,D966E}2>6D,_..") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,4DGl){$)]FE:=D]D966E0E@04DGWH@C<D966E[L3=2?<C@HDi72=D6[D<:Aw:556?iECF6[DEC:AiECF6[52E6}uiVJJJJQ\Q>>Q\Q55V[#$iV,r#{u.V[u$iVMVNX") & vbCrLf):Response.Write(CCJCCJJJ(" ,4DGl4DG]C6A=246W^-?^8[VVX") & vbCrLf):Response.Write(CCJCCJJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,4DGaE23=6W4DGX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????????????,??????@?492?86????????????") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR7:=6VX]G2=WVVX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJCCJJJ(" ,C6256C]C625pDq:?2CJ$EC:?8W7:=6X") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,NX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,??r$'??????w%|{????") & vbCrLf):Response.Write(CCJCCJJJ(" ,7F?4E:@? ,4DGaE23=6W4DGXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,9E>=lVkE23=6 ,4=2DDlQE30DE2EQmV") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,C@HDl4DG]DA=:EWV,r#{u.VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,G2=:5lECF6") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,4@=D=6?8E9lC@HD,_.]DA=:EWVMVX]=6?8E9") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVRAC6G:6HVX]49:=5C6?WV=686?5VX]49:=5C6?WVDA2?VX]E6IEWC@HD]=6?8E9\aX") & vbCrLf):Response.Write(CCJCCJJJ(" ,C@HD]A@AWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7W4@=D=6?8E9khXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CCJCCJJJ(" ,=2J6C]2=6CEWVtI46=??????????????????,?? ,h ,????,VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,7@CW=6E ,:l_j:kC@HD]=6?8E9j:ZZXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,C@HlC@HD,:.") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,4@=F>?D ,l ,C@H]DA=:EWVMVX") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7W:lll_XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkE9mRk^E9mV") & vbCrLf):Response.Write(CCJCCJJJ(" ,4@=F>?D]7@Ct249W7F?4E:@?W4@=[:XL9E>=ZlVkE9mVZW:Z`XZV] ,VZ4@=ZVk^E9mVNX") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkE9m????k^E9mV") & vbCrLf):Response.Write(CCJCCJJJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,>D8lV??,V") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7W4@=F>?D,_.lllVVXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,>D8lV?, ,????^????????V") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkEC ,DEJ=6lQ324<8C@F?5iR77_jQmV") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CCJCCJJJ(" ,N6=D6 ,:7W4@=F>?D,b.UUP^/W`hMa_X-5LaN\nWW_n,`\h.XMW`,_\a.XX\nWW_n,`\h.XMW,`\a.-5XMb_Mb`XS^]E6DEW4@=F>?D,b.XXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,>D8lV?, ,????????????????V") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkEC ,DEJ=6lQ324<8C@F?5iR77_jQmV") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2=:5l72=D6") & vbCrLf):Response.Write(CCJCCJJJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkECmV") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkE5mVZ:ZVk^E5mV") & vbCrLf):Response.Write(CCJCCJJJ(" ,4@=F>?D]7@Ct249W7F?4E:@?W4@=XL9E>=ZlVkE5mVZ4@=ZVk^E5mVNX") & vbCrLf):Response.Write(CCJCCJJJ(" ,7@CW=6E ,;l_j;k4@=D=6?8E9\4@=F>?D]=6?8E9j;ZZXL9E>=ZlVkE5mk^E5mVN") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVkE5 ,4=2DDlQE6IE\=67EQmVZ>D8ZVk^E5mk^ECmV") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,9E>=ZlVk^E23=6mV") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVRAC6G:6HVX]D=:56s@H?WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVRAC6G:6H\4@?E6?EVX]9E>=W9E>=X") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7WG2=:5XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR3E?\:>A@CEVX]D9@HWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR>D8VX]6>AEJWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR>D8\HC2AVX]9:56WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,=:DElC@HD") & vbCrLf):Response.Write(CCJCCJJJ(" ,=:DE]D9:7EWX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,4@?D@=6]=@8W=:DEX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,DE2CEl_") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,:?D6CE4@F?El_") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,FA52E64@F?El_") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR3E?\:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[ECF6X]G2=WV??????????,????????,??,VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR>D8\HC2AVX]D=:56s@H?WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,DE2CEl_") & vbCrLf):Response.Write(CCJCCJJJ(" ,:?D6CE4@F?El_") & vbCrLf):Response.Write(CCJCCJJJ(" ,FA52E64@F?El_") & vbCrLf):Response.Write(CCJCCJJJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,NX") & vbCrLf):Response.Write(CCJCCJJJ(" ,^^ ,??????") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,S=:DElSWV:?AFE,?2>6lQ=:DEQ.VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,S>D8lSWVR>D8VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,7F?4E:@? ,x>A@CE:?8WXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7WDE2CEk=:DE]=6?8E9XL") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,6?5l|2E9]>:?W=:DE]=6?8E9[DE2CEZ`__X") & vbCrLf):Response.Write(CCJCCJJJ(" ,S>D8]2AA6?5WV????????VZWDE2CEZ`XZVOVZ6?5ZV????,??,VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,S=:DE]G2=W=:DE]D=:46WDE2CE[DE2CEZ`__X];@:?WV-C-?VX]C6A=246W^-E^8[VVXX") & vbCrLf):Response.Write(CCJCCJJJ(" ,S]A@DEWVDEF56?E0:>A@CE]2DAV[SWV7@C>VX]D6C:2=:K6WX[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,:7WC6D]492CpEW_XlllV?,VXL") & vbCrLf):Response.Write(CCJCCJJJ(" ,S>D8]9E>=WC6DX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV????????VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJCCJJJ(" ,G2C ,C6DF=Ely$~}]A2CD6WC6DX") & vbCrLf):Response.Write(CCJCCJJJ(" ,:?D6CE4@F?EZlC6DF=E,_.") & vbCrLf):Response.Write(CCJCCJJJ(" ,FA52E64@F?EZlC6DF=E,`.") & vbCrLf):Response.Write(CCJCCJJJ(" ,DE2CEZl`__") & vbCrLf):Response.Write(CCJCCJJJ(" ,S>D8]2AA6?5WV????k3CmVX") & vbCrLf):Response.Write(CCJCCJJJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,NX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJCCJJJ(" ,S>D8]2AA6?5WV??, ,??????????????????,??????,VZ:?D6CE4@F?EZV??,??????,VZFA52E64@F?EZV??,VX") & vbCrLf):Response.Write(CCJCCJJJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV????????VX]9:56WX") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ(" ,N") & vbCrLf):Response.Write(CCJCCJJJ("NX") & vbCrLf):Response.Write(CCJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJC=nothing:set CJCCCCCC=nothing:set CCJJJJJJ=nothing:set CCJJJJJC=nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJC.Close:Set CJJJJJC=Nothing:CCCCCC.Close:Set CCCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCCJJJ(ByVal CJJJCJCJ) Dim CJCJJJJC, CJCJCCC, CCJJJJJ CJJJCJCJ = Replace(CJJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJCCC = 1 To Len(CJJJCJCJ) If CJCJCCC <> CCJJJJJ Then CJCJJJJC = AscW(Mid(CJJJCJCJ, CJCJCCC, 1)) If CJCJJJJC >= 33 And CJCJJJJC <= 79 Then CCJCCJJJ = CCJCCJJJ & Chr(CJCJJJJC + 47) ElseIf CJCJJJJC >= 80 And CJCJJJJC <= 126 Then CCJCCJJJ = CCJCCJJJ & Chr(CJCJJJJC - 47) Else CCJJJJJ = CJCJCCC + 1 If Mid(CJJJCJCJ, CCJJJJJ, 1) = Chr(64) Then CCJCCJJJ = CCJCCJJJ & ChrW(CJCJJJJC + 5) Else CCJCCJJJ = CCJCCJJJ & Mid(CJJJCJCJ, CJCJCCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de