How do I get a GUID string in asp/php? ____php

Code for generating GUIDs under ASP
<%

Dim Objtypelib

Set Objtypelib = CreateObject ("Scriptlet.Typelib")

Response.Write Objtypelib.guid

%>

PHP to generate the GUID to use class.
The guid.class.php file code is as follows:

?
Class System
{
function Currenttimemillis ()
{
List ($usec, $sec) = Explode ("", Microtime ());
Return $sec. substr ($usec, 2, 3);
}
}
Class Netaddress
{
var $Name = ' localhost ';
var $IP = ' 127.0.0.1 ';
function Getlocalhost ()//static
{
$address = new Netaddress ();
$address->name = $_env["COMPUTERNAME"];
$address->ip = $_server["Server_addr"];
return $address;
}
function toString ()
{
Return Strtolower ($this->name. ' /'. $this->ip);
}
}
Class Random
{
function Nextlong ()
{
$tmp = rand (0,1)? ' -':'';
Return $tmp. Rand (1000, 9999). RAND (1000, 9999). RAND (1000, 9999). Rand (+ 999). RAND (100, 999);
}
}
Three paragraphs
A paragraph is a microsecond, an address, a random number.
Class Guid
{
var $valueBeforeMD 5;
var $valueAfterMD 5;
function Guid ()
{
$this->getguid ();
}
//
function GetGuid ()
{
$address = Netaddress::getlocalhost ();
$this->valuebeforemd5 = $address->tostring (). ': '. System::currenttimemillis (). ': '. Random::nextlong ();
$this-&GT;VALUEAFTERMD5 = MD5 ($this->valuebeforemd5);
}
function NewGuid ()
{
$Guid = new Guid ();
return $Guid;
}
function toString ()
{
$raw = Strtoupper ($this->valueaftermd5);
Return substr ($raw, 0,8). ' -'. substr ($raw, 8,4). ' -'. substr ($raw, 12,4). ' -'. substr ($raw, 16,4). ' -'. substr ($raw, 20);
}
}
?>

guid.php File
<?php
Require_once ("guid.class.php");
$Guid = new Guid ();
Print $Guid->tostring ();
?>