Edit D:\xinhaisoft\crisis_new\student\testintro.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJCCJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJC>0 then
CJJCJJJ=CJJJJCCJ("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") & CJJCJCJ & CJJJJCCJ("V ,2?5 ,:5l") & CJJCJJC
set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then
Call ClearMemberCookie
Else
CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ
if isnull(CJCJCCC) then CJCJCCC=0
if isnull(CJJCCJC) then CJJCCJC=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJJC,CJJCJCJ)
End IF
end if:::Sub CheckLogined():if CJJCJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCCJJ:CJCCCJJ=trim(request.QueryString(CJJJJCCJ("D49@@="))):if isnumeric(CJCCCJJ) then
response.Redirect CJJJJCCJ("^>^G2?E^R^D49@@=^") & CJCCCJJ & CJJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:CJCCCJC=split(CJCCJCC,CJJJJCCJ("]")):if ubound(CJCCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJC(0)) or len(CJCCCJC(1))<>32 or len(CJCCCJC(2))<>32 then
Call ClearMemberCookie
else
CJCCCCJ=CJCCCJC(1):for CJCCCCC=1 to len(CJCCCCJ):CCJJJJJ=mid(CJCCCCJ,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CJCCCCJ=CJCCCJC(2):if CCJJJJC<>mid(CJCCCCJ,6,7) then
Call ClearMemberCookie
else
CCJJJJJ=mid(CJCCCCJ,18,10)/2:if CCJJJJJ<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJC=Clng(CJCCCJC(0)):CJJCJCJ=CJCCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCC,CJJJJCCC):dim CJCCCCC,CCJJJJJ,CCJJJJC:for CJCCCCC=1 to len(CJJJJCCC):CCJJJJJ=mid(CJJJJCCC,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ
if len(CCJJJJC)=7 then exit for
next:CCJJJJC=CJJJJJCC & CJJJJCCJ("]") & CJJJJCCC & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CCJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CCJJJJC:End Sub:::Function IIf(CJJJCJJJ, CJJJCJJC, CJJJCJCJ):if isnull(CJJJCJJJ) or isempty(CJJJCJJJ) then
IIf = CJJJCJCJ
elseif CJJJCJJJ Then
IIf = CJJJCJJC
Else
IIf = CJJJCJCJ
end if:End Function:Const CCCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCCCJJJ(str):if isnull(str) or str="" then
CCCCJJJ=False:exit function
end if:Dim CCJJJCJ:Set CCJJJCJ = New RegExp:CCJJJCJ.Pattern = CJJJJCCJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CCJJJCJ.IgnoreCase = True:CCCCJJJ = CCJJJCJ.test(str):set CCJJJCJ=nothing:End Function::Sub Debug(str):response.Charset=CJJJJCCJ("FE7\g"):dim CJCCCCC,CCJJJJJ,CCJJJCC:if isarray(str) then
on error resume next:CJCCCCC=ubound(str,2):CCJJJCC=err.number:err.clear:on error goto 0:if CCJJJCC<>0 then
for CJCCCCC=0 to ubound(str):if CJCCCCC>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CJCCCCC & CJJJJCCJ("i ,") & str(CJCCCCC):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCCC=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCCCCC & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CJCCCCC=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CJCCCCC & CJJJJCCJ("k^E9m"):for CCJJJJJ=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CJCCCCC,CCJJJJJ) & CJJJJCCJ("k^E5m"):next:response.Write CJJJJCCJ("k^ECm"):next:response.Write CJJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCJJ,CJJJCCJC):dim CJCCCJC:CJCCCJC=CJJJCCJJ & CJJJJCCJ("l") & CJJJCCJC & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CJCCCJC):End Sub:::::::Function CCCCJJC(CCJJJCC):if isnull(CCJJJCC) or trim(CCJJJCC)="" or not isnumeric(CCJJJCC) then
CCCCJJC=false
else
Dim CCJJJCJ:Set CCJJJCJ = New RegExp:CCJJJCJ.Pattern = CJJJJCCJ("/-5ZS"):CCJJJCJ.IgnoreCase = True:CCCCJJC = CCJJJCJ.test(CCJJJCC):set CCJJJCJ=nothing
end if:End Function:Function CCCCJCJ(CJJJCCCJ):dim CCJJCJJ,CCJJCJC:CCJJCJJ=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCCJ & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJC=CJJJCJJ.execute(CCJJCJJ):CCCCJCJ = CCJJCJC(0):if isnull(CCCCJCJ) then CCCCJCJ=1
CCJJCJC.close : set CCJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CCCCCCJ.Close : Set CCCCCCJ = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJJJJ):Application.Contents.Remove CJJCJJJJ
End Sub::Class jTree:Private CJJCJJJ, CCJJCCJ, CCJJCCC, CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:Private Sub Class_Initialize():CCJJCCC = 0:CCJCJJJ = 0:CCJCCJJ=10:End Sub:Public Property Let CCCCCCC(CJJCJJJC):if CJJCJJJC="" then Call RedirectMessage(CJJJJCCJ("????????,;%C66????????????????????@??????????,"))
CCJCJJC=CJJCJJJC:CCJCJCJ=CJJJJCCJ("!$*0") & UCase(CCJCJJC):Call GetTreeArray:End Property:Public Property Get CCCCCCC():CCCCCCC=CCJCJJC:End Property:::Private Sub GetTreeArray():Dim CJCCCCC, CCJJJJJ, CCJCCJC,CCJCCCJ:CCJJCCJ = Application(CCJCJCJ):If Not IsArray(CCJJCCJ) Then
CJJCJJJ = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJC:if CCJCJCC<>"" then CJJCJJJ=CJJCJJJ & CJJJJCCJ(" ,H96C6 ,") & CCJCJCC
set CCJCCJC=CJJJCJJ.execute(CJJCJJJ):CCJCCCJ=CCJCCJC(0):if CCJCCCJ=0 then Call RedirectMessage(CJJJJCCJ("????W") & CCJCJJC & CJJJJCCJ("^") & CCJCJCC & CJJJJCCJ("X????????????"))
CCJCJJJ=CCJCCCJ+CCJCCJJ:ReDim CCJJCCJ(CCJCJJJ, 4):CJJCJJJ = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCJCC<>"" then CJJCJJJ=CJJCJJJ & CJJJJCCJ(" ,H96C6 ,") & CCJCJCC
CJJCJJJ=CJJCJJJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCJC=CJJJCJJ.execute(CJJCJJJ):For CJCCCCC = 1 To CCJCCCJ:For CCJJJJJ = 0 To 4:CCJJCCJ(CJCCCCC, CCJJJJJ) = CCJCCJC(CCJJJJJ):if IsNull(CCJJCCJ(CJCCCCC,4)) then CCJJCCJ(CJCCCCC,4)=0
If CCJJCCJ(CJCCCCC,2)="" then CCJJCCJ(CJCCCCC,2)=CJJJJCCJ(",??.")
Next:CCJCCJC.MoveNext:Next:CCJCCJC.Close: Set CCJCCJC = Nothing:for CJCCCCC=CCJCJJJ-(CCJCCJJ-1) to CCJCJJJ:CCJJCCJ(CJCCCCC,0)=CJCCCCC:next:Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
else
CCJCJJJ=Ubound(CCJJCCJ)
End If:End Sub:::::Private Function CJJJJJJJ(CJJJJJCC):dim CJCCCCC,CCJCCCC:CJJJJJJJ=0:CCJCCCC=CStr(CJJJJJCC):if CCJCCCC<>"0" then
for CJCCCCC=1 to CCJCJJJ:If CStr(CCJJCCJ(CJCCCCC, 0))=CCJCCCC Then
CJJJJJJJ = CJCCCCC:Exit For
End If:Next
end if:End Function::::Public Function CJJJJJJC(CJJJJJCC):Dim CJCCCCC,CCCJJJJ:CJCCCCC=CJJJJJJJ(CJJJJJCC):if CJCCCCC=0 then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
else
CCCJJJJ=CCJJCCJ(CJCCCCC,3):if isnull(CCCJJJJ) or CCCJJJJ="" then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
elseif Mid(CCCJJJJ,instrrev(CCCJJJJ,CJJJJCCJ("["))+1)<>CStr(CJJJJJCC) then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
elseif Left(CCCJJJJ,1)=CJJJJCCJ("[") then
CCCJJJJ=CJJJJJCJ(CJJJJJCC)
end if
end if:CJJJJJJC=CCCJJJJ:End Function:Private Function CJJJJJCJ(CJJJJJCC):dim CCJCCCC:CCJCCCC=CStr(CJJJJJCC):if CCJCCCC="0" then
CJJJJJCJ=""
else
dim CCJCCJC:set CCJCCJC=CJJJCJJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJJCC):if CCJCCJC.eof then
Call UpdateCache(CJJJJJCC,"","","",""):Call RedirectMessage(CJJJJCCJ("??????,xs??,") & CJJJJJCC & CJJJJCCJ("??,????????,????????????????????,"))
else
if CCJCCJC(0)=0 then
CJJJJJCJ="0," & CJJJJJCC
else
CJJJJJCJ=CJJJJJJC(CCJCCJC(0)) & CJJJJCCJ("[") & CJJJJJCC
end if:if CCJCCJC(2)<>CJJJJJCJ then
CJJJCJJ.execute CJJJJCCJ("FA52E6 ,") & CCJCJJC & CJJJJCCJ(" ,D6E ,A2E9lV") & CJJJJJCJ & CJJJJCCJ("V ,H96C6 ,:5l") & CJJJJJCC
else
CJJJJJCJ=CCJCCJC(2)
end if
end if:Call UpdateCache(CJJJJJCC,CCJCCJC(0),CCJCCJC(1),CJJJJJCJ,CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJCJ
End Sub:Public Sub UpdateCache(CJJJJJCC,CJJCJJCJ,CJJCJJCC,CCCJJJJ,CJJCJCJJ):dim CJCCCCC,CCJJJJJ:CJJJJJCC=CLng(CJJJJJCC):CJCCCCC=CJJJJJJJ(CJJJJJCC):if CJJCJJCJ="" and CJJCJJCC="" and CCCJJJJ="" and CJJCJCJJ="" then
if CJCCCCC>0 then
for CCJJJJJ=1 to 4:CCJJCCJ(CJCCCCC,CCJJJJJ)=Null:next
end if
else
if CJCCCCC=0 then
for CCJJJJJ=1 to CCJCJJJ:if CCJJCCJ(CCJJJJJ,1) & ""="" then
CJCCCCC=CCJJJJJ:exit for
end if:next
end if:if CJCCCCC=0 then
Call ClearCache
else
CCJJCCJ(CJCCCCC,0)=CLng(CJJJJJCC):if CJJCJJCJ<>"" then CCJJCCJ(CJCCCCC,1)=CLng(CJJCJJCJ)
if CJJCJJCC<>"" then CCJJCCJ(CJCCCCC,2)=CJJCJJCC
if CCCJJJJ<>"" then CCJJCCJ(CJCCCCC,3)=CCCJJJJ
if CJJCJCJJ<>"" then CCJJCCJ(CJCCCCC,4)=CLng(CJJCJCJJ)
end if
end if:if CJCCCCC>0 then
Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCCCJCJ():CCCCJCJ=CJJJJCJJ+1:End Function:Private Function CJJJJCJJ():dim CCJJCJC:set CCJJCJC=CJJJCJJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJC & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJJ=CCJJCJC(0):CCJJCJC.Close: Set CCJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCCCJJ:CJJCJJJ=Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):if instr(CJJCJJJ,CJJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJJCJ and not CJCCJJC then Call RedirectMessage(CJJJJCCJ("????????,????????????????????????,"))
CJCCCJJ=CJJCCCC
elseif instr(CJJCJJJ,CJJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJJ,CJJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCCJJ=CJJCCCC
elseif instr(CJJCJJJ,CJJJJCCJ("^D49@@="))>0 then
CJCCCJJ=Request.QueryString(CJJJJCCJ("D49@@=")):if not CCCCJJC(CJCCCJJ) then CJCCCJJ=Request.QueryString(CJJJJCCJ("F"))
if not CCCCJJC(CJCCCJJ) then CJCCCJJ=Request.QueryString(CJJJJCCJ("D4"))
if not CCCCJJC(CJCCCJJ) then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X??@??????????,"))
CJCCCJJ=csng(CJCCCJJ)
end if:if CJCCCJJ=0 then Call RedirectMessage(CJJJJCCJ("????????W$49@@=X????W_X??,"))
Dim CCCJJJC:Call SetConfig:Sub SetConfig():dim CCCJJCJ,CCJJCJC:CJJCJJJ=CJJJJCCJ("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") & CJCCCJJ:set CCJJCJC=CJJJCJJ.execute(CJJCJJJ):if CCJJCJC.eof then Call RedirectMessage(CJJJJCCJ("??W") & CJJCJJC & CJJJJCCJ("X??????????W") & CJCCCJJ & CJJJJCCJ("X????????,"))
ReDim CCCJJCJ(61):CCCJJCJ(0)=CCJJCJC(CJJJJCCJ(";:2@H6:")) & "":CCCJJCJ(1)=CCJJCJC(CJJJJCCJ("EJA6")):CCCJJCJ(2)=CCJJCJC(CJJJJCCJ("D>D")):CCCJJCJ(3)=CCJJCJC(CJJJJCCJ("4FDE@>8C@FA")) & "":CCCJJCJ(4)=CCJJCJC(CJJJJCCJ("D:5632C0@E96C")) & "":CCCJJCJ(5)=IIf(isnull(CCJJCJC(CJJJJCCJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CJJJJCCJ("E6DEC6DF=EG:6H"))):CCCJJCJ(6)=CCJJCJC(CJJJJCCJ("K:IF?E:>6")):CCCJJCJ(7)=CCJJCJC(CJJJJCCJ("766")):CCCJJCJ(8)=CCJJCJC(CJJJJCCJ("C6E6DE52J")):CCCJJCJ(9)=CCJJCJC(CJJJJCCJ("6IA:C652E6")):CCCJJCJ(10)=CCJJCJC(CJJJJCCJ("E:E=6")):CCCJJCJ(11)=CCJJCJC(CJJJJCCJ(":?EC@")) & "":CCCJJCJ(12)=CCJJCJC(CJJJJCCJ("A:4EFC6")) & "":CCCJJCJ(13)=CCJJCJC(CJJJJCCJ("72>:=J")):CCCJJCJ(14)=CCJJCJC(CJJJJCCJ("4@AJC:89E")) & "":CCCJJCJ(15)=IIf(isnull(CCJJCJC(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))),CJJJJCCJ("`h__\`\`"),CCJJCJC(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))):CCCJJCJ(16)=IIf(isnull(CCJJCJC(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CCCJJCJ(17)=CCJJCJC(CJJJJCCJ("4@?E24E")) & "":CCCJJCJ(18)=CCJJCJC(CJJJJCCJ("D2?5E23=6")):CCCJJCJ(19)=CCJJCJC(CJJJJCCJ("4C:D:D")):CCCJJCJ(20)=CCJJCJC(CJJJJCCJ("JJ52E6")):CCCJJCJ(21)=CCJJCJC(CJJJJCCJ("BB")):CCCJJCJ(22)=CCJJCJC(CJJJJCCJ("JFJF60D>D0EA=")) & "":CCCJJCJ(23)=CCJJCJC(CJJJJCCJ("JFJF60E6DE0=3")) & "":CCCJJCJ(25)=CCJJCJC(CJJJJCCJ("6IA6CE")):CCCJJCJ(26)=CCJJCJC(CJJJJCCJ(">@5:?7@")):CCCJJCJ(27)=CCJJCJC(CJJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CCCJJCJ(28)=CCJJCJC(CJJJJCCJ("4C:D:D=3")):CCCJJCJ(29)=IIf(CCJJCJC(CJJJJCCJ("4C:D:D@=5")),False,True):CCCJJCJ(30)=CCJJCJC(CJJJJCCJ("8C@FA8F:52?46")):CCCJJCJ(31)=CCJJCJC(CJJJJCCJ("3:@7665324<")):CCCJJCJ(32)=CCJJCJC(CJJJJCCJ("<6JDEC")):CCCJJCJ(33)=CCJJCJC(CJJJJCCJ("=@8@")) & "":CCCJJCJ(34)=CCJJCJC(CJJJJCCJ("K:46")):CCCJJCJ(35)=IIf(CCJJCJC(CJJJJCCJ(":D?6H")),True,False):CCCJJCJ(36)=121:CCCJJCJ(37)=111:CCCJJCJ(38)=160:CCCJJCJ(39)=CCJJCJC(CJJJJCCJ("8F6DE3@@<")):CCCJJCJ(40)=CCJJCJC(CJJJJCCJ("75D")):CCCJJCJ(42)=CCJJCJC(CJJJJCCJ("9@>6=@8:?")):CCCJJCJ(43)=CCJJCJC(CJJJJCCJ("K:IF?0?6657665324<")):CCCJJCJ(44)=CCJJCJC(CJJJJCCJ("K:IF?0E:>6D0=:>:E")):CCCJJCJ(45)=CCJJCJC(CJJJJCCJ("4@>A=6E60:?7@")):CCCJJCJ(46)=CCJJCJC(CJJJJCCJ("E6DE:?EC@")) & "":CCCJJCJ(47)=IIf(isnull(CCJJCJC(CJJJJCCJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CJJJJCCJ("JFJF60367@C60E:>6"))):CCCJJCJ(49)=CCJJCJC(CJJJJCCJ("D>D0C646:G6C")):CCCJJCJ(50)=CCJJCJC(CJJJJCCJ("D>D0D:8?")) & "":CCCJJCJ(52)=CCJJCJC(CJJJJCCJ("JFJF602CC2?86")):CCCJJCJ(53)=IIf(isnull(CCJJCJC(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJJCJ(54)=CCJJCJC(CJJJJCCJ("9:560=30@FE@7286")):CCCJJCJ(55)=CCJJCJC(CJJJJCCJ("JFJF60E6DE052JD")):CCCJJCJ(56)=CCJJCJC(CJJJJCCJ("JFJF60H66<0=:>:E")):CCCJJCJ(57)=CCJJCJC(CJJJJCCJ("JFJF604964<65")):CCCJJCJ(58)=CCJJCJC(CJJJJCCJ("K:IF?0?6657665324<0?6IE")):CCCJJCJ(59)=CCJJCJC(CJJJJCCJ("4964<?6HDEF56?E")):CCCJJCJ(60)=CCJJCJC(CJJJJCCJ("K:IF?04=@D6052E6")):CCJJCJC.close : set CCJJCJC=nothing:if isNull(CCCJJCJ(8)) or CCCJJCJ(8)="" then CCCJJCJ(8)=0
if isdate(CCCJJCJ(9)) then
CCCJJCJ(9)=cdate(CCCJJCJ(9)):if CCCJJCJ(9)<Date then Call RedirectMessage(CJJJJCCJ("????????,????????????????W") & CCCJJCJ(9) & CJJJJCCJ("X??????,"))
end if:if not CCCCJJC(CCCJJCJ(20)) then CCCJJCJ(20)=7
select case CCCJJCJ(1):case 1,2,16:CCCJJCJ(36)=159:case 4,5,6,10,11:CCCJJCJ(36)=190:CCCJJCJ(37)=178:CCCJJCJ(38)=191:case 7,13:CCCJJCJ(36)=164:CCCJJCJ(37)=178:CCCJJCJ(38)=179:end select:CCCJJJC=CCCJJCJ:End Sub:Function CCCCCJC(CJJCJCJC):dim CCCJJCJ(7,1),CJCCCCC,CCCJJCC,CCCJCJJ:CCCJJCC=Array(CJJJJCCJ("$49@@="),CJJJJCCJ("$EF56?E"),CJJJJCCJ("s6AE"),CJJJJCCJ("vC256"),CJJJJCCJ("r=2DD>2E6"),CJJJJCCJ("}F>36C"),CJJJJCCJ("%62496C"),CJJJJCCJ("!2C6?E")):select case CCCJJJC(1):case 1,2 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 3,16 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 4 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 5 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 6 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 7 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 8 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????@"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 9 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 10 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 11 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 12 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 13 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????")):case 14 : CCCJCJJ=Array(CJJJJCCJ("??????"),CJJJJCCJ("??@??"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case 15 : CCCJCJJ=Array(CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????????"),CJJJJCCJ("????"),CJJJJCCJ("????"),CJJJJCCJ("??????"),CJJJJCCJ("????")):case else : CCCJCJJ=CCCJJCC
end select:for CJCCCCC=0 to Ubound(CCCJJCJ):CCCJJCJ(CJCCCCC,0)=CCCJJCC(CJCCCCC):CCCJJCJ(CJCCCCC,1)=CCCJCJJ(CJCCCCC):next:for CJCCCCC=0 to Ubound(CCCJJCJ):if CCCJJCJ(CJCCCCC,0)=CJJCJCJC then
CCCCCJC=CCCJJCJ(CJCCCCC,1):exit for
end if:next:End Function::if CCCJJJC(45) and (CJCJCJC="" or CJCJJJC<6 or not CCCCJJJ(CJCJCCJ)) then
Call RedirectMessage(CJJJJCCJ("????k2 ,9C67lV]]^DEF56?E^>J:?7@]2DAVm,????.k^2m??????????????????????????????,"))
end if:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m")):Response.Write  CCCJJJC(10):Response.Write(CJJJJCCJ("k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,9C67lQ]]^4DD^C6D6E]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("A ,L ,=:?6\96:89Ei ,adAIj ,N") & vbCrLf):Response.Write(CJJJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k9`m")):Response.Write  CCCJJJC(10):Response.Write(CJJJJCCJ("k^9`m") & vbCrLf):Response.Write(CJJJJCCJ("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CJJCJJC:Response.Write(CJJJJCCJ("Qm????????,")):Response.Write  CJCJCJC:Response.Write(CJJJJCCJ("??,")):Response.Write  CJJCCCJ:Response.Write(CJJJJCCJ("??,k^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ:?56I]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):set CJJJCCJ=CJJJCJJ.execute(CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CJJCJJC):if CJJJCCJ(0)=0 then
Response.Write CJJJJCCJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm????k^2mk^=:m")
else
Response.Write CJJJJCCJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm???? ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CJJJCCJ(0) & CJJJJCCJ("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CJCJJCJ or CJCCJJC Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJCCCJJ:Response.Write(CJJJJCCJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ("k^F=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):set CJJJCCJ=CJJJCJJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,E6DE:?EC@ ,7C@> ,D49@@= ,H96C6 ,:5l") & CJCCCJJ):response.Write CJJJJCCJ("kAm") & replace(CJJJCCJ(0) & "",vbcrlf,CJJJJCCJ("k^AmkAm")) & CJJJJCCJ("k^Am"):Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CCCJJJC(29) Then
set CJJJCCJ=CJJJCJC.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJJCJJC & CJJJJCCJ(" ,2?5 ,G2=:5l` ,2?5 ,=3l") & CCCJJJC(36)):if CJJJCCJ.eof then
response.Write CJJJJCCJ("k2 ,4=2DDlV3FEE@?V ,9C67lV^=3^:?4^DE2CE]9E>n=3:5l") & CCCJJJC(36) & CJJJJCCJ("UE6DEEJA6l_V ,E2C86ElV03=2?<V ,DEJ=6lVA255:?8idAI ,`_AIjVm?? ,?? ,?? ,??k^2m")
else
response.Write CJJJJCCJ("k2 ,4=2DDlV3FEE@?V ,9C67lV:?56I]2DAVm????k^2m")
end if
else
response.Write CJJJJCCJ("k2 ,4=2DDlV3FEE@?V ,9C67lV>>A:08FE2:035:]2DAV ,DEJ=6lVA255:?8idAI ,`_AIjVm?? ,?? ,?? ,??k^2m")
end if:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJCCJ("kF=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CCCJJJC(34) Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ("k^F=m") & vbCrLf)::If CCCJJJC(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJCCJ("kF=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CJJCJJC:Response.Write(CJJJJCCJ("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQK:IF?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,")):If CCCJJJC(39) Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If::If CCCJJJC(30) Then
Response.Write(vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm??????@??k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k^F=m") & vbCrLf):Response.Write(CJJJJCCJ("k9bm????????????k^9bm") & vbCrLf):Response.Write(CJJJJCCJ("kF=m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCCJ("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJJJCCJ("NX") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJJJCCJ("??????????????????,") & CCCJJJC(10):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCCJJJC(14),vbcrlf,CJJJJCCJ("k3Cm")):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJJJCCJ("NX") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCJ(ByVal CJJJJCJC)
Dim CCCJCJC, CJCCCCC, CCJJJCC
CJJJJCJC = Replace(CJJJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCCC = 1 To Len(CJJJJCJC)
If CJCCCCC <> CCJJJCC Then
CCCJCJC = AscW(Mid(CJJJJCJC, CJCCCCC, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJCJC - 47)
Else
CCJJJCC = CJCCCCC + 1
If Mid(CJJJJCJC, CCJJJCC, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJCJC + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CJJJJCJC, CJCCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de