墨盒渗墨危害:ASP随机产生卡号程序
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/17 00:48:44
比如说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