function GenerateGuid() { var TypeLib = new ActiveXObject("Scriptlet.TypeLib"); return (TypeLib.Guid); }
VBScript
復制代碼 代碼如下:
Function GenerateGuid() Dim TypeLib Set TypeLib = Server.CreateObject("Scriptlet.TypeLib") GenerateGuid = TypeLib.Guid End Function
如果要在客戶端使用的話，VBScript的代碼需要稍做修改，即把：
Set TypeLib = Server.CreateObject("Scriptlet.TypeLib")
修改為：
Set TypeLib = CreateObject("Scriptlet.TypeLib")
但是在客戶端使用ActiveX的時候，IE默認的安全設置會提示是否允許使用ActiveX，所以并不推薦使用。 如果是asp服務器端下可以這樣 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); }
