Edit D:\xinhaisoft\crisis_new\admin\lb\question.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJ, CJCCC,CCJJJ, CCJJC, CCJCJ:Set CJCCJ = server.CreateObject(CJCCJJC("ps~sq]r@??64E:@?")):CJCCJ.open Application(CJCCJJC("r@??64E:@?$EC:?8")):Set CJCCC=CJCCJ::Dim CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC:Dim CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC:CJCCJC=Trim(Request.Cookies(CJCCJJC("!$*|t|qt#"))):if CJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCC>0 then
CCJCJ=CJCCJJC("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") & CCCJJ & CJCCJJC("V ,2?5 ,:5l") & CCJCC
set CCJJJ=CJCCJ.execute(CCJCJ):If CCJJJ.EOF Then
Call ClearMemberCookie
Else
CCCJC=CCJJJ(2) & "":CCCCJ=CCJJJ(3):CCCCC=CCJJJ(5):CJJJJJ=CCJJJ(6):CJJJJC=CCJJJ(9):CJJJCJ=CCJJJ(15):CJJCJJ=CCJJJ(0):CJCJCC=CCJJJ(1):CJCJCJ=CCJJJ(11) & "":CJJCJC=CCJJJ(10) & "":CJJJCC=CCJJJ(12):CJJCCJ=CCJJJ(14):CJJCCC=CCJJJ(13):CJCJJJ=CCJJJ(7) & "":CJCJJC=CCJJJ(4):CJCCJJ=CCJJJ(8):if isnull(CJJJCJ) then CJJJCJ=0
if isnull(CJJJJC) or CJJJJC=0 then CJJJJC=CCCCJ
if isnull(CJCJJC) then CJCJJC=0
if isnull(CCCCC) then CCCCC=0
if instr(CJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJ)>0 then Call RedirectMessage(CJCCJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCC,CCCJJ)
End IF
end if:Sub CheckRight(CCCJJC):dim CJCCCJ,CJCCCC:if CCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJJC("??????????????,????????????,"))
elseIf not CJJCCJC(CCCJJC) then
Call RedirectMessage(CJCCJJC("????W") & CCCJJC & CJCCJJC("X????????,????????????????????,"))
end if:End Sub:Function CJJCCJC(CCCJJC):dim CJCCCJ,CJCCCC:CJCCCC=split(CCCJJC,CJCCJJC("[")):CJJCCJC=False:for CJCCCJ=0 to ubound(CJCCCC):If Mid(CCCJC,CJCCCC(CJCCCJ),1)="1" then
CJJCCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJJC("!$*|t|qt#"))="":CCJCC=0:CJJJJJ=0:CCCJJ=Empty:CCCCC=0:CJJJCJ=0:CJJJJC=0:CCCCJ=0:CJJCJJ=False:CJCJCC=False:CJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJJ,CCJJJC,CJCCCJ,CCJJCJ,CCJJCC:CCJJJJ=split(CJCCJC,CJCCJJC("]")):if ubound(CCJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJJ(0)) or len(CCJJJJ(1))<>32 or len(CCJJJJ(2))<>32 then
Call ClearMemberCookie
else
CCJJJC=CCJJJJ(1):for CJCCCJ=1 to len(CCJJJC):CCJJCJ=mid(CCJJJC,CJCCCJ,1):if isnumeric(CCJJCJ) then CCJJCC=CCJJCC & CCJJCJ
if len(CCJJCC)=7 then exit for
next:CCJJJC=CCJJJJ(2):if CCJJCC<>mid(CCJJJC,6,7) then
Call ClearMemberCookie
else
CCJJCJ=mid(CCJJJC,18,10)/2:if CCJJCJ<DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCC=Clng(CCJJJJ(0)):CCCJJ=CCJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJ,CJCCJCJ):dim CJCCCJ,CCJJCJ,CCJJCC:for CJCCCJ=1 to len(CJCCJCJ):CCJJCJ=mid(CJCCJCJ,CJCCCJ,1):if isnumeric(CCJJCJ) then CCJJCC=CCJJCC & CCJJCJ
if len(CCJJCC)=7 then exit for
next:CCJJCC=CJJJJJJ & CJCCJJC("]") & CJCCJCJ & CJCCJJC("]") & Fix(10000*(Rnd+1)) & CCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJC("!$*|t|qt#"))=CCJJCC:End Sub::Function CJJCCCJ(CJCCJCC):Dim str,CCJCJC:str = Trim(CJCCJCC):If IsNull(str) Or str = "" Then
CJJCCCJ = ""
else
str=Replace(str, CJCCJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJJC("k:7C2>6"), CJCCJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJJC("kD4C:AE"), CJCCJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCJC=new RegExp:CCJCJC.Pattern=CJCCJJC("@?W,2\K.ZXl"):CCJCJC.IgnoreCase = True:CCJCJC.Global=True:str=CCJCJC.Replace(str,CJCCJJC("@?S`U6BF2=Dj")):set CCJCJC=nothing:CJJCCCJ=str
End If:End Function:Function IIf(CJCCCJJ, CJCCCJC, CJCCCCJ):if isnull(CJCCCJJ) or isempty(CJCCCJJ) then
IIf = CJCCCCJ
elseif CJCCCJJ Then
IIf = CJCCCJC
Else
IIf = CJCCCCJ
end if:End Function:Const CJJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCC,CCJJJJJ):dim CCJJJJ:CCJJJJ=CJCCCCC & "=" & CCJJJJJ & CJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJC("$6E\r@@<:6"),CCJJJJ):End Sub:::::::Function CJCJJJJ(CCCCJJ):if isnull(CCCCJJ) or trim(CCCCJJ)="" or not isnumeric(CCCCJJ) then
CJCJJJJ=false
else
Dim CCJCJC:Set CCJCJC = New RegExp:CCJCJC.Pattern = CJCCJJC("/-5ZS"):CCJCJC.IgnoreCase = True:CJCJJJJ = CCJCJC.test(CCCCJJ):set CCJCJC=nothing
end if:End Function:Function CJCJJJC(CCJJJJC):dim CCJCCJ,CCJCCC:CCJCCJ=CJCCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJJC & CJCCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCCC=CJCCJ.execute(CCJCCJ):CJCJJJC = CCJCCC(0):if isnull(CJCJJJC) then CJCJJJC=1
CCJCCC.close : set CCJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:CCJCCC.close : set CCJCCC=nothing:CCJJC.Close : Set CCJJC=Nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJJJJCJ.Close : Set CJJJJCJ = Nothing:CJCCJ.Close : Set CJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJC("!$*0|6DD286"),server.URLEncode(CCJJJCJ)):Response.Redirect CJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCJCCJ():Dim CCJCCC, CCCJJJ(), CJCCCJ, CCJJCJ, CCCJJC,CCCJCJ:If Not IsArray(Application(CJCCJJC("!$*0%6DED"))) Then
CCJCJ=CJCCJJC("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CCJCCC=server.createobject(CJCCJJC("25@53]C64@C5D6E")):CCJCCC.open CCJCJ,CJCCJ,1:CCCJJC = CCJCCC.RecordCount:CCCJCJ=CCJCCC.fields.count-1:ReDim CCCJJJ(CCCJJC, CCCJCJ):If CCCJJC > 0 Then
For CJCCCJ = 1 To CCCJJC:For CCJJCJ = 0 To CCCJCJ:if CCJJCJ=4 or CCJJCJ=6 or CCJJCJ=19 then
CCCJJJ(CJCCCJ, CCJJCJ) = CJCCJJJ(CCJCCC(CCJJCJ))
else
CCCJJJ(CJCCCJ, CCJJCJ) = CCJCCC(CCJJCJ):if CCJCCC(CCJJCJ).type<>11 and isnull(CCCJJJ(CJCCCJ, CCJJCJ)) then CCCJJJ(CJCCCJ, CCJJCJ)=""
end if:Next:CCJCCC.MoveNext:Next
End If:CCJCCC.Close: Set CCJCCC = Nothing:Application(CJCCJJC("!$*0%6DED")) = CCCJJJ
End If:CJCJCCJ = Application(CJCCJJC("!$*0%6DED")):End Function::::::::::function CJCJCCC(str):dim CJCCCJ,CCCJCC,CCCCJJ,CCCCJC:if isnull(str) then exit function
str=trim(str):for CJCCCJ=1 to len(str):CCCJCC=mid(str,CJCCCJ,1):CCCCJJ=AscW(CCCJCC):if CCCCJJ=12288 then
CCCJCC=chrw(32)
elseif CCCCJJ=-29 then
CCCJCC=chrw(CCCCJJ+155)
elseif CCCCJJ<0 then
CCCJCC=chrw(CCCCJJ+288)
end if:CCCCJC=CCCCJC & CCCJCC:next:CJCJCCC=CCCCJC:end function::::::::::::::::::::Function CJCCJJJ(CCJJJCC):if isnull(CCJJJCC) then
CJCCJJJ=""
else
On Error Resume Next:CJCCJJJ=CCJJJCC:if err.number=-2147352567 then
CJCCJJJ="":err.Clear
end if
end if:End Function::::::Call CheckRight(13):Const CJJCJCC="lbquestion":Const CJJCCJJ="<span style='color:#070;'>??</span>"
dim CCCCCJ,CCCCCC,CJJJJJJ,CJCCCJ:CCCCCJ=Request.QueryString(CJCCJJC("=3:5")):CCCCCC=Request.QueryString(CJCCJJC("24E")):CJJJJJJ=Request.QueryString(CJCCJJC(":5")):if not CJCJJJJ(CCCCCJ) then Call RedirectMessage(CJCCJJC("????????M????????,??????????????,"))
if CCCCCC=CJCCJJC("56=") and CJCJJJJ(CJJJJJJ) then
CCJCJ=CJCCJJC("56=6E6 ,7C@> ,") & CJJCJCC & CJCCJJC(" ,H96C6 ,:5l") & CJJJJJJ & CJCCJJC(" ,2?5 ,=3l") & CCCCCJ:CJCCJ.execute CCJCJ
elseif CCCCCC=CJCCJJC("56=2==") then
CJCCJ.execute CJCCJJC("56=6E6 ,7C@> ,") & CJJCJCC & CJCCJJC(" ,H96C6 ,=3l") & CCCCCJ:response.Redirect CJCCJJC("BF6DE:@?]2DAn=3:5l") & CCCCCJ
elseif CCCCCC=CJCCJJC(":>A@CE") then
dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:CJJJJJC=server.MapPath(CJCCJJC("]]^]]^2EE249>6?ED^%6DE0""F6DE:@?0") & CCCCCJ & CJCCJJC("]I=D")):set CJJJCJJ=server.CreateObject(CJCCJJC("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJJJCJJ.FileExists(CJJJJJC) Then Call RedirectMessage(CJCCJJC("????????M??????????tI46=????????????,????????????????????,"))
set CJJJCJJ=nothing:On Error Resume Next:Set CJJJJCJ = server.CreateObject(CJCCJJC("ps~sq]r@??64E:@?")):CJJJJCJ.Open CJCCJJC("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_js2E2 ,$@FC46lQ") & CJJJJJC & CJCCJJC("QjtIE6?565 ,!C@A6CE:6DlQtI46= ,g]_jws#l*6Djx|t)l`Qj"):if err then Call RedirectMessage(CJCCJJC("????????M????tI46=??????????,??????,") & err.description)
set CCJJC=CJJJJCJ.OpenSchema(20):if CCJJC.eof then Call RedirectMessage(CJCCJJC("????????M????tI46=??????????,????????????????????,"))
dim CJJJCJC:CJJJCJC=replace(CCJJC(2),CJCCJJC("V"),"")
set CCJJC=CJJJJCJ.execute(CJCCJJC(",") & CJJJCJC & CJCCJJC("pix.")):if err then Call RedirectMessage(CJCCJJC("????????M????tI46=??????????,??????,") & err.description)
On Error Goto 0:if CCJJC.eof then Call RedirectMessage(CJCCJJC("????????M????????,????tI46=??????????@????????,????????,"))
if CCJJC.Fields.Count<9 then Call RedirectMessage(CJCCJJC("????????MtI46=????????????W") & CCJJC.Fields.Count & CJCCJJC("^hX????????,????????@????????????,"))
set CCJJJ=CJCCJ.execute(CJCCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,=3BF6DE:@? ,@C56C ,3J ,:5 ,56D4")):CJJJJCC=CCJJJ(0):CCJCJ="":CJCCCJ=1:do while not CCJJC.eof:if not CJCJJJJ(CCJJC(0)) or not CJCJJJJ(CCJJC(4)) then exit do
CCJCJ=CCJCJ & CJCCJJC(":?D6CE ,") & CJJCJCC & CJCCJJC("W:5[D@CE[BF6DE:@?[2?DH6C[D4@C6[EJA6[4@CC64E[724E@C`[724E@Ca[C6G6CD6[=3X ,G2=F6DW") & (CJJJJCC+CJCCCJ)  & CJCCJJC("[") & CCJJC(0) & CJCCJJC("[V") & CJJCCCJ(CCJJC(1)) & CJCCJJC("V") & CJCCJJC("[V") & CJJCCCJ(CCJJC(2)) & CJCCJJC("V") & CJCCJJC("[V") & CJCJCCC(CCJJC(3)) & CJCCJJC("V") & CJCCJJC("[") & CCJJC(4) & CJCCJJC("[V") & CJJCCCJ(CCJJC(5)) & CJCCJJC("V") & CJCCJJC("[") & IIf(CJCJJJJ(CCJJC(6)),CCJJC(6),CJCCJJC("}F==")) & CJCCJJC("[") & IIf(CJCJJJJ(CCJJC(7)),CCJJC(7),CJCCJJC("}F==")) & CJCCJJC("[") & IIf(CCJJC(8)="1",1,0) & CJCCJJC("[") & CCCCCJ  & CJCCJJC("Xj")
CJCCCJ=CJCCCJ+1:CCJJC.movenext:loop:CJCCJ.execute CCJCJ:response.Redirect CJCCJJC("BF6DE:@?]2DAn=3:5l") & CCCCCJ
end if:if Request.ServerVariables(CJCCJJC("#t""&t$%0|t%w~s"))=CJCCJJC("!~$%") then
dim CJJJCCJ,CJJJCCC:CJJJCCJ=Request.Form(CJCCJJC("724E@C`")):CJJJCCC=Request.Form(CJCCJJC("724E@Ca")):if not CJCJJJJ(CJJJCCJ) then CJJJCCJ=CJCCJJC("}F==")
if not CJCJJJJ(CJJJCCC) then CJJJCCC=CJCCJJC("}F==")
if CCCCCC=CJCCJJC("255") then
CCJCJ=CJCCJJC(":?D6CE ,") & CJJCJCC & CJCCJJC("W:5[BF6DE:@?[2?DH6C[D4@C6[4@CC64E[EJA6[724E@C`[724E@Ca[C6G6CD6[D@CE[=3X ,G2=F6DW") & CJCJJJC(CJJCJCC) & CJCCJJC("[V") & CJJCCCJ(Request.Form(CJCCJJC("BF6DE:@?"))) & CJCCJJC("V") & CJCCJJC("[V") & CJJCCCJ(Request.Form(CJCCJJC("2?DH6C"))) & CJCCJJC("V") & CJCCJJC("[V") & CJCJCCC(Request.Form(CJCCJJC("D4@C6"))) & CJCCJJC("V") & CJCCJJC("[V") & CJJCCCJ(Request.Form(CJCCJJC("4@CC64E"))) & CJCCJJC("V") & CJCCJJC("[") & Request.Form(CJCCJJC("EJA6")) & CJCCJJC("[") & CJJJCCJ  & CJCCJJC("[") & CJJJCCC  & CJCCJJC("[") & Cint(Request.Form(CJCCJJC("C6G6CD6"))) & CJCCJJC("[") & Request.Form(CJCCJJC("D@CE")) & CJCCJJC("[") & CCCCCJ  & CJCCJJC("X")
CJCCJ.execute CCJCJ
elseif CCCCCC=CJCCJJC(">@5") and CJCJJJJ(CJJJJJJ) then
CCJCJ=CJCCJJC("FA52E6 ,") & CJJCJCC & CJCCJJC(" ,D6E") & CJCCJJC(" ,BF6DE:@?lV") & CJJCCCJ(Request.Form(CJCCJJC("BF6DE:@?"))) & CJCCJJC("V") & CJCCJJC("[2?DH6ClV") & CJJCCCJ(Request.Form(CJCCJJC("2?DH6C"))) & CJCCJJC("V") & CJCCJJC("[D4@C6lV") & CJCJCCC(Request.Form(CJCCJJC("D4@C6"))) & CJCCJJC("V") & CJCCJJC("[4@CC64ElV") & CJJCCCJ(Request.Form(CJCCJJC("4@CC64E"))) & CJCCJJC("V") & CJCCJJC("[EJA6l") & Request.Form(CJCCJJC("EJA6")) & CJCCJJC("[724E@C`l") & CJJJCCJ  & CJCCJJC("[724E@Cal") & CJJJCCC  & CJCCJJC("[C6G6CD6l") & Cint(Request.Form(CJCCJJC("C6G6CD6"))) & CJCCJJC("[D@CEl") & Request.Form(CJCCJJC("D@CE")) & CJCCJJC(" ,H96C6 ,:5l") & CJJJJJJ
CJCCJ.execute CCJCJ:CCCCCC=""
end if
end if:dim CCCJJJ,CJJCJJJ:CCCJJJ=CJCJCCJ:for CJCCCJ=1 to ubound(CCCJJJ):if CCCJJJ(CJCCCJ,0)=cint(CCCCCJ) then
CJJCJJJ=CCCJJJ(CJCCCJ,1):exit for
end if:next:Response.Write(vbCrLf):Response.Write(CJCCJJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCJJC("k9E>=m") & vbCrLf):Response.Write(CJCCJJC("k9625m") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJC("E5 ,L ,G6CE:42=\2=:8?i ,E@Aj ,N") & vbCrLf):Response.Write(CJCCJJC(":7C2>6 ,L ,96:89Ei ,aeAIj ,N") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("k^9625m") & vbCrLf):Response.Write(CJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k5:G ,4=2DDlQE:E=6Qm")):Response.Write  CJJCJJJ:Response.Write(CJCCJJC("k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("kF= ,4=2DDlQE23Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k=:mk2 ,9C67lQ>@5:7J]2DAn:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQBF6DE:@?]2DAn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJC(" ,k=:mk2 ,9C67lQ724E@C]2DAn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJC(" ,k=:mk2 ,9C67lQ6IA=2:?]2DAn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJC(" ,k=:mk2 ,9C67lQ=:DE]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJJC("k^F=m") & vbCrLf):Response.Write(CJCCJJC("k7@C> ,:5lQ7@C>aQ ,?2>6lQ7@C>aQ ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:7C2>6 ,DC4lQ]]^]]^:?4^FA=@25]2DAnp4ElaUu%laUu}l%6DE0""F6DE:@?0")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Q ,D4C@==:?8lQ?@Q ,7C2>63@C56ClQ_Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3E?0:>A@CEQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=3:5Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ24EQ ,G2=F6lQ:>A@CEQm") & vbCrLf):Response.Write(CJCCJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ??@ ,??Q ,:5lQ3E?056=2==Q ,4=2DDlQ3FEE@?Q ,E:E=6lQ??@??????Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,:5lQ3E?\6IA@CEQ ,4=2DDlQ3FEE@?Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m ,??,????,tI46=??????????????????????????????,????,??@????????,??????????????????,k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC("k^7@C>m") & vbCrLf):Response.Write(CJCCJJC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,D@CE.??`??????,??@????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,BF6DE:@?.????????????????????????M??????,??????@??????????x|v????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,2?DH6C.????????????????????,??????????????????,??????????????????????,??????????,??????????????????????????????Qm????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,D4@C6.????????????????????????,????????????????????????????,????????????,????????????@??????????????????,Qm????????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,EJA6.????????????????k3C ,^m_\????????k3C ,^m`\????????k3C ,^ma\????????k3C ,^mb\????????k3C ,^mc\????????k3C ,^md\????????k3C ,^me\????????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,4@CC64E.??????????????????????,????????????????,??????????????????,????????????????????,??????????????????,??????????????????Qm????????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,724E@C`.????????????????????,????????????,??_??????????,??????????????????,????????,k3C^m??????????,??????????????????????@????,????????,??????,????????,????????Qm????`k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,724E@Ca.????????????,??????????????????????,??????????????@??????????????Qm????ak^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,E:E=6lQ,C6G6CD6.????????????????????,????????????????????????,tI46=??????????????`??,??????????,????????????????????,??????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9 ,4=2DDlQ?@tI=Qm????k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):if CCCCCC=CJCCJJC("255") then
Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write  request.querystring(CJCCJJC(">2I:5")):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQQ ,D:K6lQedQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQG2=F6lQ_Q ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ4@CC64EQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQdQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ724E@C`Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ724E@CaQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQC6G6CD6Q ,EJA6lQ4964<3@IQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m ,k2 ,9C67lQn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,"))
ElseIf CCCCCC=CJCCJJC(">@5") Then
set CCJJJ=CJCCJ.execute(CJCCJJC("D6=64E ,E@A ,` ,:5[BF6DE:@?[2?DH6C[4@CC64E[724E@C`[724E@Ca[C6G6CD6[D@CE[D4@C6[EJA6 ,7C@> ,") & CJJCJCC & CJCCJJC(" ,H96C6 ,=3l") & CCCCCJ & CJCCJJC(" ,2?5 ,:5l") & CJJJJJJ):Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write  CCJJJ(7):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJJ(1):Response.Write(CJCCJJC("Q ,D:K6lQedQmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write  CCJJJ(2):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCJJJ(8):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQaQ ,G2=F6lQ")):Response.Write  CCJJJ(9):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ4@CC64EQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQdQ ,G2=F6lQ")):Response.Write  CCJJJ(3):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ724E@C`Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQaQ ,G2=F6lQ")):Response.Write  CCJJJ(4):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5mk:?AFE ,?2>6lQ724E@CaQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQaQ ,G2=F6lQ")):Response.Write  CCJJJ(5):Response.Write(CJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQC6G6CD6Q ,EJA6lQ4964<3@IQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJJ(6),CJCCJJC("4964<65lV4964<65V"),"")
Response.Write(CJCCJJC("mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m ,k2 ,9C67lQn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,"))
Else
CJCCCJ=1:set CCJJJ=CJCCJ.execute(CJCCJJC("D6=64E ,:5[BF6DE:@?[2?DH6C[4@CC64E[724E@C`[724E@Ca[C6G6CD6[D@CE[D4@C6[EJA6 ,7C@> ,") & CJJCJCC & CJCCJJC(" ,H96C6 ,=3l") & CCCCCJ & CJCCJJC(" ,@C56C ,3J ,D@CE")):while not CCJJJ.eof:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJJ(7):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(1):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(2):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(8):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(9):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(3):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(4):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJJJ(5):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCJJJ(6),CJJCCJJ,""):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2AlQ?@HC2AQmk2 ,9C67lQn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("U24El>@5U:5l")):Response.Write  CCJJJ(0):Response.Write(CJCCJJC("Qm????k^2m ,k2 ,9C67lQn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("U24El56=U:5l")):Response.Write  CCJJJ(0):Response.Write(CJCCJJC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):CCJJJ.movenext:CJCCCJ=CJCCCJ+1:wend:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kEC ,4=2DDlQ?@tI=Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4@=DA2?lQ`_Q ,2=:8?lQC:89EQmk2 ,9C67lQn=3:5l")):Response.Write  CCCCCJ:Response.Write(CJCCJJC("U24El255U>2I:5l")):Response.Write  CJCCCJ:Response.Write(CJCCJJC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC("k^7@C>m") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCCJJC(" ,SWQE9,E:E=6.QX];%:E=6WLDEJ=6iQ3=24<QNXj") & vbCrLf):Response.Write(CJCCJJC(" ,SWQ:>8,E:E=6.QX];%:E=6WLDEJ=6iQ3=F6QNXj") & vbCrLf):Response.Write(CJCCJJC(" ,SWQ2i4@?E2:?DWV????VXQ[SWVE23=6]E30=:DEVXX]4=:4<W7F?4E:@?WXLC6EFC? ,4@?7:C>WQ??????,????????????????????????,QXjNXj") & vbCrLf):Response.Write(CJCCJJC(" ,^^????????") & vbCrLf):Response.Write(CJCCJJC(" ,SWQR3E?056=2==QX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CJCCJJC(" ,:7W4@?7:C>WQ??????,??????????????????????????,QXXL=@42E:@?lQn24El56=2==U=3:5lQZSWQR=3:5QX]G2=WXjN") & vbCrLf):Response.Write(CJCCJJC(" ,NXj") & vbCrLf):Response.Write(CJCCJJC(" ,^^????") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\6IA@CEVX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]E23=6a6I46=WL7:=66IEiV]I=DVNXjNXj") & vbCrLf):Response.Write(CJCCJJC("NXj") & vbCrLf):Response.Write(CJCCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:CCJJC.Close:Set CCJJC=Nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCJ.Close:Set CJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJJC(ByVal CCCJCC)
Dim CJJCJJC, CJCCCJ, CCCCJJ
CCCJCC = Replace(CCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCJ = 1 To Len(CCCJCC)
If CJCCCJ <> CCCCJJ Then
CJJCJJC = AscW(Mid(CCCJCC, CJCCCJ, 1))
If CJJCJJC >= 33 And CJJCJJC <= 79 Then
CJCCJJC = CJCCJJC & Chr(CJJCJJC + 47)
ElseIf CJJCJJC >= 80 And CJJCJJC <= 126 Then
CJCCJJC = CJCCJJC & Chr(CJJCJJC - 47)
Else
CCCCJJ = CJCCCJ + 1
If Mid(CCCJCC, CCCCJJ, 1) = Chr(64) Then CJCCJJC = CJCCJJC & ChrW(CJJCJJC + 5) Else CJCCJJC = CJCCJJC & Mid(CCCJCC, CJCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de