首选得到年月日。year(now) &month(now) &day(now)
查询你的取的年月日,在记录的最后一行是否存在
如果存在:
如果不存在
直接在得到的年月日后加1
大至的程序代码:
newData = year(now) &month(now) &day(now)
ser rs = conn.execute("select top 1 * from TABLE order by id desc")
dataArr = split(rs("序号字段"), newData)
if count(dataArr) >0 then
else
end if
<%'假设你要设定的字段是
cfields="id_auto"
ctable="products"
set rs=conn.execute("select top 1 "&cfields&" from "&ctable&" order by id desc")
if not rs.eof then
c_topid=rs(cfields) ‘得到数据库中最后一条记录的值
c_id_only=mid(topid,4,len(c_topid) '取数字
next_id=clng(c_id_only)+1 '实现自加一
next_id=formatnum(next_id) '格式化数字
c_topid="ABC"&next_id
else
c_topid="ABC001"
end if
response.write "将要添加的编号是:"&c_topid
function formatnum(sid)
tmpid=sid
if tmpid>99 then
tmpid1=tmpid
end if
if tmpid>9 and tmpid<100 then
tmpid1="0"&tmpid
end if
if tmpid<10 then
tmpid1="00"&tmpid
end if
formatnum=tmpid1
end function
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)