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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCC, CJCJJJ,CJCJJC, CJCJCJ, CJCJCC:Set CJJCCC = server.CreateObject(CJJJJJJC("ps~sq]r@??64E:@?")):CJJCCC.open Application(CJJJJJJC("r@??64E:@?$EC:?8")):Set CJCJJJ=CJJCCC::Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ:CCCCCJ=Trim(Request.Cookies(CJJJJJJC("!$*|t|qt#"))):if CCCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJJ>0 then
CJCJCC=CJJJJJJC("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") & CJCCJC & CJJJJJJC("V ,2?5 ,:5l") & CJCCJJ
set CJCJJC=CJJCCC.execute(CJCJCC):If CJCJJC.EOF Then
Call ClearMemberCookie
Else
CJCCCJ=CJCJJC(2) & "":CJCCCC=CJCJJC(3):CCJJJJ=CJCJJC(5):CCJJJC=CJCJJC(6):CCJJCJ=CJCJJC(9):CCJJCC=CJCJJC(15):CCJCJC=CJCJJC(0):CCCCJJ=CJCJJC(1):CCCJCC=CJCJJC(11) & "":CCJCCJ=CJCJJC(10) & "":CCJCJJ=CJCJJC(12):CCJCCC=CJCJJC(14):CCCJJJ=CJCJJC(13):CCCJJC=CJCJJC(7) & "":CCCJCJ=CJCJJC(4):CCCCJC=CJCJJC(8):if isnull(CCJJCC) then CCJJCC=0
if isnull(CCJJCJ) or CCJJCJ=0 then CCJJCJ=CJCCCC
if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCJJJJ) then CCJJJJ=0
if instr(CJJJJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJC)>0 then Call RedirectMessage(CJJJJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCJJ,CJCCJC)
End IF
end if:Sub CheckRight(CJJJJJCJ):dim CCCCCC,CJJJJJJ:if CJCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJC("??????????????,????????????,"))
elseIf not CCJCCJC(CJJJJJCJ) then
Call RedirectMessage(CJJJJJJC("????W") & CJJJJJCJ & CJJJJJJC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCJC(CJJJJJCJ):dim CCCCCC,CJJJJJJ:CJJJJJJ=split(CJJJJJCJ,CJJJJJJC("[")):CCJCCJC=False:for CCCCCC=0 to ubound(CJJJJJJ):If Mid(CJCCCJ,CJJJJJJ(CCCCCC),1)="1" then
CCJCCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJCCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJJC:CJJJJJC=trim(request.QueryString(CJJJJJJC("D49@@="))):if isnumeric(CJJJJJC) then
response.Redirect CJJJJJJC("^>^G2?E^R^D49@@=^") & CJJJJJC & CJJJJJJC("^DEF56?E^=@8:?nC65:C64El") & CJJCJCC
else
Call RedirectMessage(CJJJJJJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJC("!$*|t|qt#"))="":CJCCJJ=0:CCJJJC=0:CJCCJC=Empty:CCJJJJ=0:CCJJCC=0:CCJJCJ=0:CJCCCC=0:CCJCJC=False:CCCCJJ=False:CCCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJCJ,CJJJJCC,CCCCCC,CJJJCJJ,CJJJCJC:CJJJJCJ=split(CCCCCJ,CJJJJJJC("]")):if ubound(CJJJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJCJ(0)) or len(CJJJJCJ(1))<>32 or len(CJJJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJCC=CJJJJCJ(1):for CCCCCC=1 to len(CJJJJCC):CJJJCJJ=mid(CJJJJCC,CCCCCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJJCC=CJJJJCJ(2):if CJJJCJC<>mid(CJJJJCC,6,7) then
Call ClearMemberCookie
else
CJJJCJJ=mid(CJJJJCC,18,10)/2:if CJJJCJJ<DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJJ=Clng(CJJJJCJ(0)):CJCCJC=CJJJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJJ,CJJJJJCC):dim CCCCCC,CJJJCJJ,CJJJCJC:for CCCCCC=1 to len(CJJJJJCC):CJJJCJJ=mid(CJJJJJCC,CCCCCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJCJC=CCJJCJJ & CJJJJJJC("]") & CJJJJJCC & CJJJJJJC("]") & Fix(10000*(Rnd+1)) & CJJJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJC("D"), CJJJJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJC("!$*|t|qt#"))=CJJJCJC:End Sub::Function CCJCCCJ(CJJJJCJJ):Dim str,CJJJCCC:str = Trim(CJJJJCJJ):If IsNull(str) Or str = "" Then
CCJCCCJ = ""
else
str=Replace(str, CJJJJJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJJJC("k:7C2>6"), CJJJJJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJJJC("kD4C:AE"), CJJJJJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCCC=new RegExp:CJJJCCC.Pattern=CJJJJJJC("@?W,2\K.ZXl"):CJJJCCC.IgnoreCase = True:CJJJCCC.Global=True:str=CJJJCCC.Replace(str,CJJJJJJC("@?S`U6BF2=Dj")):set CJJJCCC=nothing:CCJCCCJ=str
End If:End Function:Function IIf(CJJJJCJC, CJJJJCCJ, CJJJJCCC):if isnull(CJJJJCJC) or isempty(CJJJJCJC) then
IIf = CJJJJCCC
elseif CJJJJCJC Then
IIf = CJJJJCCJ
Else
IIf = CJJJJCCC
end if:End Function:Const CCJCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCCJJJJ():dim CJJCJJJ:CJJCJJJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCJJJ = "" Then CJJCJJJ = Cstr(Request.ServerVariables(CJJJJJJC("#t|~%t0pss#")))
if instr(CJJCJJJ,CJJJJJJC("i"))>0 then
CJJCJJJ=left(CJJCJJJ,instr(CJJCJJJ,CJJJJJJC("i"))-1)
elseif instr(CJJCJJJ,CJJJJJJC("["))>0 then
CJJCJJJ=left(CJJCJJJ,instr(CJJCJJJ,CJJJJJJC("["))-1)
end if:CCCJJJJ=left(CJJCJJJ,15):End Function:Sub Debug(str):response.Charset=CJJJJJJC("FE7\g"):dim CCCCCC,CJJJCJJ,CJJCJJC:if isarray(str) then
on error resume next:CCCCCC=ubound(str,2):CJJCJJC=err.number:err.clear:on error goto 0:if CJJCJJC<>0 then
for CCCCCC=0 to ubound(str):if CCCCCC>0 then response.Write CJJJJJJC("k3C ,^m")
response.Write CCCCCC & CJJJJJJC("i ,") & str(CCCCCC):next
else
response.Write CJJJJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCC=0 to ubound(str,2):response.Write CJJJJJJC("kE9 ,2=:8?lV=67EVm") & CCCCCC & CJJJJJJC("k^E9m")
next:response.Write CJJJJJJC("k^ECm"):for CCCCCC=0 to ubound(str):response.Write CJJJJJJC("kECmkE9m") & CCCCCC & CJJJJJJC("k^E9m"):for CJJJCJJ=0 to ubound(str,2):response.Write CJJJJJJC("kE5m") & str(CCCCCC,CJJJCJJ) & CJJJJJJC("k^E5m"):next:response.Write CJJJJJJC("k^ECm"):next:response.Write CJJJJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJJJC():Dim CJJCJCJ, CJJCJCC:CJJCJCC = Request.ServerVariables(CJJJJJJC("!p%w0x}u~")):CJJCJCJ = Request.ServerVariables(CJJJJJJC("""&t#*0$%#x}v")):If CJJCJCJ <> Empty Then
if instr(lcase(CJJCJCJ),CJJJJJJC("Tb4:7C2>6"))>0 or instr(lcase(CJJCJCJ),CJJJJJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJJJC("????????,????????????????????????,??,??,"))
CJJCJCC = CJJCJCC & CJJJJJJC("n") & CJJCJCJ
end if:CCCJJJC = CJJCJCC:End Function:Sub SetHttpOnlyCookie(CJJJCJJJ,CJJJCJJC):dim CJJJJCJ:CJJJJCJ=CJJJCJJJ & CJJJJJJC("l") & CJJJCJJC & CJJJJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJC("$6E\r@@<:6"),CJJJJCJ):End Sub:::::Sub CheckValidPost():dim CJJCCJJ:CJJCCJJ=false:Dim CJJCCJC : CJJCCJC=lcase(Request.ServerVariables(CJJJJJJC("w%%!0#tut#t#"))):if(instr(CJJCCJC,Application(CJJJJJJC("s@>2:?(9:E6{:DE")))>0) then
CJJCCJJ=true
else
Dim CJJCCCJ : CJJCCCJ=lcase(Request.ServerVariables(CJJJJJJC("$t#'t#0}p|t"))):Dim CJJCCCC : CJJCCCC=Request.ServerVariables(CJJJJJJC("{~rp{0pss#")):if Mid(CJJCCJC,8,Len(CJJCCCJ))=CJJCCCJ or Mid(CJJCCJC,9,Len(CJJCCCJ))=CJJCCCJ or CJJCCCJ=CJJCCCC then CJJCCJJ=true
end if:if not CJJCCJJ then Call RedirectMessage(CJJJJJJC("????????,??????????????????????????,"))
end sub::Function CCCJJCJ(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CCCJJCJ=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CJJJJJJC("/-5ZS"):CJJJCCC.IgnoreCase = True:CCCJJCJ = CJJJCCC.test(CJJCJJC):set CJJJCCC=nothing
end if:End Function:Function CCCJJCC(CJJJCJCJ):dim CJCJJJJ,CJCJJJC:CJCJJJJ=CJJJJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJCJ & CJJJJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJC=CJJCCC.execute(CJCJJJJ):CCCJJCC = CJCJJJC(0):if isnull(CCCJJCC) then CCCJJCC=1
CJCJJJC.close : set CJCJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CJCJJJC.close : set CJCJJJC=nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCJJC.Close : Set CJCJJC=Nothing:CCCJCCC.Close : Set CCCJCCC = Nothing:CJJCCC.Close : Set CJJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJC("!$*0|6DD286"),server.URLEncode(CCJCJCJ)):Response.Redirect CJJJJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CJJJCJCC,CJJJJJJJ):dim CJCJJJJ:CJCJJJJ=CJJJJJJC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CJCCJJ  & CJJJJJJC("[V") & CCCJJJJ & CJJJJJJC("V") & CJJJJJJC("[V") & CCJCCCJ(CJJJJJJJ) & CJJJJJJC("V") & CJJJJJJC("[") & CJJJCJCC  & CJJJJJJC("[V") & CCCJJJC & CJJJJJJC("V") & CJJJJJJC("X")
CJJCCC.execute CJCJJJJ:End Sub::::::::::::::Function CCCCJJJ(CJJJCCJJ,str):dim CCCCCC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJJCJJC,CJCJCJC,CJJJCJC:CJJJCJC=ucase(CJJJCCJJ):CJCJCJC=str:if CJCJCJC="" then
CJCJCJC=request.cookies(CJJJCJC):if CJCJCJC="" then
CCCCJJJ=""
else
CJCJCJC=strreverse(CJCJCJC):CJCJJCJ=len(CJCJCJC):for CCCCCC=1 to CJCJJCJ-1 step 2:CJCJCJJ=mid(CJCJCJC,CCCCCC,1):CJJCJJC=mid(CJCJCJC,CCCCCC+1,1):CJCJJCC=CJCJJCC & CJJCJJC & CJCJCJJ:next:CJCJJCC=replace(CJCJJCC,CJJJJJJC("L0N"),CJJJJJJC(" ,")):CJCJJCC=replace(CJCJJCC,CJJJJJJC("LIN"),CJJJJJJC("Y")):CJCJJCC=replace(CJCJJCC,CJJJJJJC("L:N"),CJJJJJJC("^")):CCCCJJJ=trim(CJCJJCC)
end if
else
if Len(CJCJCJC) Mod 2=1 then CJCJCJC=CJCJCJC & CJJJJJJC(" ,")
CJCJCJC=replace(CJCJCJC,CJJJJJJC(" ,"),CJJJJJJC("L0N")):CJCJCJC=replace(CJCJCJC,CJJJJJJC("Y"),CJJJJJJC("LIN")):CJCJCJC=replace(CJCJCJC,CJJJJJJC("^"),CJJJJJJC("L:N")):CJCJJCJ=len(CJCJCJC):for CCCCCC=1 to CJCJJCJ-1 step 2:CJCJCJJ=mid(CJCJCJC,CCCCCC,1):CJJCJJC=mid(CJCJCJC,CCCCCC+1,1):CJCJJCC=CJCJJCC & CJJCJJC & CJCJCJJ:next:CJCJJCC=Trim(strreverse(CJCJJCC)):CCCCJJJ=CJCJJCC:response.cookies(CJJJCJC)=CJCJJCC
end if:End Function::Sub ClearCache(CJJJCCJC):Application.Contents.Remove CJJJCCJC
End Sub::Class jTree:Private CJCJCC, CJCJCCJ, CJCJCCC, CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:Private Sub Class_Initialize():CJCJCCC = 0:CJCCJJJ = 0:CJCCCJJ=10:End Sub:Public Property Let Table(CJJJCCCJ):if CJJJCCCJ="" then Call RedirectMessage(CJJJJJJC("????????,;%C66????????????????????@??????????,"))
CJCCJJC=CJJJCCCJ:CJCCJCJ=CJJJJJJC("!$*0") & UCase(CJCCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJJC:End Property:::Private Sub GetTreeArray():Dim CCCCCC, CJJJCJJ, CJCCCJC,CJCCCCJ:CJCJCCJ = Application(CJCCJCJ):If Not IsArray(CJCJCCJ) Then
CJCJCC = CJJJJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJJC:if CJCCJCC<>"" then CJCJCC=CJCJCC & CJJJJJJC(" ,H96C6 ,") & CJCCJCC
set CJCCCJC=CJJCCC.execute(CJCJCC):CJCCCCJ=CJCCCJC(0):if CJCCCCJ=0 then Call RedirectMessage(CJJJJJJC("????W") & CJCCJJC & CJJJJJJC("^") & CJCCJCC & CJJJJJJC("X????????????"))
CJCCJJJ=CJCCCCJ+CJCCCJJ:ReDim CJCJCCJ(CJCCJJJ, 4):CJCJCC = CJJJJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJJC(" ,H:E9 ,W?@=@4<X"):if CJCCJCC<>"" then CJCJCC=CJCJCC & CJJJJJJC(" ,H96C6 ,") & CJCCJCC
CJCJCC=CJCJCC & CJJJJJJC(" ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=CJJCCC.execute(CJCJCC):For CCCCCC = 1 To CJCCCCJ:For CJJJCJJ = 0 To 4:CJCJCCJ(CCCCCC, CJJJCJJ) = CJCCCJC(CJJJCJJ):if IsNull(CJCJCCJ(CCCCCC,4)) then CJCJCCJ(CCCCCC,4)=0
If CJCJCCJ(CCCCCC,2)="" then CJCJCCJ(CCCCCC,2)=CJJJJJJC(",??.")
Next:CJCCCJC.MoveNext:Next:CJCCCJC.Close: Set CJCCCJC = Nothing:for CCCCCC=CJCCJJJ-(CJCCCJJ-1) to CJCCJJJ:CJCJCCJ(CCCCCC,0)=CCCCCC:next:Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
else
CJCCJJJ=Ubound(CJCJCCJ)
End If:End Sub:::::Private Function CCCCJCJ(CCJJCJJ):dim CCCCCC,CJCCCCC:CCCCJCJ=0:CJCCCCC=CStr(CCJJCJJ):if CJCCCCC<>"0" then
for CCCCCC=1 to CJCCJJJ:If CStr(CJCJCCJ(CCCCCC, 0))=CJCCCCC Then
CCCCJCJ = CCCCCC:Exit For
End If:Next
end if:End Function::::Public Function CCCCJCC(CCJJCJJ):Dim CCCCCC,CCJJJJJ:CCCCCC=CCCCJCJ(CCJJCJJ):if CCCCCC=0 then
CCJJJJJ=CCCCCJJ(CCJJCJJ)
else
CCJJJJJ=CJCJCCJ(CCCCCC,3):if isnull(CCJJJJJ) or CCJJJJJ="" then
CCJJJJJ=CCCCCJJ(CCJJCJJ)
elseif Mid(CCJJJJJ,instrrev(CCJJJJJ,CJJJJJJC("["))+1)<>CStr(CCJJCJJ) then
CCJJJJJ=CCCCCJJ(CCJJCJJ)
elseif Left(CCJJJJJ,1)=CJJJJJJC("[") then
CCJJJJJ=CCCCCJJ(CCJJCJJ)
end if
end if:CCCCJCC=CCJJJJJ:End Function:Private Function CCCCCJJ(CCJJCJJ):dim CJCCCCC:CJCCCCC=CStr(CCJJCJJ):if CJCCCCC="0" then
CCCCCJJ=""
else
dim CJCCCJC:set CJCCCJC=CJJCCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CJJJJJJC(" ,H96C6 ,:5l") & CCJJCJJ):if CJCCCJC.eof then
Call UpdateCache(CCJJCJJ,"","","",""):Call RedirectMessage(CJJJJJJC("??????,xs??,") & CCJJCJJ & CJJJJJJC("??,????????,????????????????????,"))
else
if CJCCCJC(0)=0 then
CCCCCJJ="0," & CCJJCJJ
else
CCCCCJJ=CCCCJCC(CJCCCJC(0)) & CJJJJJJC("[") & CCJJCJJ
end if:if CJCCCJC(2)<>CCCCCJJ then
CJJCCC.execute CJJJJJJC("FA52E6 ,") & CJCCJJC & CJJJJJJC(" ,D6E ,A2E9lV") & CCCCCJJ & CJJJJJJC("V ,H96C6 ,:5l") & CCJJCJJ
else
CCCCCJJ=CJCCCJC(2)
end if
end if:Call UpdateCache(CCJJCJJ,CJCCCJC(0),CJCCCJC(1),CCCCCJJ,CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if:End Function::::Public Function IsParent(CJJJCCCC, CJJCJJJJ):IsParent=InStr(CCCCJCC(CJJCJJJJ) & CJJJJJJC("["), CJJJJJJC("[") & CJJJCCCC & CJJJJJJC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCJJCJJ):dim CCJJJJJ:CCJJJJJ=CCCCJCC(CCJJCJJ):Sql_GetChildren = CJCCJJC & CJJJJJJC("0A2E9ZV[V ,=:<6 ,V") & CCJJJJJ & CJJJJJJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCJ
End Sub:Public Sub UpdateCache(CCJJCJJ,CJJCJJJC,CJJCJJCJ,CCJJJJJ,CJJCJJCC):dim CCCCCC,CJJJCJJ:CCJJCJJ=CLng(CCJJCJJ):CCCCCC=CCCCJCJ(CCJJCJJ):if CJJCJJJC="" and CJJCJJCJ="" and CCJJJJJ="" and CJJCJJCC="" then
if CCCCCC>0 then
for CJJJCJJ=1 to 4:CJCJCCJ(CCCCCC,CJJJCJJ)=Null:next
end if
else
if CCCCCC=0 then
for CJJJCJJ=1 to CJCCJJJ:if CJCJCCJ(CJJJCJJ,1) & ""="" then
CCCCCC=CJJJCJJ:exit for
end if:next
end if:if CCCCCC=0 then
Call ClearCache
else
CJCJCCJ(CCCCCC,0)=CLng(CCJJCJJ):if CJJCJJJC<>"" then CJCJCCJ(CCCCCC,1)=CLng(CJJCJJJC)
if CJJCJJCJ<>"" then CJCJCCJ(CCCCCC,2)=CJJCJJCJ
if CCJJJJJ<>"" then CJCJCCJ(CCCCCC,3)=CCJJJJJ
if CJJCJJCC<>"" then CJCJCCJ(CCCCCC,4)=CLng(CJJCJJCC)
end if
end if:if CCCCCC>0 then
Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJCJ):Call ConnClose:Response.Write CCJCJCJ:Response.End:End Sub:Private Function CCCJJCC():CCCJJCC=CCCCCCC+1:End Function:Private Function CCCCCCC():dim CJCJJJC:set CJCJJJC=CJJCCC.execute(CJJJJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJJC & CJJJJJJC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCC=CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJJJJC:CJCJCC=Request.ServerVariables(CJJJJJJC("!p%w0x}u~")):if instr(CJCJCC,CJJJJJJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJCJC and not CCCCJJ then Call RedirectMessage(CJJJJJJC("????????,????????????????????????,"))
CJJJJJC=CCJJCJ
elseif instr(CJCJCC,CJJJJJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CJCJCC,CJJJJJJC("^DEF56?E^"))>0 then
Call CheckLogined:CJJJJJC=CCJJCJ
elseif instr(CJCJCC,CJJJJJJC("^D49@@="))>0 then
CJJJJJC=Request.QueryString(CJJJJJJC("D49@@=")):if not CCCJJCJ(CJJJJJC) then CJJJJJC=Request.QueryString(CJJJJJJC("F"))
if not CCCJJCJ(CJJJJJC) then CJJJJJC=Request.QueryString(CJJJJJJC("D4"))
if not CCCJJCJ(CJJJJJC) then Call RedirectMessage(CJJJJJJC("????????W$49@@=X??@??????????,"))
CJJJJJC=csng(CJJJJJC)
end if:if CJJJJJC=0 then Call RedirectMessage(CJJJJJJC("????????W$49@@=X????W_X??,"))
Dim CCJJJJC:Call SetConfig:Sub SetConfig():dim CJJJJJJ,CJCJJJC:CJCJCC=CJJJJJJC("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") & CJJJJJC:set CJCJJJC=CJJCCC.execute(CJCJCC):if CJCJJJC.eof then Call RedirectMessage(CJJJJJJC("??W") & CJCCJJ & CJJJJJJC("X??????????W") & CJJJJJC & CJJJJJJC("X????????,"))
ReDim CJJJJJJ(61):CJJJJJJ(0)=CJCJJJC(CJJJJJJC(";:2@H6:")) & "":CJJJJJJ(1)=CJCJJJC(CJJJJJJC("EJA6")):CJJJJJJ(2)=CJCJJJC(CJJJJJJC("D>D")):CJJJJJJ(3)=CJCJJJC(CJJJJJJC("4FDE@>8C@FA")) & "":CJJJJJJ(4)=CJCJJJC(CJJJJJJC("D:5632C0@E96C")) & "":CJJJJJJ(5)=IIf(isnull(CJCJJJC(CJJJJJJC("E6DEC6DF=EG:6H"))),0,CJCJJJC(CJJJJJJC("E6DEC6DF=EG:6H"))):CJJJJJJ(6)=CJCJJJC(CJJJJJJC("K:IF?E:>6")):CJJJJJJ(7)=CJCJJJC(CJJJJJJC("766")):CJJJJJJ(8)=CJCJJJC(CJJJJJJC("C6E6DE52J")):CJJJJJJ(9)=CJCJJJC(CJJJJJJC("6IA:C652E6")):CJJJJJJ(10)=CJCJJJC(CJJJJJJC("E:E=6")):CJJJJJJ(11)=CJCJJJC(CJJJJJJC(":?EC@")) & "":CJJJJJJ(12)=CJCJJJC(CJJJJJJC("A:4EFC6")) & "":CJJJJJJ(13)=CJCJJJC(CJJJJJJC("72>:=J")):CJJJJJJ(14)=CJCJJJC(CJJJJJJC("4@AJC:89E")) & "":CJJJJJJ(15)=IIf(isnull(CJCJJJC(CJJJJJJC("D6>6DE6C0DE2CE052E6"))),CJJJJJJC("`h__\`\`"),CJCJJJC(CJJJJJJC("D6>6DE6C0DE2CE052E6"))):CJJJJJJ(16)=IIf(isnull(CJCJJJC(CJJJJJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJC(CJJJJJJC("K:IF?0E:>6D09:89=:89E"))):CJJJJJJ(17)=CJCJJJC(CJJJJJJC("4@?E24E")) & "":CJJJJJJ(18)=CJCJJJC(CJJJJJJC("D2?5E23=6")):CJJJJJJ(19)=CJCJJJC(CJJJJJJC("4C:D:D")):CJJJJJJ(20)=CJCJJJC(CJJJJJJC("JJ52E6")):CJJJJJJ(21)=CJCJJJC(CJJJJJJC("BB")):CJJJJJJ(22)=CJCJJJC(CJJJJJJC("JFJF60D>D0EA=")) & "":CJJJJJJ(23)=CJCJJJC(CJJJJJJC("JFJF60E6DE0=3")) & "":CJJJJJJ(25)=CJCJJJC(CJJJJJJC("6IA6CE")):CJJJJJJ(26)=CJCJJJC(CJJJJJJC(">@5:?7@")):CJJJJJJ(27)=CJCJJJC(CJJJJJJC("9@>6A286E@AA:4EFC6")) & "":CJJJJJJ(28)=CJCJJJC(CJJJJJJC("4C:D:D=3")):CJJJJJJ(29)=IIf(CJCJJJC(CJJJJJJC("4C:D:D@=5")),False,True):CJJJJJJ(30)=CJCJJJC(CJJJJJJC("8C@FA8F:52?46")):CJJJJJJ(31)=CJCJJJC(CJJJJJJC("3:@7665324<")):CJJJJJJ(32)=CJCJJJC(CJJJJJJC("<6JDEC")):CJJJJJJ(33)=CJCJJJC(CJJJJJJC("=@8@")) & "":CJJJJJJ(34)=CJCJJJC(CJJJJJJC("K:46")):CJJJJJJ(35)=IIf(CJCJJJC(CJJJJJJC(":D?6H")),True,False):CJJJJJJ(36)=121:CJJJJJJ(37)=111:CJJJJJJ(38)=160:CJJJJJJ(39)=CJCJJJC(CJJJJJJC("8F6DE3@@<")):CJJJJJJ(40)=CJCJJJC(CJJJJJJC("75D")):CJJJJJJ(42)=CJCJJJC(CJJJJJJC("9@>6=@8:?")):CJJJJJJ(43)=CJCJJJC(CJJJJJJC("K:IF?0?6657665324<")):CJJJJJJ(44)=CJCJJJC(CJJJJJJC("K:IF?0E:>6D0=:>:E")):CJJJJJJ(45)=CJCJJJC(CJJJJJJC("4@>A=6E60:?7@")):CJJJJJJ(46)=CJCJJJC(CJJJJJJC("E6DE:?EC@")) & "":CJJJJJJ(47)=IIf(isnull(CJCJJJC(CJJJJJJC("JFJF60367@C60E:>6"))),0,CJCJJJC(CJJJJJJC("JFJF60367@C60E:>6"))):CJJJJJJ(49)=CJCJJJC(CJJJJJJC("D>D0C646:G6C")):CJJJJJJ(50)=CJCJJJC(CJJJJJJC("D>D0D:8?")) & "":CJJJJJJ(52)=CJCJJJC(CJJJJJJC("JFJF602CC2?86")):CJJJJJJ(53)=IIf(isnull(CJCJJJC(CJJJJJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJC(CJJJJJJC("DEF56?E0BF6DE:@?04@F?E"))):CJJJJJJ(54)=CJCJJJC(CJJJJJJC("9:560=30@FE@7286")):CJJJJJJ(55)=CJCJJJC(CJJJJJJC("JFJF60E6DE052JD")):CJJJJJJ(56)=CJCJJJC(CJJJJJJC("JFJF60H66<0=:>:E")):CJJJJJJ(57)=CJCJJJC(CJJJJJJC("JFJF604964<65")):CJJJJJJ(58)=CJCJJJC(CJJJJJJC("K:IF?0?6657665324<0?6IE")):CJJJJJJ(59)=CJCJJJC(CJJJJJJC("4964<?6HDEF56?E")):CJJJJJJ(60)=CJCJJJC(CJJJJJJC("K:IF?04=@D6052E6")):CJCJJJC.close : set CJCJJJC=nothing:if isNull(CJJJJJJ(8)) or CJJJJJJ(8)="" then CJJJJJJ(8)=0
if isdate(CJJJJJJ(9)) then
CJJJJJJ(9)=cdate(CJJJJJJ(9)):if CJJJJJJ(9)<Date then Call RedirectMessage(CJJJJJJC("????????,????????????????W") & CJJJJJJ(9) & CJJJJJJC("X??????,"))
end if:if not CCCJJCJ(CJJJJJJ(20)) then CJJJJJJ(20)=7
select case CJJJJJJ(1):case 1,2,16:CJJJJJJ(36)=159:case 4,5,6,10,11:CJJJJJJ(36)=190:CJJJJJJ(37)=178:CJJJJJJ(38)=191:case 7,13:CJJJJJJ(36)=164:CJJJJJJ(37)=178:CJJJJJJ(38)=179:end select:CCJJJJC=CJJJJJJ:End Sub:Function CCCJCCJ(CJJJCCJJ):dim CJJJJJJ(7,1),CCCCCC,CCJJJCJ,CCJJJCC:CCJJJCJ=Array(CJJJJJJC("$49@@="),CJJJJJJC("$EF56?E"),CJJJJJJC("s6AE"),CJJJJJJC("vC256"),CJJJJJJC("r=2DD>2E6"),CJJJJJJC("}F>36C"),CJJJJJJC("%62496C"),CJJJJJJC("!2C6?E")):select case CCJJJJC(1):case 1,2 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????")):case 3,16 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????")):case 4 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("??????@"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????")):case 5 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????")):case 6 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("??????@"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 7 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 8 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("??????@"),CJJJJJJC("????"),CJJJJJJC("????????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 9 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 10 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 11 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 12 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 13 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????")):case 14 : CCJJJCC=Array(CJJJJJJC("??????"),CJJJJJJC("??@??"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case 15 : CCJJJCC=Array(CJJJJJJC("????"),CJJJJJJC("????????"),CJJJJJJC("????"),CJJJJJJC("????????"),CJJJJJJC("????"),CJJJJJJC("????"),CJJJJJJC("??????"),CJJJJJJC("????")):case else : CCJJJCC=CCJJJCJ
end select:for CCCCCC=0 to Ubound(CJJJJJJ):CJJJJJJ(CCCCCC,0)=CCJJJCJ(CCCCCC):CJJJJJJ(CCCCCC,1)=CCJJJCC(CCCCCC):next:for CCCCCC=0 to Ubound(CJJJJJJ):if CJJJJJJ(CCCCCC,0)=CJJJCCJJ then
CCCJCCJ=CJJJJJJ(CCCCCC,1):exit for
end if:next:End Function::Call CheckRight("76,80,85"):dim CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCCCCC,redirect,CCJCJJC,CCJCJCJ:CCJJCJJ=Request.QueryString(CJJJJJJC(":5")):CCJJCJC=Request.QueryString(CJJJJJJC("24E")):CCJJCCJ=Request.QueryString(CJJJJJJC(":5=:DE")):CCJJCCC=Request.QueryString(CJJJJJJC("=3:5")):redirect=Request.QueryString(CJJJJJJC("C65:C64E")):CCJCJJC=Request.QueryString(CJJJJJJC("2;2I")):dim CJCJCCJ:set CJCJCCJ=new jtree:CJCJCCJ.table=CJJJJJJC(">6>36C0EJA6"):if CCJCCJC(85) and CCJJCJC=CJJJJJJC("32E4956=") then
Call CheckValidPost:if CCJJCCJ<>"" then
CJJCCC.execute CJJJJJJC("56=6E6 ,7C@> ,E6DE ,H96C6 ,:5 ,:? ,W") & CCJJCCJ & CJJJJJJC("X"):Call InsertLog(3,CJJJJJJC("????????????W") & CCJJCCJ & CJJJJJJC("X"))
end if:Call ConnClose:Response.end
elseif CCJJCJC=CJJJJJJC("A6C>:EG:6H") then
Call CheckValidPost:if CCJJCCJ<>"" then CJJCCC.execute(CJJJJJJC("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl` ,H96C6 ,G2=:5l` ,2?5 ,:5 ,:? ,W") & CCJJCCJ & CJJJJJJC("X"))
Call ConnClose:response.end
elseif CCJJCJC=CJJJJJJC("?@EA6C>:EG:6H") then
Call CheckValidPost:if CCJJCCJ<>"" then CJJCCC.execute(CJJJJJJC("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl_ ,H96C6 ,G2=:5l` ,2?5 ,:5 ,:? ,W") & CCJJCCJ & CJJJJJJC("X"))
Call ConnClose:response.end
elseif CCJJCJC=CJJJJJJC("A6C>:EG:6H2==") then
Call CheckValidPost:CJCJCC=CCCCJJJ(CJJJJJJC("$""{"),""):if CJCJCC<>"" then
CJCJCC=CJJJJJJC("D6=64E ,DEF77WWD6=64E ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,") & CJCJCC & CJJJJJJC(" ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
set CJCJJC=CJCJJJ.execute(CJCJCC):CCJJCCJ=CJCJJC(0):if not isnull(CCJJCCJ) then CJJCCC.execute(CJJJJJJC("FA52E6 ,G0E6DE ,D6E ,A6C>:EG:6Hl` ,H96C6 ,G2=:5l` ,2?5 ,:5 ,:? ,W") & CCJJCCJ & CJJJJJJC("X"))
end if:Call ConnClose:response.end
elseif CCJJCJC=CJJJJJJC("?@EA6C>:EG:6H2==") then
Call CheckValidPost:CJCJCC=CCCCJJJ(CJJJJJJC("$""{"),""):if CJCJCC<>"" then
CJCJCC=CJJJJJJC("D6=64E ,DEF77WWD6=64E ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,") & CJCJCC & CJJJJJJC(" ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
set CJCJJC=CJCJJJ.execute(CJCJCC):CCJJCCJ=CJCJJC(0):if not isnull(CCJJCCJ) then CJJCCC.execute(CJJJJJJC("FA52E6 ,G0E6DE ,D6E ,A6C>:EG:6Hl_ ,H96C6 ,G2=:5l` ,2?5 ,:5 ,:? ,W") & CCJJCCJ & CJJJJJJC("X"))
end if:Call ConnClose:response.end
end if:if not CCCJJCJ(CCJJCJJ) then Call RedirectMessage(CJJJJJJC("????????,??????????????,"))
if CCJJCJC=CJJJJJJC("56=") then
if not CCJCCJC("85") then
CCJCJCJ=CJJJJJJC("????????????,")
else
set CJCJJC=CJCJJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,>6>36CEJA6 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJCJJ):if CJCJJC.eof then
CCJCJCJ=CJJJJJJC("????????,????????????????@????,")
else
if CJCJCCJ.isParent(CJCCCC,CJCJJC(0)) then
CJJCCC.execute CJJJJJJC("56=6E6 ,7C@> ,E6DE ,H96C6 ,:5l") & CCJJCJJ:Call InsertLog(3,CJJJJJJC("????????????W") & CCJJCJJ & CJJJJJJC("X"))
else
CCJCJCJ=CJJJJJJC("????????,??????????????????????????,")
end if
end if
end if:Call ConnClose:if CCJCJJC="1" then
response.charset=CJJJJJJC("FE7\g"):Response.Write CCJCJCJ:response.end
elseif CCJCJCJ<>"" then
Call RedirectMessage(CCJCJCJ)
elseif redirect="" then
Response.Redirect CCCCJJJ(CJJJJJJC("&#{"),"")
else
response.redirect redirect
end if
end if:If Request.ServerVariables(CJJJJJJC("#t""&t$%0|t%w~s"))=CJJJJJJC("!~$%") then
CJCJCC=CJJJJJJC("FA52E6 ,E6DE ,D6E") & CJJJJJJC(" ,6IA=2:?lV") & CCJCCCJ(Request.Form(CJJJJJJC("6IA=2:?"))) & CJJJJJJC("V") & CJJJJJJC("[6IA=2:?alV") & CCJCCCJ(Request.Form(CJJJJJJC("6IA=2:?a"))) & CJJJJJJC("V") & CJJJJJJC("[25G:46lV") & CCJCCCJ(Request.Form(CJJJJJJC("25G:46"))) & CJJJJJJC("V") & CJJJJJJC("[5@?6l") & cint(Request.Form(CJJJJJJC("5@?6"))) & CJJJJJJC("[A6C>:EG:6Hl") & cint(Request.Form(CJJJJJJC("A6C>:EG:6H"))) & CJJJJJJC("[E62496ClV") & Left(CCCJJJ,10) & CJJJJJJC("V") & CJJJJJJC(" ,H96C6 ,:5l") & CCJJCJJ
CJJCCC.execute CJCJCC:Response.Redirect CCCCJJJ(CJJJJJJC("&#{"),"")
End If:set CJCJJC=CJCJJJ.execute(CJJJJJJC("D6=64E ,E@A ,` ,>6>36C[=3?2>649[6IA=2:?[25G:46[A6C>:EG:6H[5@?6[6IA=2:?a ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJCJJ & CJJJJJJC(" ,2?5 ,G2=:5l` ,2?5 ,") & CJCJCCJ.Sql_GetChildren(CJCCCC)):if CJCJJC.eof then Call RedirectMessage(CJJJJJJC("????????,????????????????????????????,"))
Response.Write(vbCrLf):Response.Write(CJJJJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJC("k9625m") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("E6IE2C62 ,LH:5E9i`__TjN") & vbCrLf):Response.Write(CJJJJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJC("k^9625m") & vbCrLf):Response.Write(CJJJJJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,2=:8?lQ46?E6CQmk3m??????,")):Response.Write  CJCJJC(1):Response.Write(CJJJJJJC("k^3mk^5:Gm") & vbCrLf):Response.Write(CJJJJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k=686?5m??????,??????????,k^=686?5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE6IE2C62 ,?2>6lQ6IA=2:?Qm")):Response.Write  CJCJJC(2):Response.Write(CJJJJJJC("k^E6IE2C62m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k=686?5m??????,??????@????,k^=686?5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE6IE2C62 ,?2>6lQ6IA=2:?aQm")):Response.Write  CJCJJC(6):Response.Write(CJJJJJJC("k^E6IE2C62m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJJJJJJC(" ,kE6IE2C62 ,?2>6lQ25G:46Qm")):Response.Write  CJCJJC(3):Response.Write(CJJJJJJC("k^E6IE2C62m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJC(" ,k=236=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ5@?6Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCJJC(5),CJJJJJJC("4964<65"),""):Response.Write(CJJJJJJC(" ,E:E=6lQ??????????????????????????@????????,????,??????Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,??????????????????????,") & vbCrLf):Response.Write(CJJJJJJC(" ,k^=236=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k3Cm") & vbCrLf):Response.Write(CJJJJJJC(" ,k=236=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQA6C>:EG:6HQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCJJC(4),CJJJJJJC("4964<65"),""):Response.Write(CJJJJJJC("m") & vbCrLf):Response.Write(CJJJJJJC(" ,??????????????????????,") & vbCrLf):Response.Write(CJJJJJJC(" ,k^=236=m") & vbCrLf):Response.Write(CJJJJJJC(" ,k9C ,D:K6lQ`Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,k:?AFE ,EJA6lQC6D6EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJJJC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXQm?? ,??k^2m") & vbCrLf):Response.Write(CJJJJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJC("k^7@C>m") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJC(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CJJJJJJC("NX") & vbCrLf):Response.Write(CJJJJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJC.Close:Set CJCJJC=Nothing:CJJCCC.Close:Set CJJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJC(ByVal CJJJJJJJ)
Dim CCJCJCC, CCCCCC, CJJCJJC
CJJJJJJJ = Replace(CJJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCC = 1 To Len(CJJJJJJJ)
If CCCCCC <> CJJCJJC Then
CCJCJCC = AscW(Mid(CJJJJJJJ, CCCCCC, 1))
If CCJCJCC >= 33 And CCJCJCC <= 79 Then
CJJJJJJC = CJJJJJJC & Chr(CCJCJCC + 47)
ElseIf CCJCJCC >= 80 And CCJCJCC <= 126 Then
CJJJJJJC = CJJJJJJC & Chr(CCJCJCC - 47)
Else
CJJCJJC = CCCCCC + 1
If Mid(CJJJJJJJ, CJJCJJC, 1) = Chr(64) Then CJJJJJJC = CJJJJJJC & ChrW(CCJCJCC + 5) Else CJJJJJJC = CJJJJJJC & Mid(CJJJJJJJ, CCCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de