在写程序中,很多时候需要创建唯一的ID键,下面是ASP实现的一个创建GUID自定义函数:

<%
Function CreateWindowsGUID()
CreateWindowsGUID = CreateGUID(8) & "-" & _
CreateGUID(4) & "-" & _
CreateGUID(4) & "-" & _
CreateGUID(4) & "-" & _
CreateGUID(12)
End Function

Function CreateGUID(iLength)
Randomize Timer
Dim i, sGUID
Const sValid = "0123456789ABCDEF"
For i = 1 To iLength
sGUID = sGUID & Mid(sValid, Int(Rnd(1) * Len(sValid)) + 1, 1)
Next
CreateGUID = sGUID
End Function
%>