asp随机读取其中一个手机号函数

function getsj(str)

dim arrstr,n

arrstr=split(str,",")

if ubound(arrstr)>0 then

Randomize

n=Int((ubound(arrstr)+1 - 0) * Rnd + 0)

getsj=arrstr(n)

else

getsj=""

end if

end function

调用方法：<%=getsj("13600000000,18900000000,18900000000")%>