الرمز كما يلي:
JScript
نسخة الكود كما يلي:
وظيفة generateguid () {
vartypelib = newactivexobject ("scriptlet.typelib") ؛
العودة (typelib.guid) ؛
}
vbscript
نسخة الكود كما يلي:
وظيفة generateguid ()
Dimtypelib
setTypelib = server.createBject ("scriptlet.typelib")
generateguid = typelib.guid
الوظيفية
إذا كنت ترغب في استخدامه على جانب العميل ، فيجب تعديل رمز VBScript قليلاً ، أي::
setTypelib = server.createBject ("scriptlet.typelib")
تم تعديله إلى:
setTypelib = createObject ("scriptlet.typelib")
ومع ذلك ، عندما يستخدم العميل ActiveX ، فإن إعدادات الأمان الافتراضية لـ IE ستطالب بما إذا كان يجب السماح لـ ActiveX ، لذلك لا ينصح باستخدامه.
إذا كان خادم ASP ، فيمكن أن يكون كذلك
ASP (باستخدام VBS)
نسخة الكود كما يلي:
وظيفة Guid ()
قاتمة objtypelib
تعيين Objtypelib = createObject ("scriptlet.typelib")
Guid = Left (CSTR (Objtypelib.Guid) ، 38)
تعيين Objtypelib = لا شيء
وظيفة نهاية
ASP (باستخدام JScript) رمز إنشاء GUID على الخادم كما يلي:
نسخة الكود كما يلي:
وظيفة Guid () {
إرجاع New ActivexObject ("scriptlet.typelib"). Guid.ToString (). Substring (0،38) ؛
}