Set objTypeLib = CreateObject( "Scriptlet.TypeLib ")
InfoID = Mid(objTypeLib.Guid, 2, 36)
咋解释阿？？不明白，尤其是第一句
------解决方案--------------------
Set objTypeLib = CreateObject( "Scriptlet.TypeLib ") '用VB进程创建一个对像Scriptlet.typelib 一般如果是在网页中用
Set objTypeLib = Server.CreateObject( "Scriptlet.TypeLib ")
这个会更好，更容易实现对像的管理
InfoID = Mid(objTypeLib.Guid, 2, 36) '这个是从Guid的第二个字符开始取36个字符