asp生成Guid

<% 
Function GUID()  
Dim TypeLib  
Set TypeLib = Server.CreateObject("Scriptlet.TypeLib")  
GUID = TypeLib.Guid  
End Function 
  
'测试 
Response.write GUID() 
%>