求随机手机号asp代码
答案:1 悬赏:80 手机版
解决时间 2021-01-07 15:20
- 提问者网友：暗中人
- 2021-01-07 06:05
求随机手机号asp代码
最佳答案
- 五星知识达人网友：胯下狙击手
- 2021-01-07 06:43
代码如下:
<%
Dim m, h, r
h = "130,131,138,139" '号段自己加,保持格式就行
r = split(h, ",")
Randomize
m = r(Int((UBound(r) + 1) * Rnd))
Do Until Len(m) >= 11
m = m & Int(10000 * Rnd)
Loop
m = Left(m, 11)
Response.Write "手机号:" & m
%>
<%
Dim m, h, r
h = "130,131,138,139" '号段自己加,保持格式就行
r = split(h, ",")
Randomize
m = r(Int((UBound(r) + 1) * Rnd))
Do Until Len(m) >= 11
m = m & Int(10000 * Rnd)
Loop
m = Left(m, 11)
Response.Write "手机号:" & m
%>
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯