asp 下生成GUID

最新推荐文章于 2025-12-28 09:15:48 发布

转载最新推荐文章于 2025-12-28 09:15:48 发布 · 536 阅读

文章标签：

#asp #function #服务器 #c

asp代码专栏收录该内容

2 篇文章

订阅专栏

本博客介绍了一个用于生成全局唯一标识符（GUID）的函数，该函数通过使用TypeLib对象并处理可能的服务器限制来实现。生成的GUID长度为36位，由两部分组成：前两字符用于指示TypeLib类型，后34位为GUID值。

Function CreateGUID()
   Dim objTypeLib
   Set objTypeLib = CreateObject("Scriptlet.TypeLib")
   If Err.Number<>0 Then
      Response.Write("alert('服务器限制,无法生成GUID');history.back()")
      set objTypeLib = Nothing
      Response.End
   End If
   CreateGUID = Mid(objTypeLib.Guid,2,36)
   Set objTypeLib = Nothing
End Function

结果：

290491C8-26E8-428D-B55D-31122847492B