生成新会员编号(数据库中没有)

[asp]代码库

Function NewUserAccount()
    Dim strPrefix, rst, strSQL, strAccount, strNum
    
    strPrefix = PREFIX_USER_ACCOUNT
    If GetOne("select count(user_id) from members") > 0 Then
        strSQL = "select top 1 user_account from members order by user_id desc "
        strNum = ExecuteScalar(strSQL)
        strNum = Right(strNum, Len(strNum) - Len(strPrefix))
        strAccount = CStr(strNum + 1)
    Else
        strAccount = "10000000"
    End If
    
    strAccount = strPrefix & strAccount
    NewUserAccount = strAccount
End Function