乍一看来, 这个问题好像很白痴, 不过要实现的话问题可多多, Access 并不像 SQL SERVER 有什么 @@ 之类的语法.
1. 获取单个 ID
2. 获取多个 ID
2. 获取多个 ID
------------------------------------------------------------------
sql = "INSERT INTO ctarticle (classid,nclassid,title,content,dateandtime,writer,email,www,url,reoff,htmloff,ubboff ) VALUES ("&cid_&","&ncid_&",'"&trim(tt_)&"','"&ct_&"','"&adt_&"','"&trim(au_)&"','"&trim(em_)&"','"&trim(www_)&"','"&trim(url_)&"',"&ro_&","&ho_&","&uo_&") " '插入数据操作
rsData.Execute(sql)
set rs1=rsData.Execute("select top 1 * from ctarticle order by articleid desc")
response.write rs1("articleid")
response.write " "
response.write rs1("classid")
response.write " "
response.write rs1("nclassid")
rs1.close : set rs1=nothing
------------------------------------------------------------------
1. 获取单个 ID
------------------------------------------------------------------
sql = "INSERT INTO ctarticle (classid,nclassid,title,content,dateandtime,writer,email,www,url,reoff,htmloff,ubboff ) VALUES ("&cid_&","&ncid_&",'"&trim(tt_)&"','"&ct_&"','"&adt_&"','"&trim(au_)&"','"&trim(em_)&"','"&trim(www_)&"','"&trim(url_)&"',"&ro_&","&ho_&","&uo_&") " '插入数据操作
rsData.Execute(sql)
set rs1=rsData.Execute("select max(articleid) from ctarticle")
response.write rs1(0)
rs1.close : set rs1=nothing
------------------------------------------------------------------