ASP生成新会员编号

Function MakeUserCode
    OpenDB()
    Randomize
    dim getid_rs,getid
    set getid_rs=rsobj
    do while true
        getid="CN"&int(rnd()*(10^6))
        getid_rs.open "select * from Members where User_Account=‘"&getid&"",con
        if getid_rs.bof or getid_rs.eof then
            getid_rs.close
            exit do
        end if
        getid_rs.close
    loop
    set getid_rs=nothing
    MakeUserCode = getid
    CloseDB()
End Function

 

ASP生成新会员编号,古老的榕树,5-wow.com

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。