getnextid.inc

一个软件工程的软件质量web跟踪管理系统

<%
Function GetNextID(CurID)
    
  '如传入为空串,返回也为空串
  If Len(CurID) = 0 Then
    GetNextID = ""
    Exit Function
  End If
  
  Dim Chars
  ReDim Chars(14)
  
  For iK = 1 To UBound(Chars)
    Chars(iK) = Mid(CurID, iK, 1)
  Next
  
  LastChar = Chars(UBound(Chars))
  
  '最后一位为数值("0"--"8")
  If LastChar >= "0" And LastChar < "9" Then
    Chars(UBound(Chars)) = Chr(Asc(LastChar) + 1)
  End If
  
  '最后一位为数值("9")
  If LastChar = "9" Then
    Chars(UBound(Chars)) = "A"
  End If
  
  '最后一位为字符("A"--"Z")
  If LastChar >= "A" And LastChar < "Z" Then
    Chars(UBound(Chars)) = Chr(Asc(LastChar) + 1)
  End If
  
  '最后一位为数值("Z")
  '向前找到最近的非"Z"字符,然后+1,其后的数位置为"0"
  If LastChar = "Z" Then
    If UBound(Chars) = 1 Then
      GetNextID = ""
      Exit Function
    Else
      DoChar = Chars(UBound(Chars) - 1)
      ik = UBound(Chars) - 1
      Do While DoChar = "Z" And ik > 1
        ik = ik - 1
        DoChar = Chars(ik)
      Loop
      If ik = 1 And DoChar = "Z" Then
        GetNextID = ""
        Exit Function
      Else
        '本位为数值("0"--"8")
        If DoChar >= "0" And DoChar < "9" Then
          Chars(ik) = Chr(Asc(DoChar) + 1)
        End If
          
        '本位为数值("9")
        If DoChar = "9" Then
          Chars(ik) = "A"
        End If
          
        '本位为字符("A"--"Y")
        If DoChar >= "A" And DoChar < "Z" Then
          Chars(ik) = Chr(Asc(DoChar) + 1)
        End If
        For jk = ik + 1 To UBound(Chars)
          Chars(jk) = "0"
        Next
      End If
    End If
  End If
  
  '合成新的编码
  NewString = ""
  For ik = 1 To UBound(Chars)
    NewString = NewString + Chars(ik)
  Next
  GetNextID = NewString

End Function

%>