关于ASP自动生成编号问题,大虾进来看哈

来源:百度知道 编辑:UC知道 时间:2024/06/09 09:00:28
我要让系统自动生成订单编号,按日期,先检查当前日期是否有运单,如果没有就是当前日期+00001,如果有就是+00002依次往后。
<%
'检索当前日期是否有运单
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from yundan where time like '"&date()&"'"
rs2.open sql2,conn,1,1
if not rs2.eof then
'系统自动生成运单编号
t=year(date)*1000000000+month(date())*10000000+day(date())*100000+rs2.recordcount+1
else
t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1
end if
if request("post")<>"" then
call writ
end if
'添加运单信息
function writ
if request("start")<>"" and request("mudidi")<>"" and request("ctime")<>"" and request("beizhu")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from yundan"
rs.open sql,con

你修改一下你的第二行语句为:
'检索当前日期是否有运单
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from yundan where time like '"&date()&"%'"