Snippet – Cómo generar ID único en ASP

Los programadores en muchas ocasiones se ven en la necesidad de generar un identificador global único (GUID en inglés) para asignarlo, por ejemplo, a un registro o elemento y, de ese modo, poder hacer referencia a él sin temor a que haya duplicidades.

La siguiente función sirve para generar un código único de 32 caracteres en ASP clásico (es decir, el que se basa en VBScript).

Function GeneraUniq32 () 
Set TypeLib = CreateObject("Scriptlet.TypeLib") 
GeneraUniq32 = Mid(Replace(CStr(TypeLib.Guid), "-", ""), 2, 32) 
End Function