Edit D:\xinhaisoft\crisis_new\jiaowei\admin\bulletin.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJCJJCC("ps~sq]r@??64E:@?")):CJCCC.open Application(CJCJJCC("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJCJJCC("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
CCJCC=CJCJJCC("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") & CCCJC & CJCJJCC("V ,2?5 ,:5l") & CCCJJ
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJCJJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJCJCJJ):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCC("??????????????,????????????,"))
elseIf not CJJJCJC(CJCJCJJ) then
Call RedirectMessage(CJCJJCC("????W") & CJCJCJJ & CJCJJCC("X????????,????????????????????,"))
end if:End Sub:Function CJJJCJC(CJCJCJJ):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJCJCJJ,CJCJJCC("[")):CJJJCJC=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CJJJCJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJJCC("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CJCJJCC("]")):if ubound(CCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then
Call ClearMemberCookie
else
CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then
Call ClearMemberCookie
else
CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC<DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJJ,CJCJCJC):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CJCJCJC):CCJJCC=mid(CJCJCJC,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJCJJ=CJCJJJJ & CJCJJCC("]") & CJCJCJC & CJCJJCC("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCC("!$*|t|qt#"))=CCJCJJ:End Sub:::Function IIf(CJCJCCJ, CJCJCCC, CJCCJJJ):if isnull(CJCJCCJ) or isempty(CJCJCCJ) then
IIf = CJCCJJJ
elseif CJCJCCJ Then
IIf = CJCJCCC
Else
IIf = CJCCJJJ
end if:End Function:Const CJJJCJJ="^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 CJCCCC,CCJJCC,CCJCJC:if isarray(str) then
on error resume next:CJCCCC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CJCJJCC("k3C ,^m")
response.Write CJCCCC & CJCJJCC("i ,") & str(CJCCCC):next
else
response.Write CJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCC=0 to ubound(str,2):response.Write CJCJJCC("kE9 ,2=:8?lV=67EVm") & CJCCCC & CJCJJCC("k^E9m")
next:response.Write CJCJJCC("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CJCJJCC("kECmkE9m") & CJCCCC & CJCJJCC("k^E9m"):for CCJJCC=0 to ubound(str,2):response.Write CJCJJCC("kE5m") & str(CJCCCC,CCJJCC) & CJCJJCC("k^E5m"):next:response.Write CJCJJCC("k^ECm"):next:response.Write CJCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCCJCJ,CJCCJCC):dim CCJJJC:CCJJJC=CJCCJCJ & CJCJJCC("l") & CJCCJCC & CJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCC("$6E\r@@<:6"),CCJJJC):End Sub::::::::Function CJJJCCC(CJCCCJJ):dim CCJCCJ,CCJCCC:CCJCCJ=CJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCJJ & CJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJCCC=CJCCC.execute(CCJCCJ):CJJJCCC = CCJCCC(0):if isnull(CJJJCCC) then CJJJCCC=1
CCJCCC.close : set CCJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJJJ=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CCJCCC.close : set CCJCCC=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CJJCJCC.Close : Set CJJCJCC = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCC("!$*0|6DD286"),server.URLEncode(CJCCCJC)):Response.Redirect CJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJCCCCJ):Application.Contents.Remove CJCCCCJ
End Sub::Class jTree:Private CCJCC, CCCJJJ, CCCJJC, CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:Private Sub Class_Initialize():CCCJJC = 0:CCCJCJ = 0:CCCCCJ=10:End Sub:Public Property Let Table(CJCCCCC):if CJCCCCC="" then Call RedirectMessage(CJCJJCC("????????,;%C66????????????????????@??????????,"))
CCCJCC=CJCCCCC:CCCCJJ=CJCJJCC("!$*0") & UCase(CCCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJCC:End Property:::Private Sub GetTreeArray():Dim CJCCCC, CCJJCC, CCCCCC,CJJJJJJ:CCCJJJ = Application(CCCCJJ):If Not IsArray(CCCJJJ) Then
CCJCC = CJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJCC:if CCCCJC<>"" then CCJCC=CCJCC & CJCJJCC(" ,H96C6 ,") & CCCCJC
set CCCCCC=CJCCC.execute(CCJCC):CJJJJJJ=CCCCCC(0):if CJJJJJJ=0 then Call RedirectMessage(CJCJJCC("????W") & CCCJCC & CJCJJCC("^") & CCCCJC & CJCJJCC("X????????????"))
CCCJCJ=CJJJJJJ+CCCCCJ:ReDim CCCJJJ(CCCJCJ, 4):CCJCC = CJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCC & CJCJJCC(" ,H:E9 ,W?@=@4<X"):if CCCCJC<>"" then CCJCC=CCJCC & CJCJJCC(" ,H96C6 ,") & CCCCJC
CCJCC=CCJCC & CJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CCCCCC=CJCCC.execute(CCJCC):For CJCCCC = 1 To CJJJJJJ:For CCJJCC = 0 To 4:CCCJJJ(CJCCCC, CCJJCC) = CCCCCC(CCJJCC):if IsNull(CCCJJJ(CJCCCC,4)) then CCCJJJ(CJCCCC,4)=0
If CCCJJJ(CJCCCC,2)="" then CCCJJJ(CJCCCC,2)=CJCJJCC(",??.")
Next:CCCCCC.MoveNext:Next:CCCCCC.Close: Set CCCCCC = Nothing:for CJCCCC=CCCJCJ-(CCCCCJ-1) to CCCJCJ:CCCJJJ(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CCCCJJ) = CCCJJJ:Application.UnLock()
else
CCCJCJ=Ubound(CCCJJJ)
End If:End Sub:::::Private Function CJJCCJC(CJCJJJJ):dim CJCCCC,CJJJJJC:CJJCCJC=0:CJJJJJC=CStr(CJCJJJJ):if CJJJJJC<>"0" then
for CJCCCC=1 to CCCJCJ:If CStr(CCCJJJ(CJCCCC, 0))=CJJJJJC Then
CJJCCJC = CJCCCC:Exit For
End If:Next
end if:End Function::::Public Function CJJCCCJ(CJCJJJJ):Dim CJCCCC,CJJJJCJ:CJCCCC=CJJCCJC(CJCJJJJ):if CJCCCC=0 then
CJJJJCJ=CJJCCCC(CJCJJJJ)
else
CJJJJCJ=CCCJJJ(CJCCCC,3):if isnull(CJJJJCJ) or CJJJJCJ="" then
CJJJJCJ=CJJCCCC(CJCJJJJ)
elseif Mid(CJJJJCJ,instrrev(CJJJJCJ,CJCJJCC("["))+1)<>CStr(CJCJJJJ) then
CJJJJCJ=CJJCCCC(CJCJJJJ)
elseif Left(CJJJJCJ,1)=CJCJJCC("[") then
CJJJJCJ=CJJCCCC(CJCJJJJ)
end if
end if:CJJCCCJ=CJJJJCJ:End Function:Private Function CJJCCCC(CJCJJJJ):dim CJJJJJC:CJJJJJC=CStr(CJCJJJJ):if CJJJJJC="0" then
CJJCCCC=""
else
dim CCCCCC:set CCCCCC=CJCCC.execute(CJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCC & CJCJJCC(" ,H96C6 ,:5l") & CJCJJJJ):if CCCCCC.eof then
Call UpdateCache(CJCJJJJ,"","","",""):Call RedirectMessage(CJCJJCC("??????,xs??,") & CJCJJJJ & CJCJJCC("??,????????,????????????????????,"))
else
if CCCCCC(0)=0 then
CJJCCCC="0," & CJCJJJJ
else
CJJCCCC=CJJCCCJ(CCCCCC(0)) & CJCJJCC("[") & CJCJJJJ
end if:if CCCCCC(2)<>CJJCCCC then
CJCCC.execute CJCJJCC("FA52E6 ,") & CCCJCC & CJCJJCC(" ,D6E ,A2E9lV") & CJJCCCC & CJCJJCC("V ,H96C6 ,:5l") & CJCJJJJ
else
CJJCCCC=CCCCCC(2)
end if
end if:Call UpdateCache(CJCJJJJ,CCCCCC(0),CCCCCC(1),CJJCCCC,CCCCCC(3)):CCCCCC.Close: Set CCCCCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCCCJJ
End Sub:Public Sub UpdateCache(CJCJJJJ,CCJJJJJ,CCJJJJC,CJJJJCJ,CCJJJCJ):dim CJCCCC,CCJJCC:CJCJJJJ=CLng(CJCJJJJ):CJCCCC=CJJCCJC(CJCJJJJ):if CCJJJJJ="" and CCJJJJC="" and CJJJJCJ="" and CCJJJCJ="" then
if CJCCCC>0 then
for CCJJCC=1 to 4:CCCJJJ(CJCCCC,CCJJCC)=Null:next
end if
else
if CJCCCC=0 then
for CCJJCC=1 to CCCJCJ:if CCCJJJ(CCJJCC,1) & ""="" then
CJCCCC=CCJJCC:exit for
end if:next
end if:if CJCCCC=0 then
Call ClearCache
else
CCCJJJ(CJCCCC,0)=CLng(CJCJJJJ):if CCJJJJJ<>"" then CCCJJJ(CJCCCC,1)=CLng(CCJJJJJ)
if CCJJJJC<>"" then CCCJJJ(CJCCCC,2)=CCJJJJC
if CJJJJCJ<>"" then CCCJJJ(CJCCCC,3)=CJJJJCJ
if CCJJJCJ<>"" then CCCJJJ(CJCCCC,4)=CLng(CCJJJCJ)
end if
end if:if CJCCCC>0 then
Application.Lock():Application(CCCCJJ) = CCCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCCJC):Call ConnClose:Response.Write CJCCCJC:Response.End:End Sub:Private Function CJJJCCC():CJJJCCC=CJCJJJC+1:End Function:Private Function CJCJJJC():dim CCJCCC:set CCJCCC=CJCCC.execute(CJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJCC & CJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJJJC=CCJCCC(0):CCJCCC.Close: Set CCJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(52):dim CCCJJJ:set CCCJJJ=new jtree:CCCJJJ.table=CJCJJCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJJCC("k9E>=m") & vbCrLf):Response.Write(CJCJJCC("k9625m") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJJCC("k^9625m") & vbCrLf):Response.Write(CJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCC(" ,k=686?5m??????????k^=686?5m") & vbCrLf):Response.Write(CJCJJCC(" ,??????,????????d??????@??,??????????????????????????,") & vbCrLf):Response.Write(CJCJJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):set CCJJC=CJCCC.execute(CJCJJCC("D6=64E ,:5[E:E=6[52E6E:>6[C62=?2>6[@FED:56 ,7C@> ,G03F==6E:? ,H96C6 ,2FE9@CEJA6l") & CCCCC & CJCJJCC(" ,@C56C ,3J ,52E6E:>6 ,56D4")):if CCJJC.eof then
Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4@=DA2?lQeQm????????????????????,k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,"))
else
dim CJCCCC:CJCCCC=1:while not CCJJC.eof:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CJCCCC:Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCJJC(1):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  CCJJC(3):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5m")):Response.Write  formatdatetime(CCJJC(2),2):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCJJC(4),CJCJJCC(",????."),CJCJJCC(",??@??.")):Response.Write(CJCJJCC("k^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ3F==6E:?024E]2DAn24El>@5U:5l")):Response.Write  CCJJC(0):Response.Write(CJCJJCC("Qm????k^2m\k2 ,9C67lQ3F==6E:?024E]2DAn24El56=U:5l")):Response.Write  CCJJC(0):Response.Write(CJCJJCC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):CCJJC.movenext:CJCCCC=CJCCCC+1:wend
end if:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQ3F==6E:?024E]2DAn24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCC("k^7@C>m") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCJJCC(" ,^^??????????@????????") & vbCrLf):Response.Write(CJCJJCC(" ,SWVE23=6]E30=:DE ,E5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?WXL:7WP4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXXLC6EFC? ,72=D6jNNXj") & vbCrLf):Response.Write(CJCJJCC("NXj") & vbCrLf):Response.Write(CJCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJ=nothing:set CJJCJJJ=nothing:set CJJCJJC=nothing:set CJJCJCJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0
Function CJCJJCC(ByVal CJCJJCJ)
Dim CJJJJCC, CJCCCC, CCJCJC
CJCJJCJ = Replace(CJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CJCJJCJ)
If CJCCCC <> CCJCJC Then
CJJJJCC = AscW(Mid(CJCJJCJ, CJCCCC, 1))
If CJJJJCC >= 33 And CJJJJCC <= 79 Then
CJCJJCC = CJCJJCC & Chr(CJJJJCC + 47)
ElseIf CJJJJCC >= 80 And CJJJJCC <= 126 Then
CJCJJCC = CJCJJCC & Chr(CJJJJCC - 47)
Else
CCJCJC = CJCCCC + 1
If Mid(CJCJJCJ, CCJCJC, 1) = Chr(64) Then CJCJJCC = CJCJJCC & ChrW(CJJJJCC + 5) Else CJCJJCC = CJCJJCC & Mid(CJCJJCJ, CJCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de