Edit D:\xinhaisoft\crisis_new\school\admin\welcome

Edit D:\xinhaisoft\crisis_new\school\admin\welcome_old.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJC, CCJCCJ,CCJCCC, CCCJJJ, CCCJJC:Set CCJCJC = server.CreateObject(CJCCCCJJ("ps~sq]r@??64E:@?")):CCJCJC.open Application(CJCCCCJJ("r@??64E:@?$EC:?8")):Set CCJCCJ=CCJCJC::Dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ:CJJCCJJ=Trim(Request.Cookies(CJCCCCJJ("!$*|t|qt#"))):if CJJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCJ>0 then
CCCJJC=CJCCCCJJ("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") & CCCJCC & CJCCCCJJ("V ,2?5 ,:5l") & CCCJCJ
set CCJCCC=CCJCJC.execute(CCCJJC):If CCJCCC.EOF Then
Call ClearMemberCookie
Else
CCCCJJ=CCJCCC(2) & "":CCCCJC=CCJCCC(3):CCCCCJ=CCJCCC(5):CCCCCC=CCJCCC(6):CJJJJJJ=CCJCCC(9):CJJJJJC=CCJCCC(15):CJJJJCC=CCJCCC(0):CJJCJCJ=CCJCCC(1):CJJCJJC=CCJCCC(11) & "":CJJJCJJ=CCJCCC(10) & "":CJJJJCJ=CCJCCC(12):CJJJCJC=CCJCCC(14):CJJJCCJ=CCJCCC(13):CJJJCCC=CCJCCC(7) & "":CJJCJJJ=CCJCCC(4):CJJCJCC=CCJCCC(8):if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CJJJJJJ) or CJJJJJJ=0 then CJJJJJJ=CCCCJC
if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CCCCCJ) then CCCCCJ=0
if instr(CJCCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCC)>0 then Call RedirectMessage(CJCCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJCJ,CCCJCC)
End IF
end if:::Sub CheckLogined():if CCCJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJC:CJJCCJC=trim(request.QueryString(CJCCCCJJ("D49@@="))):if isnumeric(CJJCCJC) then
response.Redirect CJCCCCJJ("^>^G2?E^R^D49@@=^") & CJJCCJC & CJCCCCJJ("^DEF56?E^=@8:?nC65:C64El") & CJCJCCC
else
Call RedirectMessage(CJCCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCCJJ("!$*|t|qt#"))="":CCCJCJ=0:CCCCCC=0:CCCJCC=Empty:CCCCCJ=0:CJJJJJC=0:CJJJJJJ=0:CCCCJC=0:CJJJJCC=False:CJJCJCJ=False:CJJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:CJJCCCJ=split(CJJCCJJ,CJCCCCJJ("]")):if ubound(CJJCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCCJ(0)) or len(CJJCCCJ(1))<>32 or len(CJJCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCCC=CJJCCCJ(1):for CJCJJJJ=1 to len(CJJCCCC):CJCJJJC=mid(CJJCCCC,CJCJJJJ,1):if isnumeric(CJCJJJC) then CJCJJCJ=CJCJJCJ & CJCJJJC
if len(CJCJJCJ)=7 then exit for
next:CJJCCCC=CJJCCCJ(2):if CJCJJCJ<>mid(CJJCCCC,6,7) then
Call ClearMemberCookie
else
CJCJJJC=mid(CJJCCCC,18,10)/2:if CJCJJJC<DateDiff(CJCCCCJJ("D"), CJCCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCJ=Clng(CJJCCCJ(0)):CCCJCC=CJJCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCCC,CJCCCCJC):dim CJCJJJJ,CJCJJJC,CJCJJCJ:for CJCJJJJ=1 to len(CJCCCCJC):CJCJJJC=mid(CJCCCCJC,CJCJJJJ,1):if isnumeric(CJCJJJC) then CJCJJCJ=CJCJJCJ & CJCJJJC
if len(CJCJJCJ)=7 then exit for
next:CJCJJCJ=CJCJCCCC & CJCCCCJJ("]") & CJCCCCJC & CJCCCCJJ("]") & Fix(10000*(Rnd+1)) & CJCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCJJ("D"), CJCCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCJJ("!$*|t|qt#"))=CJCJJCJ:End Sub::Function CJJCCCCJ(CJCCCCCJ):Dim str,CJCJCJJ:str = Trim(CJCCCCCJ):If IsNull(str) Or str = "" Then
CJJCCCCJ = ""
else
str=Replace(str, CJCCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCCJJ("k:7C2>6"), CJCCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCCJJ("kD4C:AE"), CJCCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJCJJ=new RegExp:CJCJCJJ.Pattern=CJCCCCJJ("@?W,2\K.ZXl"):CJCJCJJ.IgnoreCase = True:CJCJCJJ.Global=True:str=CJCJCJJ.Replace(str,CJCCCCJJ("@?S`U6BF2=Dj")):set CJCJCJJ=nothing:CJJCCCCJ=str
End If:End Function:Function IIf(CJCCCCCC, CCJJJJJJ, CCJJJJJC):if isnull(CJCCCCCC) or isempty(CJCCCCCC) then
IIf = CCJJJJJC
elseif CJCCCCCC Then
IIf = CCJJJJJJ
Else
IIf = CCJJJJJC
end if:End Function:Const CJJJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJCJJJJ,CJCJJJC,CJCJCJC:if isarray(str) then
on error resume next:CJCJJJJ=ubound(str,2):CJCJCJC=err.number:err.clear:on error goto 0:if CJCJCJC<>0 then
for CJCJJJJ=0 to ubound(str):if CJCJJJJ>0 then response.Write CJCCCCJJ("k3C ,^m")
response.Write CJCJJJJ & CJCCCCJJ("i ,") & str(CJCJJJJ):next
else
response.Write CJCCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJJ=0 to ubound(str,2):response.Write CJCCCCJJ("kE9 ,2=:8?lV=67EVm") & CJCJJJJ & CJCCCCJJ("k^E9m")
next:response.Write CJCCCCJJ("k^ECm"):for CJCJJJJ=0 to ubound(str):response.Write CJCCCCJJ("kECmkE9m") & CJCJJJJ & CJCCCCJJ("k^E9m"):for CJCJJJC=0 to ubound(str,2):response.Write CJCCCCJJ("kE5m") & str(CJCJJJJ,CJCJJJC) & CJCCCCJJ("k^E5m"):next:response.Write CJCCCCJJ("k^ECm"):next:response.Write CJCCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCJJJJJ():Dim CJCJCCJ, CJCJCCC:CJCJCCC = Request.ServerVariables(CJCCCCJJ("!p%w0x}u~")):CJCJCCJ = Request.ServerVariables(CJCCCCJJ("""&t#*0$%#x}v")):If CJCJCCJ <> Empty Then
if instr(lcase(CJCJCCJ),CJCCCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCJCCJ),CJCCCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCCJJ("????????,????????????????????????,??,??,"))
CJCJCCC = CJCJCCC & CJCCCCJJ("n") & CJCJCCJ
end if:CJCJJJJJ = CJCJCCC:End Function:Sub SetHttpOnlyCookie(CCJJJJCJ,CCJJJJCC):dim CJJCCCJ:CJJCCCJ=CCJJJJCJ & CJCCCCJJ("l") & CCJJJJCC & CJCCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCJJ("$6E\r@@<:6"),CJJCCCJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJCCCCJJ("!$*"))(CJCCCCJJ("&#{")) = CJCJJJJJ:End Sub::::::Function CJCJJJJC(CJCJCJC):if isnull(CJCJCJC) or trim(CJCJCJC)="" or not isnumeric(CJCJCJC) then
CJCJJJJC=false
else
Dim CJCJCJJ:Set CJCJCJJ = New RegExp:CJCJCJJ.Pattern = CJCCCCJJ("/-5ZS"):CJCJCJJ.IgnoreCase = True:CJCJJJJC = CJCJCJJ.test(CJCJCJC):set CJCJCJJ=nothing
end if:End Function:Function CJCJJJCJ(CCJJJCJJ):dim CJCCJJJ,CJCCJJC:CJCCJJJ=CJCCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJCJJ & CJCCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJC=CCJCJC.execute(CJCCJJJ):CJCJJJCJ = CJCCJJC(0):if isnull(CJCJJJCJ) then CJCJJJCJ=1
CJCCJJC.close : set CJCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CJCJJJCC=nothing:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CCJCCC.Close : Set CCJCCC=Nothing:CJCJJCCJ.Close : Set CJCJJCCJ = Nothing:CCJCJC.Close : Set CCJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJJCJC)):Response.Redirect CJCCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJCCC(ByVal CJCJCJJJ,style):if not isdate(CJCJCJJJ) then
CJCJJCCC=CJCJCJJJ:exit function
end if:dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCJCJJJ=cdate(CJCJCJJJ):CJCCJCJ=Year(CJCJCJJJ):CJCCJCC=Month(CJCJCJJJ):CJCCCJJ=Day(CJCJCJJJ):select case style:case 0:CJCJJCCC=CJCCJCJ & CJCCCCJJ("\") & right(0 & CJCCJCC,2) & CJCCCCJJ("\") & right(0 & CJCCCJJ,2):case 1:CJCJJCCC=CJCCJCJ & right(0 & CJCCJCC,2) & right(0 & CJCCCJJ,2):case 2:CJCJJCCC=right(CJCCJCJ,2) & CJCCCCJJ("\") & right(0 & CJCCJCC,2) & CJCCCCJJ("\") & right(0 & CJCCCJJ,2):case 3:CJCJJCCC=CJCCJCJ & CJCCCCJJ("\") & right(0 & CJCCJCC,2):case 4:CJCJJCCC=right(0 & CJCCJCC,2) & CJCCCCJJ("\") & right(0 & CJCCCJJ,2):case 5:CJCJJCCC=right(0 & CJCCCJJ,2):case 6:CJCJJCCC=CJCCJCJ & CJCCCCJJ("??") & right(0 & CJCCJCC,2) & CJCCCCJJ("??") & right(0 & CJCCCJJ,2) & CJCCCCJJ("??"):case else
CJCJJCCC=CJCJCJJJ:end select:End Function::::::::::::::::::::Sub ClearCache(CCJJJCCJ):Application.Contents.Remove CCJJJCCJ
End Sub::Class jTree:Private CCCJJC, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CCJJJCCC):if CCJJJCCC="" then Call RedirectMessage(CJCCCCJJ("????????,;%C66????????????????????@??????????,"))
CCJJJJC=CCJJJCCC:CCJJJCJ=CJCCCCJJ("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property:::Private Sub GetTreeArray():Dim CJCJJJJ, CJCJJJC, CCJJCJC,CCJJCCJ:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then
CCCJJC = CJCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then CCCJJC=CCCJJC & CJCCCCJJ(" ,H96C6 ,") & CCJJJCC
set CCJJCJC=CCJCJC.execute(CCCJJC):CCJJCCJ=CCJJCJC(0):if CCJJCCJ=0 then Call RedirectMessage(CJCCCCJJ("????W") & CCJJJJC & CJCCCCJJ("^") & CCJJJCC & CJCCCCJJ("X????????????"))
CCJJJJJ=CCJJCCJ+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):CCCJJC = CJCCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCCCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCC<>"" then CCCJJC=CCCJJC & CJCCCCJJ(" ,H96C6 ,") & CCJJJCC
CCCJJC=CCCJJC & CJCCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CCJCJC.execute(CCCJJC):For CJCJJJJ = 1 To CCJJCCJ:For CJCJJJC = 0 To 4:CJCCCCJ(CJCJJJJ, CJCJJJC) = CCJJCJC(CJCJJJC):if IsNull(CJCCCCJ(CJCJJJJ,4)) then CJCCCCJ(CJCJJJJ,4)=0
If CJCCCCJ(CJCJJJJ,2)="" then CJCCCCJ(CJCJJJJ,2)=CJCCCCJJ(",??.")
Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CJCJJJJ=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CJCJJJJ,0)=CJCJJJJ:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
else
CCJJJJJ=Ubound(CJCCCCJ)
End If:End Sub:::::Private Function CJCJCJCJ(CJCJCCCC):dim CJCJJJJ,CCJJCCC:CJCJCJCJ=0:CCJJCCC=CStr(CJCJCCCC):if CCJJCCC<>"0" then
for CJCJJJJ=1 to CCJJJJJ:If CStr(CJCCCCJ(CJCJJJJ, 0))=CCJJCCC Then
CJCJCJCJ = CJCJJJJ:Exit For
End If:Next
end if:End Function::::Public Function CJCJCJCC(CJCJCCCC):Dim CJCJJJJ,CCJCJJJ:CJCJJJJ=CJCJCJCJ(CJCJCCCC):if CJCJJJJ=0 then
CCJCJJJ=CJCJCCJJ(CJCJCCCC)
else
CCJCJJJ=CJCCCCJ(CJCJJJJ,3):if isnull(CCJCJJJ) or CCJCJJJ="" then
CCJCJJJ=CJCJCCJJ(CJCJCCCC)
elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CJCCCCJJ("["))+1)<>CStr(CJCJCCCC) then
CCJCJJJ=CJCJCCJJ(CJCJCCCC)
elseif Left(CCJCJJJ,1)=CJCCCCJJ("[") then
CCJCJJJ=CJCJCCJJ(CJCJCCCC)
end if
end if:CJCJCJCC=CCJCJJJ:End Function:Private Function CJCJCCJJ(CJCJCCCC):dim CCJJCCC:CCJJCCC=CStr(CJCJCCCC):if CCJJCCC="0" then
CJCJCCJJ=""
else
dim CCJJCJC:set CCJJCJC=CCJCJC.execute(CJCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJCCCCJJ(" ,H96C6 ,:5l") & CJCJCCCC):if CCJJCJC.eof then
Call UpdateCache(CJCJCCCC,"","","",""):Call RedirectMessage(CJCCCCJJ("??????,xs??,") & CJCJCCCC & CJCCCCJJ("??,????????,????????????????????,"))
else
if CCJJCJC(0)=0 then
CJCJCCJJ="0," & CJCJCCCC
else
CJCJCCJJ=CJCJCJCC(CCJJCJC(0)) & CJCCCCJJ("[") & CJCJCCCC
end if:if CCJJCJC(2)<>CJCJCCJJ then
CCJCJC.execute CJCCCCJJ("FA52E6 ,") & CCJJJJC & CJCCCCJJ(" ,D6E ,A2E9lV") & CJCJCCJJ & CJCCCCJJ("V ,H96C6 ,:5l") & CJCJCCCC
else
CJCJCCJJ=CCJJCJC(2)
end if
end if:Call UpdateCache(CJCJCCCC,CCJJCJC(0),CCJJCJC(1),CJCJCCJJ,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if:End Function::::Public Function IsParent(CCJJCJJJ, CCJJCJJC):IsParent=InStr(CJCJCJCC(CCJJCJJC) & CJCCCCJJ("["), CJCCCCJJ("[") & CCJJCJJJ & CJCCCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJCJCCCC):dim CCJCJJJ:CCJCJJJ=CJCJCJCC(CJCJCCCC):Sql_GetChildren = CCJJJJC & CJCCCCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJJJ & CJCCCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ
End Sub:Public Sub UpdateCache(CJCJCCCC,CCJJCJCJ,CCJJCJCC,CCJCJJJ,CCJJCCJJ):dim CJCJJJJ,CJCJJJC:CJCJCCCC=CLng(CJCJCCCC):CJCJJJJ=CJCJCJCJ(CJCJCCCC):if CCJJCJCJ="" and CCJJCJCC="" and CCJCJJJ="" and CCJJCCJJ="" then
if CJCJJJJ>0 then
for CJCJJJC=1 to 4:CJCCCCJ(CJCJJJJ,CJCJJJC)=Null:next
end if
else
if CJCJJJJ=0 then
for CJCJJJC=1 to CCJJJJJ:if CJCCCCJ(CJCJJJC,1) & ""="" then
CJCJJJJ=CJCJJJC:exit for
end if:next
end if:if CJCJJJJ=0 then
Call ClearCache
else
CJCCCCJ(CJCJJJJ,0)=CLng(CJCJCCCC):if CCJJCJCJ<>"" then CJCCCCJ(CJCJJJJ,1)=CLng(CCJJCJCJ)
if CCJJCJCC<>"" then CJCCCCJ(CJCJJJJ,2)=CCJJCJCC
if CCJCJJJ<>"" then CJCCCCJ(CJCJJJJ,3)=CCJCJJJ
if CCJJCCJJ<>"" then CJCCCCJ(CJCJJJJ,4)=CLng(CCJJCCJJ)
end if
end if:if CJCJJJJ>0 then
Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJJCJC):Call ConnClose:Response.Write CCJJJCJC:Response.End:End Sub:Private Function CJCJJJCJ():CJCJJJCJ=CJCCJJJJ+1:End Function:Private Function CJCCJJJJ():dim CJCCJJC:set CJCCJJC=CCJCJC.execute(CJCCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CJCCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJJJJ=CJCCJJC(0):CJCCJJC.Close: Set CJCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJJJCJJC =8:Private Const CJJJCJCJ =4:Private Const CJJJCJCC =32:Private CCJCJJC(30):Private CCJCJCJ(30):Private Function CJCCJJJC(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then
CJCCJJJC = CCJJCCJC:Exit Function
ElseIf CCJJCCCJ = 31 Then
If CCJJCCJC And 1 Then
CJCCJJJC = &H80000000
Else
CJCCJJJC = 0
End If:Exit Function
ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then
Err.Raise 6
End If:If (CCJJCCJC And CCJCJCJ(31 - CCJJCCCJ)) Then
CJCCJJJC = ((CCJJCCJC And CCJCJJC(31 - (CCJJCCCJ + 1))) * CCJCJCJ(CCJJCCCJ)) Or &H80000000
Else
CJCCJJJC = ((CCJJCCJC And CCJCJJC(31 - CCJJCCCJ)) * CCJCJCJ(CCJJCCCJ))
End If:End Function:Private Function CJCCJJCJ(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then
CJCCJJCJ = CCJJCCJC:Exit Function
ElseIf CCJJCCCJ = 31 Then
If CCJJCCJC And &H80000000 Then
CJCCJJCJ = 1
Else
CJCCJJCJ = 0
End If:Exit Function
ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then
Err.Raise 6
End If:CJCCJJCJ = (CCJJCCJC And &H7FFFFFFE) \ CCJCJCJ(CCJJCCCJ):If (CCJJCCJC And &H80000000) Then
CJCCJJCJ = (CJCCJJCJ Or (&H40000000 \ CCJCJCJ(CCJJCCCJ - 1)))
End If:End Function:Private Function CJCCJJCC(CCJJCCJC, CCJJCCCJ):CJCCJJCC = CJCCJJJC(CCJJCCJC, CCJJCCCJ) Or CJCCJJCJ(CCJJCCJC, (32 - CCJJCCCJ)):End Function:Private Function CJCCJCJJ(CCJJCCCC, CCJCJJJJ):Dim CCJCJCC:Dim CCJCCJJ:Dim CCJCCJC:Dim CCJCCCJ:Dim CCJCCCC:CCJCCJC = CCJJCCCC And &H80000000:CCJCCCJ = CCJCJJJJ And &H80000000:CCJCJCC = CCJJCCCC And &H40000000:CCJCCJJ = CCJCJJJJ And &H40000000:CCJCCCC = (CCJJCCCC And &H3FFFFFFF) + (CCJCJJJJ And &H3FFFFFFF):If CCJCJCC And CCJCCJJ Then
CCJCCCC = CCJCCCC Xor &H80000000 Xor CCJCCJC Xor CCJCCCJ
ElseIf CCJCJCC Or CCJCCJJ Then
If CCJCCCC And &H40000000 Then
CCJCCCC = CCJCCCC Xor &HC0000000 Xor CCJCCJC Xor CCJCCCJ
Else
CCJCCCC = CCJCCCC Xor &H40000000 Xor CCJCCJC Xor CCJCCCJ
End If
Else
CCJCCCC = CCJCCCC Xor CCJCCJC Xor CCJCCCJ
End If:CJCCJCJJ = CCJCCCC:End Function:Private Function CJCCJCJC(CCCCJJJ, CJCCJCJ, CCJCJJJC):CJCCJCJC = (CCCCJJJ And CJCCJCJ) Or ((Not CCCCJJJ) And CCJCJJJC):End Function:Private Function CJCCJCCJ(CCCCJJJ, CJCCJCJ, CCJCJJJC):CJCCJCCJ = (CCCCJJJ And CCJCJJJC) Or (CJCCJCJ And (Not CCJCJJJC)):End Function:Private Function CJCCJCCC(CCCCJJJ, CJCCJCJ, CCJCJJJC):CJCCJCCC = (CCCCJJJ Xor CJCCJCJ Xor CCJCJJJC):End Function:Private Function CJCCCJJJ(CCCCJJJ, CJCCJCJ, CCJCJJJC):CJCCCJJJ = (CJCCJCJ Xor (CCCCJJJ Or (Not CCJCJJJC))):End Function:Private Sub md5_FF(CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ, CCJCJJCJ, CCJCJJCC):CCCCCJC = CJCCJCJJ(CCCCCJC, CJCCJCJJ(CJCCJCJJ(CJCCJCJC(CCCCCCJ, CCCCCCC, CJCCCJJ), CCCCJJJ), CCJCJJCC)):CCCCCJC = CJCCJJCC(CCCCCJC, CCJCJJCJ):CCCCCJC = CJCCJCJJ(CCCCCJC, CCCCCCJ):End Sub:Private Sub md5_GG(CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ, CCJCJJCJ, CCJCJJCC):CCCCCJC = CJCCJCJJ(CCCCCJC, CJCCJCJJ(CJCCJCJJ(CJCCJCCJ(CCCCCCJ, CCCCCCC, CJCCCJJ), CCCCJJJ), CCJCJJCC)):CCCCCJC = CJCCJJCC(CCCCCJC, CCJCJJCJ):CCCCCJC = CJCCJCJJ(CCCCCJC, CCCCCCJ):End Sub:Private Sub md5_HH(CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ, CCJCJJCJ, CCJCJJCC):CCCCCJC = CJCCJCJJ(CCCCCJC, CJCCJCJJ(CJCCJCJJ(CJCCJCCC(CCCCCCJ, CCCCCCC, CJCCCJJ), CCCCJJJ), CCJCJJCC)):CCCCCJC = CJCCJJCC(CCCCCJC, CCJCJJCJ):CCCCCJC = CJCCJCJJ(CCCCCJC, CCCCCCJ):End Sub:Private Sub md5_II(CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ, CCJCJJCJ, CCJCJJCC):CCCCCJC = CJCCJCJJ(CCCCCJC, CJCCJCJJ(CJCCJCJJ(CJCCCJJJ(CCCCCCJ, CCCCCCC, CJCCCJJ), CCCCJJJ), CCJCJJCC)):CCCCCJC = CJCCJJCC(CCCCCJC, CCJCJJCJ):CCCCCJC = CJCCJCJJ(CCCCCJC, CCCCCCJ):End Sub:Private Function CJCCCJJC(CCJCJCJJ):Dim CCCJJJJ:Dim CCCJJJC:Dim CCCJJCJ():Dim CCCJJCC:Dim CCCJCJJ:Dim CCCJCJC:Const CJJJCCJJ =512:Const CJJJCCJC =448:CCCJJJJ = Len(CCJCJCJJ):CCCJJJC = (((CCCJJJJ + ((CJJJCCJJ - CJJJCCJC) \ CJJJCJJC)) \ (CJJJCCJJ \ CJJJCJJC)) + 1) * (CJJJCCJJ \ CJJJCJCC):ReDim CCCJJCJ(CCCJJJC - 1):CCCJJCC = 0:CCCJCJJ = 0:Do Until CCCJCJJ >= CCCJJJJ:CCCJCJC = CCCJCJJ \ CJJJCJCJ:CCCJJCC = (CCCJCJJ Mod CJJJCJCJ) * CJJJCJJC:CCCJJCJ(CCCJCJC) = CCCJJCJ(CCCJCJC) Or CJCCJJJC(Asc(Mid(CCJCJCJJ, CCCJCJJ + 1, 1)), CCCJJCC):CCCJCJJ = CCCJCJJ + 1:Loop:CCCJCJC = CCCJCJJ \ CJJJCJCJ:CCCJJCC = (CCCJCJJ Mod CJJJCJCJ) * CJJJCJJC:CCCJJCJ(CCCJCJC) = CCCJJCJ(CCCJCJC) Or CJCCJJJC(&H80, CCCJJCC):CCCJJCJ(CCCJJJC - 2) = CJCCJJJC(CCCJJJJ, 3):CCCJJCJ(CCCJJJC - 1) = CJCCJJCJ(CCCJJJJ, 29):CJCCCJJC = CCCJJCJ:End Function:Private Function CJCCCJCJ(CCJJCCJC):Dim CCCJCCJ:Dim CCCJCCC:For CCCJCCC = 0 To 3:CCCJCCJ = CJCCJJCJ(CCJJCCJC, CCCJCCC * CJJJCJJC) And CCJCJJC(CJJJCJJC - 1):CJCCCJCJ = CJCCCJCJ & Right("0" & Hex(CCCJCCJ), 2):Next:End Function:Public Function CJCCCJCC(CCJCJCJJ):CCJCJJC(0) = CLng(1):CCJCJJC(1) = CLng(3):CCJCJJC(2) = CLng(7):CCJCJJC(3) = CLng(15):CCJCJJC(4) = CLng(31):CCJCJJC(5) = CLng(63):CCJCJJC(6) = CLng(127):CCJCJJC(7) = CLng(255):CCJCJJC(8) = CLng(511):CCJCJJC(9) = CLng(1023):CCJCJJC(10) = CLng(2047):CCJCJJC(11) = CLng(4095):CCJCJJC(12) = CLng(8191):CCJCJJC(13) = CLng(16383):CCJCJJC(14) = CLng(32767):CCJCJJC(15) = CLng(65535):CCJCJJC(16) = CLng(131071):CCJCJJC(17) = CLng(262143):CCJCJJC(18) = CLng(524287):CCJCJJC(19) = CLng(1048575):CCJCJJC(20) = CLng(2097151):CCJCJJC(21) = CLng(4194303):CCJCJJC(22) = CLng(8388607):CCJCJJC(23) = CLng(16777215):CCJCJJC(24) = CLng(33554431):CCJCJJC(25) = CLng(67108863):CCJCJJC(26) = CLng(134217727):CCJCJJC(27) = CLng(268435455):CCJCJJC(28) = CLng(536870911):CCJCJJC(29) = CLng(1073741823):CCJCJJC(30) = CLng(2147483647):CCJCJCJ(0) = CLng(1):CCJCJCJ(1) = CLng(2):CCJCJCJ(2) = CLng(4):CCJCJCJ(3) = CLng(8):CCJCJCJ(4) = CLng(16):CCJCJCJ(5) = CLng(32):CCJCJCJ(6) = CLng(64):CCJCJCJ(7) = CLng(128):CCJCJCJ(8) = CLng(256):CCJCJCJ(9) = CLng(512):CCJCJCJ(10) = CLng(1024):CCJCJCJ(11) = CLng(2048):CCJCJCJ(12) = CLng(4096):CCJCJCJ(13) = CLng(8192):CCJCJCJ(14) = CLng(16384):CCJCJCJ(15) = CLng(32768):CCJCJCJ(16) = CLng(65536):CCJCJCJ(17) = CLng(131072):CCJCJCJ(18) = CLng(262144):CCJCJCJ(19) = CLng(524288):CCJCJCJ(20) = CLng(1048576):CCJCJCJ(21) = CLng(2097152):CCJCJCJ(22) = CLng(4194304):CCJCJCJ(23) = CLng(8388608):CCJCJCJ(24) = CLng(16777216):CCJCJCJ(25) = CLng(33554432):CCJCJCJ(26) = CLng(67108864):CCJCJCJ(27) = CLng(134217728):CCJCJCJ(28) = CLng(268435456):CCJCJCJ(29) = CLng(536870912):CCJCJCJ(30) = CLng(1073741824):Dim CCCCJJJ:Dim CJCJJCJ:Dim CCCCJJC:Dim CCCCJCJ:Dim CCCCJCC:Dim CCCCCJJ:Dim CCCCCJC:Dim CCCCCCJ:Dim CCCCCCC:Dim CJCCCJJ:Const CJJJCCCJ =7:Const CJJJCCCC =12:Const CJJCJJJJ =17:Const CJJCJJJC =22:Const CJJCJJCJ =5:Const CJJCJJCC =9:Const CJJCJCJJ =14:Const CJJCJCJC =20:Const CJJCJCCJ =4:Const CJJCJCCC =11:Const CJJCCJJJ =16:Const CJJCCJJC =23:Const CJJCCJCJ =6:Const CJJCCJCC =10:Const CJJCCCJJ =15:Const CJJCCCJC =21:CCCCJJJ = CJCCCJJC(CCJCJCJJ):CCCCCJC = &H67452301:CCCCCCJ = &HEFCDAB89:CCCCCCC = &H98BADCFE:CJCCCJJ = &H10325476:For CJCJJCJ = 0 To UBound(CCCCJJJ) Step 16:CCCCJJC = CCCCCJC:CCCCJCJ = CCCCCCJ:CCCCJCC = CCCCCCC:CCCCCJJ = CJCCCJJ:md5_FF CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 0), CJJJCCCJ, &HD76AA478:md5_FF CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 1), CJJJCCCC, &HE8C7B756:md5_FF CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 2), CJJCJJJJ, &H242070DB:md5_FF CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 3), CJJCJJJC, &HC1BDCEEE:md5_FF CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 4), CJJJCCCJ, &HF57C0FAF:md5_FF CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 5), CJJJCCCC, &H4787C62A:md5_FF CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 6), CJJCJJJJ, &HA8304613:md5_FF CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 7), CJJCJJJC, &HFD469501:md5_FF CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 8), CJJJCCCJ, &H698098D8:md5_FF CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 9), CJJJCCCC, &H8B44F7AF:md5_FF CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 10), CJJCJJJJ, &HFFFF5BB1:md5_FF CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 11), CJJCJJJC, &H895CD7BE:md5_FF CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 12), CJJJCCCJ, &H6B901122:md5_FF CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 13), CJJJCCCC, &HFD987193:md5_FF CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 14), CJJCJJJJ, &HA679438E:md5_FF CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 15), CJJCJJJC, &H49B40821:md5_GG CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 1), CJJCJJCJ, &HF61E2562:md5_GG CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 6), CJJCJJCC, &HC040B340:md5_GG CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 11), CJJCJCJJ, &H265E5A51:md5_GG CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 0), CJJCJCJC, &HE9B6C7AA:md5_GG CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 5), CJJCJJCJ, &HD62F105D:md5_GG CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 10), CJJCJJCC, &H2441453:md5_GG CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 15), CJJCJCJJ, &HD8A1E681:md5_GG CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 4), CJJCJCJC, &HE7D3FBC8:md5_GG CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 9), CJJCJJCJ, &H21E1CDE6:md5_GG CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 14), CJJCJJCC, &HC33707D6:md5_GG CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 3), CJJCJCJJ, &HF4D50D87:md5_GG CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 8), CJJCJCJC, &H455A14ED:md5_GG CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 13), CJJCJJCJ, &HA9E3E905:md5_GG CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 2), CJJCJJCC, &HFCEFA3F8:md5_GG CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 7), CJJCJCJJ, &H676F02D9:md5_GG CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 12), CJJCJCJC, &H8D2A4C8A:md5_HH CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 5), CJJCJCCJ, &HFFFA3942:md5_HH CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 8), CJJCJCCC, &H8771F681:md5_HH CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 11), CJJCCJJJ, &H6D9D6122:md5_HH CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 14), CJJCCJJC, &HFDE5380C:md5_HH CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 1), CJJCJCCJ, &HA4BEEA44:md5_HH CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 4), CJJCJCCC, &H4BDECFA9:md5_HH CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 7), CJJCCJJJ, &HF6BB4B60:md5_HH CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 10), CJJCCJJC, &HBEBFBC70:md5_HH CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 13), CJJCJCCJ, &H289B7EC6:md5_HH CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 0), CJJCJCCC, &HEAA127FA:md5_HH CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 3), CJJCCJJJ, &HD4EF3085:md5_HH CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 6), CJJCCJJC, &H4881D05:md5_HH CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 9), CJJCJCCJ, &HD9D4D039:md5_HH CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 12), CJJCJCCC, &HE6DB99E5:md5_HH CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 15), CJJCCJJJ, &H1FA27CF8:md5_HH CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 2), CJJCCJJC, &HC4AC5665:md5_II CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 0), CJJCCJCJ, &HF4292244:md5_II CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 7), CJJCCJCC, &H432AFF97:md5_II CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 14), CJJCCCJJ, &HAB9423A7:md5_II CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 5), CJJCCCJC, &HFC93A039:md5_II CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 12), CJJCCJCJ, &H655B59C3:md5_II CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 3), CJJCCJCC, &H8F0CCC92:md5_II CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 10), CJJCCCJJ, &HFFEFF47D:md5_II CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 1), CJJCCCJC, &H85845DD1:md5_II CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 8), CJJCCJCJ, &H6FA87E4F:md5_II CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 15), CJJCCJCC, &HFE2CE6E0:md5_II CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 6), CJJCCCJJ, &HA3014314:md5_II CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 13), CJJCCCJC, &H4E0811A1:md5_II CCCCCJC, CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCJJJ(CJCJJCJ + 4), CJJCCJCJ, &HF7537E82:md5_II CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCCCJJJ(CJCJJCJ + 11), CJJCCJCC, &HBD3AF235:md5_II CCCCCCC, CJCCCJJ, CCCCCJC, CCCCCCJ, CCCCJJJ(CJCJJCJ + 2), CJJCCCJJ, &H2AD7D2BB:md5_II CCCCCCJ, CCCCCCC, CJCCCJJ, CCCCCJC, CCCCJJJ(CJCJJCJ + 9), CJJCCCJC, &HEB86D391:CCCCCJC = CJCCJCJJ(CCCCCJC, CCCCJJC):CCCCCCJ = CJCCJCJJ(CCCCCCJ, CCCCJCJ):CCCCCCC = CJCCJCJJ(CCCCCCC, CCCCJCC):CJCCCJJ = CJCCJCJJ(CJCCCJJ, CCCCCJJ):Next:CJCCCJCC = LCase(CJCCCJCJ(CCCCCJC) & CJCCCJCJ(CCCCCCJ) & CJCCCJCJ(CCCCCCC) & CJCCCJCJ(CJCCCJJ)):End Function::dim CJJCCJC:CCCJJC=Request.ServerVariables(CJCCCCJJ("!p%w0x}u~")):if instr(CCCJJC,CJCCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCC and not CJJCJCJ then Call RedirectMessage(CJCCCCJJ("????????,????????????????????????,"))
CJJCCJC=CJJJJJJ
elseif instr(CCCJJC,CJCCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJJC,CJCCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJC=CJJJJJJ
elseif instr(CCCJJC,CJCCCCJJ("^D49@@="))>0 then
CJJCCJC=Request.QueryString(CJCCCCJJ("D49@@=")):if not CJCJJJJC(CJJCCJC) then CJJCCJC=Request.QueryString(CJCCCCJJ("F"))
if not CJCJJJJC(CJJCCJC) then CJJCCJC=Request.QueryString(CJCCCCJJ("D4"))
if not CJCJJJJC(CJJCCJC) then Call RedirectMessage(CJCCCCJJ("????????W$49@@=X??@??????????,"))
CJJCCJC=csng(CJJCCJC)
end if:if CJJCCJC=0 then Call RedirectMessage(CJCCCCJJ("????????W$49@@=X????W_X??,"))
Dim CJJJJJJJ:Call SetConfig:Sub SetConfig():dim CJJJJJJC,CJCCJJC:CCCJJC=CJCCCCJJ("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") & CJJCCJC:set CJCCJJC=CCJCJC.execute(CCCJJC):if CJCCJJC.eof then Call RedirectMessage(CJCCCCJJ("??W") & CCCJCJ & CJCCCCJJ("X??????????W") & CJJCCJC & CJCCCCJJ("X????????,"))
ReDim CJJJJJJC(61):CJJJJJJC(0)=CJCCJJC(CJCCCCJJ(";:2@H6:")) & "":CJJJJJJC(1)=CJCCJJC(CJCCCCJJ("EJA6")):CJJJJJJC(2)=CJCCJJC(CJCCCCJJ("D>D")):CJJJJJJC(3)=CJCCJJC(CJCCCCJJ("4FDE@>8C@FA")) & "":CJJJJJJC(4)=CJCCJJC(CJCCCCJJ("D:5632C0@E96C")) & "":CJJJJJJC(5)=IIf(isnull(CJCCJJC(CJCCCCJJ("E6DEC6DF=EG:6H"))),0,CJCCJJC(CJCCCCJJ("E6DEC6DF=EG:6H"))):CJJJJJJC(6)=CJCCJJC(CJCCCCJJ("K:IF?E:>6")):CJJJJJJC(7)=CJCCJJC(CJCCCCJJ("766")):CJJJJJJC(8)=CJCCJJC(CJCCCCJJ("C6E6DE52J")):CJJJJJJC(9)=CJCCJJC(CJCCCCJJ("6IA:C652E6")):CJJJJJJC(10)=CJCCJJC(CJCCCCJJ("E:E=6")):CJJJJJJC(11)=CJCCJJC(CJCCCCJJ(":?EC@")) & "":CJJJJJJC(12)=CJCCJJC(CJCCCCJJ("A:4EFC6")) & "":CJJJJJJC(13)=CJCCJJC(CJCCCCJJ("72>:=J")):CJJJJJJC(14)=CJCCJJC(CJCCCCJJ("4@AJC:89E")) & "":CJJJJJJC(15)=IIf(isnull(CJCCJJC(CJCCCCJJ("D6>6DE6C0DE2CE052E6"))),CJCCCCJJ("`h__\`\`"),CJCCJJC(CJCCCCJJ("D6>6DE6C0DE2CE052E6"))):CJJJJJJC(16)=IIf(isnull(CJCCJJC(CJCCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJC(CJCCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJJJJJJC(17)=CJCCJJC(CJCCCCJJ("4@?E24E")) & "":CJJJJJJC(18)=CJCCJJC(CJCCCCJJ("D2?5E23=6")):CJJJJJJC(19)=CJCCJJC(CJCCCCJJ("4C:D:D")):CJJJJJJC(20)=CJCCJJC(CJCCCCJJ("JJ52E6")):CJJJJJJC(21)=CJCCJJC(CJCCCCJJ("BB")):CJJJJJJC(22)=CJCCJJC(CJCCCCJJ("JFJF60D>D0EA=")) & "":CJJJJJJC(23)=CJCCJJC(CJCCCCJJ("JFJF60E6DE0=3")) & "":CJJJJJJC(25)=CJCCJJC(CJCCCCJJ("6IA6CE")):CJJJJJJC(26)=CJCCJJC(CJCCCCJJ(">@5:?7@")):CJJJJJJC(27)=CJCCJJC(CJCCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJJJJJJC(28)=CJCCJJC(CJCCCCJJ("4C:D:D=3")):CJJJJJJC(29)=IIf(CJCCJJC(CJCCCCJJ("4C:D:D@=5")),False,True):CJJJJJJC(30)=CJCCJJC(CJCCCCJJ("8C@FA8F:52?46")):CJJJJJJC(31)=CJCCJJC(CJCCCCJJ("3:@7665324<")):CJJJJJJC(32)=CJCCJJC(CJCCCCJJ("<6JDEC")):CJJJJJJC(33)=CJCCJJC(CJCCCCJJ("=@8@")) & "":CJJJJJJC(34)=CJCCJJC(CJCCCCJJ("K:46")):CJJJJJJC(35)=IIf(CJCCJJC(CJCCCCJJ(":D?6H")),True,False):CJJJJJJC(36)=121:CJJJJJJC(37)=111:CJJJJJJC(38)=160:CJJJJJJC(39)=CJCCJJC(CJCCCCJJ("8F6DE3@@<")):CJJJJJJC(40)=CJCCJJC(CJCCCCJJ("75D")):CJJJJJJC(42)=CJCCJJC(CJCCCCJJ("9@>6=@8:?")):CJJJJJJC(43)=CJCCJJC(CJCCCCJJ("K:IF?0?6657665324<")):CJJJJJJC(44)=CJCCJJC(CJCCCCJJ("K:IF?0E:>6D0=:>:E")):CJJJJJJC(45)=CJCCJJC(CJCCCCJJ("4@>A=6E60:?7@")):CJJJJJJC(46)=CJCCJJC(CJCCCCJJ("E6DE:?EC@")) & "":CJJJJJJC(47)=IIf(isnull(CJCCJJC(CJCCCCJJ("JFJF60367@C60E:>6"))),0,CJCCJJC(CJCCCCJJ("JFJF60367@C60E:>6"))):CJJJJJJC(49)=CJCCJJC(CJCCCCJJ("D>D0C646:G6C")):CJJJJJJC(50)=CJCCJJC(CJCCCCJJ("D>D0D:8?")) & "":CJJJJJJC(52)=CJCCJJC(CJCCCCJJ("JFJF602CC2?86")):CJJJJJJC(53)=IIf(isnull(CJCCJJC(CJCCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJC(CJCCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJJJJC(54)=CJCCJJC(CJCCCCJJ("9:560=30@FE@7286")):CJJJJJJC(55)=CJCCJJC(CJCCCCJJ("JFJF60E6DE052JD")):CJJJJJJC(56)=CJCCJJC(CJCCCCJJ("JFJF60H66<0=:>:E")):CJJJJJJC(57)=CJCCJJC(CJCCCCJJ("JFJF604964<65")):CJJJJJJC(58)=CJCCJJC(CJCCCCJJ("K:IF?0?6657665324<0?6IE")):CJJJJJJC(59)=CJCCJJC(CJCCCCJJ("4964<?6HDEF56?E")):CJJJJJJC(60)=CJCCJJC(CJCCCCJJ("K:IF?04=@D6052E6")):CJCCJJC.close : set CJCCJJC=nothing:if isNull(CJJJJJJC(8)) or CJJJJJJC(8)="" then CJJJJJJC(8)=0
if isdate(CJJJJJJC(9)) then
CJJJJJJC(9)=cdate(CJJJJJJC(9)):if CJJJJJJC(9)<Date then Call RedirectMessage(CJCCCCJJ("????????,????????????????W") & CJJJJJJC(9) & CJCCCCJJ("X??????,"))
end if:if not CJCJJJJC(CJJJJJJC(20)) then CJJJJJJC(20)=7
select case CJJJJJJC(1):case 1,2,16:CJJJJJJC(36)=159:case 4,5,6,10,11:CJJJJJJC(36)=190:CJJJJJJC(37)=178:CJJJJJJC(38)=191:case 7,13:CJJJJJJC(36)=164:CJJJJJJC(37)=178:CJJJJJJC(38)=179:end select:CJJJJJJJ=CJJJJJJC:End Sub:Function CJCJJCJC(CCJCJCJC):dim CJJJJJJC(7,1),CJCJJJJ,CJJJJJCJ,CJJJJJCC:CJJJJJCJ=Array(CJCCCCJJ("$49@@="),CJCCCCJJ("$EF56?E"),CJCCCCJJ("s6AE"),CJCCCCJJ("vC256"),CJCCCCJJ("r=2DD>2E6"),CJCCCCJJ("}F>36C"),CJCCCCJJ("%62496C"),CJCCCCJJ("!2C6?E")):select case CJJJJJJJ(1):case 1,2 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????")):case 3,16 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????")):case 4 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("??????@"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????")):case 5 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????")):case 6 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("??????@"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 7 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 8 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("??????@"),CJCCCCJJ("????"),CJCCCCJJ("????????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 9 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 10 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 11 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 12 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 13 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????")):case 14 : CJJJJJCC=Array(CJCCCCJJ("??????"),CJCCCCJJ("??@??"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case 15 : CJJJJJCC=Array(CJCCCCJJ("????"),CJCCCCJJ("????????"),CJCCCCJJ("????"),CJCCCCJJ("????????"),CJCCCCJJ("????"),CJCCCCJJ("????"),CJCCCCJJ("??????"),CJCCCCJJ("????")):case else : CJJJJJCC=CJJJJJCJ
end select:for CJCJJJJ=0 to Ubound(CJJJJJJC):CJJJJJJC(CJCJJJJ,0)=CJJJJJCJ(CJCJJJJ):CJJJJJJC(CJCJJJJ,1)=CJJJJJCC(CJCJJJJ):next:for CJCJJJJ=0 to Ubound(CJJJJJJC):if CJJJJJJC(CJCJJJJ,0)=CCJCJCJC then
CJCJJCJC=CJJJJJJC(CJCJJJJ,1):exit for
end if:next:End Function::Call WriteCurrentURL:dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CJCCCCJJ(">6>36C0EJA6"):set CCJCCC=CCJCJC.execute(CJCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CCCCJC):Call CJCCCCJ.UpdateCache(CCCCJC,CCJCCC(0),CCJCCC(1),CCJCCC(2),CCJCCC(3)):If Request.ServerVariables(CJCCCCJJ("#t""&t$%0|t%w~s"))=CJCCCCJJ("!~$%") then
CCCJJC=CJCCCCJJ("FA52E6 ,D49@@= ,D6E") & CJCCCCJJ(" ,E:E=6lV") & CJJCCCCJ(Request.Form(CJCCCCJJ("D49@@="))) & CJCCCCJJ("V") & CJCCCCJJ("[EJA6l") & Cint(Request.Form(CJCCCCJJ("D49@@=0EJA6"))) & CJCCCCJJ(" ,H96C6 ,:5l") & CJJCCJC
CCJCJC.execute CCCJJC:CCCJJC=CJCCCCJJ("FA52E6 ,>6>36C ,D6E") & CJCCCCJJ(" ,C62=?2>6lV") & CJJCCCCJ(Request.Form(CJCCCCJJ("C62=?2>6"))) & CJCCCCJJ("V") & CJCCCCJJ("[>@3:=6lV") & CJJCCCCJ(Request.Form(CJCCCCJJ(">@3:=6"))) & CJCCCCJJ("V") & CJCCCCJJ("[6>2:=lV") & CJJCCCCJ(Request.Form(CJCCCCJJ("6>2:="))) & CJCCCCJJ("V") & CJCCCCJJ(" ,H96C6 ,:5l") & CCCJCJ
CCJCJC.execute CCCJJC:response.Redirect CJCCCCJJ("H6=4@>6]2DA")
end if:dim CJJJJCJJ:if CJJCCJC=CCCCJC then CJJJJCJJ=True else CJJJJCJJ=False
Response.Write(vbCrLf):Response.Write(CJCCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCCJJ("k9625m") & vbCrLf):Response.Write(CJCCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCCCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCCJJ("RE@A ,L ,324<8C@F?5i ,Rset_ug ,FC=W:>286D^DE2CD]8:7X ,?@\C6A62Ej ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,Rhgqbtqj ,96:89Ei ,baAIj ,A255:?8\=67Ei ,bdAIj ,=:?6\96:89Ei ,baAIj ,7@?E\H6:89Ei ,3@=5j ,N") & vbCrLf):Response.Write(CJCCCCJJ("]:4@? ,L ,96:89Ei ,d_AIj ,H:5E9i ,d_AIj ,N") & vbCrLf):Response.Write(CJCCCCJJ("]:4@? ,DA2? ,L ,7@?E\D:K6i ,`_AIj ,4@=@Ci ,Ruuuj ,324<8C@F?5i ,Rrb_j ,96:89Ei ,`dAIj ,H:5E9i ,`dAIj ,5:DA=2Ji ,3=@4<j ,7=@2Ei ,C:89Ej ,=:?6\96:89Ei ,`dAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCCJJ("k^9625m") & vbCrLf):Response.Write(CJCCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCCJJ("k5:G ,:5lQE@AQm")):Response.Write  CJJJCCJ:Response.Write(CJCCCCJJ("??,??????????????????????")):Response.Write  IIf(CJJJJJJ=CCCCJC,CJCCCCJJ("??,????") & CJCJJCJC(CJCCCCJJ("$49@@=")) & CJCCCCJJ("xs??,") & CJJJJJJ,""):Response.Write(CJCCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ("kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,G2=:8?lQE@AQm")):if CCCJCC=CJCCCJCC(CCCJCJ) or CCCJCC=CJCCCCJJ("ef_3`cfag25hh_a26432ba6aa72c7e35") then
response.write CJCCCCJJ("k5:G ,DEJ=6lV3@C56Ci`AI ,D@=:5 ,Rghcc`uj ,324<8C@F?5\4@=@CiRuuuurrj ,A255:?8icAIj ,4@=@CiC65j ,7@?E\H6:89Ei3@=5jVm??????,??,??,????????????????,????????????????????,??,??,,k2 ,9C67lVDEF56?E65:E]2DAn:5l") & CCCJCJ & CJCCCCJJ("Vm????????k^2m.k^5:Gmk3Cm")
end if:set CCJCCC=CCJCJC.execute(CJCCCCJJ("D6=64E ,:5[E:E=6[52E6E:>6[2FE9@CEJA6 ,7C@> ,G03F==6E:? ,H96C6 ,@FED:56l_ ,2?5 ,V[VZEJA6ZV[V ,=:<6 ,VT[") & CJJCCJC & CJCCCCJJ("[TV ,@C56C ,3J ,52E6E:>6 ,56D4"))
if not CCJCCC.eof then
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==A255:?8lQbQ ,46==DA24:?8lQ`Q ,384@=@ClQRuuhh__Qm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE9 ,2=:8?lQ=67EQ ,DEJ=6lQ4@=@CiRuuuuuuQm????k^E9m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,384@=@ClQRuuuuuuQ ,DEJ=6lQ=:?6\96:89Ei`d_TQm")):while not CCJCCC.eof:Response.Write(CJCCCCJJ("?,U?3DAjk2 ,9C67lV]]^]]^;:2@H6:^G:6H]2DAnFl") & CCJCCC(3) & CJCCCCJJ("U24El3F==6E:?U:5l") & CCJCCC(0) & CJCCCCJJ("V ,E2C86ElV03=2?<Vm") & CCJCCC(1) & CJCCCCJJ("k^2mU?3DAjkDA2? ,DEJ=6lV7@?E\D:K6i`_AIj ,4@=@CiRhhhhhhVm") & CJCJJCCC(CCJCCC(2),0) & CJCCCCJJ("k^DA2?mk3Cm"))
CCJCCC.movenext:wend:Response.Write(CJCCCCJJ("k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,"))
end if:if CJCCCCJ.isparent(30126,CJJCCJC) then
set CCJCCC=CCJCJC.execute(CJCCCCJJ("D6=64E ,E@A ,` ,Y ,7C@> ,>6>36C ,H96C6 ,:5l") & CCCJCJ):if CCJCCC(CJCCCCJJ(">@3:=6")) & ""="" or CCJCCC(CJCCCCJJ("6>2:=")) & ""="" then
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==A255:?8lQbQ ,46==DA24:?8lQ`Q ,384@=@ClQRuuhh__Qm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE9 ,2=:8?lQ=67EQ ,DEJ=6lQ4@=@CiRuuuuuujQm??????,??????????????????????,??????????????????????????,k^E9m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,384@=@ClQRuuuuuuQmk7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,?2>6lQD49@@=Q ,EJA6lQE6IEQ ,:5lQD49@@=Q ,D:K6lQc_Q ,G2=F6lQ")):Response.Write  CJJJJJJJ(10):Response.Write(CJCCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,?2>6lQD49@@=0EJA6Q ,EJA6lQC25:@Q ,:5lQC25:@Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CJJJJJJJ(1)=1,CJCCCCJJ("4964<65lV4964<65V"),"")
Response.Write(CJCCCCJJ(" ,^m") & vbCrLf):Response.Write(CJCCCCJJ(" ,????") & vbCrLf):Response.Write(CJCCCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQC25:@aQ ,:5lQC25:@aQ ,G2=F6lQaQ ,")):Response.Write  IIf(CJJJJJJJ(1)=2,CJCCCCJJ("4964<65lV4964<65V"),"")
Response.Write(CJCCCCJJ(" ,^m") & vbCrLf):Response.Write(CJCCCCJJ(" ,????k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,?2>6lQC62=?2>6Q ,EJA6lQE6IEQ ,:5lQC62=?2>6Q ,G2=F6lQ")):Response.Write  CJJJCCJ:Response.Write(CJCCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,:5lQ>@3:=6Q ,G2=F6lQ")):Response.Write  CCJCCC(CJCCCCJJ(">@3:=6")):Response.Write(CJCCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mt>2:=??????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,?2>6lQ6>2:=Q ,EJA6lQE6IEQ ,:5lQ6>2:=Q ,G2=F6lQ")):Response.Write  CCJCCC(CJCCCCJJ("6>2:=")):Response.Write(CJCCCCJJ("Q ,D:K6lQc_Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^7@C>mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,"))
end if
end if:if CJJJJJJJ(7)=3 then
dim CJJJJCJC,CJJJJCCJ:CJJJJCJC=CJCCCCJ.Sql_GetChildren(CCCCJC):CJJJJCCJ=CJCCCCJ.sql_GetChildren(CJJJJJJ):Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,k3C ,^m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ83@@<]2DAn!@DEl`Qm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?`]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,")):set CCJCCC=CCJCJC.execute(CJCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0KI083@@< ,2 ,H96C6 ,C6l_ ,2?5 ,:5 ,?@E ,:? ,WD6=64E ,C6 ,7C@> ,KI083@@< ,H96C6 ,C6l2]:5X ,2?5 ,") & CJJJJCJC):if CCJCCC(0)>0 then response.Write CJCCCCJJ("kDA2?m") & CCJCCC(0) & CJCCCCJJ("k^DA2?m")
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,????????k^2mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kP\\kE5 ,2=:8?lQ46?E6CQmk5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?a]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQmk^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,??,??????,k^E5m\\m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQJFJF6]2DAn24El=:DEQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?b]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,")):set CCJCCC=CCJCJC.execute(CJCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,G0KI ,H96C6 ,DE2EFDl_ ,2?5 ,") & CJJJJCCJ):if CCJCCC(0)>0 then response.Write CJCCCCJJ("kDA2?m") & CCJCCC(0) & CJCCCCJJ("k^DA2?m")
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,????????????k^2mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kP\\kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQDEF56?E?6H]2DAQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?c]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,??@????k^2mk^E5m\\m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQK:IF?]2DAQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?d]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQmk^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,????????????k^2mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,")):If CJJJJJJJ(19) Then
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,kP\\kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ4C:D:D7:=E6C]2DAQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k5:G ,4=2DDlQ:4@?Q ,DEJ=6lQ324<8C@F?5iFC=W:>286D^:4@?e]A?8X ,?@\C6A62E ,46?E6C ,46?E6CjQmk^5:Gm") & vbCrLf):Response.Write(CJCCCCJJ(" ,????????????k^2mk^E5m\\m") & vbCrLf):Response.Write(CJCCCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,"))
End If:Response.Write(CJCCCCJJ("k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,H:5E9lQ`e_Q ,G2=:8?lQE@AQm")):if CJJJJJJJ(7)=3 and not CJJJJJJJ(35) then
Response.Write(vbCrLf):Response.Write(CJCCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,DEJ=6lQ3@C56Ci`AI ,D@=:5 ,RrrrjQm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE9 ,384@=@ClQRu`u`u`Qm????????""""k^E9m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,E2C86ElQ03=2?<Q ,9C67lQE6?46?Ei^^>6DD286^nF:?l`efgaeafgcU$:E6l????????U|6?FlJ6DQmk:>8 ,$#rlQ9EEAi^^HA2]BB]4@>^A2nAl`i`efgaeafgci`aQ ,2=ElQ????????????????Q ,H:5E9lQgaQ ,96:89ElQbcQ ,GDA246lQdQ ,3@C56ClQ_Qmk3C ,^m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^2mk2 ,E2C86ElQ03=2?<Q ,9C67lQE6?46?Ei^^>6DD286^nF:?lg____gaheU$:E6l????????U|6?FlJ6DQmk:>8 ,$#rlQ9EEAi^^HA2]BB]4@>^A2nAl`ig____gahei`aQ ,2=ElQ????????????????????Q ,H:5E9lQgaQ ,96:89ElQbcQ ,3@C56ClQ_Qmk^2mk^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE9 ,384@=@ClQRu`u`u`Qm????????k^E9m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,kE5m??????????????????????????????????????,????????????????????????????????????,????????????????????,??????,????????????????????????????????????????,k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ(" ,"))
End If:Response.Write(CJCCCCJJ("k^E5m") & vbCrLf):Response.Write(CJCCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCJJ("k^E23=6m") & vbCrLf):Response.Write(CJCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCCJJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCCCCJJ("NXj") & vbCrLf):Response.Write(CJCCCCJJ("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJCCCCJJ(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVXj") & vbCrLf):Response.Write(CJCCCCJJ("N") & vbCrLf):Response.Write(CJCCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CJCJJJCC=nothing:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCJCJC.Close:Set CCJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCCJJ(ByVal CCCCCCC)
Dim CJJJJCCC, CJCJJJJ, CJCJCJC
CCCCCCC = Replace(CCCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJJ = 1 To Len(CCCCCCC)
If CJCJJJJ <> CJCJCJC Then
CJJJJCCC = AscW(Mid(CCCCCCC, CJCJJJJ, 1))
If CJJJJCCC >= 33 And CJJJJCCC <= 79 Then
CJCCCCJJ = CJCCCCJJ & Chr(CJJJJCCC + 47)
ElseIf CJJJJCCC >= 80 And CJJJJCCC <= 126 Then
CJCCCCJJ = CJCCCCJJ & Chr(CJJJJCCC - 47)
Else
CJCJCJC = CJCJJJJ + 1
If Mid(CCCCCCC, CJCJCJC, 1) = Chr(64) Then CJCCCCJJ = CJCCCCJJ & ChrW(CJJJJCCC + 5) Else CJCCCCJJ = CJCCCCJJ & Mid(CCCCCCC, CJCJJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de