asp定义一个方法自动生成三位数例如001他的下一级ID是001001001002通过选定上一级ID来生成下一级的ID001001001001001001001001002001002002002001

Question

asp定义一个方法自动生成三位数 例如 001 他的下一级ID是 001001 001002
通过选定上一级ID 来生成下一级的ID
001
001001
001001001
001001002
001002
002
002001

Answer 1

Function AutoID(aIni)
'假设表名为TableE,字段名为AutoID
Dim Rs,Sql,c,d
If aIni="" Then
Sql="select * from TableE where len(AutoID)=3 order by AutoID desc"
Else
Sql="select * from TableE where AutoID like '"&aIni&"%' order by AutoID desc"
End If
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open Sql,conn,1,1
If Rs.Eof and Rs.Bof then
c=aIni&"001"
Else
d=CInt(Replace(Rs("AutoID"),aIni,""))+1
Do
If Len(c)>3 Then Exit Do
c="0"&c
Loop
End If
AutoID=aIni&c
End Function
然后直接调用
PS：直接写的,还没有测试过.有问题可以q我