ASP变态的全球唯一标识符GUID
作者:shmshz 日期:2011-12-24
GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中每个 x 是 0-9 或 a-f 范围内的一个十六进制的数字。例如：6F9619FF-8B86-D011-B42D-00C04FC964FF 即为有效的 GUID 值。
世界上的任何两台计算机都不会生成重复的 GUID 值。GUID 主要用于在拥有多个节点、多台计算机的网络或系统中，分配必须具有唯一性的标识符。在 Windows 平台上，GUID 应用非常广泛：注册表、类及接口标识、数据库、甚至自动生成的机器名、目录名等。
ASP生成GUDI的实现
复制内容到剪贴板
程序代码
程序代码<%
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write objTypeLib.Guid
%>
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write objTypeLib.Guid
%>
在本机及网络主机均测试通过。
可是直接这样应用还不行的，比如我们要拼接一下
复制内容到剪贴板 程序代码
程序代码<%
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write "任意字符"&objTypeLib.Guid&"任意字符"
%>
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write "任意字符"&objTypeLib.Guid&"任意字符"
%>
出现的结果会是：
任意字符{6C7CF7FB-0323-4599-8CC4-08B4258BC7F8}
而GUID右侧添加的内容全部丢失
那么怎么做才行呢
复制内容到剪贴板 程序代码
程序代码<%
Function GetGuid()
on error resume next
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
GetGuid=objTypeLib.Guid
If Err.Number<>0 Then GetGuid="":Exit Function
GetGuid=mid(GetGuid,2,36)
End Function
Response.Write "任意字符"&GetGuid()&"任意字符"
%>
不知道其他主机是否有这个问题，注意不要被BUG砸了脚。
Try It Your Self！ Good Luck！
上一篇: 用QQ帐号登录for Pjblog3插件qq_loginV2.0版发布
下一篇: 这是最新的一篇日志
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 
相关日志:
评论: 4 | 引用: 0 | 查看次数: -
龙岩男科医院[2012-02-10 11:33 AM | 
| 
| 120.34.86.207 | 
| 
回复]对这块好像不是非常熟悉呵呵 学习下
地板
| 111.173.47.191 | 交换一下友情链接 贵站连接已经做好啦
www.whjlb.com 网络安全
shmshz 回复
www.whjlb.com 网络安全
shmshz 回复 非常感谢您的关注，马上审核
发表评论