用 ASP 创建 GUID

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

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

ASP (using vbs):

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