邹城圣琪班车: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