最新消息:Rockyxia Web技术博客全新改版,响应式布局满足各种设备各种尺寸的访问需求。

ASP脚本生成GUID的实现和相关格式的变化

后台开发语言 rockyxia 7644浏览 0评论

最近团队开发的网站关闭了开放注册,即将开启邀请注册功能,所以要做一个邀请注册功能,我的想法是:
新用户需要邀请码才可以注册,想要注册新用户必须找已注册用户寻求注册码。
注册码的获得方法是:分批次发放,也可以使用虚拟货币购买!
可以通过邀请码来标识是哪个会员推荐,哪个会员通过这个邀请码注册的!
这里的邀请码的生成我们准备使用“全球唯一标识符 (GUID)”来实现,但是guid的格式相信大家是知道的,默认的格式也许并适合我们使用,所以必须要有所变通才行,我们所做的asp网站,所以我来介绍一下asp的guid生成方法和相关格式变化的例子:

第一步是asp脚本生成GUID:

[html]
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write objTypeLib.Guid
set objTypeLib=nothing
[/html]

这一段大家在网上可以看到很多人都转发了,是使用组件生成的,而且经过测试本地和网络主机都能正常生成,但是这段代码生成的guid格式是:{50603B60-600D-44FC-83B2-C5831C88DE88},这种格式通常我们是不能直接使用的,至少需要去掉前后的{};

第二步去掉前后{}:

[html]
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write Mid(objTypeLib.Guid,2,36)
set objTypeLib=nothing
[/html]

这一步之后生成的就是:50603B60-600D-44FC-83B2-C5831C88DE88这种格式的字符串了!有时候我们还不希望看到串里面的-,我们也可以把它去掉;

第三步去掉串中的-:

[html]
Dim objTypeLib
Set objTypeLib = CreateObject("Scriptlet.TypeLib")
Response.Write replace(Mid(objTypeLib.Guid,2,36),"-","")
set objTypeLib=nothing
[/html]

这里其实就是使用了asp的替换函数replace将-替换成了空的。

相信大家都已经很清楚在asp环境中guid的使用了,这里还可以控制guid的长度,可以通过截取来控制长度,这个代码我就不写了,如果大家需要就自己去琢磨一下吧!

转载请注明:Rockyxia Web技术博客 » ASP脚本生成GUID的实现和相关格式的变化
感谢阅读,如果您发现文章中有表述不准确,欢迎提出来,也欢迎交流相关问题,你可以去这里进行一对一问答交流。

(本篇完)