请帮我修改一下我的自动编号代码,看看是哪里出了错,马上给分,在线等!

slashh 2003-09-27 04:22:08

症状:只能获得象20030927这样的编号
而我的目的是要获取20030927000,20030927001.......这样的自动编号

<%
'取时间作为开台编号,自动+1

dim a,b,c,num,count,three,tableindex,temp,max
a=right(year(date()),2)
i=month(date())
i=Cstr(i)
select case i
case "1" b="01"
case "2" b="02"
case "3" b="03"
case "4" b="04"
case "5" b="05"
case "6" b="06"
case "7" b="07"
case "8" b="08"
case "9" b="09"
case else
b=month(date())
end select
j=day(date())
j=Cstr(j)
select case j
case "1" c="01"
case "2" c="02"
case "3" c="03"
case "4" c="04"
case "5" c="05"
case "6" c="06"
case "7" c="07"
case "8" c="08"
case "9" c="09"
case else
c=day(date())
end select
num="20"&a&b&c
three=1000
set rs_autonum=server.createobject("adodb.recordset")
sql_autonum="select tableindex from t_orderdish where left(tableindex,8)='"&num&"'"
rs_autonum.open sql_autonum,conn,1,1
count=rs_autonum.recordcount
if count=0 then
three=three+count
three=right(Cstr(three),3)
tableindex=num&max
else
max=0
while not rs_autonum.eof
temp=right(rs_autonum("tableindex"),3)
temp=Cint(temp)
if temp>max then max=temp
rs_autonum.movenext
wend
max=1000+max+1
max=right(Cstr(max),3)
tableindex=num&max

end if

%>

...全文

117 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

slashh 2003-09-27

打赏
举报

开始错误中,sql数据库中数据类型为char,取的后三位值是空的,所以出现了上述错误
代码本身没有错误,呵呵,第一次用sql数据库作项目,它就给了我个下马威,不过,总算学到一点东西了

slashh 2003-09-27

打赏
举报

呵呵
我终于明白了
我数据库里面长度设置过长
将之改为11位则错误小时~~!
多谢大家,我又学到了一些东西!

fangpeng2003 2003-09-27

打赏
举报

因为没有数据库连接，所以把你的程序用FOR循环稍微改了改模拟读取数据库
运行得到20030927006

<%

dim a,b,c,num,count,three,tableindex,temp,max
a=right(year(date()),2)
i=month(date())
i=Cstr(i)
select case i
case "1" b="01"
case "2" b="02"
case "3" b="03"
case "4" b="04"
case "5" b="05"
case "6" b="06"
case "7" b="07"
case "8" b="08"
case "9" b="09"
case else
b=month(date())
end select
j=day(date())
j=Cstr(j)
select case j
case "1" c="01"
case "2" c="02"
case "3" c="03"
case "4" c="04"
case "5" c="05"
case "6" c="06"
case "7" c="07"
case "8" c="08"
case "9" c="09"
case else
c=day(date())
end select
num="20"&a&b&c
three=1000
set rs_autonum=server.createobject("adodb.recordset")
sql_autonum="select tableindex from t_orderdish where left(tableindex,8)='"&num&"'"
'rs_autonum.open sql_autonum,conn,1,1
'count=rs_autonum.recordcount
count=3
if count=0 then
three=three+count
three=right(Cstr(three),3)
tableindex=num&three
else
max=0
for i= 0 to count
temp=right(20030927005,3)
temp=Cint(temp)
if temp>max then max=temp
'rs_autonum.movenext
next
max=1000+max+1
max=right(Cstr(max),3)
tableindex=num&max

end if

response.write tableindex
%>
可以生成你要的，所以你再确认一下你从数据库里取值是否正确

taogx 2003-09-27

打赏
举报

要编号好的话可以这样取
两位年两位月两位日两位小时两位分两位秒三或四位随机数

这样对于数据很多的情况一般也不会重复，随机数需要能够产生1秒之内不重复的那种
???

dicklee1214 2003-09-27

打赏
举报

semicaseno="X"&session("unitid")&year(date())&tostring(month(date()))
strSQL = "select max(caseno) from acceptcase where caseno like '"&semicaseno&"%'"
set rs = objcn.RunSQLReturnRS(strSQL)
if isnull(rs(0)) then
ajbh=semicaseno&"0001"
else
last4bit=cint(right(trans(rs(0)),4))
last5bit=10000+last4bit
last5bit=last5bit+1
last4bit=right(cstr(last5bit),4)
ajbh=semicaseno&last4bit
end if

给你一个极为类似的，ajbh为所得

slashh 2003-09-27

打赏
举报

只要能够实现功能就行
但是我更希望谁能告诉我我的代码出错在什么地方??

bubuy 2003-09-27

打赏
举报

楼主：
你写什么啊：
if count=0 then
three=three+count'有必要吗？
three=right(Cstr(three),3)
tableindex=num&max'这有必要吗？
else
...

slashh 2003-09-27

打赏
举报

不是
我只要可以实现日期+001, 日期+002, 日期+003
后三位是通过在数据库中查找数据右边三位最大值然后+1 自增的编号就行了

avonqin 2003-09-27

打赏
举报

要几十行代码么？
几行的可以吗？

slashh 2003-09-27

打赏
举报

自己繼續UP!

slashh 2003-09-27

打赏
举报

呵呵
楼上的朋友
我需要的不是这样精确的秒的编号
而是让它在数据库中找到后面三位最大的值
然后加1生成新的编号
不过同样谢谢你!

pp4u 2003-09-27

打赏
举报

希望对你有用
Function TimeConv(dttTime)
Dim dtTime
Dim varMonth,varDay,varHour,varMinute
Dim strMonth,strDay,strHour,strMinute
If IsNull(dttTime) Then
TimeConv = " "
Exit Function
End If
dtTime = CDate(dttTime)
varMonth = Month(dtTime)
varDay = Day(dtTime)
varHour = Hour(dtTime)
varMinute = Minute(dtTime)
varSecond = Second(dtTime)
If CInt(varMonth) < 10 Then
strMonth = "0" + CStr(varMonth)
Else
strMonth = CStr(varMonth)
End If

If CInt(varDay) < 10 Then
strDay = "0" + CStr(varDay)
Else
strDay = CStr(varDay)
End If

If CInt(varHour) < 10 Then
strHour = "0" + CStr(varHour)
Else
strHour = CStr(varHour)
End If

If CInt(varMinute) < 10 Then
strMinute = "0" + CStr(varMinute)
Else
strMinute = CStr(varMinute)
End If

If CInt(varSecond) < 10 Then
strSecond = "0" + CStr(varSecond)
Else
strSecond = CStr(varSecond)
End If
TimeConv = CStr(Year(dtTime)) + strMonth + strDay + strHour + strMinute + strSecond
End Function

slashh 2003-09-27