Edit D:\xinhaisoft\crisis_new\school\bulletin.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCC, CCJJJJ,CCJJJC, CCJJCJ, CCJJCC:Set CJCCCC = server.CreateObject(CCCCCCJ("ps~sq]r@??64E:@?")):CJCCCC.open Application(CCCCCCJ("r@??64E:@?$EC:?8")):Set CCJJJJ=CJCCCC:::Function IIf(CCCCCCC, CJJJJJJJ, CJJJJJJC):if isnull(CCCCCCC) or isempty(CCCCCCC) then
IIf = CJJJJJJC
elseif CCCCCCC Then
IIf = CJJJJJJJ
Else
IIf = CJJJJJJC
end if:End Function:Const CCJCCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CCJCJJ,CCJCJC,CCJCCJ:if isarray(str) then
on error resume next:CCJCJJ=ubound(str,2):CCJCCJ=err.number:err.clear:on error goto 0:if CCJCCJ<>0 then
for CCJCJJ=0 to ubound(str):if CCJCJJ>0 then response.Write CCCCCCJ("k3C ,^m")
response.Write CCJCJJ & CCCCCCJ("i ,") & str(CCJCJJ):next
else
response.Write CCCCCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCJJ=0 to ubound(str,2):response.Write CCCCCCJ("kE9 ,2=:8?lV=67EVm") & CCJCJJ & CCCCCCJ("k^E9m")
next:response.Write CCCCCCJ("k^ECm"):for CCJCJJ=0 to ubound(str):response.Write CCCCCCJ("kECmkE9m") & CCJCJJ & CCCCCCJ("k^E9m"):for CCJCJC=0 to ubound(str,2):response.Write CCCCCCJ("kE5m") & str(CCJCJJ,CCJCJC) & CCCCCCJ("k^E5m"):next:response.Write CCCCCCJ("k^ECm"):next:response.Write CCCCCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJJJC():Dim CCJCCC, CCCJJJ:CCCJJJ = Request.ServerVariables(CCCCCCJ("!p%w0x}u~")):CCJCCC = Request.ServerVariables(CCCCCCJ("""&t#*0$%#x}v")):If CCJCCC <> Empty Then
if instr(lcase(CCJCCC),CCCCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJCCC),CCCCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCCCCJ("????????,????????????????????????,??,??,"))
CCCJJJ = CCCJJJ & CCCCCCJ("n") & CCJCCC
end if:CCCJJJC = CCCJJJ:End Function:Sub SetHttpOnlyCookie(CJJJJJCC,CJJJJCJJ):dim CCCJJC:CCCJJC=CJJJJJCC & CCCCCCJ("l") & CJJJJCJJ & CCCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCCJ("$6E\r@@<:6"),CCCJJC):End Sub:::Function CCCJJCJ(ByVal Str, ByVal StrLen):Dim CCCJCJ, CCCJCC, CCCCJJ, CCJCJJ:if isnull(str) then
CCCJJCJ=""
else
CCCJCJ = Len(Str):CCCJCC = 0:For CCJCJJ = 1 To CCCJCJ:CCCCJJ = AscW(Mid(Str, CCJCJJ, 1)):If CCCCJJ < 0 Or CCCCJJ > 255 Then CCCJCC = CCCJCC + 2 Else CCCJCC = CCCJCC + 1
If CCCJCC >= StrLen Then
CCCJJCJ = Left(Str, CCJCJJ) & CCCCCCJ("]]]"):Exit For
Else
CCCJJCJ = Str
End If:Next
end if:End Function::::Function CCCJJCC(CCJCCJ):if isnull(CCJCCJ) or trim(CCJCCJ)="" or not isnumeric(CCJCCJ) then
CCCJJCC=false
else
Dim CCCCJC:Set CCCCJC = New RegExp:CCCCJC.Pattern = CCCCCCJ("/-5ZS"):CCCCJC.IgnoreCase = True:CCCJJCC = CCCCJC.test(CCJCCJ):set CCCCJC=nothing
end if:End Function:Function CCCJCJJ(CJJJJCJC):dim CCCCCJ,CCCCCC:CCCCCJ=CCCCCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJCJC & CCCCCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCCC=CJCCCC.execute(CCCCCJ):CCCJCJJ = CCCCCC(0):if isnull(CCCJCJJ) then CCCJCJJ=1
CCCCCC.close : set CCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CCCCCC.close : set CCCCCC=nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCCCJJJ.Close : Set CCCCJJJ = Nothing:CJCCCC.Close : Set CJCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCCJ("!$*0|6DD286"),server.URLEncode(CJJJJCCJ)):Response.Redirect CCCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJJJCCC):Application.Contents.Remove CJJJJCCC
End Sub::Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ:CJCJJCJ=Trim(Request.Cookies(CCCCCCJ("!$*|t|qt#"))):if CJCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJJ>0 then
CCJJCC=CCCCCCJ("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") & CJJJJJC & CCCCCCJ("V ,2?5 ,:5l") & CJJJJJJ
set CCJJJC=CJCCCC.execute(CCJJCC):If CCJJJC.EOF Then
Call ClearMemberCookie
Else
CJJJJCJ=CCJJJC(2) & "":CJJJJCC=CCJJJC(3):CJJJCJJ=CCJJJC(5):CJJJCJC=CCJJJC(6):CJJJCCJ=CCJJJC(9):CJJJCCC=CCJJJC(15):CJJCJJC=CCJJJC(0):CJCJJJJ=CCJJJC(1):CJJCCCC=CCJJJC(11) & "":CJJCJCJ=CCJJJC(10) & "":CJJCJJJ=CCJJJC(12):CJJCJCC=CCJJJC(14):CJJCCJJ=CCJJJC(13):CJJCCJC=CCJJJC(7) & "":CJJCCCJ=CCJJJC(4):CJCJJJC=CCJJJC(8):if isnull(CJJJCCC) then CJJJCCC=0
if isnull(CJJJCCJ) or CJJJCCJ=0 then CJJJCCJ=CJJJJCC
if isnull(CJJCCCJ) then CJJCCCJ=0
if isnull(CJJJCJJ) then CJJJCJJ=0
if instr(CCCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJC)>0 then Call RedirectMessage(CCCCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJJ,CJJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCC:CJCJJCC=trim(request.QueryString(CCCCCCJ("D49@@="))):if isnumeric(CJCJJCC) then
response.Redirect CCCCCCJ("^>^G2?E^R^D49@@=^") & CJCJJCC & CCCCCCJ("^DEF56?E^=@8:?nC65:C64El") & CCCJJJ
else
Call RedirectMessage(CCCCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCCJ("!$*|t|qt#"))="":CJJJJJJ=0:CJJJCJC=0:CJJJJJC=Empty:CJJJCJJ=0:CJJJCCC=0:CJJJCCJ=0:CJJJJCC=0:CJJCJJC=False:CJCJJJJ=False:CJCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJC,CJCJCJJ,CCJCJJ,CCJCJC,CJCJCJC:CCCJJC=split(CJCJJCJ,CCCCCCJ("]")):if ubound(CCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJC(0)) or len(CCCJJC(1))<>32 or len(CCCJJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CCCJJC(1):for CCJCJJ=1 to len(CJCJCJJ):CCJCJC=mid(CJCJCJJ,CCJCJJ,1):if isnumeric(CCJCJC) then CJCJCJC=CJCJCJC & CCJCJC
if len(CJCJCJC)=7 then exit for
next:CJCJCJJ=CCCJJC(2):if CJCJCJC<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CCJCJC=mid(CJCJCJJ,18,10)/2:if CCJCJC<DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJJ=Clng(CCCJJC(0)):CJJJJJC=CCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CJJJCJJJ):dim CCJCJJ,CCJCJC,CJCJCJC:for CCJCJJ=1 to len(CJJJCJJJ):CCJCJC=mid(CJJJCJJJ,CCJCJJ,1):if isnumeric(CCJCJC) then CJCJCJC=CJCJCJC & CCJCJC
if len(CJCJCJC)=7 then exit for
next:CJCJCJC=CCJJCJC & CCCCCCJ("]") & CJJJCJJJ & CCCCCCJ("]") & Fix(10000*(Rnd+1)) & CJCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCCJ("!$*|t|qt#"))=CJCJCJC:End Sub::Class jTree:Private CCJJCC, CJCJCCJ, CJCJCCC, CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:Private Sub Class_Initialize():CJCJCCC = 0:CJCCJJJ = 0:CJCCCJJ=10:End Sub:Public Property Let CCCCJJC(CJJJCJJC):if CJJJCJJC="" then Call RedirectMessage(CCCCCCJ("????????,;%C66????????????????????@??????????,"))
CJCCJJC=CJJJCJJC:CJCCJCJ=CCCCCCJ("!$*0") & UCase(CJCCJJC):Call GetTreeArray:End Property:Public Property Get CCCCJJC():CCCCJJC=CJCCJJC:End Property:::Private Sub GetTreeArray():Dim CCJCJJ, CCJCJC, CJCCCJC,CJCCCCJ:CJCJCCJ = Application(CJCCJCJ):If Not IsArray(CJCJCCJ) Then
CCJJCC = CCCCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJJC:if CJCCJCC<>"" then CCJJCC=CCJJCC & CCCCCCJ(" ,H96C6 ,") & CJCCJCC
set CJCCCJC=CJCCCC.execute(CCJJCC):CJCCCCJ=CJCCCJC(0):if CJCCCCJ=0 then Call RedirectMessage(CCCCCCJ("????W") & CJCCJJC & CCCCCCJ("^") & CJCCJCC & CCCCCCJ("X????????????"))
CJCCJJJ=CJCCCCJ+CJCCCJJ:ReDim CJCJCCJ(CJCCJJJ, 4):CCJJCC = CCCCCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CCCCCCJ(" ,H:E9 ,W?@=@4<X"):if CJCCJCC<>"" then CCJJCC=CCJJCC & CCCCCCJ(" ,H96C6 ,") & CJCCJCC
CCJJCC=CCJJCC & CCCCCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=CJCCCC.execute(CCJJCC):For CCJCJJ = 1 To CJCCCCJ:For CCJCJC = 0 To 4:CJCJCCJ(CCJCJJ, CCJCJC) = CJCCCJC(CCJCJC):if IsNull(CJCJCCJ(CCJCJJ,4)) then CJCJCCJ(CCJCJJ,4)=0
If CJCJCCJ(CCJCJJ,2)="" then CJCJCCJ(CCJCJJ,2)=CCCCCCJ(",??.")
Next:CJCCCJC.MoveNext:Next:CJCCCJC.Close: Set CJCCCJC = Nothing:for CCJCJJ=CJCCJJJ-(CJCCCJJ-1) to CJCCJJJ:CJCJCCJ(CCJCJJ,0)=CCJCJJ:next:Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
else
CJCCJJJ=Ubound(CJCJCCJ)
End If:End Sub:::::Private Function CCCCJCJ(CCJJCJC):dim CCJCJJ,CJCCCCC:CCCCJCJ=0:CJCCCCC=CStr(CCJJCJC):if CJCCCCC<>"0" then
for CCJCJJ=1 to CJCCJJJ:If CStr(CJCJCCJ(CCJCJJ, 0))=CJCCCCC Then
CCCCJCJ = CCJCJJ:Exit For
End If:Next
end if:End Function::::Public Function CCCCJCC(CCJJCJC):Dim CCJCJJ,CCJJJJJ:CCJCJJ=CCCCJCJ(CCJJCJC):if CCJCJJ=0 then
CCJJJJJ=CCCCCJJ(CCJJCJC)
else
CCJJJJJ=CJCJCCJ(CCJCJJ,3):if isnull(CCJJJJJ) or CCJJJJJ="" then
CCJJJJJ=CCCCCJJ(CCJJCJC)
elseif Mid(CCJJJJJ,instrrev(CCJJJJJ,CCCCCCJ("["))+1)<>CStr(CCJJCJC) then
CCJJJJJ=CCCCCJJ(CCJJCJC)
elseif Left(CCJJJJJ,1)=CCCCCCJ("[") then
CCJJJJJ=CCCCCJJ(CCJJCJC)
end if
end if:CCCCJCC=CCJJJJJ:End Function:Private Function CCCCCJJ(CCJJCJC):dim CJCCCCC:CJCCCCC=CStr(CCJJCJC):if CJCCCCC="0" then
CCCCCJJ=""
else
dim CJCCCJC:set CJCCCJC=CJCCCC.execute(CCCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJJC & CCCCCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJCCCJC.eof then
Call UpdateCache(CCJJCJC,"","","",""):Call RedirectMessage(CCCCCCJ("??????,xs??,") & CCJJCJC & CCCCCCJ("??,????????,????????????????????,"))
else
if CJCCCJC(0)=0 then
CCCCCJJ="0," & CCJJCJC
else
CCCCCJJ=CCCCJCC(CJCCCJC(0)) & CCCCCCJ("[") & CCJJCJC
end if:if CJCCCJC(2)<>CCCCCJJ then
CJCCCC.execute CCCCCCJ("FA52E6 ,") & CJCCJJC & CCCCCCJ(" ,D6E ,A2E9lV") & CCCCCJJ & CCCCCCJ("V ,H96C6 ,:5l") & CCJJCJC
else
CCCCCJJ=CJCCCJC(2)
end if
end if:Call UpdateCache(CCJJCJC,CJCCCJC(0),CJCCCJC(1),CCCCCJJ,CJCCCJC(3)):CJCCCJC.Close: Set CJCCCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCJCJ
End Sub:Public Sub UpdateCache(CCJJCJC,CJJJCJCJ,CJJJCJCC,CCJJJJJ,CJJJCCJJ):dim CCJCJJ,CCJCJC:CCJJCJC=CLng(CCJJCJC):CCJCJJ=CCCCJCJ(CCJJCJC):if CJJJCJCJ="" and CJJJCJCC="" and CCJJJJJ="" and CJJJCCJJ="" then
if CCJCJJ>0 then
for CCJCJC=1 to 4:CJCJCCJ(CCJCJJ,CCJCJC)=Null:next
end if
else
if CCJCJJ=0 then
for CCJCJC=1 to CJCCJJJ:if CJCJCCJ(CCJCJC,1) & ""="" then
CCJCJJ=CCJCJC:exit for
end if:next
end if:if CCJCJJ=0 then
Call ClearCache
else
CJCJCCJ(CCJCJJ,0)=CLng(CCJJCJC):if CJJJCJCJ<>"" then CJCJCCJ(CCJCJJ,1)=CLng(CJJJCJCJ)
if CJJJCJCC<>"" then CJCJCCJ(CCJCJJ,2)=CJJJCJCC
if CCJJJJJ<>"" then CJCJCCJ(CCJCJJ,3)=CCJJJJJ
if CJJJCCJJ<>"" then CJCJCCJ(CCJCJJ,4)=CLng(CJJJCCJJ)
end if
end if:if CCJCJJ>0 then
Application.Lock():Application(CJCCJCJ) = CJCJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJCCJ):Call ConnClose:Response.Write CJJJJCCJ:Response.End:End Sub:Private Function CCCJCJJ():CCCJCJJ=CCCCCJC+1:End Function:Private Function CCCCCJC():dim CCCCCC:set CCCCCC=CJCCCC.execute(CCCCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJJC & CCCCCCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCCJC=CCCCCC(0):CCCCCC.Close: Set CCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCJJCC:CCJJCC=Request.ServerVariables(CCCCCCJ("!p%w0x}u~")):if instr(CCJJCC,CCCCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJJC and not CJCJJJJ then Call RedirectMessage(CCCCCCJ("????????,????????????????????????,"))
CJCJJCC=CJJJCCJ
elseif instr(CCJJCC,CCCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCC,CCCCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCC=CJJJCCJ
elseif instr(CCJJCC,CCCCCCJ("^D49@@="))>0 then
CJCJJCC=Request.QueryString(CCCCCCJ("D49@@=")):if not CCCJJCC(CJCJJCC) then CJCJJCC=Request.QueryString(CCCCCCJ("F"))
if not CCCJJCC(CJCJJCC) then CJCJJCC=Request.QueryString(CCCCCCJ("D4"))
if not CCCJJCC(CJCJJCC) then Call RedirectMessage(CCCCCCJ("????????W$49@@=X??@??????????,"))
CJCJJCC=csng(CJCJJCC)
end if:if CJCJJCC=0 then Call RedirectMessage(CCCCCCJ("????????W$49@@=X????W_X??,"))
Dim CCJJJJC:Call SetConfig:Sub SetConfig():dim CCJJJCJ,CCCCCC:CCJJCC=CCCCCCJ("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") & CJCJJCC:set CCCCCC=CJCCCC.execute(CCJJCC):if CCCCCC.eof then Call RedirectMessage(CCCCCCJ("??W") & CJJJJJJ & CCCCCCJ("X??????????W") & CJCJJCC & CCCCCCJ("X????????,"))
ReDim CCJJJCJ(61):CCJJJCJ(0)=CCCCCC(CCCCCCJ(";:2@H6:")) & "":CCJJJCJ(1)=CCCCCC(CCCCCCJ("EJA6")):CCJJJCJ(2)=CCCCCC(CCCCCCJ("D>D")):CCJJJCJ(3)=CCCCCC(CCCCCCJ("4FDE@>8C@FA")) & "":CCJJJCJ(4)=CCCCCC(CCCCCCJ("D:5632C0@E96C")) & "":CCJJJCJ(5)=IIf(isnull(CCCCCC(CCCCCCJ("E6DEC6DF=EG:6H"))),0,CCCCCC(CCCCCCJ("E6DEC6DF=EG:6H"))):CCJJJCJ(6)=CCCCCC(CCCCCCJ("K:IF?E:>6")):CCJJJCJ(7)=CCCCCC(CCCCCCJ("766")):CCJJJCJ(8)=CCCCCC(CCCCCCJ("C6E6DE52J")):CCJJJCJ(9)=CCCCCC(CCCCCCJ("6IA:C652E6")):CCJJJCJ(10)=CCCCCC(CCCCCCJ("E:E=6")):CCJJJCJ(11)=CCCCCC(CCCCCCJ(":?EC@")) & "":CCJJJCJ(12)=CCCCCC(CCCCCCJ("A:4EFC6")) & "":CCJJJCJ(13)=CCCCCC(CCCCCCJ("72>:=J")):CCJJJCJ(14)=CCCCCC(CCCCCCJ("4@AJC:89E")) & "":CCJJJCJ(15)=IIf(isnull(CCCCCC(CCCCCCJ("D6>6DE6C0DE2CE052E6"))),CCCCCCJ("`h__\`\`"),CCCCCC(CCCCCCJ("D6>6DE6C0DE2CE052E6"))):CCJJJCJ(16)=IIf(isnull(CCCCCC(CCCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCCCCC(CCCCCCJ("K:IF?0E:>6D09:89=:89E"))):CCJJJCJ(17)=CCCCCC(CCCCCCJ("4@?E24E")) & "":CCJJJCJ(18)=CCCCCC(CCCCCCJ("D2?5E23=6")):CCJJJCJ(19)=CCCCCC(CCCCCCJ("4C:D:D")):CCJJJCJ(20)=CCCCCC(CCCCCCJ("JJ52E6")):CCJJJCJ(21)=CCCCCC(CCCCCCJ("BB")):CCJJJCJ(22)=CCCCCC(CCCCCCJ("JFJF60D>D0EA=")) & "":CCJJJCJ(23)=CCCCCC(CCCCCCJ("JFJF60E6DE0=3")) & "":CCJJJCJ(25)=CCCCCC(CCCCCCJ("6IA6CE")):CCJJJCJ(26)=CCCCCC(CCCCCCJ(">@5:?7@")):CCJJJCJ(27)=CCCCCC(CCCCCCJ("9@>6A286E@AA:4EFC6")) & "":CCJJJCJ(28)=CCCCCC(CCCCCCJ("4C:D:D=3")):CCJJJCJ(29)=IIf(CCCCCC(CCCCCCJ("4C:D:D@=5")),False,True):CCJJJCJ(30)=CCCCCC(CCCCCCJ("8C@FA8F:52?46")):CCJJJCJ(31)=CCCCCC(CCCCCCJ("3:@7665324<")):CCJJJCJ(32)=CCCCCC(CCCCCCJ("<6JDEC")):CCJJJCJ(33)=CCCCCC(CCCCCCJ("=@8@")) & "":CCJJJCJ(34)=CCCCCC(CCCCCCJ("K:46")):CCJJJCJ(35)=IIf(CCCCCC(CCCCCCJ(":D?6H")),True,False):CCJJJCJ(36)=121:CCJJJCJ(37)=111:CCJJJCJ(38)=160:CCJJJCJ(39)=CCCCCC(CCCCCCJ("8F6DE3@@<")):CCJJJCJ(40)=CCCCCC(CCCCCCJ("75D")):CCJJJCJ(42)=CCCCCC(CCCCCCJ("9@>6=@8:?")):CCJJJCJ(43)=CCCCCC(CCCCCCJ("K:IF?0?6657665324<")):CCJJJCJ(44)=CCCCCC(CCCCCCJ("K:IF?0E:>6D0=:>:E")):CCJJJCJ(45)=CCCCCC(CCCCCCJ("4@>A=6E60:?7@")):CCJJJCJ(46)=CCCCCC(CCCCCCJ("E6DE:?EC@")) & "":CCJJJCJ(47)=IIf(isnull(CCCCCC(CCCCCCJ("JFJF60367@C60E:>6"))),0,CCCCCC(CCCCCCJ("JFJF60367@C60E:>6"))):CCJJJCJ(49)=CCCCCC(CCCCCCJ("D>D0C646:G6C")):CCJJJCJ(50)=CCCCCC(CCCCCCJ("D>D0D:8?")) & "":CCJJJCJ(52)=CCCCCC(CCCCCCJ("JFJF602CC2?86")):CCJJJCJ(53)=IIf(isnull(CCCCCC(CCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCCCC(CCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJJCJ(54)=CCCCCC(CCCCCCJ("9:560=30@FE@7286")):CCJJJCJ(55)=CCCCCC(CCCCCCJ("JFJF60E6DE052JD")):CCJJJCJ(56)=CCCCCC(CCCCCCJ("JFJF60H66<0=:>:E")):CCJJJCJ(57)=CCCCCC(CCCCCCJ("JFJF604964<65")):CCJJJCJ(58)=CCCCCC(CCCCCCJ("K:IF?0?6657665324<0?6IE")):CCJJJCJ(59)=CCCCCC(CCCCCCJ("4964<?6HDEF56?E")):CCJJJCJ(60)=CCCCCC(CCCCCCJ("K:IF?04=@D6052E6")):CCCCCC.close : set CCCCCC=nothing:if isNull(CCJJJCJ(8)) or CCJJJCJ(8)="" then CCJJJCJ(8)=0
if isdate(CCJJJCJ(9)) then
CCJJJCJ(9)=cdate(CCJJJCJ(9)):if CCJJJCJ(9)<Date then Call RedirectMessage(CCCCCCJ("????????,????????????????W") & CCJJJCJ(9) & CCCCCCJ("X??????,"))
end if:if not CCCJJCC(CCJJJCJ(20)) then CCJJJCJ(20)=7
select case CCJJJCJ(1):case 1,2,16:CCJJJCJ(36)=159:case 4,5,6,10,11:CCJJJCJ(36)=190:CCJJJCJ(37)=178:CCJJJCJ(38)=191:case 7,13:CCJJJCJ(36)=164:CCJJJCJ(37)=178:CCJJJCJ(38)=179:end select:CCJJJJC=CCJJJCJ:End Sub:Function CCCJCCC(CJJJCCJC):dim CCJJJCJ(7,1),CCJCJJ,CCJJJCC,CCJJCJJ:CCJJJCC=Array(CCCCCCJ("$49@@="),CCCCCCJ("$EF56?E"),CCCCCCJ("s6AE"),CCCCCCJ("vC256"),CCCCCCJ("r=2DD>2E6"),CCCCCCJ("}F>36C"),CCCCCCJ("%62496C"),CCCCCCJ("!2C6?E")):select case CCJJJJC(1):case 1,2 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????")):case 3,16 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????")):case 4 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("??????@"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????")):case 5 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????")):case 6 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("??????@"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 7 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 8 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("??????@"),CCCCCCJ("????"),CCCCCCJ("????????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 9 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 10 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 11 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 12 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 13 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????")):case 14 : CCJJCJJ=Array(CCCCCCJ("??????"),CCCCCCJ("??@??"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case 15 : CCJJCJJ=Array(CCCCCCJ("????"),CCCCCCJ("????????"),CCCCCCJ("????"),CCCCCCJ("????????"),CCCCCCJ("????"),CCCCCCJ("????"),CCCCCCJ("??????"),CCCCCCJ("????")):case else : CCJJCJJ=CCJJJCC
end select:for CCJCJJ=0 to Ubound(CCJJJCJ):CCJJJCJ(CCJCJJ,0)=CCJJJCC(CCJCJJ):CCJJJCJ(CCJCJJ,1)=CCJJCJJ(CCJCJJ):next:for CCJCJJ=0 to Ubound(CCJJJCJ):if CCJJJCJ(CCJCJJ,0)=CJJJCCJC then
CCCJCCC=CCJJJCJ(CCJCJJ,1):exit for
end if:next:End Function::Const CCJCCCC=118:dim CCJJCJC:CCJJCJC=Request.QueryString(CCCCCCJ(":5")):if not CCCJJCC(CCJJCJC) then response.Redirect CCCCCCJ("]")
dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,typename:set CCJJJC=CJCCCC.execute(CCCCCCJ("D6=64E ,E@A ,` ,E:E=6[C62=?2>6[52E6E:>6[9:E[4@?E6?E ,7C@> ,G03F==6E:? ,H96C6 ,:5l") & CCJJCJC):if CCJJJC.eof then Call RedirectMessage(CCCCCCJ("??????????M????????,??????????????????????????,"))
CCJJCCJ=CCJJJC(0):CCJCJCC=CCJJJC(1):CCJCJCJ=FormatDatetime(CCJJJC(2),2):CCJCJJJ=CCJJJC(3)+1:CCJJCCC=replace(CCJJJC(4) & "",CCCCCCJ("??,"),""):if isnull(CCJCJJJ) then CCJCJJJ=1
CJCCCC.execute(CCCCCCJ("FA52E6 ,3F==6E:? ,D6E ,9:El") & CCJCJJJ & CCCCCCJ(" ,H96C6 ,:5l") & CCJJCJC):Response.Write(vbCrLf):Response.Write(CCCCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCCCCCJ("k9E>=m") & vbCrLf):Response.Write(CCCCCCJ("k9625m") & vbCrLf):Response.Write(CCCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCCJ("kE:E=6m")):Response.Write  CCJJJJC(10):Response.Write(CCCCCCJ("\")):Response.Write  CCJJCCJ:Response.Write(CCCCCCJ("k^E:E=6m") & vbCrLf):Response.Write(CCCCCCJ("k=:?< ,9C67lQDEJ=6^5672F=E^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCCCCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("A ,L ,E6IE\:?56?Ei ,_6>j ,N") & vbCrLf):Response.Write(CCCCCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]7@?E67764E];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,SWVR96256Cm9`mDA2?VX]u@?Et7764EWL") & vbCrLf):Response.Write(CCCCCCJ(" ,@FE=:?6iECF6[") & vbCrLf):Response.Write(CCCCCCJ(" ,@FE=:?6r@=@C`iVRuuuV[") & vbCrLf):Response.Write(CCCCCCJ(" ,@FE=:?6(6:89Eia[") & vbCrLf):Response.Write(CCCCCCJ(" ,D925@HiECF6[") & vbCrLf):Response.Write(CCCCCCJ(" ,D925@Hr@=@CiVRbbbV[") & vbCrLf):Response.Write(CCCCCCJ(" ,D925@H~77D6E%@Aia[") & vbCrLf):Response.Write(CCCCCCJ(" ,D925@H~77D6E{67Eia[") & vbCrLf):Response.Write(CCCCCCJ(" ,D925@H~A24:EJi_]b[") & vbCrLf):Response.Write(CCCCCCJ(" ,8C25:6?EiECF6[") & vbCrLf):Response.Write(CCCCCCJ(" ,8C25:6?Er@=@CiVR__chf3V") & vbCrLf):Response.Write(CCCCCCJ(" ,NX") & vbCrLf):Response.Write(CCCCCCJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CCCCCCJ("NX") & vbCrLf):Response.Write(CCCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("k^9625m") & vbCrLf):Response.Write(CCCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):If CCJJJJC(20)="" Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=WDEJ=6^5672F=E^96256C];A8X ,?@\C6A62EjQmkDA2?m")):Response.Write  CCJJJJC(10):Response.Write(CCCCCCJ("k^DA2?mk^9`m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=W")):Response.Write  CCJJJJC(20):Response.Write(CCCCCCJ("X ,?@\C6A62EjQmk^9`m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k=:mk2 ,9C67lQ:?56I]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CCCCCCJ("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,")):set CCJJJC=CJCCCC.execute(CCCCCCJ("D6=64E ,:5[?2>6 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CCJCCCC & CCCCCCJ(" ,2?5 ,>6>36CEJA6l") & CJCJJCC & CCCCCCJ(" ,@C56C ,3J ,D@CE")):while not CCJJJC.eof:response.Write CCCCCCJ("k=:mk2 ,9C67lV=:DE]2DAnD49@@=l") & CJCJJCC & CCCCCCJ("UEJA6:5l") & CCJJJC(0) & CCCCCCJ("Vm") & CCJJJC(1) & CCCCCCJ("k^2mk^=:m")
CCJJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQH96C6Qm ,??????????,k2 ,9C67lQ:?56I]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CCCCCCJ("Qm????k^2m ,U8EjU8Ej ,???? ,U8EjU8Ej ,k2 ,9C67lQG:6H]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CCCCCCJ("24El3F==6E:?U:5l")):Response.Write  CCJJCJC:Response.Write(CCCCCCJ("Qm")):Response.Write  CCJJCCJ:Response.Write(CCCCCCJ("k^2m ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQG:6HQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k9am")):Response.Write  CCJJCCJ:Response.Write(CCCCCCJ("k^9am") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ:?7@Qm")):Response.Write  CCJCJCJ & CCCCCCJ(" ,,??????@.") & CCJCJCC & CCCCCCJ(" ,??????,") & CCJCJJJ & CCCCCCJ("??"):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CCJJCCC:Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQ4<6A@AQmk2 ,9C67lQ9EEAi^^HHH];:2E9:D]4@>^D92C6^nF:5lh_abbdQ ,4=2DDlQ;:2E9:D ,;:2E9:D0EIE ,;E:4@ ,;E:4@0;:2E9:DQ ,E2C86ElQ03=2?<QmkDEC@?8m????????,k^DEC@?8mk^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0BK@?6Qm""""????k^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0ED:?2Qm????????k^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0<2:I:?__`Qm??????k^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0C6?C6?Qm??????k^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0EBBQm????????k^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0E@@=D0`Qmk^2m ,k2 ,4=2DDlQ;:2E9:D03FEE@?0E@@=D0aQmk^2mk^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,kD4C:AE ,DC4lQ9EEAi^^Ga];:2E9:D]4@>^4@56^;:2];DnF:5lh_abbdQ ,492CD6ElQFE7\gQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):If CJJJJJJ=0 Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQE:E=6Q ,:5lQ=@8Qm????????k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k7@C> ,?2>6lQ7@C>0=@8:?Q ,>6E9@5lQA@DEQ ,24E:@?lQ=@8:?]2DAQ ,@?DF3>:ElQ;2G2D4C:AEiE9:D]24E:@?lE9:D]D6=64E]G2=F6Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,????,????,") & vbCrLf):Response.Write(CCCCCCJ(" ,kD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQ ,DEJ=6lQH:5E9i``aAIQ ,@?492?86lQ;2G2D4C:AEi7@C>0=@8:?]FD6C?2>6]7@4FDWXjQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k@AE:@? ,G2=F6lQ]]^DEF56?E^=@8:?]2DAQm")):Response.Write  CCCJCCC(CCCCCCJ("$EF56?E")):Response.Write(CCCCCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm??????k^@AE:@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm")):Response.Write  CCCJCCC(CCCCCCJ("%62496C")):Response.Write(CCCCCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm")):Response.Write  CCCJCCC(CCCCCCJ("!2C6?E")):Response.Write(CCCCCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCCCJ(" ,k3C ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,????,????,") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ ,:5lQFD6C?2>6Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,E:E=6lQ")):Response.Write  CCCJCCC(CCCCCCJ("$EF56?E")):Response.Write(CCCCCCJ("??")):Response.Write  CCCJCCC(CCCCCCJ("}F>36C")):Response.Write(CCCCCCJ("??????????????,")):Response.Write  CCCJCCC(CCCCCCJ("%62496C")):Response.Write(CCCCCCJ("??")):Response.Write  CCCJCCC(CCCCCCJ("!2C6?E")):Response.Write(CCCCCCJ("??xs??,????????,??????????????????????????Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k3C ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,????,????,") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,?2>6lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,2FE@4@>A=6E6lQ@77Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,4=2DDlQ3FEE@?Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,?2>6lQ3FEE@?aQ ,G2=F6lQ")):Response.Write  CCCJCCC(CCCCCCJ("$EF56?E")):Response.Write(CCCCCCJ("????Q ,4=2DDlQ3FEE@?Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVC68:DE]2DAnD49@@=l")):Response.Write  CJCJJCC:Response.Write(CCCCCCJ("U4@>6FC=l")):Response.Write  CCCJJJC:Response.Write(CCCCCCJ("VQ ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=Q ,G2=F6lQ")):Response.Write  CJCJJCC:Response.Write(CCCCCCJ("Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,G2=F6lQ")):Response.Write  CCCJJJC:Response.Write(CCCCCCJ("Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k9b ,:5lQ=@8Qm????????k^9bm") & vbCrLf):Response.Write(CCCCCCJ(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k=:mk2 ,9C67lQ]]^DEF56?E^:?56I]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,k=:mk2 ,9C67lQ]]^DEF56?E^>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,")):If CJJCJJC Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k=:mk2 ,9C67lV25>:?^>2:?]2DAVm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAn4@>6FC=l")):Response.Write  CCCJJJC:Response.Write(CCCCCCJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQ ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k9b ,:5lQD62C49Qm????????????k^9bm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CCJJJJC(14):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQ ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k9b ,:5lQD62C49Qm????@????k^9bm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQ=:DE]2DAQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQH@C5Q ,4=2DDlQE6IEQ ,E:E=6lQ??????????????Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?bQ ,G2=F6lQ?? ,??Q ,4=2DDlQ3FEE@?Q ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQ ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k9b ,:5lQ9@EQm????????k^9bm") & vbCrLf):Response.Write(CCCCCCJ(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):set CCJJJC=CJCCCC.execute(CCCCCCJ("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6[EJA6?2>6[9:E[52E6E:>6 ,7C@> ,G02CE:4=6 ,H96C6 ,DE2EFDl_ ,2?5 ,A2CEJA6l") & CCJCCCC & CCCCCCJ(" ,2?5 ,>6>36CEJA6l") & CJCJJCC & CCCCCCJ(" ,@C56C ,3J ,9:E ,56D4")):while not CCJJJC.eof:response.Write CCCCCCJ("k=:mk2 ,9C67lVG:6H]2DAnD49@@=l") & CJCJJCC & CCCCCCJ("U:5l") & CCJJJC(0) & CCCCCCJ("V ,E:E=6lV??????,") & CCJJJC(1) & CCCCCCJ("UR`bj??????,") & CCJJJC(3) & CCCCCCJ("UR`bj??????,") & CCJJJC(5) & CCCCCCJ("UR`bj??????,") & CCJJJC(4) & CCCCCCJ("Vm") & CCCJJCJ(CCJJJC(1),26) & CCCCCCJ("k^2mk^=:m")
CCJJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCCJ(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQ ,^m") & vbCrLf):Response.Write(CCCCCCJ(" ,k9b ,:5lQD62C49Qm????k^9bm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CCJJJJC(4):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CCCCCCJ("??????????????????,") & CCJJJJC(10):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCJJJJC(11),vbcrlf,CCCCCCJ("k3C ,^m")):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJC.Close:Set CCJJJC=Nothing:CJCCCC.Close:Set CJCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCCJ(ByVal CCCCJJ)
Dim CCJCCJC, CCJCJJ, CCJCCJ
CCCCJJ = Replace(CCCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CCCCJJ)
If CCJCJJ <> CCJCCJ Then
CCJCCJC = AscW(Mid(CCCCJJ, CCJCJJ, 1))
If CCJCCJC >= 33 And CCJCCJC <= 79 Then
CCCCCCJ = CCCCCCJ & Chr(CCJCCJC + 47)
ElseIf CCJCCJC >= 80 And CCJCCJC <= 126 Then
CCCCCCJ = CCCCCCJ & Chr(CCJCCJC - 47)
Else
CCJCCJ = CCJCJJ + 1
If Mid(CCCCJJ, CCJCCJ, 1) = Chr(64) Then CCCCCCJ = CCCCCCJ & ChrW(CCJCCJC + 5) Else CCCCCCJ = CCCCCCJ & Mid(CCCCJJ, CCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de