最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

在ASP里面創(chuàng)建GUID

 更新時(shí)間:2008年05月18日 21:24:59   作者:  
GUID在許多時(shí)候做為唯一標(biāo)識(shí)符都很方便,但是在ASP里并沒有現(xiàn)成的函數(shù)來創(chuàng)建GUID,其實(shí)可以使用Scriptlet的類型庫來創(chuàng)建一個(gè)GUID,
代碼如下:
JScript

復(fù)制代碼 代碼如下:

function GenerateGuid() { 
    var TypeLib = new ActiveXObject("Scriptlet.TypeLib"); 
    return (TypeLib.Guid); 


VBScript
復(fù)制代碼 代碼如下:

Function GenerateGuid() 
    Dim TypeLib 
    Set TypeLib = Server.CreateObject("Scriptlet.TypeLib") 
    GenerateGuid = TypeLib.Guid 
End Function 

如果要在客戶端使用的話,VBScript的代碼需要稍做修改,即把:

Set TypeLib = Server.CreateObject("Scriptlet.TypeLib")

修改為:

Set TypeLib = CreateObject("Scriptlet.TypeLib")

但是在客戶端使用ActiveX的時(shí)候,IE默認(rèn)的安全設(shè)置會(huì)提示是否允許使用ActiveX,所以并不推薦使用。
如果是asp服務(wù)器端下可以這樣
ASP (using vbs)
復(fù)制代碼 代碼如下:

Function GUID()
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
GUID = Left(CStr(objTypeLib.Guid),38)
Set objTypeLib = Nothing
End Function


ASP (using jscript) 在服務(wù)端創(chuàng)建 GUID 的代碼如下:
復(fù)制代碼 代碼如下:

function GUID(){
return new ActiveXObject("Scriptlet.TypeLib").Guid.toString().substring(0,38);
}

相關(guān)文章

最新評(píng)論

沂源县| 金沙县| 沙湾县| 宁晋县| 神农架林区| 南丹县| 余姚市| 宿松县| 东至县| 耿马| 仁怀市| 恩平市| 东乡县| 新昌县| 阿坝| 公安县| 崇信县| 临海市| 鲁甸县| 巢湖市| 三亚市| 新沂市| 屏山县| 历史| 林口县| 河曲县| 资溪县| 衡南县| 青川县| 赤城县| 利辛县| 北川| 盐亭县| 固镇县| 仪陇县| 衡东县| 明溪县| 秦皇岛市| 宾川县| 仁化县| 山阴县|