Think Web!

<%
    Dim strGUID
    '// GUID 생성하기
    strGUID = fnGetGuid()

    '// 생성된 GUID를 화면에 출력
    Response.Write strGUID

    '// GUID 생성해서 값을 리턴하는 함수
    Function fnGetGUID()
        Dim myTypeLib
        Set myTypeLib = Server.CreateObject("Scriptlet.Typelib")
        fnGetGUID = myTypeLib.guid
        Set myTypeLib = Nothing
    End Function
%>