Edit D:\xinhaisoft\crisis_new\jiaowei\admin\advert.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCCJ, CJJJCCC,CJJCJJJ, CJJCJJC, CJJCJCJ:Set CJJJCCJ = server.CreateObject(CJJJCJCC("ps~sq]r@??64E:@?")):CJJJCCJ.open Application(CJJJCJCC("r@??64E:@?$EC:?8")):Set CJJJCCC=CJJJCCJ::Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ,CJCCJCC,CJCCCJJ:Dim CJCCCJC:CJCCCJC=Trim(Request.Cookies(CJJJCJCC("!$*|t|qt#"))):if CJCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJCC>0 then
CJJCJCJ=CJJJCJCC("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") & CJJCCJJ & CJJJCJCC("V ,2?5 ,:5l") & CJJCJCC
set CJJCJJJ=CJJJCCJ.execute(CJJCJCJ):If CJJCJJJ.EOF Then
Call ClearMemberCookie
Else
CJJCCJC=CJJCJJJ(2) & "":CJJCCCJ=CJJCJJJ(3):CJJCCCC=CJJCJJJ(5):CJCJJJJ=CJJCJJJ(6):CJCJJJC=CJJCJJJ(9):CJCJJCJ=CJJCJJJ(15):CJCJCJJ=CJJCJJJ(0):CJCCJCC=CJJCJJJ(1):CJCCJCJ=CJJCJJJ(11) & "":CJCJCJC=CJJCJJJ(10) & "":CJCJJCC=CJJCJJJ(12):CJCJCCJ=CJJCJJJ(14):CJCJCCC=CJJCJJJ(13):CJCCJJJ=CJJCJJJ(7) & "":CJCCJJC=CJJCJJJ(4):CJCCCJJ=CJJCJJJ(8):if isnull(CJCJJCJ) then CJCJJCJ=0
if isnull(CJCJJJC) or CJCJJJC=0 then CJCJJJC=CJJCCCJ
if isnull(CJCCJJC) then CJCCJJC=0
if isnull(CJJCCCC) then CJJCCCC=0
if instr(CJJJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCJJ)>0 then Call RedirectMessage(CJJJCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJCC,CJJCCJJ)
End IF
end if:Sub CheckRight(CJJJCCJJ):dim CJCCCCJ,CJCCCCC:if CJJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCJCC("??????????????,????????????,"))
elseIf not CCCCCJJ(CJJJCCJJ) then
Call RedirectMessage(CJJJCJCC("????W") & CJJJCCJJ & CJJJCJCC("X????????,????????????????????,"))
end if:End Sub:Function CCCCCJJ(CJJJCCJJ):dim CJCCCCJ,CJCCCCC:CJCCCCC=split(CJJJCCJJ,CJJJCJCC("[")):CCCCCJJ=False:for CJCCCCJ=0 to ubound(CJCCCCC):If Mid(CJJCCJC,CJCCCCC(CJCCCCJ),1)="1" then
CCCCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCJCC("!$*|t|qt#"))="":CJJCJCC=0:CJCJJJJ=0:CJJCCJJ=Empty:CJJCCCC=0:CJCJJCJ=0:CJCJJJC=0:CJJCCCJ=0:CJCJCJJ=False:CJCCJCC=False:CJCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJJJ,CCJJJJC,CJCCCCJ,CCJJJCJ,CCJJJCC:CCJJJJJ=split(CJCCCJC,CJJJCJCC("]")):if ubound(CCJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJJJ(0)) or len(CCJJJJJ(1))<>32 or len(CCJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CCJJJJC=CCJJJJJ(1):for CJCCCCJ=1 to len(CCJJJJC):CCJJJCJ=mid(CCJJJJC,CJCCCCJ,1):if isnumeric(CCJJJCJ) then CCJJJCC=CCJJJCC & CCJJJCJ
if len(CCJJJCC)=7 then exit for
next:CCJJJJC=CCJJJJJ(2):if CCJJJCC<>mid(CCJJJJC,6,7) then
Call ClearMemberCookie
else
CCJJJCJ=mid(CCJJJJC,18,10)/2:if CCJJJCJ<DateDiff(CJJJCJCC("D"), CJJJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJCC=Clng(CCJJJJJ(0)):CJJCCJJ=CCJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJJJ,CJJJCCJC):dim CJCCCCJ,CCJJJCJ,CCJJJCC:for CJCCCCJ=1 to len(CJJJCCJC):CCJJJCJ=mid(CJJJCCJC,CJCCCCJ,1):if isnumeric(CCJJJCJ) then CCJJJCC=CCJJJCC & CCJJJCJ
if len(CCJJJCC)=7 then exit for
next:CCJJJCC=CCCCJJJ & CJJJCJCC("]") & CJJJCCJC & CJJJCJCC("]") & Fix(10000*(Rnd+1)) & CCJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJCC("D"), CJJJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJCC("!$*|t|qt#"))=CCJJJCC:End Sub::Function CCCCCJC(CJJJCCCJ):Dim str,CCJJCJC:str = Trim(CJJJCCCJ):If IsNull(str) Or str = "" Then
CCCCCJC = ""
else
str=Replace(str, CJJJCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJCJCC("k:7C2>6"), CJJJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJCJCC("kD4C:AE"), CJJJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJCJC=new RegExp:CCJJCJC.Pattern=CJJJCJCC("@?W,2\K.ZXl"):CCJJCJC.IgnoreCase = True:CCJJCJC.Global=True:str=CCJJCJC.Replace(str,CJJJCJCC("@?S`U6BF2=Dj")):set CCJJCJC=nothing:CCCCCJC=str
End If:End Function::Const CCCCJCJ="^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 CJCCCCJ,CCJJJCJ,CCJJCCJ:if isarray(str) then
on error resume next:CJCCCCJ=ubound(str,2):CCJJCCJ=err.number:err.clear:on error goto 0:if CCJJCCJ<>0 then
for CJCCCCJ=0 to ubound(str):if CJCCCCJ>0 then response.Write CJJJCJCC("k3C ,^m")
response.Write CJCCCCJ & CJJJCJCC("i ,") & str(CJCCCCJ):next
else
response.Write CJJJCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCCJ=0 to ubound(str,2):response.Write CJJJCJCC("kE9 ,2=:8?lV=67EVm") & CJCCCCJ & CJJJCJCC("k^E9m")
next:response.Write CJJJCJCC("k^ECm"):for CJCCCCJ=0 to ubound(str):response.Write CJJJCJCC("kECmkE9m") & CJCCCCJ & CJJJCJCC("k^E9m"):for CCJJJCJ=0 to ubound(str,2):response.Write CJJJCJCC("kE5m") & str(CJCCCCJ,CCJJJCJ) & CJJJCJCC("k^E5m"):next:response.Write CJJJCJCC("k^ECm"):next:response.Write CJJJCJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCCC,CJJCJJJJ):dim CCJJJJJ:CCJJJJJ=CJJJCCCC & CJJJCJCC("l") & CJJCJJJJ & CJJJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJCC("$6E\r@@<:6"),CCJJJJJ):End Sub:::Function CCCCCCJ(ByVal Str, ByVal StrLen):Dim CCJJCCC, CCJCJJJ, CCJCJJC, CJCCCCJ:if isnull(str) then
CCCCCCJ=""
else
CCJJCCC = Len(Str):CCJCJJJ = 0:For CJCCCCJ = 1 To CCJJCCC:CCJCJJC = AscW(Mid(Str, CJCCCCJ, 1)):If CCJCJJC < 0 Or CCJCJJC > 255 Then CCJCJJJ = CCJCJJJ + 2 Else CCJCJJJ = CCJCJJJ + 1
If CCJCJJJ >= StrLen Then
CCCCCCJ = Left(Str, CJCCCCJ) & CJJJCJCC("]]]"):Exit For
Else
CCCCCCJ = Str
End If:Next
end if:End Function::::Function CCCCCCC(CCJJCCJ):if isnull(CCJJCCJ) or trim(CCJJCCJ)="" or not isnumeric(CCJJCCJ) then
CCCCCCC=false
else
Dim CCJJCJC:Set CCJJCJC = New RegExp:CCJJCJC.Pattern = CJJJCJCC("/-5ZS"):CCJJCJC.IgnoreCase = True:CCCCCCC = CCJJCJC.test(CCJJCCJ):set CCJJCJC=nothing
end if:End Function:Function CJJJJJJJ(CJJCJJJC):dim CCJCJCJ,CCJCJCC:CCJCJCJ=CJJJCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJC & CJJJCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCJCC=CJJJCCJ.execute(CCJCJCJ):CJJJJJJJ = CCJCJCC(0):if isnull(CJJJJJJJ) then CJJJJJJJ=1
CCJCJCC.close : set CCJCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCCJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CCJCJCC.close : set CCJCJCC=nothing:CJJCJJC.Close : Set CJJCJJC=Nothing:CJJCJJJ.Close : Set CJJCJJJ=Nothing:CJJJJCJJ.Close : Set CJJJJCJJ = Nothing:CJJJCCJ.Close : Set CJJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJCC("!$*0|6DD286"),server.URLEncode(CJJCJJCJ)):Response.Redirect CJJJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJJCC):Application.Contents.Remove CJJCJJCC
End Sub::Class jTree:Private CJJCJCJ, CCJCCJJ, CCJCCJC, CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ:Private Sub Class_Initialize():CCJCCJC = 0:CCJCCCJ = 0:CCCJJCJ=10:End Sub:Public Property Let Table(CJJCJCJJ):if CJJCJCJJ="" then Call RedirectMessage(CJJJCJCC("????????,;%C66????????????????????@??????????,"))
CCJCCCC=CJJCJCJJ:CCCJJJJ=CJJJCJCC("!$*0") & UCase(CCJCCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCCC:End Property:::Private Sub GetTreeArray():Dim CJCCCCJ, CCJJJCJ, CCCJJCC,CCCJCJJ:CCJCCJJ = Application(CCCJJJJ):If Not IsArray(CCJCCJJ) Then
CJJCJCJ = CJJJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCCC:if CCCJJJC<>"" then CJJCJCJ=CJJCJCJ & CJJJCJCC(" ,H96C6 ,") & CCCJJJC
set CCCJJCC=CJJJCCJ.execute(CJJCJCJ):CCCJCJJ=CCCJJCC(0):if CCCJCJJ=0 then Call RedirectMessage(CJJJCJCC("????W") & CCJCCCC & CJJJCJCC("^") & CCCJJJC & CJJJCJCC("X????????????"))
CCJCCCJ=CCCJCJJ+CCCJJCJ:ReDim CCJCCJJ(CCJCCCJ, 4):CJJCJCJ = CJJJCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCCC & CJJJCJCC(" ,H:E9 ,W?@=@4<X"):if CCCJJJC<>"" then CJJCJCJ=CJJCJCJ & CJJJCJCC(" ,H96C6 ,") & CCCJJJC
CJJCJCJ=CJJCJCJ & CJJJCJCC(" ,@C56C ,3J ,D@CE[:5"):set CCCJJCC=CJJJCCJ.execute(CJJCJCJ):For CJCCCCJ = 1 To CCCJCJJ:For CCJJJCJ = 0 To 4:CCJCCJJ(CJCCCCJ, CCJJJCJ) = CCCJJCC(CCJJJCJ):if IsNull(CCJCCJJ(CJCCCCJ,4)) then CCJCCJJ(CJCCCCJ,4)=0
If CCJCCJJ(CJCCCCJ,2)="" then CCJCCJJ(CJCCCCJ,2)=CJJJCJCC(",??.")
Next:CCCJJCC.MoveNext:Next:CCCJJCC.Close: Set CCCJJCC = Nothing:for CJCCCCJ=CCJCCCJ-(CCCJJCJ-1) to CCJCCCJ:CCJCCJJ(CJCCCCJ,0)=CJCCCCJ:next:Application.Lock():Application(CCCJJJJ) = CCJCCJJ:Application.UnLock()
else
CCJCCCJ=Ubound(CCJCCJJ)
End If:End Sub:Public Sub ShowChild_Select(CCCCJJJ, CJJJJCCJ):dim CJCCCCJ:CCCCJJJ=CLng(CCCCJJJ):CJJJJCCJ=Cstr(CJJJJCCJ):For CJCCCCJ = 1 To CCJCCCJ:If CCJCCJJ(CJCCCCJ, 1) = CCCCJJJ Then
Response.Write CJJJCJCC("k@AE:@? ,G2=F6lV") & CCJCCJJ(CJCCCCJ, 0) & CJJJCJCC("V")
If Instr(CJJJCJCC("[") & CJJJJCCJ & CJJJCJCC("["),CJJJCJCC("[") & CCJCCJJ(CJCCCCJ, 0) & CJJJCJCC("["))>0 Then Response.Write CJJJCJCC(" ,D6=64E65")
Response.Write CJJJCJCC("m\ ,") & CCJCCJJ(CJCCCCJ, 2) & CJJJCJCC("k^@AE:@?m")
End If:Next:End Sub::::Private Function CJJJJCCC(CCCCJJJ):dim CJCCCCJ,CCCJCJC:CJJJJCCC=0:CCCJCJC=CStr(CCCCJJJ):if CCCJCJC<>"0" then
for CJCCCCJ=1 to CCJCCCJ:If CStr(CCJCCJJ(CJCCCCJ, 0))=CCCJCJC Then
CJJJJCCC = CJCCCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJCJJJ(CCCCJJJ):Dim CJCCCCJ,CCCJCCJ:CJCCCCJ=CJJJJCCC(CCCCJJJ):if CJCCCCJ=0 then
CCCJCCJ=CJJJCJJC(CCCCJJJ)
else
CCCJCCJ=CCJCCJJ(CJCCCCJ,3):if isnull(CCCJCCJ) or CCCJCCJ="" then
CCCJCCJ=CJJJCJJC(CCCCJJJ)
elseif Mid(CCCJCCJ,instrrev(CCCJCCJ,CJJJCJCC("["))+1)<>CStr(CCCCJJJ) then
CCCJCCJ=CJJJCJJC(CCCCJJJ)
elseif Left(CCCJCCJ,1)=CJJJCJCC("[") then
CCCJCCJ=CJJJCJJC(CCCCJJJ)
end if
end if:CJJJCJJJ=CCCJCCJ:End Function:Private Function CJJJCJJC(CCCCJJJ):dim CCCJCJC:CCCJCJC=CStr(CCCCJJJ):if CCCJCJC="0" then
CJJJCJJC=""
else
dim CCCJJCC:set CCCJJCC=CJJJCCJ.execute(CJJJCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCCC & CJJJCJCC(" ,H96C6 ,:5l") & CCCCJJJ):if CCCJJCC.eof then
Call UpdateCache(CCCCJJJ,"","","",""):Call RedirectMessage(CJJJCJCC("??????,xs??,") & CCCCJJJ & CJJJCJCC("??,????????,????????????????????,"))
else
if CCCJJCC(0)=0 then
CJJJCJJC="0," & CCCCJJJ
else
CJJJCJJC=CJJJCJJJ(CCCJJCC(0)) & CJJJCJCC("[") & CCCCJJJ
end if:if CCCJJCC(2)<>CJJJCJJC then
CJJJCCJ.execute CJJJCJCC("FA52E6 ,") & CCJCCCC & CJJJCJCC(" ,D6E ,A2E9lV") & CJJJCJJC & CJJJCJCC("V ,H96C6 ,:5l") & CCCCJJJ
else
CJJJCJJC=CCCJJCC(2)
end if
end if:Call UpdateCache(CCCCJJJ,CCCJJCC(0),CCCJJCC(1),CJJJCJJC,CCCJJCC(3)):CCCJJCC.Close: Set CCCJJCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJJJJ
End Sub:Public Sub UpdateCache(CCCCJJJ,CJJCJCJC,CJJCJCCJ,CCCJCCJ,CJJCJCCC):dim CJCCCCJ,CCJJJCJ:CCCCJJJ=CLng(CCCCJJJ):CJCCCCJ=CJJJJCCC(CCCCJJJ):if CJJCJCJC="" and CJJCJCCJ="" and CCCJCCJ="" and CJJCJCCC="" then
if CJCCCCJ>0 then
for CCJJJCJ=1 to 4:CCJCCJJ(CJCCCCJ,CCJJJCJ)=Null:next
end if
else
if CJCCCCJ=0 then
for CCJJJCJ=1 to CCJCCCJ:if CCJCCJJ(CCJJJCJ,1) & ""="" then
CJCCCCJ=CCJJJCJ:exit for
end if:next
end if:if CJCCCCJ=0 then
Call ClearCache
else
CCJCCJJ(CJCCCCJ,0)=CLng(CCCCJJJ):if CJJCJCJC<>"" then CCJCCJJ(CJCCCCJ,1)=CLng(CJJCJCJC)
if CJJCJCCJ<>"" then CCJCCJJ(CJCCCCJ,2)=CJJCJCCJ
if CCCJCCJ<>"" then CCJCCJJ(CJCCCCJ,3)=CCCJCCJ
if CJJCJCCC<>"" then CCJCCJJ(CJCCCCJ,4)=CLng(CJJCJCCC)
end if
end if:if CJCCCCJ>0 then
Application.Lock():Application(CCCJJJJ) = CCJCCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJCJ):Call ConnClose:Response.Write CJJCJJCJ:Response.End:End Sub:Private Function CJJJJJJJ():CJJJJJJJ=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CCJCJCC:set CCJCJCC=CJJJCCJ.execute(CJJJCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCCC & CJJJCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CCJCJCC(0):CCJCJCC.Close: Set CCJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(5):Const CCCCJCC="advert":dim CCCJCCC,CCCCJJJ:CCCJCCC=Request.QueryString("act"):CCCCJJJ=Request.QueryString(CJJJCJCC(":5")):if CCCJCCC=CJJJCJCC("56=") and CCCCCCC(CCCCJJJ) then
CJJJCCJ.execute CJJJCJCC("56=6E6 ,7C@> ,") & CCCCJCC & CJJJCJCC(" ,H96C6 ,:5l") & CCCCJJJ & CJJJCJCC(" ,2?5 ,>6>36CEJA6l") & CJJCCCJ
end if:if Request.ServerVariables(CJJJCJCC("#t""&t$%0|t%w~s"))=CJJJCJCC("!~$%") then
if CCCJCCC=CJJJCJCC("255") then
CJJCJCJ=CJJJCJCC(":?D6CE ,:?E@ ,") & CCCCJCC & CJJJCJCC("W:5[A:4EFC6[=:?<[E6IE[A=246[>6>36CEJA6[4964<65X ,G2=F6DW") & CJJJJJJJ(CCCCJCC) & CJJJCJCC("[V") & CCCCCJC(Request.Form(CJJJCJCC("A:4EFC6"))) & CJJJCJCC("V") & CJJJCJCC("[V") & CCCCCJC(Request.Form(CJJJCJCC("=:?<"))) & CJJJCJCC("V") & CJJJCJCC("[V") & CCCCCJC(Request.Form(CJJJCJCC("E6IE"))) & CJJJCJCC("V") & CJJJCJCC("[") & Request.Form(CJJJCJCC("A=246"))  & CJJJCJCC("[") & CJJCCCJ  & CJJJCJCC("[`") & CJJJCJCC("X")
CJJJCCJ.execute CJJCJCJ
elseif CCCJCCC=CJJJCJCC(">@5") and CCCCCCC(CCCCJJJ) then
CJJCJCJ=CJJJCJCC("FA52E6 ,") & CCCCJCC & CJJJCJCC(" ,D6E") & CJJJCJCC(" ,A:4EFC6lV") & CCCCCJC(Request.Form(CJJJCJCC("A:4EFC6"))) & CJJJCJCC("V")  & CJJJCJCC("[=:?<lV") &  CCCCCJC(Request.Form(CJJJCJCC("=:?<"))) & CJJJCJCC("V")  & CJJJCJCC("[E6IElV") &  CCCCCJC(Request.Form(CJJJCJCC("E6IE"))) & CJJJCJCC("V")  & CJJJCJCC("[A=246l") & Request.Form(CJJJCJCC("A=246")) & CJJJCJCC(" ,H96C6 ,:5l") & CCCCJJJ
CJJJCCJ.execute CJJCJCJ
end if:CCCJCCC=""
end if:dim CCJCCJJ:set CCJCCJJ =new jtree:CCJCCJJ.Table=CJJJCJCC("25G6CE0A=246"):Response.Write(vbCrLf):Response.Write(CJJJCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJCJCC("k9E>=m") & vbCrLf):Response.Write(CJJJCJCC("k9625m") & vbCrLf):Response.Write(CJJJCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCJCC("k^9625m") & vbCrLf):Response.Write(CJJJCJCC("k3@5Jm") & vbCrLf):Response.Write(CJJJCJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJCC(" ,k=686?5m??????????k^=686?5m") & vbCrLf):Response.Write(CJJJCJCC(" ,????,??????????????????????????????????,??????????????????????????,??????????????,") & vbCrLf):Response.Write(CJJJCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????????????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):dim CJCCCCJ:CJCCCCJ=1:set CJJCJJJ=CJJJCCJ.execute(CJJJCJCC("D6=64E ,:5[A:4EFC6[=:?<[E6IE[A=246[?2>6 ,7C@> ,G0") & CCCCJCC & CJJJCJCC(" ,H96C6 ,>6>36CEJA6l") & CJJCCCJ & CJJJCJCC(" ,@C56C ,3J ,A=246")):while not CJJCJJJ.eof:if CCCJCCC=CJJJCJCC(">@5") and CCCCJJJ=cstr(CJJCJJJ(0)) then
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQA:4EFC6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQA:4EFC6Q ,G2=F6lQ")):Response.Write  CJJCJJJ(1):Response.Write(CJJJCJCC("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQ=:?<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ=:?<Q ,G2=F6lQ")):Response.Write  CJJCJJJ(2):Response.Write(CJJJCJCC("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQE6IEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Q ,G2=F6lQ")):Response.Write  CJJCJJJ(3):Response.Write(CJJJCJCC("Q ,D:K6lQadQmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mkD6=64E ,?2>6lQA=246Q ,:5lQA=246Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Call CCJCCJJ.ShowChild_Select(13,CJJCJJJ(4)):Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCCCCJ:Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk2 ,9C67lQ")):Response.Write  CJJCJJJ(1):Response.Write(CJJJCJCC("Q ,4=2DDlQKII3@IQ ,E:E=6lQ????????Qm")):Response.Write  CCCCCCJ(CJJCJJJ(1),40):Response.Write(CJJJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk2 ,9C67lQ")):Response.Write  CJJCJJJ(2):Response.Write(CJJJCJCC("Q ,E:E=6lQ??????????????????????Q ,E2C86ElQ03=2?<Qm")):Response.Write  CCCCCCJ(CJJCJJJ(2),40):Response.Write(CJJJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CJJCJJJ(3):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5m")):Response.Write  CJJCJJJ(5):Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5U:5l")):Response.Write  CJJCJJJ(0):Response.Write(CJJJCJCC("Qm????k^2m\k2 ,9C67lQn24El56=U:5l")):Response.Write  CJJCJJJ(0):Response.Write(CJJJCJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????,VXQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,"))
end if:CJJCJJJ.movenext:CJCCCCJ=CJCCCCJ+1:wend:if CCCJCCC=CJJJCJCC("255") then
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCCCCJ:Response.Write(CJJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQA:4EFC6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQA:4EFC6Q ,D:K6lQc_Q ,E:E=6lQ??@??????????????????Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQ=:?<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ=:?<Q ,D:K6lQb_Q ,E:E=6lQ??@????????????????????Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mk:?AFE ,?2>6lQE6IEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5aQ ,D:K6lQadQ ,E:E=6lQ??????????????????????,??????Qmk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5mkD6=64E ,?2>6lQA=246Q ,:5lQA=246Qm") & vbCrLf):Response.Write(CJJJCJCC(" ,")):Call CCJCCJJ.ShowChild_Select(13,0):Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m\k2 ,9C67lQnQm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJJCJCC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJCJCC("k^7@C>m") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]KII3@I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJJCJCC("NXj") & vbCrLf):Response.Write(CJJJCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CJJCJJC.Close:Set CJJCJJC=Nothing:CJJCJJJ.Close:Set CJJCJJJ=Nothing:CJJJCCJ.Close:Set CJJJCCJ = Nothing:err.Clear:On Error Goto 0
Function CJJJCJCC(ByVal CCJCJJC)
Dim CCCCJJC, CJCCCCJ, CCJJCCJ
CCJCJJC = Replace(CCJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCCJ = 1 To Len(CCJCJJC)
If CJCCCCJ <> CCJJCCJ Then
CCCCJJC = AscW(Mid(CCJCJJC, CJCCCCJ, 1))
If CCCCJJC >= 33 And CCCCJJC <= 79 Then
CJJJCJCC = CJJJCJCC & Chr(CCCCJJC + 47)
ElseIf CCCCJJC >= 80 And CCCCJJC <= 126 Then
CJJJCJCC = CJJJCJCC & Chr(CCCCJJC - 47)
Else
CCJJCCJ = CJCCCCJ + 1
If Mid(CCJCJJC, CCJJCCJ, 1) = Chr(64) Then CJJJCJCC = CJJJCJCC & ChrW(CCCCJJC + 5) Else CJJJCJCC = CJJJCJCC & Mid(CCJCJJC, CJCCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de