ASP 日期加流水号编号问题

想到了一种方法，不过感觉不是太好用，你先试试。
<%
Function Get_NewId()
dim i_date
sqlstr = "Select top 1 no_id from uright order by no_id desc"
Set rs = Conn.Execute(sqlstr)
If Not rs.EOF Then
i_date = Year(date())
if Len(Month(date())) = 1 then
i_date = i_date& "0"&Month(date())
else
i_date = i_date&Month(date())
end if
if Len(Day(date())) = 1 then
i_date = i_date& "0"&Day(date())
else
i_date = i_date&Day(date())
end if
if cint(left(rs("no_id"),8)) = cint(i_date) then
Get_NewId = rs("no_id") + 1
else
Get_NewId = i_date&"001"
end if
Else
Get_NewId = 1
End If

End Function
%>

我只给个思路，有错误自行更正。
<%
Function Get_NewId()
sqlstr = "Select top 1 no_id from uright order by no_id desc"
Set rs = Conn.Execute(sqlstr)
If rs.EOF AND rs.BOF Then
Get_NewId = Year(date())&"0001"'初始记录
Else
Get_NewId = CInt(rs("no_id"))+1'把字符串类型转换成数字类型+1
End If
End Function
%>