GUID之NET生成代码

  ''' <summary>
  ''' 生成新的ID值
  ''' </summary>  ''' 
  Function NewGUID(Optional ByVal Len As Integer = 8, Optional T As Integer = 0) As String '生成GUID码
    Dim N As String = Guid.NewGuid.ToString.ToLower
    If T = 1 Then N = Regex.Replace(N, "\D+", "")
    Return N.Substring(N.Length - Len, Len)
  End Function

 

这个生成代码，可以根据自已的需要长度来生成，默认是生成一个8位的,可以用于数据库ID使用。而且还可以只要数字部分这样就相当于数字随机生成了