会python真的可以为所欲为0(回)
355天前
这里还有人吗1(回)
540天前这里还有人吗0(回)
540天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
765天前到处都是羊，不想上班0(回)
845天前
鸽子
0(回)
849天前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 |
