Edit D:\xinhaisoft\crisis_new\school\admin\studentread.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJCJ, CJJJCC,CJJCJJ, CJJCJC, CJJCCJ:Set CJJJCJ = server.CreateObject(CJCCCJCJ("ps~sq]r@??64E:@?")):CJJJCJ.open Application(CJCCCJCJ("r@??64E:@?$EC:?8")):Set CJJJCC=CJJJCJ::Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC:CCCJJC=Trim(Request.Cookies(CJCCCJCJ("!$*|t|qt#"))):if CCCJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCCC>0 then CJJCCJ=CJCCCJCJ("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") & CJCJJJ & CJCCCJCJ("V ,2?5 ,:5l") & CJJCCC set CJJCJJ=CJJJCJ.execute(CJJCCJ):If CJJCJJ.EOF Then Call ClearMemberCookie Else CJCJJC=CJJCJJ(2) & "":CJCJCJ=CJJCJJ(3):CJCJCC=CJJCJJ(5):CJCCJJ=CJJCJJ(6):CJCCJC=CJJCJJ(9):CJCCCJ=CJJCJJ(15):CCJJJJ=CJJCJJ(0):CCJCCC=CJJCJJ(1):CCJCCJ=CJJCJJ(11) & "":CCJJJC=CJJCJJ(10) & "":CJCCCC=CJJCJJ(12):CCJJCJ=CJJCJJ(14):CCJJCC=CJJCJJ(13):CCJCJJ=CJJCJJ(7) & "":CCJCJC=CJJCJJ(4):CCCJJJ=CJJCJJ(8):if isnull(CJCCCJ) then CJCCCJ=0 if isnull(CJCCJC) or CJCCJC=0 then CJCCJC=CJCJCJ if isnull(CCJCJC) then CCJCJC=0 if isnull(CJCJCC) then CJCJCC=0 if instr(CJCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJJ)>0 then Call RedirectMessage(CJCCCJCJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJCCC,CJCJJJ) End IF end if:Sub CheckRight(CCCJCCJ):dim CCCJCJ,CCCJCC:if CJJCCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCJ("??????????????,????????????,")) elseIf not CJJCCCCJ(CCCJCCJ) then Call RedirectMessage(CJCCCJCJ("????W") & CCCJCCJ & CJCCCJCJ("X????????,????????????????????,")) end if:End Sub:Function CJJCCCCJ(CCCJCCJ):dim CCCJCJ,CCCJCC:CCCJCC=split(CCCJCCJ,CJCCCJCJ("[")):CJJCCCCJ=False:for CCCJCJ=0 to ubound(CCCJCC):If Mid(CJCJJC,CCCJCC(CCCJCJ),1)="1" then CJJCCCCJ=True:exit function end if:next:End Function:Sub CheckLogined():if CJJCCC=0 then Call ClearMemberCookie:Call ConnClose:dim CCCCJJ:CCCCJJ=trim(request.QueryString(CJCCCJCJ("D49@@="))):if isnumeric(CCCCJJ) then response.Redirect CJCCCJCJ("^>^G2?E^R^D49@@=^") & CCCCJJ & CJCCCJCJ("^DEF56?E^=@8:?nC65:C64El") & CJJJCJC else Call RedirectMessage(CJCCCJCJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJCJ("!$*|t|qt#"))="":CJJCCC=0:CJCCJJ=0:CJCJJJ=Empty:CJCJCC=0:CJCCCJ=0:CJCCJC=0:CJCJCJ=0:CCJJJJ=False:CCJCCC=False:CCCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJC,CCCCCJ,CCCJCJ,CCCCCC,CJJJJJJ:CCCCJC=split(CCCJJC,CJCCCJCJ("]")):if ubound(CCCCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCJC(0)) or len(CCCCJC(1))<>32 or len(CCCCJC(2))<>32 then Call ClearMemberCookie else CCCCCJ=CCCCJC(1):for CCCJCJ=1 to len(CCCCCJ):CCCCCC=mid(CCCCCJ,CCCJCJ,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC if len(CJJJJJJ)=7 then exit for next:CCCCCJ=CCCCJC(2):if CJJJJJJ<>mid(CCCCCJ,6,7) then Call ClearMemberCookie else CCCCCC=mid(CCCCCJ,18,10)/2:if CCCCCC<DateDiff(CJCCCJCJ("D"), CJCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJCCC=Clng(CCCCJC(0)):CJCJJJ=CCCCJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCJCJC,CJCCCJCC):dim CCCJCJ,CCCCCC,CJJJJJJ:for CCCJCJ=1 to len(CJCCCJCC):CCCCCC=mid(CJCCCJCC,CCCJCJ,1):if isnumeric(CCCCCC) then CJJJJJJ=CJJJJJJ & CCCCCC if len(CJJJJJJ)=7 then exit for next:CJJJJJJ=CCCJCJC & CJCCCJCJ("]") & CJCCCJCC & CJCCCJCJ("]") & Fix(10000*(Rnd+1)) & CJJJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJCJ("D"), CJCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJCJ("!$*|t|qt#"))=CJJJJJJ:End Sub::Function CJJCCCCC(CJCCCCJJ):Dim str,CJJJJCJ:str = Trim(CJCCCCJJ):If IsNull(str) Or str = "" Then CJJCCCCC = "" else str=Replace(str, CJCCCJCJ("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCJCJ("k:7C2>6"), CJCCCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCJ("kD4C:AE"), CJCCCJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJCJ=new RegExp:CJJJJCJ.Pattern=CJCCCJCJ("@?W,2\K.ZXl"):CJJJJCJ.IgnoreCase = True:CJJJJCJ.Global=True:str=CJJJJCJ.Replace(str,CJCCCJCJ("@?S`U6BF2=Dj")):set CJJJJCJ=nothing:CJJCCCCC=str End If:End Function:Function IIf(CJCCCCJC, CJCCCCCJ, CJCCCCCC):if isnull(CJCCCCJC) or isempty(CJCCCCJC) then IIf = CJCCCCCC elseif CJCCCCJC Then IIf = CJCCCCCJ Else IIf = CJCCCCCC end if:End Function:Const CJJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCJJJJC():dim CJJJJCC:CJJJJCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJJJCC = "" Then CJJJJCC = Cstr(Request.ServerVariables(CJCCCJCJ("#t|~%t0pss#"))) if instr(CJJJJCC,CJCCCJCJ("i"))>0 then CJJJJCC=left(CJJJJCC,instr(CJJJJCC,CJCCCJCJ("i"))-1) elseif instr(CJJJJCC,CJCCCJCJ("["))>0 then CJJJJCC=left(CJJJJCC,instr(CJJJJCC,CJCCCJCJ("["))-1) end if:CJCJJJJC=left(CJJJJCC,15):End Function::Public Function CJCJJJCJ():Dim CJJJCJJ, CJJJCJC:CJJJCJC = Request.ServerVariables(CJCCCJCJ("!p%w0x}u~")):CJJJCJJ = Request.ServerVariables(CJCCCJCJ("""&t#*0$%#x}v")):If CJJJCJJ <> Empty Then if instr(lcase(CJJJCJJ),CJCCCJCJ("Tb4:7C2>6"))>0 or instr(lcase(CJJJCJJ),CJCCCJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCJCJ("????????,????????????????????????,??,??,")) CJJJCJC = CJJJCJC & CJCCCJCJ("n") & CJJJCJJ end if:CJCJJJCJ = CJJJCJC:End Function:Sub SetHttpOnlyCookie(CCJJJJJJ,CCJJJJJC):dim CCCCJC:CCCCJC=CCJJJJJJ & CJCCCJCJ("l") & CCJJJJJC & CJCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCJ("$6E\r@@<:6"),CCCCJC):End Sub:::::::Function CJCJJJCC(CJJJJCJC):if isnull(CJJJJCJC) or trim(CJJJJCJC)="" or not isnumeric(CJJJJCJC) then CJCJJJCC=false else Dim CJJJJCJ:Set CJJJJCJ = New RegExp:CJJJJCJ.Pattern = CJCCCJCJ("/-5ZS"):CJJJJCJ.IgnoreCase = True:CJCJJJCC = CJJJJCJ.test(CJJJJCJC):set CJJJJCJ=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:set CJCJJCCJ=nothing:set CJCJJCCC=nothing:CCJJJCC.close : set CCJJJCC=nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJJCJ.Close : Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJCJ("!$*0|6DD286"),server.URLEncode(CCJJJJCJ)):Response.Redirect CJCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJCJJJ(ByVal CJCJCJJC,style):if not isdate(CJCJCJJC) then CJCJCJJJ=CJCJCJJC:exit function end if:dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:CJCJCJJC=cdate(CJCJCJJC):CJJJCCJ=Year(CJCJCJJC):CJJJCCC=Month(CJCJCJJC):CJJCJJJ=Day(CJCJCJJC):select case style:case 0:CJCJCJJJ=CJJJCCJ & CJCCCJCJ("\") & right(0 & CJJJCCC,2) & CJCCCJCJ("\") & right(0 & CJJCJJJ,2):case 1:CJCJCJJJ=CJJJCCJ & right(0 & CJJJCCC,2) & right(0 & CJJCJJJ,2):case 2:CJCJCJJJ=right(CJJJCCJ,2) & CJCCCJCJ("\") & right(0 & CJJJCCC,2) & CJCCCJCJ("\") & right(0 & CJJCJJJ,2):case 3:CJCJCJJJ=CJJJCCJ & CJCCCJCJ("\") & right(0 & CJJJCCC,2):case 4:CJCJCJJJ=right(0 & CJJJCCC,2) & CJCCCJCJ("\") & right(0 & CJJCJJJ,2):case 5:CJCJCJJJ=right(0 & CJJCJJJ,2):case 6:CJCJCJJJ=CJJJCCJ & CJCCCJCJ("??") & right(0 & CJJJCCC,2) & CJCCCJCJ("??") & right(0 & CJJCJJJ,2) & CJCCCJCJ("??"):case else CJCJCJJJ=CJCJCJJC:end select:End Function::::Sub InsertLog(CCJJJJCC,CCJJJJC):dim CJJCJCJ:CJJCJCJ=CJCCCJCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJJCCC & CJCCCJCJ("[V") & CJCJJJJC & CJCCCJCJ("V") & CJCCCJCJ("[V") & CJJCCCCC(CCJJJJC) & CJCCCJCJ("V") & CJCCCJCJ("[") & CCJJJJCC & CJCCCJCJ("[V") & CJCJJJCJ & CJCCCJCJ("V") & CJCCCJCJ("X") CJJJCJ.execute CJJCJCJ:End Sub::::::::::::::::Sub ClearCache(CCJJJCJJ):Application.Contents.Remove CCJJJCJJ End Sub::Private Const CJJJJCCC =8:Private Const CJJJCJJJ =4:Private Const CJJJCJJC =32:Private CJJCJCC(30):Private CJJCCJJ(30):Private Function CJCJCJCJ(CCJJJCJC, CCJJJCCJ):If CCJJJCCJ = 0 Then CJCJCJCJ = CCJJJCJC:Exit Function ElseIf CCJJJCCJ = 31 Then If CCJJJCJC And 1 Then CJCJCJCJ = &H80000000 Else CJCJCJCJ = 0 End If:Exit Function ElseIf CCJJJCCJ < 0 Or CCJJJCCJ > 31 Then Err.Raise 6 End If:If (CCJJJCJC And CJJCCJJ(31 - CCJJJCCJ)) Then CJCJCJCJ = ((CCJJJCJC And CJJCJCC(31 - (CCJJJCCJ + 1))) * CJJCCJJ(CCJJJCCJ)) Or &H80000000 Else CJCJCJCJ = ((CCJJJCJC And CJJCJCC(31 - CCJJJCCJ)) * CJJCCJJ(CCJJJCCJ)) End If:End Function:Private Function CJCJCJCC(CCJJJCJC, CCJJJCCJ):If CCJJJCCJ = 0 Then CJCJCJCC = CCJJJCJC:Exit Function ElseIf CCJJJCCJ = 31 Then If CCJJJCJC And &H80000000 Then CJCJCJCC = 1 Else CJCJCJCC = 0 End If:Exit Function ElseIf CCJJJCCJ < 0 Or CCJJJCCJ > 31 Then Err.Raise 6 End If:CJCJCJCC = (CCJJJCJC And &H7FFFFFFE) \ CJJCCJJ(CCJJJCCJ):If (CCJJJCJC And &H80000000) Then CJCJCJCC = (CJCJCJCC Or (&H40000000 \ CJJCCJJ(CCJJJCCJ - 1))) End If:End Function:Private Function CJCJCCJJ(CCJJJCJC, CCJJJCCJ):CJCJCCJJ = CJCJCJCJ(CCJJJCJC, CCJJJCCJ) Or CJCJCJCC(CCJJJCJC, (32 - CCJJJCCJ)):End Function:Private Function CJCJCCJC(CCJJJCCC, CCJJCJJJ):Dim CJJCCJC:Dim CJJCCCJ:Dim CJJCCCC:Dim CJCJJJJ:Dim CJCJJJC:CJJCCCC = CCJJJCCC And &H80000000:CJCJJJJ = CCJJCJJJ And &H80000000:CJJCCJC = CCJJJCCC And &H40000000:CJJCCCJ = CCJJCJJJ And &H40000000:CJCJJJC = (CCJJJCCC And &H3FFFFFFF) + (CCJJCJJJ And &H3FFFFFFF):If CJJCCJC And CJJCCCJ Then CJCJJJC = CJCJJJC Xor &H80000000 Xor CJJCCCC Xor CJCJJJJ ElseIf CJJCCJC Or CJJCCCJ Then If CJCJJJC And &H40000000 Then CJCJJJC = CJCJJJC Xor &HC0000000 Xor CJJCCCC Xor CJCJJJJ Else CJCJJJC = CJCJJJC Xor &H40000000 Xor CJJCCCC Xor CJCJJJJ End If Else CJCJJJC = CJCJJJC Xor CJJCCCC Xor CJCJJJJ End If:CJCJCCJC = CJCJJJC:End Function:Private Function CJCJCCCJ(CJCCJCJ, CJJJCCJ, CCJJCJJC):CJCJCCCJ = (CJCCJCJ And CJJJCCJ) Or ((Not CJCCJCJ) And CCJJCJJC):End Function:Private Function CJCJCCCC(CJCCJCJ, CJJJCCJ, CCJJCJJC):CJCJCCCC = (CJCCJCJ And CCJJCJJC) Or (CJJJCCJ And (Not CCJJCJJC)):End Function:Private Function CJCCJJJJ(CJCCJCJ, CJJJCCJ, CCJJCJJC):CJCCJJJJ = (CJCCJCJ Xor CJJJCCJ Xor CCJJCJJC):End Function:Private Function CJCCJJJC(CJCCJCJ, CJJJCCJ, CCJJCJJC):CJCCJJJC = (CJJJCCJ Xor (CJCCJCJ Or (Not CCJJCJJC))):End Function:Private Sub md5_FF(CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ, CCCCCCC, CCJJCJCJ):CJCCCCC = CJCJCCJC(CJCCCCC, CJCJCCJC(CJCJCCJC(CJCJCCCJ(CCJJJJJ, CCJJJJC, CJJCJJJ), CJCCJCJ), CCJJCJCJ)):CJCCCCC = CJCJCCJJ(CJCCCCC, CCCCCCC):CJCCCCC = CJCJCCJC(CJCCCCC, CCJJJJJ):End Sub:Private Sub md5_GG(CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ, CCCCCCC, CCJJCJCJ):CJCCCCC = CJCJCCJC(CJCCCCC, CJCJCCJC(CJCJCCJC(CJCJCCCC(CCJJJJJ, CCJJJJC, CJJCJJJ), CJCCJCJ), CCJJCJCJ)):CJCCCCC = CJCJCCJJ(CJCCCCC, CCCCCCC):CJCCCCC = CJCJCCJC(CJCCCCC, CCJJJJJ):End Sub:Private Sub md5_HH(CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ, CCCCCCC, CCJJCJCJ):CJCCCCC = CJCJCCJC(CJCCCCC, CJCJCCJC(CJCJCCJC(CJCCJJJJ(CCJJJJJ, CCJJJJC, CJJCJJJ), CJCCJCJ), CCJJCJCJ)):CJCCCCC = CJCJCCJJ(CJCCCCC, CCCCCCC):CJCCCCC = CJCJCCJC(CJCCCCC, CCJJJJJ):End Sub:Private Sub md5_II(CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ, CCCCCCC, CCJJCJCJ):CJCCCCC = CJCJCCJC(CJCCCCC, CJCJCCJC(CJCJCCJC(CJCCJJJC(CCJJJJJ, CCJJJJC, CJJCJJJ), CJCCJCJ), CCJJCJCJ)):CJCCCCC = CJCJCCJJ(CJCCCCC, CCCCCCC):CJCCCCC = CJCJCCJC(CJCCCCC, CCJJJJJ):End Sub:Private Function CJCCJJCJ(CCJJCJCC):Dim CJCJJCJ:Dim CJCJJCC:Dim CJCJCJJ():Dim CJCJCJC:Dim CJCJCCJ:Dim CJCJCCC:Const CJJJCJCJ =512:Const CJJJCJCC =448:CJCJJCJ = Len(CCJJCJCC):CJCJJCC = (((CJCJJCJ + ((CJJJCJCJ - CJJJCJCC) \ CJJJJCCC)) \ (CJJJCJCJ \ CJJJJCCC)) + 1) * (CJJJCJCJ \ CJJJCJJC):ReDim CJCJCJJ(CJCJJCC - 1):CJCJCJC = 0:CJCJCCJ = 0:Do Until CJCJCCJ >= CJCJJCJ:CJCJCCC = CJCJCCJ \ CJJJCJJJ:CJCJCJC = (CJCJCCJ Mod CJJJCJJJ) * CJJJJCCC:CJCJCJJ(CJCJCCC) = CJCJCJJ(CJCJCCC) Or CJCJCJCJ(Asc(Mid(CCJJCJCC, CJCJCCJ + 1, 1)), CJCJCJC):CJCJCCJ = CJCJCCJ + 1:Loop:CJCJCCC = CJCJCCJ \ CJJJCJJJ:CJCJCJC = (CJCJCCJ Mod CJJJCJJJ) * CJJJJCCC:CJCJCJJ(CJCJCCC) = CJCJCJJ(CJCJCCC) Or CJCJCJCJ(&H80, CJCJCJC):CJCJCJJ(CJCJJCC - 2) = CJCJCJCJ(CJCJJCJ, 3):CJCJCJJ(CJCJJCC - 1) = CJCJCJCC(CJCJJCJ, 29):CJCCJJCJ = CJCJCJJ:End Function:Private Function CJCCJJCC(CCJJJCJC):Dim CJCCJJJ:Dim CJCCJJC:For CJCCJJC = 0 To 3:CJCCJJJ = CJCJCJCC(CCJJJCJC, CJCCJJC * CJJJJCCC) And CJJCJCC(CJJJJCCC - 1):CJCCJJCC = CJCCJJCC & Right("0" & Hex(CJCCJJJ), 2):Next:End Function:Public Function CJCCJCJJ(CCJJCJCC):CJJCJCC(0) = CLng(1):CJJCJCC(1) = CLng(3):CJJCJCC(2) = CLng(7):CJJCJCC(3) = CLng(15):CJJCJCC(4) = CLng(31):CJJCJCC(5) = CLng(63):CJJCJCC(6) = CLng(127):CJJCJCC(7) = CLng(255):CJJCJCC(8) = CLng(511):CJJCJCC(9) = CLng(1023):CJJCJCC(10) = CLng(2047):CJJCJCC(11) = CLng(4095):CJJCJCC(12) = CLng(8191):CJJCJCC(13) = CLng(16383):CJJCJCC(14) = CLng(32767):CJJCJCC(15) = CLng(65535):CJJCJCC(16) = CLng(131071):CJJCJCC(17) = CLng(262143):CJJCJCC(18) = CLng(524287):CJJCJCC(19) = CLng(1048575):CJJCJCC(20) = CLng(2097151):CJJCJCC(21) = CLng(4194303):CJJCJCC(22) = CLng(8388607):CJJCJCC(23) = CLng(16777215):CJJCJCC(24) = CLng(33554431):CJJCJCC(25) = CLng(67108863):CJJCJCC(26) = CLng(134217727):CJJCJCC(27) = CLng(268435455):CJJCJCC(28) = CLng(536870911):CJJCJCC(29) = CLng(1073741823):CJJCJCC(30) = CLng(2147483647):CJJCCJJ(0) = CLng(1):CJJCCJJ(1) = CLng(2):CJJCCJJ(2) = CLng(4):CJJCCJJ(3) = CLng(8):CJJCCJJ(4) = CLng(16):CJJCCJJ(5) = CLng(32):CJJCCJJ(6) = CLng(64):CJJCCJJ(7) = CLng(128):CJJCCJJ(8) = CLng(256):CJJCCJJ(9) = CLng(512):CJJCCJJ(10) = CLng(1024):CJJCCJJ(11) = CLng(2048):CJJCCJJ(12) = CLng(4096):CJJCCJJ(13) = CLng(8192):CJJCCJJ(14) = CLng(16384):CJJCCJJ(15) = CLng(32768):CJJCCJJ(16) = CLng(65536):CJJCCJJ(17) = CLng(131072):CJJCCJJ(18) = CLng(262144):CJJCCJJ(19) = CLng(524288):CJJCCJJ(20) = CLng(1048576):CJJCCJJ(21) = CLng(2097152):CJJCCJJ(22) = CLng(4194304):CJJCCJJ(23) = CLng(8388608):CJJCCJJ(24) = CLng(16777216):CJJCCJJ(25) = CLng(33554432):CJJCCJJ(26) = CLng(67108864):CJJCCJJ(27) = CLng(134217728):CJJCCJJ(28) = CLng(268435456):CJJCCJJ(29) = CLng(536870912):CJJCCJJ(30) = CLng(1073741824):Dim CJCCJCJ:Dim CJJJJJJ:Dim CJCCJCC:Dim CJCCCJJ:Dim CJCCCJC:Dim CJCCCCJ:Dim CJCCCCC:Dim CCJJJJJ:Dim CCJJJJC:Dim CJJCJJJ:Const CJJJCCJJ =7:Const CJJJCCJC =12:Const CJJJCCCJ =17:Const CJJJCCCC =22:Const CJJCJJJJ =5:Const CJJCJJJC =9:Const CJJCJJCJ =14:Const CJJCJJCC =20:Const CJJCJCJJ =4:Const CJJCJCJC =11:Const CJJCJCCJ =16:Const CJJCJCCC =23:Const CJJCCJJJ =6:Const CJJCCJJC =10:Const CJJCCJCJ =15:Const CJJCCJCC =21:CJCCJCJ = CJCCJJCJ(CCJJCJCC):CJCCCCC = &H67452301:CCJJJJJ = &HEFCDAB89:CCJJJJC = &H98BADCFE:CJJCJJJ = &H10325476:For CJJJJJJ = 0 To UBound(CJCCJCJ) Step 16:CJCCJCC = CJCCCCC:CJCCCJJ = CCJJJJJ:CJCCCJC = CCJJJJC:CJCCCCJ = CJJCJJJ:md5_FF CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 0), CJJJCCJJ, &HD76AA478:md5_FF CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 1), CJJJCCJC, &HE8C7B756:md5_FF CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 2), CJJJCCCJ, &H242070DB:md5_FF CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 3), CJJJCCCC, &HC1BDCEEE:md5_FF CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 4), CJJJCCJJ, &HF57C0FAF:md5_FF CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 5), CJJJCCJC, &H4787C62A:md5_FF CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 6), CJJJCCCJ, &HA8304613:md5_FF CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 7), CJJJCCCC, &HFD469501:md5_FF CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 8), CJJJCCJJ, &H698098D8:md5_FF CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 9), CJJJCCJC, &H8B44F7AF:md5_FF CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 10), CJJJCCCJ, &HFFFF5BB1:md5_FF CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 11), CJJJCCCC, &H895CD7BE:md5_FF CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 12), CJJJCCJJ, &H6B901122:md5_FF CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 13), CJJJCCJC, &HFD987193:md5_FF CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 14), CJJJCCCJ, &HA679438E:md5_FF CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 15), CJJJCCCC, &H49B40821:md5_GG CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 1), CJJCJJJJ, &HF61E2562:md5_GG CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 6), CJJCJJJC, &HC040B340:md5_GG CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 11), CJJCJJCJ, &H265E5A51:md5_GG CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 0), CJJCJJCC, &HE9B6C7AA:md5_GG CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 5), CJJCJJJJ, &HD62F105D:md5_GG CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 10), CJJCJJJC, &H2441453:md5_GG CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 15), CJJCJJCJ, &HD8A1E681:md5_GG CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 4), CJJCJJCC, &HE7D3FBC8:md5_GG CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 9), CJJCJJJJ, &H21E1CDE6:md5_GG CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 14), CJJCJJJC, &HC33707D6:md5_GG CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 3), CJJCJJCJ, &HF4D50D87:md5_GG CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 8), CJJCJJCC, &H455A14ED:md5_GG CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 13), CJJCJJJJ, &HA9E3E905:md5_GG CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 2), CJJCJJJC, &HFCEFA3F8:md5_GG CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 7), CJJCJJCJ, &H676F02D9:md5_GG CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 12), CJJCJJCC, &H8D2A4C8A:md5_HH CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 5), CJJCJCJJ, &HFFFA3942:md5_HH CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 8), CJJCJCJC, &H8771F681:md5_HH CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 11), CJJCJCCJ, &H6D9D6122:md5_HH CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 14), CJJCJCCC, &HFDE5380C:md5_HH CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 1), CJJCJCJJ, &HA4BEEA44:md5_HH CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 4), CJJCJCJC, &H4BDECFA9:md5_HH CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 7), CJJCJCCJ, &HF6BB4B60:md5_HH CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 10), CJJCJCCC, &HBEBFBC70:md5_HH CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 13), CJJCJCJJ, &H289B7EC6:md5_HH CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 0), CJJCJCJC, &HEAA127FA:md5_HH CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 3), CJJCJCCJ, &HD4EF3085:md5_HH CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 6), CJJCJCCC, &H4881D05:md5_HH CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 9), CJJCJCJJ, &HD9D4D039:md5_HH CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 12), CJJCJCJC, &HE6DB99E5:md5_HH CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 15), CJJCJCCJ, &H1FA27CF8:md5_HH CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 2), CJJCJCCC, &HC4AC5665:md5_II CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 0), CJJCCJJJ, &HF4292244:md5_II CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 7), CJJCCJJC, &H432AFF97:md5_II CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 14), CJJCCJCJ, &HAB9423A7:md5_II CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 5), CJJCCJCC, &HFC93A039:md5_II CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 12), CJJCCJJJ, &H655B59C3:md5_II CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 3), CJJCCJJC, &H8F0CCC92:md5_II CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 10), CJJCCJCJ, &HFFEFF47D:md5_II CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 1), CJJCCJCC, &H85845DD1:md5_II CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 8), CJJCCJJJ, &H6FA87E4F:md5_II CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 15), CJJCCJJC, &HFE2CE6E0:md5_II CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 6), CJJCCJCJ, &HA3014314:md5_II CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 13), CJJCCJCC, &H4E0811A1:md5_II CJCCCCC, CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCJCJ(CJJJJJJ + 4), CJJCCJJJ, &HF7537E82:md5_II CJJCJJJ, CJCCCCC, CCJJJJJ, CCJJJJC, CJCCJCJ(CJJJJJJ + 11), CJJCCJJC, &HBD3AF235:md5_II CCJJJJC, CJJCJJJ, CJCCCCC, CCJJJJJ, CJCCJCJ(CJJJJJJ + 2), CJJCCJCJ, &H2AD7D2BB:md5_II CCJJJJJ, CCJJJJC, CJJCJJJ, CJCCCCC, CJCCJCJ(CJJJJJJ + 9), CJJCCJCC, &HEB86D391:CJCCCCC = CJCJCCJC(CJCCCCC, CJCCJCC):CCJJJJJ = CJCJCCJC(CCJJJJJ, CJCCCJJ):CCJJJJC = CJCJCCJC(CCJJJJC, CJCCCJC):CJJCJJJ = CJCJCCJC(CJJCJJJ, CJCCCCJ):Next:CJCCJCJJ = LCase(CJCCJJCC(CJCCCCC) & CJCCJJCC(CCJJJJJ) & CJCCJJCC(CCJJJJC) & CJCCJJCC(CJJCJJJ)):End Function::dim CCCCJJ:CJJCCJ=Request.ServerVariables(CJCCCJCJ("!p%w0x}u~")):if instr(CJJCCJ,CJCCCJCJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CCJJJJ and not CCJCCC then Call RedirectMessage(CJCCCJCJ("????????,????????????????????????,")) CCCCJJ=CJCCJC elseif instr(CJJCCJ,CJCCCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCCJ,CJCCCJCJ("^DEF56?E^"))>0 then Call CheckLogined:CCCCJJ=CJCCJC elseif instr(CJJCCJ,CJCCCJCJ("^D49@@="))>0 then CCCCJJ=Request.QueryString(CJCCCJCJ("D49@@=")):if not CJCJJJCC(CCCCJJ) then CCCCJJ=Request.QueryString(CJCCCJCJ("F")) if not CJCJJJCC(CCCCJJ) then CCCCJJ=Request.QueryString(CJCCCJCJ("D4")) if not CJCJJJCC(CCCCJJ) then Call RedirectMessage(CJCCCJCJ("????????W$49@@=X??@??????????,")) CCCCJJ=csng(CCCCJJ) end if:if CCCCJJ=0 then Call RedirectMessage(CJCCCJCJ("????????W$49@@=X????W_X??,")) Dim CCJJJCJ:Call SetConfig:Sub SetConfig():dim CCCJCC,CCJJJCC:CJJCCJ=CJCCCJCJ("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") & CCCCJJ:set CCJJJCC=CJJJCJ.execute(CJJCCJ):if CCJJJCC.eof then Call RedirectMessage(CJCCCJCJ("??W") & CJJCCC & CJCCCJCJ("X??????????W") & CCCCJJ & CJCCCJCJ("X????????,")) ReDim CCCJCC(61):CCCJCC(0)=CCJJJCC(CJCCCJCJ(";:2@H6:")) & "":CCCJCC(1)=CCJJJCC(CJCCCJCJ("EJA6")):CCCJCC(2)=CCJJJCC(CJCCCJCJ("D>D")):CCCJCC(3)=CCJJJCC(CJCCCJCJ("4FDE@>8C@FA")) & "":CCCJCC(4)=CCJJJCC(CJCCCJCJ("D:5632C0@E96C")) & "":CCCJCC(5)=IIf(isnull(CCJJJCC(CJCCCJCJ("E6DEC6DF=EG:6H"))),0,CCJJJCC(CJCCCJCJ("E6DEC6DF=EG:6H"))):CCCJCC(6)=CCJJJCC(CJCCCJCJ("K:IF?E:>6")):CCCJCC(7)=CCJJJCC(CJCCCJCJ("766")):CCCJCC(8)=CCJJJCC(CJCCCJCJ("C6E6DE52J")):CCCJCC(9)=CCJJJCC(CJCCCJCJ("6IA:C652E6")):CCCJCC(10)=CCJJJCC(CJCCCJCJ("E:E=6")):CCCJCC(11)=CCJJJCC(CJCCCJCJ(":?EC@")) & "":CCCJCC(12)=CCJJJCC(CJCCCJCJ("A:4EFC6")) & "":CCCJCC(13)=CCJJJCC(CJCCCJCJ("72>:=J")):CCCJCC(14)=CCJJJCC(CJCCCJCJ("4@AJC:89E")) & "":CCCJCC(15)=IIf(isnull(CCJJJCC(CJCCCJCJ("D6>6DE6C0DE2CE052E6"))),CJCCCJCJ("`h__\`\`"),CCJJJCC(CJCCCJCJ("D6>6DE6C0DE2CE052E6"))):CCCJCC(16)=IIf(isnull(CCJJJCC(CJCCCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJJCC(CJCCCJCJ("K:IF?0E:>6D09:89=:89E"))):CCCJCC(17)=CCJJJCC(CJCCCJCJ("4@?E24E")) & "":CCCJCC(18)=CCJJJCC(CJCCCJCJ("D2?5E23=6")):CCCJCC(19)=CCJJJCC(CJCCCJCJ("4C:D:D")):CCCJCC(20)=CCJJJCC(CJCCCJCJ("JJ52E6")):CCCJCC(21)=CCJJJCC(CJCCCJCJ("BB")):CCCJCC(22)=CCJJJCC(CJCCCJCJ("JFJF60D>D0EA=")) & "":CCCJCC(23)=CCJJJCC(CJCCCJCJ("JFJF60E6DE0=3")) & "":CCCJCC(25)=CCJJJCC(CJCCCJCJ("6IA6CE")):CCCJCC(26)=CCJJJCC(CJCCCJCJ(">@5:?7@")):CCCJCC(27)=CCJJJCC(CJCCCJCJ("9@>6A286E@AA:4EFC6")) & "":CCCJCC(28)=CCJJJCC(CJCCCJCJ("4C:D:D=3")):CCCJCC(29)=IIf(CCJJJCC(CJCCCJCJ("4C:D:D@=5")),False,True):CCCJCC(30)=CCJJJCC(CJCCCJCJ("8C@FA8F:52?46")):CCCJCC(31)=CCJJJCC(CJCCCJCJ("3:@7665324<")):CCCJCC(32)=CCJJJCC(CJCCCJCJ("<6JDEC")):CCCJCC(33)=CCJJJCC(CJCCCJCJ("=@8@")) & "":CCCJCC(34)=CCJJJCC(CJCCCJCJ("K:46")):CCCJCC(35)=IIf(CCJJJCC(CJCCCJCJ(":D?6H")),True,False):CCCJCC(36)=121:CCCJCC(37)=111:CCCJCC(38)=160:CCCJCC(39)=CCJJJCC(CJCCCJCJ("8F6DE3@@<")):CCCJCC(40)=CCJJJCC(CJCCCJCJ("75D")):CCCJCC(42)=CCJJJCC(CJCCCJCJ("9@>6=@8:?")):CCCJCC(43)=CCJJJCC(CJCCCJCJ("K:IF?0?6657665324<")):CCCJCC(44)=CCJJJCC(CJCCCJCJ("K:IF?0E:>6D0=:>:E")):CCCJCC(45)=CCJJJCC(CJCCCJCJ("4@>A=6E60:?7@")):CCCJCC(46)=CCJJJCC(CJCCCJCJ("E6DE:?EC@")) & "":CCCJCC(47)=IIf(isnull(CCJJJCC(CJCCCJCJ("JFJF60367@C60E:>6"))),0,CCJJJCC(CJCCCJCJ("JFJF60367@C60E:>6"))):CCCJCC(49)=CCJJJCC(CJCCCJCJ("D>D0C646:G6C")):CCCJCC(50)=CCJJJCC(CJCCCJCJ("D>D0D:8?")) & "":CCCJCC(52)=CCJJJCC(CJCCCJCJ("JFJF602CC2?86")):CCCJCC(53)=IIf(isnull(CCJJJCC(CJCCCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJCC(CJCCCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJCC(54)=CCJJJCC(CJCCCJCJ("9:560=30@FE@7286")):CCCJCC(55)=CCJJJCC(CJCCCJCJ("JFJF60E6DE052JD")):CCCJCC(56)=CCJJJCC(CJCCCJCJ("JFJF60H66<0=:>:E")):CCCJCC(57)=CCJJJCC(CJCCCJCJ("JFJF604964<65")):CCCJCC(58)=CCJJJCC(CJCCCJCJ("K:IF?0?6657665324<0?6IE")):CCCJCC(59)=CCJJJCC(CJCCCJCJ("4964<?6HDEF56?E")):CCCJCC(60)=CCJJJCC(CJCCCJCJ("K:IF?04=@D6052E6")):CCJJJCC.close : set CCJJJCC=nothing:if isNull(CCCJCC(8)) or CCCJCC(8)="" then CCCJCC(8)=0 if isdate(CCCJCC(9)) then CCCJCC(9)=cdate(CCCJCC(9)):if CCCJCC(9)<Date then Call RedirectMessage(CJCCCJCJ("????????,????????????????W") & CCCJCC(9) & CJCCCJCJ("X??????,")) end if:if not CJCJJJCC(CCCJCC(20)) then CCCJCC(20)=7 select case CCCJCC(1):case 1,2,16:CCCJCC(36)=159:case 4,5,6,10,11:CCCJCC(36)=190:CCCJCC(37)=178:CCCJCC(38)=191:case 7,13:CCCJCC(36)=164:CCCJCC(37)=178:CCCJCC(38)=179:end select:CCJJJCJ=CCCJCC:End Sub:Function CJCJJCCC(CCJJCCJJ):dim CCCJCC(7,1),CCCJCJ,CCJJCJJ,CCJJCJC:CCJJCJJ=Array(CJCCCJCJ("$49@@="),CJCCCJCJ("$EF56?E"),CJCCCJCJ("s6AE"),CJCCCJCJ("vC256"),CJCCCJCJ("r=2DD>2E6"),CJCCCJCJ("}F>36C"),CJCCCJCJ("%62496C"),CJCCCJCJ("!2C6?E")):select case CCJJJCJ(1):case 1,2 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????")):case 3,16 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????")):case 4 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("??????@"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????")):case 5 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????")):case 6 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("??????@"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 7 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 8 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("??????@"),CJCCCJCJ("????"),CJCCCJCJ("????????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 9 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 10 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 11 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 12 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 13 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????")):case 14 : CCJJCJC=Array(CJCCCJCJ("??????"),CJCCCJCJ("??@??"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case 15 : CCJJCJC=Array(CJCCCJCJ("????"),CJCCCJCJ("????????"),CJCCCJCJ("????"),CJCCCJCJ("????????"),CJCCCJCJ("????"),CJCCCJCJ("????"),CJCCCJCJ("??????"),CJCCCJCJ("????")):case else : CCJJCJC=CCJJCJJ end select:for CCCJCJ=0 to Ubound(CCCJCC):CCCJCC(CCCJCJ,0)=CCJJCJJ(CCCJCJ):CCCJCC(CCCJCJ,1)=CCJJCJC(CCCJCJ):next:for CCCJCJ=0 to Ubound(CCCJCC):if CCCJCC(CCCJCJ,0)=CCJJCCJJ then CJCJJCCC=CCCJCC(CCCJCJ,1):exit for end if:next:End Function::if not (CCJJJCJ(7)>=3 or CCJJJCJ(1)=3) then Call RedirectMessage(CJCCCJCJ("????????,??????????????????????,")) if CJCCJC<>CJCJCJ then Call RedirectMessage(CJCCCJCJ("????????,??????????????????????????????,")) Call CheckRight(63):Const CJJCCCJJ=false:Const CJJCCCJC=100:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:CCJJCCJ=Date:CCJCJJC=request.QueryString(CJCCCJCJ("24E")):if CCJCJJC=CJCCCJCJ("FA52E60@E96C53") then CCJJCCC=CJJCCCCC(Request.QueryString(CJCCCJCJ("4@?DEC"))):CCJCJJJ=CJJCCCCC(Request.QueryString(CJCCCJCJ("E23=6"))):CJJJCJ.execute CJCCCJCJ("FA52E6 ,D49@@= ,D6E ,@E96C5304@?DEClV") & CCJJCCC & CJCCCJCJ("V[@E96C530E23=6lV") & CCJCJJJ & CJCCCJCJ("V ,H96C6 ,:5l") & CCCCJJ Call InsertLog(2,CJCCCJCJ("??????????????????")):Call ConnClose:response.End end if:If Request.ServerVariables(CJCCCJCJ("#t""&t$%0|t%w~s"))=CJCCCJCJ("!~$%") then dim CCJCJCC:CCJJCCC=Request.Form(CJCCCJCJ("4@?DEC")):CCJCJJJ=CJJCCCCC(Request.Form(CJCCCJCJ("E23=6"))):CCJCJCC=Request.Form(CJCCCJCJ("A286")):CCJCJCJ=Request.Form(CJCCCJCJ("D49@@=A2E9")):if CCJJCCC="" or CCJCJJJ="" then Call Debug_(CJCCCJCJ("????????,????????????????,??????,??????@????????,??????????????????????????,")) if ucase(left(CCJJCCC,8))<>CJCCCJCJ("!#~'xst#") then CCJJCCC=CJCCCJJC(CCJJCCC) dim CCJCCJJ:on error resume next:set CCJCCJJ=server.CreateObject(CJCCCJCJ("ps~sq]r@??64E:@?")):CCJCCJJ.open CCJJCCC:if err then Call Debug_(CJCCCJCJ("????????,??????????????????,??????????????????,??????????????????????,??,") & err.description) dim CCJCCJC,CCJCCCJ:CCJCCJC=CJJCCCJC*(CCJCJCC-1)+1:CCJCCCJ=CJJCCCJC*CCJCJCC:CJJCCJ=CJCCCJCJ(",?F>36C.[C62=?2>6[D6I[3:CE952J[56AE`[56AEa[56AEb[,8C256."):CJJCCJ=CJCCCJCJ("D6=64E ,Y ,7C@> ,WD6=64E ,") & CJJCCJ & CJCCCJCJ("[C@H0?F>36CWX ,@G6CW@C56C ,3J ,,?F>36C.X ,2D ,C@H?F>36C ,7C@> ,") & CCJCJJJ & CJCCCJCJ("X ,2 ,H96C6 ,C@H?F>36C ,36EH66? ,") & CCJCCJC & CJCCCJCJ(" ,2?5 ,") & CCJCCCJ:set CJJCJJ=CCJCCJJ.execute(CJJCCJ):if err then Call Debug_(CJCCCJCJ("????????,??????????@??????????,????????????????????????????????,")) on error goto 0:if CJJCJJ.eof then Call Debug_(CJCCCJCJ("??,")) if request.Form(CJCCCJCJ("24E"))=CJCCCJCJ("AC6G:6H") then Call ShowExcel(CJJCJJ):Call ConnClose:response.End end if:if not CJJCCCJJ then set CJJCJC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,=2DE:>A@CEE:>6 ,7C@> ,4@?7:8 ,H96C6 ,:5l`")):if DateDiff(CJCCCJCJ("?"),CJJCJC(0),Now)<2 then Call Debug_(CJCCCJCJ("????????????????????????????????????,????????????????????,")) CJJJCJ.execute CJCCCJCJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l86E52E6WX") end if:dim CCJCCCC:set CJJCJC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C ,@C56C ,3J ,:5 ,56D4")):CCJCCCC=CJJCJC(0)+1:dim CCCJJJJ:set CJJCJC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C0EJA6 ,@C56C ,3J ,:5 ,56D4")):CCCJJJJ=CJJCJC(0)+1:dim CCCJJJC:set CJJCJC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C08C256 ,@C56C ,3J ,:5 ,56D4")):CCCJJJC=CJJCJC(0)+1:dim CCCJCJ,CCCJJCJ,CCCJJCC,CCCJCJJ:dim CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ:dim CCCCCJC,CCCCCCJ:CCCJCJ=0:CCCJJCJ=0:CCCJJCC=0:CCCJCJJ=0:CCCCCJC=false:CCCCCCJ=false:do while not CJJCJJ.eof:CCCJCCJ=Trim(CJJCJJ(0)) & "":if CCCJCCJ="" then CCCJCJJ=CCCJCJJ+1 else CCCJCCC=CJCCJCJJ(right(CCCJCCJ,6)):CCCCJJJ=CJJCJJ(1):if isnull(CCCCJJJ) or CCCCJJJ="" then CCCCJJJ=CCCJCCJ CCCCJJC=CJJCJJ(2):if CCCCJJC=CJCCCJCJ("??") then CCCCJJC=1 elseif CCCCJJC=CJCCCJCJ("??") then CCCCJJC=0 else CCCCJJC=1 end if:CCCCJCJ=CJJCJJ(3):if isdate(CCCCJCJ) then CCCCJCJ=cdate(CCCCJCJ):if CCCCJCJ>#2079-6-6# or CCCCJCJ<#1900-1-1# then CCCCJCJ=CCJJCCJ elseif len(CCCCJCJ)=8 then CCCCJCJ=left(CCCCJCJ,4) & CJCCCJCJ("\") & mid(CCCCJCJ,5,2) & CJCCCJCJ("\") & right(CCCCJCJ,2):if isdate(CCCCJCJ) then CCCCJCJ=cdate(CCCCJCJ):if CCCCJCJ>#2079-6-6# or CCCCJCJ<#1900-1-1# then CCCCJCJ=CCJJCCJ else CCCCJCJ=CCJJCCJ end if else CCCCJCJ=CCJJCCJ end if:CCCCJCC=CJCCJCJC(CJJCJJ(4),CJJCJJ(5),CJJCJJ(6)):CCCCCJJ=CJCCJCCC(CJJCJJ(7)):set CJJCJC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,?F>36ClV") & CCCJCCJ & CJCCCJCJ("V ,2?5 ,:DDEF56?El` ,2?5 ,>6>36C0EJA60E@Al") & CCCCJJ) if CJJCJC.eof then CJJCCJ=CJCCCJCJ(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[C62=?2>6[D6I[3:CE952J[EJA6[8C256[,DE2E6.[,8C@FA.[:DDEF56?EX ,G2=F6DW") & CCJCCCC & CJCCCJCJ("[V") & CCCJCCJ & CJCCCJCJ("V") & CJCCCJCJ("[V") & CCCJCCC & CJCCCJCJ("V") & CJCCCJCJ("[}V") & CCCCJJJ & CJCCCJCJ("V") & CJCCCJCJ("[") & CCCCJJC & CJCCCJCJ("[V") & CCCCJCJ & CJCCCJCJ("V") & CJCCCJCJ("[") & CCCCJCC & CJCCCJCJ("[") & CCCCCJJ & CJCCCJCJ("[d[`[`") & CJCCCJCJ("X") if CJJCCCJJ then response.Write CJJCCJ & CJCCCJCJ("k3Cm") else CJJJCJ.execute(CJJCCJ) end if:CCJCCCC=CCJCCCC+1:CCCJJCJ=CCCJJCJ+1 else CCCJCJC=CJJCJC(0):CJJCCJ=CJCCCJCJ("FA52E6 ,>6>36C ,D6E") & CJCCCJCJ(" ,C62=?2>6lV") & CCCCJJJ & CJCCCJCJ("V") & CJCCCJCJ("[D6Il") & CCCCJJC & CJCCCJCJ("[3:CE952JlV") & CCCCJCJ & CJCCCJCJ("V") & CJCCCJCJ("[EJA6l") & CCCCJCC & CJCCCJCJ("[8C256l") & CCCCCJJ & CJCCCJCJ(" ,H96C6 ,:5l") & CCCJCJC if CJJCCCJJ then response.Write CJJCCJ & CJCCCJCJ("k3Cm") else CJJJCJ.Execute(CJJCCJ) end if:CCCJJCC=CCCJJCC+1 end if end if:CJJCJJ.movenext:CCCJCJ=CCCJCJ+1:loop:if not CJJCCCJJ then Call InsertLog(0,CJCCCJCJ("??????,") & CCCCJJ & CJCCCJCJ("??,??????????????????????????") & CCCJJCJ+CCCJJCC & CJCCCJCJ("??")) if not CJJCCCJJ then CJJJCJ.execute CJCCCJCJ("FA52E6 ,4@?7:8 ,D6E ,=2DE:>A@CEE:>6l?F==") if CCCCCJC then Application.Contents.Remove CJCCCJCJ("!$*0|t|qt#0%*!t") if CCCCCCJ then Call ClearCache(CJCCCJCJ("!$*0|t|qt#0v#pst")) Call ConnClose:response.end end if:Sub ShowExcel(CJJCJJ):dim CCCJCJ,CCCCCC,CCCCCCC,CJJJJJJJ:CCCCCCC=CJCCCJCJ("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") & CJCCCJCJ("kE23=6 ,H:5E9lV`__TVmkECmkE9mk^E9m") CJJJJJJJ=CJJCJJ.fields.count-1:for CCCJCJ=0 to CJJJJJJJ:CCCCCCC=CCCCCCC & CJCCCJCJ("kE9m") & CJJCJJ.fields(CCCJCJ).name & CJCCCJCJ("k^E9m"):next:CCCCCCC=CCCCCCC & CJCCCJCJ("k^ECm"):CCCJCJ=1:do while not CJJCJJ.eof:CCCCCCC=CCCCCCC & CJCCCJCJ("kECmkE5m") & CCCJCJ & CJCCCJCJ("k^E5m"):for CCCCCC=0 to CJJJJJJJ:if CCCCCC=3 then CCCCCCC=CCCCCCC & CJCCCJCJ("kE5m") & CJJCJJ(CCCCCC) & CJCCCJCJ("k^E5m") elseif Trim(CJJCJJ(CCCCCC) & "")="" then CCCCCCC=CCCCCCC & CJCCCJCJ("kE5 ,DEJ=6lV4@=@CiC65jVm??????????,k^E5m") else CCCCCCC=CCCCCCC & CJCCCJCJ("kE5m") & CJJCJJ(CCCCCC) & CJCCCJCJ("k^E5m") end if:next:CCCCCCC=CCCCCCC & CJCCCJCJ("k^ECm"):CJJCJJ.movenext:CCCJCJ=CCCJCJ+1:if CCCJCJ>CJJCCCJC then exit do loop:CCCCCCC=CCCCCCC & CJCCCJCJ("k^E23=6m"):response.Write CCCCCCC:Call ConnClose:response.End:End Sub:function CJCCJCJC(CCJJCCJC,CCJJCCCJ,CCJJCCCC):dim CCCJCJ,CCCJCJC,CCJJJCC,CJJJJJJC,CJJJJJCJ,CJJJJJCC:if isnull(CCJJCCJC) or CCJJCCJC="" then CCCJCJC=CCCCJJ else CJJCCJ="":set CCJJJCC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C0EJA6 ,H96C6 ,?2>6lV") & CCJJCCJC & CJCCCJCJ("V ,2?5 ,A2C:5l") & CCCCJJ) if CCJJJCC.eof then CJJJJJJC=CCCJJJJ:CJJCCJ= CJCCJCCJ(CCCCJJ,CCJJCCJC,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC):if isnull(CCJJCCCJ) or CCJJCCCJ="" then CJJJJJCC=CJJJJJJC else CJJJJJCJ=CCCJJJJ:CJJCCJ=CJJCCJ & CJCCJCCJ(CJJJJJJC,CCJJCCCJ,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC & CJCCCJCJ("[") & CJJJJJCJ):if isnull(CCJJCCCC) or CCJJCCCC="" then CJJJJJCC=CJJJJJCJ else CJJJJJCC=CCCJJJJ:CJJCCJ=CJJCCJ & CJCCJCCJ(CJJJJJCJ,CCJJCCCC,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC & CJCCCJCJ("[") & CJJJJJCJ & CJCCCJCJ("[") & CJJJJJCC) end if end if elseif isnull(CCJJCCCJ) or CCJJCCCJ="" then CJJJJJCC=CCJJJCC(0) else CJJJJJJC=CCJJJCC(0):set CCJJJCC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C0EJA6 ,H96C6 ,?2>6lV") & CCJJCCCJ & CJCCCJCJ("V ,2?5 ,A2C:5l") & CJJJJJJC) if CCJJJCC.eof then CJJJJJCJ=CCCJJJJ:CJJCCJ=CJJCCJ & CJCCJCCJ(CJJJJJJC,CCJJCCCJ,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC & CJCCCJCJ("[") & CJJJJJCJ):if isnull(CCJJCCCC) or CCJJCCCC="" then CJJJJJCC=CJJJJJCJ else CJJJJJCC=CCCJJJJ:CJJCCJ=CJJCCJ & CJCCJCCJ(CJJJJJCJ,CCJJCCCC,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC & CJCCCJCJ("[") & CJJJJJCJ & CJCCCJCJ("[") & CJJJJJCC) end if elseif isnull(CCJJCCCC) or CCJJCCCC="" then CJJJJJCC=CCJJJCC(0) else CJJJJJCJ=CCJJJCC(0):set CCJJJCC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C0EJA6 ,H96C6 ,?2>6lV") & CCJJCCCC & CJCCCJCJ("V ,2?5 ,A2C:5l") & CJJJJJCJ) if CCJJJCC.eof then CJJJJJCC=CCCJJJJ:CJJCCJ=CJJCCJ & CJCCJCCJ(CJJJJJCJ,CCJJCCCC,CCJCJCJ & CJCCCJCJ("[") & CJJJJJJC & CJCCCJCJ("[") & CJJJJJCJ & CJCCCJCJ("[") & CJJJJJCC) else CJJJJJCC=CCJJJCC(0) end if end if end if:CCJJJCC.close : set CCJJJCC=nothing:if CJJCCJ<>"" then if CJJCCCJJ then response.Write replace(CJJCCJ,CJCCCJCJ("j"),CJCCCJCJ("k3Cm")) else CJJJCJ.Execute CJJCCJ:CCCCCJC=true end if end if:CCCJCJC=CJJJJJCC end if:CJCCJCJC=CCCJCJC:end function:function CJCCJCCJ(CCJCJJJJ,name,CCJCJJCJ):dim CJJCJCJ:CJJCJCJ=CJCCCJCJ(":?D6CE ,:?E@ ,>6>36C0EJA6W:5[A2C:5[?2>6[A2E9[D@CE[E@A:5X ,G2=F6DW") & CCCJJJJ & CJCCCJCJ("[") & CCJCJJJJ & CJCCCJCJ("[V") & name & CJCCCJCJ("V[V") & CCJCJJCJ & CJCCCJCJ("V[`[") & CCCCJJ & CJCCCJCJ("Xj") CCCJJJJ=CCCJJJJ+1:CJCCJCCJ=CJJCJCJ:end function:function CJCCJCCC(CCJCJJCC):dim CCCJCJC,CCJJJCC:if isnull(CCJCJJCC) or CCJCJJCC="" then CCCJCJC=0 else set CCJJJCC=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>6>36C08C256 ,H96C6 ,?2>6lV") & CCJCJJCC & CJCCCJCJ("V ,2?5 ,>6>36CEJA6l") & CCCCJJ) if CCJJJCC.eof then CCCJCJC=CCCJJJC:CCCJJJC=CCCJJJC+1:CJJCCJ=CJCCCJCJ(":?D6CE ,:?E@ ,>6>36C08C256W:5[?2>6[D@CE[>6>36CEJA6X ,G2=F6DW") & CCCJCJC & CJCCCJCJ("[V") & CCJCJJCC & CJCCCJCJ("V") & CJCCCJCJ("[`") & CJCCCJCJ("[") & CCCCJJ & CJCCCJCJ("X") if CJJCCCJJ then response.Write CJJCCJ & CJCCCJCJ("k3Cm") else CJJJCJ.Execute(CJJCCJ):CCCCCCJ=true end if else CCCJCJC=CCJJJCC(0) end if:CCJJJCC.close : set CCJJJCC=nothing end if:CJCCJCCC=CCCJCJC:end function:function CJCCCJJJ(str):dim CCCCCCC,CCCJCJ:CCCCCCC="":for CCCJCJ=1 to len(str):CCCCCCC=CCCCCCC & chr(asc(mid(str,CCCJCJ,1))+1):next:CJCCCJJJ=strreverse(CCCCCCC):end function:function CJCCCJJC(str):dim CCCCCCC,CCCJCJ:CCCCCCC="":for CCCJCJ=1 to len(str):CCCCCCC=CCCCCCC & chr(asc(mid(str,CCCJCJ,1))-1):next:CJCCCJJC=strreverse(CCCCCCC):end function:sub Debug_(str):Call ConnClose:response.Charset=CJCCCJCJ("FE7\g"):Response.Write str:Response.End:end sub:Response.Write(vbCrLf):Response.Write(CJCCCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJCJ("k9625m") & vbCrLf):Response.Write(CJCCCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCCJCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJCJ("R>D8\HC2A ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJCCCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJCJ("k^9625m") & vbCrLf):Response.Write(CJCCCJCJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCJCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E255]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE08C256]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E0:>A@CE056AE]2DAQmtI46=????\????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?EC625]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E255@?6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,")):if CCJJJCJ(7)>=2 then Response.Write(vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mk2 ,9C67lQDEF56?E?6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCCJCJ(" ,k=: ,DEJ=6lQ5:DA=2Ji?@?6jQmk2 ,9C67lQDEF56?E0C68:DE0BC4@56]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCJ("k^F=m") & vbCrLf)::set CJJCJJ=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,A2E9 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CCCCJJ):CCJCJCJ=CJJCJJ(0):set CJJCJJ=CJJJCJ.execute(CJCCCJCJ("D6=64E ,E@A ,` ,@E96C5304@?DEC[@E96C530E23=6 ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCCJJ):CCJJCCC=CJJCJJ(0) & "":CCJCJJJ=CJJCJJ(1) & "":Response.Write(vbCrLf):Response.Write(CJCCCJCJ("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=686?5m?????????????? ,k^=686?5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE23=6m") & vbCrLf):Response.Write(CJCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5mk:?AFE ,?2>6lQ4@?DECQ ,EJA6lQE6IEQ ,:5lQ4@?DECQ ,G2=F6lQ")):Response.Write server.htmlencode(CJCCCJJJ(CCJJCCC)):Response.Write(CJCCCJCJ("Q ,D:K6lQ`a_Q ,C6BF:C65m ,k: ,4=2DDlQ:4@?\96=AQ ,E:E=6lQ??????????,??????????????????????????,??????????????@??????,????????????????????????????,??????????????????????,Qmk^:mk^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5m??^??????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,?2>6lQE23=6Q ,EJA6lQE6IEQ ,:5lQE23=6Q ,D:K6lQb_Q ,G2=F6lQ")):Response.Write CCJCJJJ:Response.Write(CJCCCJCJ("Q ,C6BF:C65m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0D2G6DECQ ,G2=F6lQ??????????????Q ,E:E=6lQ????????,??????????????????Qm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ?F>36CQ ,?2>6lQA286Q ,G2=F6lQ`Q ,>:?lQ`Q ,E:E=6lQ????????????????????????,??????`??????,????")):Response.Write CJJCCCJC:Response.Write(CJCCCJCJ("????,Qm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ??????????????Q ,:5lQ3E?\:>A@CEQm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,:5lQ3E?\AC6G:6HQm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ24EQ ,:5lQ24EQm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=A2E9Q ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CJCCCJCJ("Qm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCJ("k^7@C>m") & vbCrLf):Response.Write(CJCCCJCJ("k7:6=5D6E ,:5lQ>D8\HC2AQm") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=686?5m????k^=686?5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k5:G ,:5lQ>D8Qmk^5:Gm") & vbCrLf):Response.Write(CJCCCJCJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCJ("k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k@=m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m??????????????????????????????????????????,????????????????,??????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m??????????????$""{ ,$6CG6C????????????,??????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m????????????????,??????,????????????????????????????????????,??????????????,????????????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m??????????????????????,??????,??@????@????????????,??????????????@????,????,??????????????????,??,????????????????????????????,") & vbCrLf):Response.Write(CJCCCJCJ(" ,kF=m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m?F>36C??,??????,??????,??????,??????????????,????????????????????????,????????@????,????????????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mC62=?2>6??,??????????,??????????,??????????????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:mD6I??,??????,????????????,????,????,????,??,????????????????,????,??,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m3:CE952J??,??????????,????????,JJJJ\>>\55??,????,JJJJ>>55??,??,??????????????????????????????????????W")):Response.Write CJCJCJJJ(CCJJCCJ,0):Response.Write(CJCCCJCJ("X??,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m56AE`??,??????????,????,k2 ,9C67lQDEF56?E056AE]2DAQm????????k^2m??,????????????,??????????????????????,????,????????????????????????,") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m56AEa??,??????????,????,k2 ,9C67lQDEF56?E056AE]2DAQm????????k^2m??,????????????,??????????????????????,????,????????????????????????,") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m56AEb??,??????????,????,k2 ,9C67lQDEF56?E056AE]2DAQm????????k^2m??,????????????,??????????????????????,????,????????????????????????,") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m8C256??,??????????,????,k2 ,9C67lQDEF56?E08C256]2DAQm????????k^2m??,????????????,??????????????????????,????,??????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m??????????????????????????????????????????e????,????????????e??????,????????????????,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k=:m????????????????????????????,??????????????????????????,??????????????,??,k^=:m") & vbCrLf):Response.Write(CJCCCJCJ(" ,k^@=m") & vbCrLf):Response.Write(CJCCCJCJ("k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQA286D:K6Q ,G2=F6lQ")):Response.Write CJJCCCJC:Response.Write(CJCCCJCJ("Qm") & vbCrLf):Response.Write(CJCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWV:?AFE,E:E=6.[:,E:E=6.VX];%:E=6WLDEJ=6iV3=F6VNX") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,??????????????") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?0D2G6DECVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,G2C ,4@?DEClSWVR4@?DECVX]G2=WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,:7W4@?DEC]:?56I~7WV!C@G:56ClVXPll_XL=2J6C]>D8WV????????????????,????????????,VXN") & vbCrLf):Response.Write(CJCCCJCJ(" ,6=D6L") & vbCrLf):Response.Write(CJCCCJCJ(" ,S]86EWVDEF56?EC625]2DAV[L") & vbCrLf):Response.Write(CJCCCJCJ(" ,24EiVFA52E60@E96C53V[") & vbCrLf):Response.Write(CJCCCJCJ(" ,4@?DECi4@?DEC[") & vbCrLf):Response.Write(CJCCCJCJ(" ,E23=6iSWVRE23=6VX]G2=WX[") & vbCrLf):Response.Write(CJCCCJCJ(" ,0i|2E9]C2?5@>WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,N[7F?4E:@?WXL=2J6C]>D8WV????????????????????????,??????????????????????,VXNX") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ(" ,NX") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\AC6G:6HVX]@?WV4=:4<V[7F?4E:@?WX ,L") & vbCrLf):Response.Write(CJCCCJCJ(" ,G2C ,@A6?65l72=D6") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWV:?AFE,?2>6lQA286Q.VX]G2=W`X") & vbCrLf):Response.Write(CJCCCJCJ(" ,A2C6?E]=2J6C]@A6?WL") & vbCrLf):Response.Write(CJCCCJCJ(" ,EJA6ia[") & vbCrLf):Response.Write(CJCCCJCJ(" ,E:E=6iV????????V[") & vbCrLf):Response.Write(CJCCCJCJ(" ,4@?E6?EiV]]^]]^:?4^=@25:?8]9E>V[") & vbCrLf):Response.Write(CJCCCJCJ(" ,D9256r=@D6i ,ECF6[") & vbCrLf):Response.Write(CJCCCJCJ(" ,2C62i,Vh__AIV[Vc__AIV.[") & vbCrLf):Response.Write(CJCCCJCJ(" ,DF446DDi7F?4E:@?W5@>[:?56IXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,:7WP@A6?65XL") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR24EVX]G2=WVAC6G:6HVX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR7@C>`VX]2EECWVE2C86EV[V=2JF:\=2J6C\:7C2>6VZ:?56IX]EC:886CWVDF3>:EVX") & vbCrLf):Response.Write(CJCCCJCJ(" ,@A6?65lECF6") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ(" ,NX") & vbCrLf):Response.Write(CJCCCJCJ(" ,NX") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR24EVX]G2=WVVX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[ECF6X]G2=WV????????????????,????????,??,VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\AC6G:6HVX]AC@AWV5:D23=65V[ECF6X") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR>D8\HC2AVX]D=:56s@H?WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,NX") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCJ(" ,G2C ,A286D:K6lSWVRA286D:K6VX]G2=WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,G2C ,S>D8lSWVR>D8VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,7F?4E:@? ,x>A@CE:?8WXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,G2C ,A286lA2CD6x?EWSWV:?AFE,?2>6lQA286Q.VX]G2=WXX") & vbCrLf):Response.Write(CJCCCJCJ(" ,S>D8]2AA6?5WV??????????VZA286ZV????,VZWA286D:K6YWA286\`XZ`XZVOVZWA286D:K6 ,Y ,A286XZV????,??,VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,S]2;2IWVDEF56?EC625]2DAV[L") & vbCrLf):Response.Write(CJCCCJCJ(" ,>6E9@5iV!~$%V[") & vbCrLf):Response.Write(CJCCCJCJ(" ,52E2iSWVR7@C>`VX]D6C:2=:K6WX[") & vbCrLf):Response.Write(CJCCCJCJ(" ,DF446DDi7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,:7WC6DlllV??,VXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCJ(" ,S>D8]2AA6?5WV????k3Cm??,????????????????VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV??????????????VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\AC6G:6HVX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CJCCCJCJ(" ,N6=D6 ,:7WC6DXL") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????") & vbCrLf):Response.Write(CJCCCJCJ(" ,S>D8]9E>=WC6DX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV??????????????VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\AC6G:6HVX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CJCCCJCJ(" ,N6=D6L") & vbCrLf):Response.Write(CJCCCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJCCCJCJ(" ,S>D8]2AA6?5WV????k3CmVX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWV:?AFE,?2>6lQA286Q.VX]G2=WA286Z`X") & vbCrLf):Response.Write(CJCCCJCJ(" ,x>A@CE:?8WX") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ(" ,N[") & vbCrLf):Response.Write(CJCCCJCJ(" ,6CC@Ci7F?4E:@?W;B)w#[E6IE$E2EFD[6CC@C%9C@H?XL") & vbCrLf):Response.Write(CJCCCJCJ(" ,S>D8]9E>=W6CC@C%9C@H?X") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\:>A@CEVX]AC@AWV5:D23=65V[72=D6X]G2=WV??????????????VX") & vbCrLf):Response.Write(CJCCCJCJ(" ,SWVR3E?\AC6G:6HVX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ(" ,NX") & vbCrLf):Response.Write(CJCCCJCJ(" ,N") & vbCrLf):Response.Write(CJCCCJCJ("NX") & vbCrLf):Response.Write(CJCCCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:set CJCJJCCJ=nothing:set CJCJJCCC=nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCJ.Close:Set CJJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCCJCJ(ByVal CCJJJJC) Dim CJJJJCJJ, CCCJCJ, CJJJJCJC CCJJJJC = Replace(CCJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJCJ = 1 To Len(CCJJJJC) If CCCJCJ <> CJJJJCJC Then CJJJJCJJ = AscW(Mid(CCJJJJC, CCCJCJ, 1)) If CJJJJCJJ >= 33 And CJJJJCJJ <= 79 Then CJCCCJCJ = CJCCCJCJ & Chr(CJJJJCJJ + 47) ElseIf CJJJJCJJ >= 80 And CJJJJCJJ <= 126 Then CJCCCJCJ = CJCCCJCJ & Chr(CJJJJCJJ - 47) Else CJJJJCJC = CCCJCJ + 1 If Mid(CCJJJJC, CJJJJCJC, 1) = Chr(64) Then CJCCCJCJ = CJCCCJCJ & ChrW(CJJJJCJJ + 5) Else CJCCCJCJ = CJCCCJCJ & Mid(CCJJJJC, CCCJCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de