【转】[ASP] 用 ASP 创建 GUID

ASP (using vbs)

Function GUID()
    Dim objTypeLib
    Set objTypeLib = CreateObject("Scriptlet.TypeLib")
    GUID = Left(CStr(objTypeLib.Guid),38)
    Set objTypeLib = Nothing
End Function

ASP (using jscript) 在服务端创建 GUID 的代码如下：

function GUID(){    
    return new ActiveXObject("Scriptlet.TypeLib").Guid.toString().substring(0,38); 
}