asp以日期的自动编号的代码

今天看到一个朋友在贴吧中发的一个贴子，要求以日期为自动编号的ID，效果是：“2008年1月份，编号从200801001开始编，第二条则是200801002，如此类推，到2008年02月份时就变成200802001开始编号”。我将代码放在这里，与大家共享。

我的解决方法：采用数字型字段，每次添加这个字段

代码：
ttt是表名，db2是数据库名
id（数字型字段），title为标题（文本型字段）
conn.asp
<
%
set 
rs=server.CreateObject("adodb.recordset")
db="database/db2.mdb"

set 
conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0
Data 
Source=" 
&
 
Server.MapPath(db)
conn.open 
connstr
%>


添加文件
<
!--
#include 
file="conn.asp"-->

<
%

'功能：实现以日期为编号的ID字段
'来源：www.aspprogram.cn
'开发：wangsdong
'原创文章，转载请保留此信息。

add=request("add")
If 
add="" 
Then
%>

<
form 
name="form1" 
method="post" 
action="?add=save">

 
 
标题：<
input 
type="text" 
name="title">
&
nbsp
<
input 
type="submit" 
value="提交">

<
/form>

<
%
Else
y=Year(Now())
m=Right("0"&
Month(Now()),2)
cid=y&
m
title=request("title")
sql="select 
top 
1 
id 
from 
ttt 
order 
by 
id 
desc"
rs.open 
sql,conn,1,1
If 
rs.eof 
Then
 
 
cid=cid&
"01"
Else
 
 
Lid=rs("id")
 
 
If 
cid=Left(lid,6) 
Then
 
 
 
cid=CLng(lid)+1
 
 
Else
 
 
 
 
cid=cid&
"01"
 
 
End 
if
End 
If
rs.close

sql="insert 
into 
ttt(id,title) 
values("&
cid&
",'"&
title&
"')"
rs.open 
sql,conn,1,3
response.write 
"添加成功<
br>
<
a 
href=""?"">
继续添加<
/a>
"
End 
If
Set 
rs=Nothing
Set 
conn=Nothing
% >