<%
    title=request.form("title")
    content=request.form("content")
    dateandtime=date()

if title="" then
    FoundErr=True
    ErrMsg=ErrMsg & "<br><li>新闻标题不能为空！</li>"
end if

if content="" then
    FoundErr=True
    ErrMsg=ErrMsg & "<br><li>新闻内容不能为空！</li>"
end if


if FoundErr<>True then   
    set rs=server.CreateObject("ADODB.RecordSet")
    sql = "SELECT * FROM news"
    rs.Open sql,Conn,2,3
    rs.addnew
        rs("title") = title
    rs("content") = content
        rs("dateandtime")=dateandtime
    rs.update
    rs.close
    set rs = nothing
    Response.Redirect "Id是数据库自动编号的，怎样才能在提交后就知道此段数据的ID号呢?望高手赐教"
else
    call WriteErrMsg()
end if   

因为ID是自动编号的，所以在你插入一个纪录之前，先获取该表中ID最大的。这样现实：通过DESC使按降序排，然后取第一个ID。
然后使ID加1就是此段数据的ID了.

if FoundErr<>True then     
    set rs=server.CreateObject("ADODB.RecordSet")
    sql = "SELECT * FROM news"
    rs.Open sql,Conn,2,3
    rs.addnew
        rs("title") = title
    rs("content") = content
        rs("dateandtime")=dateandtime
    rs.update
    ID = rs("id") '在这里提取呢?
    rs.close
    set rs = nothing
    Response.Redirect "Id是数据库自动编号的，怎样才能在提交后就知道此段数据的ID号呢?望高手赐教"
else
    call WriteErrMsg()
end if   

这个想法我也想过，但如果是多人同时操作，这个ID可能就是别人的ID了

怎样能将这个ID反馈出来呢，就是提交后用一个页面把ID号输出来？

access只能这样获取

怎样能将这个ID反馈出来呢，就是提交后用一个页面把ID号输出来？

Response.Redirect "a.asp?ID="&ID

a.asp页面
<%
ID = Request("ID")
Response.Write ID
%>

在Access中，下面的代码一定要避免使用的：
<%  
    fakeValue = 5  
    set conn = Server.CreateObject("ADODB.Connection")  
    conn.open "<conn string>"  
    conn.execute "Insert into someTable(intField) values(" & fakeValue & ")"  
    set rs = conn.execute("select MAX(ID) from someTable")  
    response.write "新产生的 " & rs(0)  
    rs.close: set rs = nothing  
    conn.close: set conn = nothing  
%>
 
为什么必须避免呢？因为：当两个人同时调用这个ASP时候，由于可能同时插入数据记录，返回的MAX(ID)可能就是错误的。这在SQL Server中也一样。
这时，如果你坚持使用Access，你可以使用一个带有adOpenKeyset游标的Recordset对象。（在这里，Recordset对象比T-SQL语句更适当）。
 
<%  
    fakeValue = 5  
    set conn = Server.CreateObject("ADODB.Connection")  
    conn.open "<conn string>"  
    set rs = Server.CreateObject("ADODB.Recordset")  
    rs.open "select * from someTable where 1=0", conn, 1, 3  
    rs.close: set rs = nothing  
    conn.close: set conn = nothing  
    rs.AddNew  
    rs("intField") = fakeValue  
    rs.update  
    response.write "新的ID号：" & rs("id")  
    rs.close: set rs = nothing  
    conn.close: set conn = nothing  
%>

收到的鲜花

• hwqde 于 2009-09-13 20:29 送鲜花  3朵   附言：我很赞同

还有人建议添加空记录 然后更新