邹城圣琪班车:ASP随机产生卡号程序
来源:百度文库 编辑:中科新闻网 时间:2024/04/29 03:30:24
比如说23JS-8684-37HD-6565象个个样子的,谢谢啦!!!!
可以用随机函数来生成,如:
Dim sTemp
sTemp = GetRndString(4) & "-" & GetRndString(4) & "-" & GetRndString(4) & "-" & GetRndString(4)
Response.write sTemp
'// 取得随机字符串
Public Function GetRndString(ByVal intNum)
If intNum <= 0 Then Exit Function
Dim i
Dim intLength
Const STRINGSOURCE = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
intLength = Len(STRINGSOURCE)-1
Randomize
For i = 1 To intNum
GetRndString = GetRndString & Mid(STRINGSOURCE,Int(Rnd * intLength + 1),1)
Next
End Function