那样的话应该在insert into前面确定这个编号的值
然后将这个值随着insert一起添加到数据库里
log_value = fun("b") '调用
函数框架如下：
funtion fun(first_char)
set Rs = Server.CreateObject("ADODB.Recordset")
sql="select * from per_client where num like '%" & first_char & "%' order by log_time DESC;" '查找同类编号
rs.open sql,conn,3,3
if rs.eof then
num1 = first_char & "000000" '没有同类编号则从000000开始
return num1 '返回编号
else
temp_num = right(rs("num"),6) + 1 '有的话取得数值部分并加1
for i =1 to (6 - len(num))
insect_num = "0" & temp_num '给整数前补0
next
return (first_char & insect_num) '返回编号
end if
end function
|