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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJJ, CCCCJC,CCCCCJ, CCCCCC, CJJJJJJ:Set CCCCJJ = server.CreateObject(CCCJJCC("ps~sq]r@??64E:@?")):CCCCJJ.open Application(CCCJJCC("r@??64E:@?$EC:?8")):Set CCCCJC=CCCCJJ::Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC:CJCJJCC=Trim(Request.Cookies(CCCJJCC("!$*|t|qt#"))):if CJCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJC>0 then
CJJJJJJ=CCCJJCC("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") & CJJJJCJ & CCCJJCC("V ,2?5 ,:5l") & CJJJJJC
set CCCCCJ=CCCCJJ.execute(CJJJJJJ):If CCCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJJCC=CCCCCJ(2) & "":CJJJCJJ=CCCCCJ(3):CJJJCJC=CCCCCJ(5):CJJJCCJ=CCCCCJ(6):CJJJCCC=CCCCCJ(9):CJJCJJJ=CCCCCJ(15):CJJCJCJ=CCCCCJ(0):CJCJJJC=CCCCCJ(1):CJCJJJJ=CCCCCJ(11) & "":CJJCJCC=CCCCCJ(10) & "":CJJCJJC=CCCCCJ(12):CJJCCJJ=CCCCCJ(14):CJJCCJC=CCCCCJ(13):CJJCCCJ=CCCCCJ(7) & "":CJJCCCC=CCCCCJ(4):CJCJJCJ=CCCCCJ(8):if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CJJJCCC) or CJJJCCC=0 then CJJJCCC=CJJJCJJ
if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJJCJC) then CJJJCJC=0
if instr(CCCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCJ)>0 then Call RedirectMessage(CCCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJC,CJJJJCJ)
End IF
end if:Sub CheckRight(CCCJCJJ):dim CJCJCJJ,CJCJCJC:if CJJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJCC("??????????????,????????????,"))
elseIf not CCJCJJJ(CCCJCJJ) then
Call RedirectMessage(CCCJJCC("????W") & CCCJCJJ & CCCJJCC("X????????,????????????????????,"))
end if:End Sub:Function CCJCJJJ(CCCJCJJ):dim CJCJCJJ,CJCJCJC:CJCJCJC=split(CCCJCJJ,CCCJJCC("[")):CCJCJJJ=False:for CJCJCJJ=0 to ubound(CJCJCJC):If Mid(CJJJJCC,CJCJCJC(CJCJCJJ),1)="1" then
CCJCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCCJ:CJCJCCJ=trim(request.QueryString(CCCJJCC("D49@@="))):if isnumeric(CJCJCCJ) then
response.Redirect CCCJJCC("^>^G2?E^R^D49@@=^") & CJCJCCJ & CCCJJCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJJCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJCC("!$*|t|qt#"))="":CJJJJJC=0:CJJJCCJ=0:CJJJJCJ=Empty:CJJJCJC=0:CJJCJJJ=0:CJJJCCC=0:CJJJCJJ=0:CJJCJCJ=False:CJCJJJC=False:CJCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCCC,CJCCJJJ,CJCJCJJ,CJCCJJC,CJCCJCJ:CJCJCCC=split(CJCJJCC,CCCJJCC("]")):if ubound(CJCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCCC(0)) or len(CJCJCCC(1))<>32 or len(CJCJCCC(2))<>32 then
Call ClearMemberCookie
else
CJCCJJJ=CJCJCCC(1):for CJCJCJJ=1 to len(CJCCJJJ):CJCCJJC=mid(CJCCJJJ,CJCJCJJ,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJJJ=CJCJCCC(2):if CJCCJCJ<>mid(CJCCJJJ,6,7) then
Call ClearMemberCookie
else
CJCCJJC=mid(CJCCJJJ,18,10)/2:if CJCCJJC<DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJC=Clng(CJCJCCC(0)):CJJJJCJ=CJCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJC,CCCJCJC):dim CJCJCJJ,CJCCJJC,CJCCJCJ:for CJCJCJJ=1 to len(CCCJCJC):CJCCJJC=mid(CCCJCJC,CJCJCJJ,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJCJ=CCJJJJC & CCCJJCC("]") & CCCJCJC & CCCJJCC("]") & Fix(10000*(Rnd+1)) & CJCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCC("D"), CCCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCC("!$*|t|qt#"))=CJCCJCJ:End Sub::Function CCJCJJC(CCCJCCJ):Dim str,CJCCCJJ:str = Trim(CCCJCCJ):If IsNull(str) Or str = "" Then
CCJCJJC = ""
else
str=Replace(str, CCCJJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJCC("k:7C2>6"), CCCJJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJCC("kD4C:AE"), CCCJJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCJJ=new RegExp:CJCCCJJ.Pattern=CCCJJCC("@?W,2\K.ZXl"):CJCCCJJ.IgnoreCase = True:CJCCCJJ.Global=True:str=CJCCCJJ.Replace(str,CCCJJCC("@?S`U6BF2=Dj")):set CJCCCJJ=nothing:CCJCJJC=str
End If:End Function:Function IIf(CCCJCCC, CCCCJJJ, CCCCJJC):if isnull(CCCJCCC) or isempty(CCCJCCC) then
IIf = CCCCJJC
elseif CCCJCCC Then
IIf = CCCCJJJ
Else
IIf = CCCCJJC
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCCJCJ,CCCCJCC):dim CJCJCCC:CJCJCCC=CCCCJCJ & "=" & CCCCJCC & CCCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCC("$6E\r@@<:6"),CJCJCCC):End Sub::Function CCJCJCC():CCJCJCC = Request.Cookies(CCCJJCC("!$*"))(CCCJJCC("&#{")):End Function:::::Function CCJCCJJ(CCJJCCJ):if isnull(CCJJCCJ) or trim(CCJJCCJ)="" or not isnumeric(CCJJCCJ) then
CCJCCJJ=false
else
Dim CJCCCJJ:Set CJCCCJJ = New RegExp:CJCCCJJ.Pattern = CCCJJCC("/-5ZS"):CJCCCJJ.IgnoreCase = True:CCJCCJJ = CJCCCJJ.test(CCJJCCJ):set CJCCCJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CJCCCCJ.close : set CJCCCCJ=nothing:CCCCCC.Close : Set CCCCCC=Nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCJJJC.Close : Set CCCJJJC = Nothing:CCCCJJ.Close : Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCC("!$*0|6DD286"),server.URLEncode(CCCCCJJ)):Response.Redirect CCCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJCJCCJ:CJJJJJJ=Request.ServerVariables(CCCJJCC("!p%w0x}u~")):if instr(CJJJJJJ,CCCJJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJCJ and not CJCJJJC then Call RedirectMessage(CCCJJCC("????????,????????????????????????,"))
CJCJCCJ=CJJJCCC
elseif instr(CJJJJJJ,CCCJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJJJ,CCCJJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCCJ=CJJJCCC
elseif instr(CJJJJJJ,CCCJJCC("^D49@@="))>0 then
CJCJCCJ=Request.QueryString(CCCJJCC("D49@@=")):if not CCJCCJJ(CJCJCCJ) then CJCJCCJ=Request.QueryString(CCCJJCC("F"))
if not CCJCCJJ(CJCJCCJ) then CJCJCCJ=Request.QueryString(CCCJJCC("D4"))
if not CCJCCJJ(CJCJCCJ) then Call RedirectMessage(CCCJJCC("????????W$49@@=X??@??????????,"))
CJCJCCJ=csng(CJCJCCJ)
end if:if CJCJCCJ=0 then Call RedirectMessage(CCCJJCC("????????W$49@@=X????W_X??,"))
Dim CJCCCJC:Call SetConfig:Sub SetConfig():dim CJCJCJC,CJCCCCJ:CJJJJJJ=CCCJJCC("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") & CJCJCCJ:set CJCCCCJ=CCCCJJ.execute(CJJJJJJ):if CJCCCCJ.eof then Call RedirectMessage(CCCJJCC("??W") & CJJJJJC & CCCJJCC("X??????????W") & CJCJCCJ & CCCJJCC("X????????,"))
ReDim CJCJCJC(61):CJCJCJC(0)=CJCCCCJ(CCCJJCC(";:2@H6:")) & "":CJCJCJC(1)=CJCCCCJ(CCCJJCC("EJA6")):CJCJCJC(2)=CJCCCCJ(CCCJJCC("D>D")):CJCJCJC(3)=CJCCCCJ(CCCJJCC("4FDE@>8C@FA")) & "":CJCJCJC(4)=CJCCCCJ(CCCJJCC("D:5632C0@E96C")) & "":CJCJCJC(5)=IIf(isnull(CJCCCCJ(CCCJJCC("E6DEC6DF=EG:6H"))),0,CJCCCCJ(CCCJJCC("E6DEC6DF=EG:6H"))):CJCJCJC(6)=CJCCCCJ(CCCJJCC("K:IF?E:>6")):CJCJCJC(7)=CJCCCCJ(CCCJJCC("766")):CJCJCJC(8)=CJCCCCJ(CCCJJCC("C6E6DE52J")):CJCJCJC(9)=CJCCCCJ(CCCJJCC("6IA:C652E6")):CJCJCJC(10)=CJCCCCJ(CCCJJCC("E:E=6")):CJCJCJC(11)=CJCCCCJ(CCCJJCC(":?EC@")) & "":CJCJCJC(12)=CJCCCCJ(CCCJJCC("A:4EFC6")) & "":CJCJCJC(13)=CJCCCCJ(CCCJJCC("72>:=J")):CJCJCJC(14)=CJCCCCJ(CCCJJCC("4@AJC:89E")) & "":CJCJCJC(15)=IIf(isnull(CJCCCCJ(CCCJJCC("D6>6DE6C0DE2CE052E6"))),CCCJJCC("`h__\`\`"),CJCCCCJ(CCCJJCC("D6>6DE6C0DE2CE052E6"))):CJCJCJC(16)=IIf(isnull(CJCCCCJ(CCCJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCCCCJ(CCCJJCC("K:IF?0E:>6D09:89=:89E"))):CJCJCJC(17)=CJCCCCJ(CCCJJCC("4@?E24E")) & "":CJCJCJC(18)=CJCCCCJ(CCCJJCC("D2?5E23=6")):CJCJCJC(19)=CJCCCCJ(CCCJJCC("4C:D:D")):CJCJCJC(20)=CJCCCCJ(CCCJJCC("JJ52E6")):CJCJCJC(21)=CJCCCCJ(CCCJJCC("BB")):CJCJCJC(22)=CJCCCCJ(CCCJJCC("JFJF60D>D0EA=")) & "":CJCJCJC(23)=CJCCCCJ(CCCJJCC("JFJF60E6DE0=3")) & "":CJCJCJC(25)=CJCCCCJ(CCCJJCC("6IA6CE")):CJCJCJC(26)=CJCCCCJ(CCCJJCC(">@5:?7@")):CJCJCJC(27)=CJCCCCJ(CCCJJCC("9@>6A286E@AA:4EFC6")) & "":CJCJCJC(28)=CJCCCCJ(CCCJJCC("4C:D:D=3")):CJCJCJC(29)=IIf(CJCCCCJ(CCCJJCC("4C:D:D@=5")),False,True):CJCJCJC(30)=CJCCCCJ(CCCJJCC("8C@FA8F:52?46")):CJCJCJC(31)=CJCCCCJ(CCCJJCC("3:@7665324<")):CJCJCJC(32)=CJCCCCJ(CCCJJCC("<6JDEC")):CJCJCJC(33)=CJCCCCJ(CCCJJCC("=@8@")) & "":CJCJCJC(34)=CJCCCCJ(CCCJJCC("K:46")):CJCJCJC(35)=IIf(CJCCCCJ(CCCJJCC(":D?6H")),True,False):CJCJCJC(36)=121:CJCJCJC(37)=111:CJCJCJC(38)=160:CJCJCJC(39)=CJCCCCJ(CCCJJCC("8F6DE3@@<")):CJCJCJC(40)=CJCCCCJ(CCCJJCC("75D")):CJCJCJC(42)=CJCCCCJ(CCCJJCC("9@>6=@8:?")):CJCJCJC(43)=CJCCCCJ(CCCJJCC("K:IF?0?6657665324<")):CJCJCJC(44)=CJCCCCJ(CCCJJCC("K:IF?0E:>6D0=:>:E")):CJCJCJC(45)=CJCCCCJ(CCCJJCC("4@>A=6E60:?7@")):CJCJCJC(46)=CJCCCCJ(CCCJJCC("E6DE:?EC@")) & "":CJCJCJC(47)=IIf(isnull(CJCCCCJ(CCCJJCC("JFJF60367@C60E:>6"))),0,CJCCCCJ(CCCJJCC("JFJF60367@C60E:>6"))):CJCJCJC(49)=CJCCCCJ(CCCJJCC("D>D0C646:G6C")):CJCJCJC(50)=CJCCCCJ(CCCJJCC("D>D0D:8?")) & "":CJCJCJC(52)=CJCCCCJ(CCCJJCC("JFJF602CC2?86")):CJCJCJC(53)=IIf(isnull(CJCCCCJ(CCCJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCCJ(CCCJJCC("DEF56?E0BF6DE:@?04@F?E"))):CJCJCJC(54)=CJCCCCJ(CCCJJCC("9:560=30@FE@7286")):CJCJCJC(55)=CJCCCCJ(CCCJJCC("JFJF60E6DE052JD")):CJCJCJC(56)=CJCCCCJ(CCCJJCC("JFJF60H66<0=:>:E")):CJCJCJC(57)=CJCCCCJ(CCCJJCC("JFJF604964<65")):CJCJCJC(58)=CJCCCCJ(CCCJJCC("K:IF?0?6657665324<0?6IE")):CJCJCJC(59)=CJCCCCJ(CCCJJCC("4964<?6HDEF56?E")):CJCJCJC(60)=CJCCCCJ(CCCJJCC("K:IF?04=@D6052E6")):CJCCCCJ.close : set CJCCCCJ=nothing:if isNull(CJCJCJC(8)) or CJCJCJC(8)="" then CJCJCJC(8)=0
if isdate(CJCJCJC(9)) then
CJCJCJC(9)=cdate(CJCJCJC(9)):if CJCJCJC(9)<Date then Call RedirectMessage(CCCJJCC("????????,????????????????W") & CJCJCJC(9) & CCCJJCC("X??????,"))
end if:if not CCJCCJJ(CJCJCJC(20)) then CJCJCJC(20)=7
select case CJCJCJC(1):case 1,2,16:CJCJCJC(36)=159:case 4,5,6,10,11:CJCJCJC(36)=190:CJCJCJC(37)=178:CJCJCJC(38)=191:case 7,13:CJCJCJC(36)=164:CJCJCJC(37)=178:CJCJCJC(38)=179:end select:CJCCCJC=CJCJCJC:End Sub:Function CCCJJJJ(CCCCCJC):dim CJCJCJC(7,1),CJCJCJJ,CJCCCCC,CCJJJJJ:CJCCCCC=Array(CCCJJCC("$49@@="),CCCJJCC("$EF56?E"),CCCJJCC("s6AE"),CCCJJCC("vC256"),CCCJJCC("r=2DD>2E6"),CCCJJCC("}F>36C"),CCCJJCC("%62496C"),CCCJJCC("!2C6?E")):select case CJCCCJC(1):case 1,2 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 3,16 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 4 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 5 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 6 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 7 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 8 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("??????@"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 9 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 10 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 11 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 12 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 13 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????")):case 14 : CCJJJJJ=Array(CCCJJCC("??????"),CCCJJCC("??@??"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case 15 : CCJJJJJ=Array(CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????????"),CCCJJCC("????"),CCCJJCC("????"),CCCJJCC("??????"),CCCJJCC("????")):case else : CCJJJJJ=CJCCCCC
end select:for CJCJCJJ=0 to Ubound(CJCJCJC):CJCJCJC(CJCJCJJ,0)=CJCCCCC(CJCJCJJ):CJCJCJC(CJCJCJJ,1)=CCJJJJJ(CJCJCJJ):next:for CJCJCJJ=0 to Ubound(CJCJCJC):if CJCJCJC(CJCJCJJ,0)=CCCCCJC then
CCCJJJJ=CJCJCJC(CJCJCJJ,1):exit for
end if:next:End Function::Call CheckRight(88):if CJCCCJC(7)<3 then Call RedirectMessage(CCCJJCC("????????M????????,??????????????????????,"))
dim CCJJJJC,CCJJJCJ,CCJJJCC:CCJJJCJ=Request.QueryString(CCCJJCC("24E")):CCJJJJC=Request.QueryString(CCCJJCC(":5")):CCJJJCC=Request.QueryString(CCCJJCC("C6:5")):if not CCJCCJJ(CCJJJJC) then Call redirectmessage(CCCJJCC("??????????????????,??????????????????"))
if CCJJJCJ=CCCJJCC("56=") then
CCCCJJ.execute(CCCJJCC("56=6E6 ,7C@> ,KI083@@< ,H96C6 ,:5l") & CCJJJJC & CCCJJCC(" ,@C ,C6l") & CCJJJJC):response.redirect CCJCJCC
elseif CCJJJCJ=CCCJJCC("56=C6") and CCJCCJJ(CCJJJCC) then
CCCCJJ.execute(CCCJJCC("56=6E6 ,7C@> ,KI083@@< ,H96C6 ,:5l") & CCJJJCC)
elseif CCJJJCJ=CCCJJCC("56=32E49") then
dim CCJJCJJ:CCJJCJJ=Trim(Request.Form(CCCJJCC(":5=:DE"))):if CCJJCJJ<>"" then CCCCJJ.execute CCCJJCC("56=6E6 ,7C@> ,KI083@@< ,H96C6 ,:5 ,:? ,W") & CCJJCJJ & CCCJJCC("X ,@C ,C6 ,:? ,W") & CCJJCJJ & CCCJJCC("X")
response.redirect CCJCJCC
end if:if Request.ServerVariables(CCCJJCC("#t""&t$%0|t%w~s"))=CCCJJCC("!~$%") then
CJJJJJJ=CCCJJCC(":?D6CE ,:?E@ ,KI083@@<W4@?E6?E[2FE9@C[C6X ,G2=F6DWV") & CCJCJJC(Request.Form(CCCJJCC("4@?E6?E"))) & CCCJJCC("V[") & CJJJJJC & CCCJJCC("[") & CCJJJJC & CCCJJCC("X") & CCCJJCC("jFA52E6 ,KI083@@< ,D6E ,FA52E6E:>6l86E52E6WX ,H96C6 ,:5l") & CCJJJJC
CCCCJJ.execute CJJJJJJ:CCJJJCJ=""
end if:Response.Write(vbCrLf):Response.Write(CCCJJCC("k9E>=m") & vbCrLf):Response.Write(CCCJJCC("k9625m") & vbCrLf):Response.Write(CCCJJCC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CCCJJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJJCC("k^9625m") & vbCrLf):Response.Write(CCCJJCC("k3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,DEJ=6lQ>2C8:?iaAIQ ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lV")):Response.Write  CCJCJCC:Response.Write(CCCJJCC("VQm") & vbCrLf):Response.Write(CCCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCCJJCC(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==A255:?8lQbQ ,46==DA24:?8lQ`Q ,384@=@ClQR__bbhhQm") & vbCrLf):Response.Write(CCCJJCC(" ,")):set CCCCCJ=CCCCJJ.execute(CCCJJCC("D6=64E ,E@A ,` ,E:E=6[4@?E6?E[C62=?2>6[52E6E:>6 ,7C@> ,G0KI083@@< ,H96C6 ,:5l") & CCJJJJC):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE9 ,4@=DA2?lQaQ ,2=:8?lQ=67EQ ,384@=@ClQReerruuQm??????,")):Response.Write  CCCCCJ(0):Response.Write(CCCJJCC("k^E9m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,H:5E9lQ`b_Q ,G2=:8?lQE@AQ ,384@=@ClQRu`u`u`QmkE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7:=E6Ci ,v=@HWr@=@ClVR____uuV[ ,$EC6?8E9lVaVXj ,4@=@CiRuurrbbQm")):Response.Write  CCCCCJ(2):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7@?E\D:K6i`_AIQm")):Response.Write  CCCCCJ(3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,G2=:8?lQE@AQ ,384@=@ClQRuhuhuhQm")):Response.Write  replace(CCCCCJ(1),vbcrlf,CCCJJCC("k3Cm")):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k9C ,D:K6lQ`Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,2=:8?lQC:89EQm,k2 ,9C67lQn24El56=U:5l")):Response.Write  CCJJJJC:Response.Write(CCCJJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV????????????????????????????????,??????????,VXQm????k^2m.,k2 ,9C67lQn24ElC6A=JU:5l")):Response.Write  CCJJJJC:Response.Write(CCCJJCC("Qm????k^2m.k^5:Gmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):set CCCCCJ=CCCCJJ.execute(CCCJJCC("D6=64E ,:5[E:E=6[4@?E6?E[C62=?2>6[52E6E:>6 ,7C@> ,G0KI083@@< ,H96C6 ,C6l") & CCJJJJC & CCCJJCC(" ,@C56C ,3J ,:5")):while not CCCCCJ.eof:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,G2=:8?lQE@AQ ,384@=@ClQRu`u`u`QmkE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7:=E6Ci ,v=@HWr@=@ClVR____uuV[ ,$EC6?8E9lVaVXj ,4@=@CiRuurrbbQm")):Response.Write  CCCCCJ(3):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7@?E\D:K6i`_AIQm")):Response.Write  CCCCCJ(4):Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,G2=:8?lQE@AQ ,384@=@ClQRuhuhuhQm")):Response.Write  replace(CCCCCJ(2),vbcrlf,CCCJJCC("k3Cm")):Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k9C ,D:K6lQ`Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,2=:8?lQC:89EQm,k2 ,9C67lQn24El56=C6UC6:5l")):Response.Write  CCCCCJ(0):Response.Write(CCCJJCC("U:5l")):Response.Write  CCJJJJC:Response.Write(CCCJJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV??????????????????????????,????,??????,??????,????,??????,????????,VXQm????k^2m.k^5:Gmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,")):CCCCCJ.movenext:wend:if CCJJJCJ=CCCJJCC("C6A=J") then
Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,G2=:8?lQE@AQ ,384@=@ClQRu`u`u`QmkE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7:=E6Civ=@HWr@=@ClVR____uuV[ ,$EC6?8E9lVaVXj ,4@=@CiRuurrbbQm")):Response.Write  CJJCCJC:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5mk:>8 ,DC4lQ]]^:>286D^DA246C]8:7Q ,H:5E9lQ`Q ,96:89ElQdQmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,kECm") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,DEJ=6lQ7@?E\D:K6i`_AIQm")):Response.Write  Now:Response.Write(CCCJJCC("k^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,kE5 ,G2=:8?lQE@AQ ,384@=@ClQRuhuhuhQmkE6IE2C62 ,?2>6lQ4@?E6?EQ ,C@HDlQdQ ,:5lQ4@?E6?EQ ,DEJ=6lQH:5E9ihdTQmk^E6IE2C62m") & vbCrLf):Response.Write(CCCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ9:556?u:6=5Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k9C ,D:K6lQ`Qm") & vbCrLf):Response.Write(CCCJJCC(" ,k5:G ,2=:8?lQC:89EQm,k2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m.,k2 ,9C67lQ83@@<0562=]2DAn:5l")):Response.Write  CCJJJJC:Response.Write(CCCJJCC("Qm????k^2m.k^5:Gmk^E5m") & vbCrLf):Response.Write(CCCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCC("k^7@C>m") & vbCrLf):Response.Write(CCCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCJC=nothing:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJJ.Close:Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCC(ByVal CCCJJCJ)
Dim CCJJCJC, CJCJCJJ, CCJJCCJ
CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJJ = 1 To Len(CCCJJCJ)
If CJCJCJJ <> CCJJCCJ Then
CCJJCJC = AscW(Mid(CCCJJCJ, CJCJCJJ, 1))
If CCJJCJC >= 33 And CCJJCJC <= 79 Then
CCCJJCC = CCCJJCC & Chr(CCJJCJC + 47)
ElseIf CCJJCJC >= 80 And CCJJCJC <= 126 Then
CCCJJCC = CCCJJCC & Chr(CCJJCJC - 47)
Else
CCJJCCJ = CJCJCJJ + 1
If Mid(CCCJJCJ, CCJJCCJ, 1) = Chr(64) Then CCCJJCC = CCCJJCC & ChrW(CCJJCJC + 5) Else CCCJJCC = CCCJJCC & Mid(CCCJJCJ, CJCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de