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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CCJJCCJ("ps~sq]r@??64E:@?")):CJJJJC.open Application(CCJJCCJ("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC::Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ:CCCJJJ=Trim(Request.Cookies(CCJJCCJ("!$*|t|qt#"))):if CCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCCJ>0 then
CJJCJC=CCJJCCJ("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") & CJJCCC & CCJJCCJ("V ,2?5 ,:5l") & CJJCCJ
set CJJJCC=CJJJJC.execute(CJJCJC):If CJJJCC.EOF Then
Call ClearMemberCookie
Else
CJCJJJ=CJJJCC(2) & "":CJCJJC=CJJJCC(3):CJCJCJ=CJJJCC(5):CJCJCC=CJJJCC(6):CJCCJJ=CJJJCC(9):CJCCJC=CJJJCC(15):CJCCCC=CJJJCC(0):CCJCCJ=CJJJCC(1):CCJCJC=CJJJCC(11) & "":CCJJJJ=CJJJCC(10) & "":CJCCCJ=CJJJCC(12):CCJJJC=CJJJCC(14):CCJJCJ=CJJJCC(13):CCJJCC=CJJJCC(7) & "":CCJCJJ=CJJJCC(4):CCJCCC=CJJJCC(8):if isnull(CJCCJC) then CJCCJC=0
if isnull(CJCCJJ) or CJCCJJ=0 then CJCCJJ=CJCJJC
if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CJCJCJ) then CJCJCJ=0
if instr(CCJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCCC)>0 then Call RedirectMessage(CCJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCCJ,CJJCCC)
End IF
end if:Sub CheckRight(CCJJCCC):dim CCCJJC,CCCJCJ:if CJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCCJ("??????????????,????????????,"))
elseIf not CJCCCJJ(CCJJCCC) then
Call RedirectMessage(CCJJCCJ("????W") & CCJJCCC & CCJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCCJJ(CCJJCCC):dim CCCJJC,CCCJCJ:CCCJCJ=split(CCJJCCC,CCJJCCJ("[")):CJCCCJJ=False:for CCCJJC=0 to ubound(CCCJCJ):If Mid(CJCJJJ,CCCJCJ(CCCJJC),1)="1" then
CJCCCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJCC:CCCJCC=trim(request.QueryString(CCJJCCJ("D49@@="))):if isnumeric(CCCJCC) then
response.Redirect CCJJCCJ("^>^G2?E^R^D49@@=^") & CCCJCC & CCJJCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCCJ("!$*|t|qt#"))="":CJJCCJ=0:CJCJCC=0:CJJCCC=Empty:CJCJCJ=0:CJCCJC=0:CJCCJJ=0:CJCJJC=0:CJCCCC=False:CCJCCJ=False:CCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJJ,CCCCJC,CCCJJC,CCCCCJ,CCCCCC:CCCCJJ=split(CCCJJJ,CCJJCCJ("]")):if ubound(CCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJJ(0)) or len(CCCCJJ(1))<>32 or len(CCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CCCCJC=CCCCJJ(1):for CCCJJC=1 to len(CCCCJC):CCCCCJ=mid(CCCCJC,CCCJJC,1):if isnumeric(CCCCCJ) then CCCCCC=CCCCCC & CCCCCJ
if len(CCCCCC)=7 then exit for
next:CCCCJC=CCCCJJ(2):if CCCCCC<>mid(CCCCJC,6,7) then
Call ClearMemberCookie
else
CCCCCJ=mid(CCCCJC,18,10)/2:if CCCCCJ<DateDiff(CCJJCCJ("D"), CCJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCCJ=Clng(CCCCJJ(0)):CJJCCC=CCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJC,CCJCJJJ):dim CCCJJC,CCCCCJ,CCCCCC:for CCCJJC=1 to len(CCJCJJJ):CCCCCJ=mid(CCJCJJJ,CCCJJC,1):if isnumeric(CCCCCJ) then CCCCCC=CCCCCC & CCCCCJ
if len(CCCCCC)=7 then exit for
next:CCCCCC=CJJCCJC & CCJJCCJ("]") & CCJCJJJ & CCJJCCJ("]") & Fix(10000*(Rnd+1)) & CCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCCJ("D"), CCJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCCJ("!$*|t|qt#"))=CCCCCC:End Sub::Function CJCCCJC(CCJCJJC):Dim str,CJJJJJC:str = Trim(CCJCJJC):If IsNull(str) Or str = "" Then
CJCCCJC = ""
else
str=Replace(str, CCJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJCCJ("k:7C2>6"), CCJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCCJ("kD4C:AE"), CCJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJJC=new RegExp:CJJJJJC.Pattern=CCJJCCJ("@?W,2\K.ZXl"):CJJJJJC.IgnoreCase = True:CJJJJJC.Global=True:str=CJJJJJC.Replace(str,CCJJCCJ("@?S`U6BF2=Dj")):set CJJJJJC=nothing:CJCCCJC=str
End If:End Function:Function IIf(CCJCJCJ, CCJCJCC, CCJCCJJ):if isnull(CCJCJCJ) or isempty(CCJCJCJ) then
IIf = CCJCCJJ
elseif CCJCJCJ Then
IIf = CCJCJCC
Else
IIf = CCJCCJJ
end if:End Function:Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCCJC,CCJCCCJ):dim CCCCJJ:CCCCJJ=CCJCCJC & "=" & CCJCCCJ & CCJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCCJ("$6E\r@@<:6"),CCCCJJ):End Sub:::::::Function CJCCCCC(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then
CJCCCCC=false
else
Dim CJJJJJC:Set CJJJJJC = New RegExp:CJJJJJC.Pattern = CCJJCCJ("/-5ZS"):CJJJJJC.IgnoreCase = True:CJCCCCC = CJJJJJC.test(CJJJCJC):set CJJJJJC=nothing
end if:End Function:Function CCJJJJJ(CCJCCCC):dim CJJJJCJ,CJJJJCC:CJJJJCJ=CCJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCCCC & CCJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCC=CJJJJC.execute(CJJJJCJ):CCJJJJJ = CJJJJCC(0):if isnull(CCJJJJJ) then CCJJJJJ=1
CJJJJCC.close : set CJJJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJJJJCC.close : set CJJJJCC=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCCJ("!$*0|6DD286"),server.URLEncode(CCCJJJJ)):Response.Redirect CCJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::function CCJJCJC(str):dim CCCJJC,CJJJCJJ,CJJJCJC,CJJJCCJ:if isnull(str) then exit function
str=trim(str):for CCCJJC=1 to len(str):CJJJCJJ=mid(str,CCCJJC,1):CJJJCJC=AscW(CJJJCJJ):if CJJJCJC=12288 then
CJJJCJJ=chrw(32)
elseif CJJJCJC=-29 then
CJJJCJJ=chrw(CJJJCJC+155)
elseif CJJJCJC<0 then
CJJJCJJ=chrw(CJJJCJC+288)
end if:CJJJCCJ=CJJJCCJ & CJJJCJJ:next:CCJJCJC=CJJJCCJ:end function:::::::::::::::::Sub ShowRecord(CJJJCC):dim CCCJJC,CCCCCJ,CJJJCCJ,CJJJCCC:CJJJCCJ=CCJJCCJ("kDEJ=6mE23=6]D9@HC64@C5L3@C56C\4@==2AD6i4@==2AD6jH:5E9i`__TNE23=6]D9@HC64@C5 ,E9[E23=6]D9@HC64@C5 ,E5L3@C56Ci`AI ,D@=:5 ,RbbbjE6IE\2=:8?i46?E6CjA255:?8idAI ,_AIjNE23=6]D9@HC64@C5 ,E9L324<8C@F?5\4@=@CiRrrrjNk^DEJ=6m") & CCJJCCJ("kE23=6 ,4=2DDlVD9@HC64@C5VmkECmkE9mk^E9m")
CJJJCCC=CJJJCC.fields.count-1:for CCCJJC=0 to CJJJCCC:CJJJCCJ=CJJJCCJ & CCJJCCJ("kE9m") & CJJJCC.fields(CCCJJC).name & CCJJCCJ("k^E9m"):next:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^ECm"):CCCJJC=1:while not CJJJCC.eof:CJJJCCJ=CJJJCCJ & CCJJCCJ("kECmkE5m") & CCCJJC & CCJJCCJ("k^E5m"):for CCCCCJ=0 to CJJJCCC:CJJJCCJ=CJJJCCJ & CCJJCCJ("kE5m") & CJJJCC(CCCCCJ) & CCJJCCJ("k^E5m"):next:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^ECm"):CJJJCC.movenext:CCCJJC=CCCJJC+1:wend:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^E23=6m"):response.Charset=CCJJCCJ("&%u\g"):response.Write CJJJCCJ:End Sub:::::::Sub ClearCache(CCCJJJC):Application.Contents.Remove CCCJJJC
End Sub::dim CCCJCC:CJJCJC=Request.ServerVariables(CCJJCCJ("!p%w0x}u~")):if instr(CJJCJC,CCJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCCC and not CCJCCJ then Call RedirectMessage(CCJJCCJ("????????,????????????????????????,"))
CCCJCC=CJCCJJ
elseif instr(CJJCJC,CCJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJC,CCJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCCJCC=CJCCJJ
elseif instr(CJJCJC,CCJJCCJ("^D49@@="))>0 then
CCCJCC=Request.QueryString(CCJJCCJ("D49@@=")):if not CJCCCCC(CCCJCC) then CCCJCC=Request.QueryString(CCJJCCJ("F"))
if not CJCCCCC(CCCJCC) then CCCJCC=Request.QueryString(CCJJCCJ("D4"))
if not CJCCCCC(CCCJCC) then Call RedirectMessage(CCJJCCJ("????????W$49@@=X??@??????????,"))
CCCJCC=csng(CCCJCC)
end if:if CCCJCC=0 then Call RedirectMessage(CCJJCCJ("????????W$49@@=X????W_X??,"))
Dim CJJCJJJ:Call SetConfig:Sub SetConfig():dim CCCJCJ,CJJJJCC:CJJCJC=CCJJCCJ("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") & CCCJCC:set CJJJJCC=CJJJJC.execute(CJJCJC):if CJJJJCC.eof then Call RedirectMessage(CCJJCCJ("??W") & CJJCCJ & CCJJCCJ("X??????????W") & CCCJCC & CCJJCCJ("X????????,"))
ReDim CCCJCJ(61):CCCJCJ(0)=CJJJJCC(CCJJCCJ(";:2@H6:")) & "":CCCJCJ(1)=CJJJJCC(CCJJCCJ("EJA6")):CCCJCJ(2)=CJJJJCC(CCJJCCJ("D>D")):CCCJCJ(3)=CJJJJCC(CCJJCCJ("4FDE@>8C@FA")) & "":CCCJCJ(4)=CJJJJCC(CCJJCCJ("D:5632C0@E96C")) & "":CCCJCJ(5)=IIf(isnull(CJJJJCC(CCJJCCJ("E6DEC6DF=EG:6H"))),0,CJJJJCC(CCJJCCJ("E6DEC6DF=EG:6H"))):CCCJCJ(6)=CJJJJCC(CCJJCCJ("K:IF?E:>6")):CCCJCJ(7)=CJJJJCC(CCJJCCJ("766")):CCCJCJ(8)=CJJJJCC(CCJJCCJ("C6E6DE52J")):CCCJCJ(9)=CJJJJCC(CCJJCCJ("6IA:C652E6")):CCCJCJ(10)=CJJJJCC(CCJJCCJ("E:E=6")):CCCJCJ(11)=CJJJJCC(CCJJCCJ(":?EC@")) & "":CCCJCJ(12)=CJJJJCC(CCJJCCJ("A:4EFC6")) & "":CCCJCJ(13)=CJJJJCC(CCJJCCJ("72>:=J")):CCCJCJ(14)=CJJJJCC(CCJJCCJ("4@AJC:89E")) & "":CCCJCJ(15)=IIf(isnull(CJJJJCC(CCJJCCJ("D6>6DE6C0DE2CE052E6"))),CCJJCCJ("`h__\`\`"),CJJJJCC(CCJJCCJ("D6>6DE6C0DE2CE052E6"))):CCCJCJ(16)=IIf(isnull(CJJJJCC(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCC(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))):CCCJCJ(17)=CJJJJCC(CCJJCCJ("4@?E24E")) & "":CCCJCJ(18)=CJJJJCC(CCJJCCJ("D2?5E23=6")):CCCJCJ(19)=CJJJJCC(CCJJCCJ("4C:D:D")):CCCJCJ(20)=CJJJJCC(CCJJCCJ("JJ52E6")):CCCJCJ(21)=CJJJJCC(CCJJCCJ("BB")):CCCJCJ(22)=CJJJJCC(CCJJCCJ("JFJF60D>D0EA=")) & "":CCCJCJ(23)=CJJJJCC(CCJJCCJ("JFJF60E6DE0=3")) & "":CCCJCJ(25)=CJJJJCC(CCJJCCJ("6IA6CE")):CCCJCJ(26)=CJJJJCC(CCJJCCJ(">@5:?7@")):CCCJCJ(27)=CJJJJCC(CCJJCCJ("9@>6A286E@AA:4EFC6")) & "":CCCJCJ(28)=CJJJJCC(CCJJCCJ("4C:D:D=3")):CCCJCJ(29)=IIf(CJJJJCC(CCJJCCJ("4C:D:D@=5")),False,True):CCCJCJ(30)=CJJJJCC(CCJJCCJ("8C@FA8F:52?46")):CCCJCJ(31)=CJJJJCC(CCJJCCJ("3:@7665324<")):CCCJCJ(32)=CJJJJCC(CCJJCCJ("<6JDEC")):CCCJCJ(33)=CJJJJCC(CCJJCCJ("=@8@")) & "":CCCJCJ(34)=CJJJJCC(CCJJCCJ("K:46")):CCCJCJ(35)=IIf(CJJJJCC(CCJJCCJ(":D?6H")),True,False):CCCJCJ(36)=121:CCCJCJ(37)=111:CCCJCJ(38)=160:CCCJCJ(39)=CJJJJCC(CCJJCCJ("8F6DE3@@<")):CCCJCJ(40)=CJJJJCC(CCJJCCJ("75D")):CCCJCJ(42)=CJJJJCC(CCJJCCJ("9@>6=@8:?")):CCCJCJ(43)=CJJJJCC(CCJJCCJ("K:IF?0?6657665324<")):CCCJCJ(44)=CJJJJCC(CCJJCCJ("K:IF?0E:>6D0=:>:E")):CCCJCJ(45)=CJJJJCC(CCJJCCJ("4@>A=6E60:?7@")):CCCJCJ(46)=CJJJJCC(CCJJCCJ("E6DE:?EC@")) & "":CCCJCJ(47)=IIf(isnull(CJJJJCC(CCJJCCJ("JFJF60367@C60E:>6"))),0,CJJJJCC(CCJJCCJ("JFJF60367@C60E:>6"))):CCCJCJ(49)=CJJJJCC(CCJJCCJ("D>D0C646:G6C")):CCCJCJ(50)=CJJJJCC(CCJJCCJ("D>D0D:8?")) & "":CCCJCJ(52)=CJJJJCC(CCJJCCJ("JFJF602CC2?86")):CCCJCJ(53)=IIf(isnull(CJJJJCC(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCC(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJCJ(54)=CJJJJCC(CCJJCCJ("9:560=30@FE@7286")):CCCJCJ(55)=CJJJJCC(CCJJCCJ("JFJF60E6DE052JD")):CCCJCJ(56)=CJJJJCC(CCJJCCJ("JFJF60H66<0=:>:E")):CCCJCJ(57)=CJJJJCC(CCJJCCJ("JFJF604964<65")):CCCJCJ(58)=CJJJJCC(CCJJCCJ("K:IF?0?6657665324<0?6IE")):CCCJCJ(59)=CJJJJCC(CCJJCCJ("4964<?6HDEF56?E")):CCCJCJ(60)=CJJJJCC(CCJJCCJ("K:IF?04=@D6052E6")):CJJJJCC.close : set CJJJJCC=nothing:if isNull(CCCJCJ(8)) or CCCJCJ(8)="" then CCCJCJ(8)=0
if isdate(CCCJCJ(9)) then
CCCJCJ(9)=cdate(CCCJCJ(9)):if CCCJCJ(9)<Date then Call RedirectMessage(CCJJCCJ("????????,????????????????W") & CCCJCJ(9) & CCJJCCJ("X??????,"))
end if:if not CJCCCCC(CCCJCJ(20)) then CCCJCJ(20)=7
select case CCCJCJ(1):case 1,2,16:CCCJCJ(36)=159:case 4,5,6,10,11:CCCJCJ(36)=190:CCCJCJ(37)=178:CCCJCJ(38)=191:case 7,13:CCCJCJ(36)=164:CCCJCJ(37)=178:CCCJCJ(38)=179:end select:CJJCJJJ=CCCJCJ:End Sub:Function CCJJCJJ(CCCJJCJ):dim CCCJCJ(7,1),CCCJJC,CJJCJJC,CJJCJCJ:CJJCJJC=Array(CCJJCCJ("$49@@="),CCJJCCJ("$EF56?E"),CCJJCCJ("s6AE"),CCJJCCJ("vC256"),CCJJCCJ("r=2DD>2E6"),CCJJCCJ("}F>36C"),CCJJCCJ("%62496C"),CCJJCCJ("!2C6?E")):select case CJJCJJJ(1):case 1,2 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 3,16 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 4 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 5 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 6 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 7 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 8 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 9 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 10 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 11 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 12 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 13 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 14 : CJJCJCJ=Array(CCJJCCJ("??????"),CCJJCCJ("??@??"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 15 : CJJCJCJ=Array(CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case else : CJJCJCJ=CJJCJJC
end select:for CCCJJC=0 to Ubound(CCCJCJ):CCCJCJ(CCCJJC,0)=CJJCJJC(CCCJJC):CCCJCJ(CCCJJC,1)=CJJCJCJ(CCCJJC):next:for CCCJJC=0 to Ubound(CCCJCJ):if CCCJCJ(CCCJJC,0)=CCCJJCJ then
CCJJCJJ=CCCJCJ(CCCJJC,1):exit for
end if:next:End Function::if CJCCJJ<>CJCJJC then Call RedirectMessage(CCJJCCJ("????????,??????????????????????????????,"))
Call CheckRight(41):Const CJCCJCC="lbQuestion":dim CJJCJCC,CJJCCJJ,CJJCCJC:CJJCJCC=Request.QueryString(CCJJCCJ("=3:5")):CJJCCJJ=Request.QueryString(CCJJCCJ("24E")):CJJCCJC=Request.QueryString(CCJJCCJ(":5")):if not CJCCCCC(CJJCJCC) then CJJCJCC=Request.Form("lbid")
if not CJCCCCC(CJJCJCC) then Call RedirectMessage(CCJJCCJ("????????,??????????????,"))
CJJCJCC=cint(CJJCJCC):if CJJCJCC<=1000 then Call RedirectMessage(CCJJCCJ("????????,??????????????,"))
dim CJJCCCJ,CJJCCCC:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,E@A ,` ,?2>6049[2G2:=23=6 ,7C@> ,=3 ,H96C6 ,:5l") & CJJCJCC & CCJJCCJ(" ,2?5 ,W>6>36Cl") & CJJCCJ & CCJJCCJ(" ,@C ,>6>36CEJA6l") & CJCCJJ & CCJJCCJ("X")):if CJJJCC.eof then Call RedirectMessage(CCJJCCJ("????????,??????????????,"))
CJJCCCJ=CJJJCC(0):CJJCCCC=IIf(CJJJCC(1),true,false):if CJJCCJJ=CCJJCCJ("56=") and CJCCCCC(CJJCCJC) then
CJJJJC.execute CCJJCCJ("56=6E6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,:5l") & CJJCCJC & CCJJCCJ(" ,2?5 ,=3l") & CJJCJCC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC:Call ClearCache(CCJJCCJ("!$*0%6DED"))
elseif CJJCCJJ=CCJJCCJ("56=2==") then
CJJJJC.execute CCJJCCJ("56=6E6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("jFA52E6 ,=3 ,D6E ,BF6DE4@F?El_ ,H96C6 ,:5l") & CJJCJCC:Call ConnClose:response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC
elseif CJJCCJJ=CCJJCCJ(":>A@CE") or CJJCCJJ=CCJJCCJ("AC6G:6H") then
dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:CJCJJJJ=server.MapPath(CCJJCCJ("]]^]]^2EE249>6?ED^%6DE0""F6DE:@?0") & CJJCJCC & CCJJCCJ("]I=D")):set CJCJJCC=server.CreateObject(CCJJCCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJCJJCC.FileExists(CJCJJJJ) Then Call RedirectMessage(CCJJCCJ("??????????tI46=????????????,????????????????????,??????????????,?????? ,d ,????????,??????????,??????????,??????,??????????????,??,"))
set CJCJJCC=nothing:On Error Resume Next:Set CJCJJJC = server.CreateObject(CCJJCCJ("ps~sq]r@??64E:@?")):CJCJJJC.Open CCJJCCJ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_js2E2 ,$@FC46lQ") & CJCJJJJ & CCJJCCJ("QjtIE6?565 ,!C@A6CE:6DlQtI46= ,g]_jws#l*6Djx|t)l`Qj"):if err then Call RedirectMessage(CCJJCCJ("????tI46=??????????,??????,") & err.description)
set CJJCJJ=CJCJJJC.OpenSchema(20):if CJJCJJ.eof then Call RedirectMessage(CCJJCCJ("????tI46=??????????,????????????????????,"))
dim CJCJCJJ:CJCJCJJ=replace(CJJCJJ(2),CCJJCCJ("V"),"")
set CJJCJJ=CJCJJJC.execute(CCJJCCJ(",") & CJCJCJJ & CCJJCCJ("pit.")):if err then Call RedirectMessage(CCJJCCJ("????tI46=??????????,??????,") & err.description)
On Error Goto 0:if CJJCJJ.eof then Call RedirectMessage(CCJJCCJ("????????,????tI46=??????????@????????,????????,"))
if CJJCJJ.Fields.Count<5 then Call RedirectMessage(CCJJCCJ("tI46=????????????W") & CJJCJJ.Fields.Count & CCJJCCJ("^dX????????,????????@????????????,"))
if CJJCCJJ=CCJJCCJ("AC6G:6H") then
Call ShowRecord(CJJCJJ):Call ConnClose:response.End
end if:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,=3BF6DE:@? ,@C56C ,3J ,:5 ,56D4")):CJCJJCJ=CJJJCC(0):CJJCJC="":CCCJJC=1:do while not CJJCJJ.eof:if not CJCCCCC(CJJCJJ(0)) or not CJCCCCC(CJJCJJ(2)) then exit do
CJJCJC=CJJCJC & vbcrlf & CCJJCCJ(":?D6CE ,:?E@ ,") & CJCCJCC & CCJJCCJ("W:5[D@CE[BF6DE:@?[EJA6[2?DH6C[D4@C6[=3X ,G2=F6DW") & (CJCJJCJ+CCCJJC)  & CCJJCCJ("[") & CJJCJJ(0) & CCJJCCJ("[V") & CJCCCJC(CJJCJJ(1)) & CCJJCCJ("V") & CCJJCCJ("[") & CJJCJJ(2) & CCJJCCJ("[V") & CJCCCJC(replace(CJJCJJ(3) & "",CCJJCCJ("??,"),CCJJCCJ("M"))) & CCJJCCJ("V") & CCJJCCJ("[V") & CCJJCJC(replace(CJJCJJ(4) & "",CCJJCCJ("??,"),CCJJCCJ("M"))) & CCJJCCJ("V") & CCJJCCJ("[") & CJJCJCC  & CCJJCCJ("Xj")
CCCJJC=CCCJJC+1:CJJCJJ.movenext:loop:if CJJCJC="" then
Call RedirectMessage(CCJJCCJ("tI46=????????????,????????@????????????????,"))
else
CJJJJC.execute CJJCJC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC
end if:Call ConnClose:response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC
end if:dim CJCJCJC,CJCJCCJ:if Request.ServerVariables(CCJJCCJ("#t""&t$%0|t%w~s"))=CCJJCCJ("!~$%") then
dim CJCJCCC,CJCCJJJ:CJCJCCC=Request.Form(CCJJCCJ("EJA6")):if not CJCCCCC(CJCJCCC) then CJCJCCC=0
CJCCJJJ=CJCCCJC(replace(Request.Form(CCJJCCJ("BF6DE:@?")),CCJJCCJ("??,"),CCJJCCJ("M"))):CJCJCJC=CJCCCJC(replace(Request.Form(CCJJCCJ("2?DH6C")),CCJJCCJ("??,"),CCJJCCJ("M"))):CJCJCCJ=CCJJCJC(replace(Request.Form(CCJJCCJ("D4@C6")),CCJJCCJ("??,"),CCJJCCJ("M"))):if instr(CJCJCCJ,CCJJCCJ("MM"))>0 or instr(CJCJCCJ,CCJJCCJ("^"))>0 then Call RedirectMessage(CCJJCCJ("????????,??????????????????????,"))
if CJJCCJJ=CCJJCCJ("255") then
CJJCJC=CCJJCCJ(":?D6CE ,:?E@ ,") & CJCCJCC & CCJJCCJ("W:5[BF6DE:@?[2?DH6C[D4@C6[D@CE[EJA6[=3X ,G2=F6DW") & CCJJJJJ(CJCCJCC) & CCJJCCJ("[V") & CJCCJJJ & CCJJCCJ("V") & CCJJCCJ("[V") & CJCJCJC & CCJJCCJ("V") & CCJJCCJ("[V") & CJCJCCJ & CCJJCCJ("V") & CCJJCCJ("[") & CCJJCJC(Request.Form(CCJJCCJ("D@CE"))) & CCJJCCJ("[") & CJCJCCC  & CCJJCCJ("[") & CJJCJCC  & CCJJCCJ("X")
CJJJJC.execute CJJCJC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC:Call ConnClose:Call ClearCache(CCJJCCJ("!$*0%6DED")):response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC
elseif CJJCCJJ=CCJJCCJ(">@5") and CJCCCCC(CJJCCJC) then
CJJCJC=CCJJCCJ("FA52E6 ,") & CJCCJCC & CCJJCCJ(" ,D6E") & CCJJCCJ(" ,BF6DE:@?lV") & CJCCJJJ & CCJJCCJ("V") & CCJJCCJ("[2?DH6ClV") & CJCJCJC & CCJJCCJ("V") & CCJJCCJ("[D4@C6lV") & CJCJCCJ & CCJJCCJ("V") & CCJJCCJ("[D@CEl") & CCJJCJC(Request.Form(CCJJCCJ("D@CE"))) & CCJJCCJ("[EJA6l") & CJCJCCC  & CCJJCCJ(" ,H96C6 ,:5l") & CJJCCJC
CJJJJC.execute CJJCJC:CJJCCJJ=""
end if
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCCJ("k9625m") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCCJ("k^9625m") & vbCrLf):Response.Write(CCJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<6]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ=3>2<60BF6DE:@?]2DAn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<60724E@C]2DAn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<606IA=2:?]2DAn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ("k^F=m") & vbCrLf)::if not CJJCCCC then
Response.Write(vbCrLf):Response.Write(CCJJCCJ("k7@C> ,:5lQ7@C>`Q ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE23=6 ,DEJ=6lQH:5E9i`__TjQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:7C2>6 ,DC4lQ^:?4^FA=@25]2DAInp4ElaUu%laUu}l%6DE0""F6DE:@?0")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0:>A@CEQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0AC6G:6HQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQ ,G2=F6lQ:>A@CEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=3:5Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ??@ ,??Q ,:5lQ3E?056=2==Q ,E:E=6lQ??@??????????????Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,:5lQ3E?\6IA@CEQ ,E:E=6lQ??????????????????tI46=??Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,4@=DA2?lQaQm????,tI46=????????@????,??????,??????,??????,??????????,??????????????,??d????,????????????????????????????,??@????????,??????????????????,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCCJ("k^7@C>m") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ??`??????,??@????????????????????Qm????WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ??????????????????????????????,??????,$9:7EZ??????????,????Qm????WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ??????????????????,k3Cm_\????????k3Cm`\????????k3Cma\????????k3Cmb\????????Qm????WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ????????,??????,$9:7EZ??????????,????????????,??????????????Qm????????WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ????????,??????,$9:7EZ??????????,????????????,??@??????????,??,????????????@??????????????????,????????????????????????????????????,????????,Qm????????????WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,")):dim CCCJJC:CCCJJC=1:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,:5[BF6DE:@?[2?DH6C[D@CE[D4@C6[EJA6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ(" ,@C56C ,3J ,D@CE")):while not CJJJCC.eof:CJCJCJC=CJJJCC(2):CJCJCCJ=CJJJCC(4):if CJJCCJJ=CCJJCCJ(">@5") and CJJCCJC=cstr(CJJJCC(0)) then
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,?2>6lQ")):Response.Write  CJJJCC(0):Response.Write(CCJJCCJ("Qmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,:5lQD@CEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write  CJJJCC(3):Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,:5lQBF6DE:@?Q ,G2=F6lQ")):Response.Write  CJJJCC(1):Response.Write(CCJJCCJ("Q ,D:K6lQedQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,:5lQEJA6Q ,D:K6lQaQ ,G2=F6lQ")):Response.Write  CJJJCC(5):Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,:5lQ2?DH6CQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write  CJCJCJC:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,:5lQD4@C6Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJCJCCJ:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXjQm????k^2m ,k2 ,9C67lQn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCC(3):Response.Write(CCJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5m")):Response.Write  CJJJCC(1):Response.Write(CCJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJJJCC(5):Response.Write(CCJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5m")):Response.Write  CJCJCJC:Response.Write(CCJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5m")):Response.Write  CJJJCC(4):Response.Write(CCJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("U24El>@5U:5l")):Response.Write  CJJJCC(0):Response.Write(CCJJCCJ("R")):Response.Write  CJJJCC(0):Response.Write(CCJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,")):if not CJJCCCC then
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("U24El56=U:5l")):Response.Write  CJJJCC(0):Response.Write(CCJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
end if:CJJJCC.movenext:CCCJJC=CCCJJC+1:wend:if CJJCCJJ=CCJJCCJ("255") then
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,?2>6lQ_Qmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,:5lQD@CEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write  CCCJJC:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,:5lQBF6DE:@?Q ,G2=F6lQQ ,D:K6lQedQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????,????????????????????????????????????Q ,@?r=:4<lQ;2G2D4C:AEiSWVR2?DH6CVX]G2=WV")):Response.Write  CJCJCJC:Response.Write(CCJJCCJ("VXjSWVRD4@C6VX]G2=WV")):Response.Write  CJCJCCJ:Response.Write(CCJJCCJ("VXjQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,:5lQEJA6Q ,G2=F6lQ_Q ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,:5lQ2?DH6CQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,:5lQD4@C6Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4<VXjQm????k^2m ,k2 ,9C67lQn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
Elseif not CJJCCCC then
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kEC ,4=2DDlQ?@\I=DQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn=3:5l")):Response.Write  CJJCJCC:Response.Write(CCJJCCJ("U24El255R_Qm????k^2mk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CCJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVE9,E:E=6.VX];%:E=6WLDEJ=6iV3=24<VNX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWV:>8,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWV2i4@?E2:?DWQ????QXVX]4=:4<W7F?4E:@?WXLC6EFC? ,4@?7:C>WV??????,????????????????????????,VXNX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?056=2==VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,:7W4@?7:C>WV??????,??????????????????????????,VXXLH:?5@H]=@42E:@?lVn24El56=2==U=3:5lVZSWVR=3:5VX]G2=WXN") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?0AC6G:6HVX]@?WV4=:4<V[7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,@A6?65l72=D6") & vbCrLf):Response.Write(CCJJCCJ(" ,A2C6?E]=2J6C]@A6?WL") & vbCrLf):Response.Write(CCJJCCJ(" ,EJA6ia[") & vbCrLf):Response.Write(CCJJCCJ(" ,E:E=6iV????????V[") & vbCrLf):Response.Write(CCJJCCJ(" ,4@?E6?EiV]]^]]^:?4^=@25:?8]9E>V[") & vbCrLf):Response.Write(CCJJCCJ(" ,D9256r=@D6i ,ECF6[") & vbCrLf):Response.Write(CCJJCCJ(" ,2C62i,Vh__AIV[Vc__AIV.[") & vbCrLf):Response.Write(CCJJCCJ(" ,DF446DDi7F?4E:@?W5@>[:?56IXL") & vbCrLf):Response.Write(CCJJCCJ(" ,:7WP@A6?65XL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR24EVX]G2=WVAC6G:6HVX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR7@C>`VX]2EECWVE2C86EV[V=2JF:\=2J6C\:7C2>6VZ:?56IX]EC:886CWVDF3>:EVX") & vbCrLf):Response.Write(CCJJCCJ(" ,@A6?65lECF6") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?0:>A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR24EVX]G2=WV:>A@CEVX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR7@C>`VX]2EECWVE2C86EV[V0D6=7VX]EC:886CWVDF3>:EVX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?\6IA@CEVX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]E23=6a6I46=WV????VXNX") & vbCrLf):Response.Write(CCJJCCJ("NX") & vbCrLf):Response.Write(CCJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCCJ(ByVal CJJJCJJ)
Dim CJCCJJC, CCCJJC, CJJJCJC
CJJJCJJ = Replace(CJJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJC = 1 To Len(CJJJCJJ)
If CCCJJC <> CJJJCJC Then
CJCCJJC = AscW(Mid(CJJJCJJ, CCCJJC, 1))
If CJCCJJC >= 33 And CJCCJJC <= 79 Then
CCJJCCJ = CCJJCCJ & Chr(CJCCJJC + 47)
ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then
CCJJCCJ = CCJJCCJ & Chr(CJCCJJC - 47)
Else
CJJJCJC = CCCJJC + 1
If Mid(CJJJCJJ, CJJJCJC, 1) = Chr(64) Then CCJJCCJ = CCJJCCJ & ChrW(CJCCJJC + 5) Else CCJJCCJ = CCJJCCJ & Mid(CJJJCJJ, CCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de