谁知道在添加记录之前，就知道添加的这条记录ID号的最好方法

我很急
情况是这样的：
1. 我做了个产品展示系统， 其中图片上传部分，我想让上传的图片以产品的ID号命名.
2. 这样我在做产品更名，删除的时候,方便对图片管理,因为用时间命名的话，产品更名删除时还要读一次库中图片名，这样代码就多了（我目地是产品添加，删除，更新后，网站中的图片不会出现多余的,如果理解我的想方，有更好的方法也提一下）

--------------------------------------------------------------------------------------------------------------
query="select * from table"
rs.open query,conn,3,2
rs.addnew
rs("name")=??? 怎样让rs("name")=这条记录的ID
rs.update
--------------------------------------------------------------------------------------------------------------

现在我知道的方法是读记录集的最后一条记录 id加一

不好意思问了个蠢问题

----------------------------------------------------
query="select * from table"
rs.open query,conn,3,2
rs.addnew
rs("name")=rs("id")
rs.update
---------------------------------------------------
真没想到这么简单

accass id自动排序

我的目地:
1. 我做了个产品展示系统， 其中图片上传部分，我想让上传的图片以产品的ID号命名.
2. 这样我在做产品更名，删除的时候,方便对图片管理,因为用时间命名的话，产品更名删除时还要读一次库中图片名，这样代码就多了（我目地是产品添加，删除，更新后，网站中的图片不会出现多余的,如果理解我的想方，有更好的方法也提一下）

你可以用其它的方法来标识图片的唯一性，如时间编号，可精确到秒，再用其它可以标识维一性的字段如产品ID号，比如产品ID号为105，可编为105-20041025-115621，因为后台管理不太可能在1秒内同一产品发二次，但前提保证系统时间必须准确。这是一种方法。也可以用其它方法来确定唯一编号，如果是多用户，可以设置用户ID。

我的目地：
产品更新一段时间后，网站中图片不会出现多余

我的目地:产品更多新一段时间后,站内不会出现多余的图片

用了两天时间终于完工,大家PP,使代码更短一点


creaters()我做的建数据连接的函数
___________________________________________________________________

<!--#include file="conn.asp" -->
<!--#include file="upload.inc" -->
<%
ChkPost() '验证来源
dim upload ,file , filename , fileExt
set upload=new upload_5xSoft

act=Trim(Request.QueryString("act"))
select case act
case "add"
    creaters(1)
     query="select * from product where name='"&upload.form("name")&"'"
     rs.open query,conn,1,1
     if not rs.eof then
     response.write "<script language=javascript>"&vbCrLf
     response.write "alert(""错误：产品编号已存在。"");"& vbCrLf
     response.write "location.href = ""javascript:history.back()"""&vbCrLf
     response.write "</script>"& vbCrLf
     creaters(0)
     response.end
     end if
    case "updata"
     creaters(1)
     query="select * from product where id=" +Trim(Request.QueryString("id"))
     rs.open query,conn,1,1
     if upload.form("name")<>rs("name") then
     creaters(2)
         query="select * from product where name='"&upload.form("name")&"'"
         rs.open query,conn,1,1
         If Not rs.eof Then
         response.write "<script language=javascript>"& vbCrLf
            response.write "alert( ""错误：产品编号已存在。"");"& vbCrLf
            response.write "location.href = ""javascript:history.back()"""& vbCrLf
            response.write "</script>"& vbCrLf
            creaters(0)
            response.end
         End If
     End If
end select


creaters(2)
select case act
case "add"
        query="select * from product where class = '"& upload.form("class") &"'"
rs.open query,conn,3,2
rs.addnew
num = rs.RecordCount+1
rs("num") = num
rs("class") = upload.form("class")
        rs("name") = upload.form("name")
    case "updata"
     query="select * from product where id = " & Trim(Request.QueryString("id"))
rs.open query,conn,3,2
        rs("name") = upload.form("name")
        response.write upload.form("name")
end select


for each formname in upload.file
set file=upload.file(formname)
if file.filesize>100 then
if file.filesize>2048000 then
response.write "<script language=javascript>"& vbCrLf
    response.write "alert( ""错误：请选择上传的文件不要超过了2M!"");"&vbCrLf
    response.write "location.href =""javascript:history.back();"" "& vbCrLf
    response.write "</script>"& vbCrLf
    response.end
    end if
    
    fileExt=lcase(right(file.filename,4))
    if fileEXT<>".gif" and fileEXT<>".jpg" and fileEXT<>".png" and fileEXT<>".bmp" then
    response.write "<script language=javascript> "& vbCrLf
    response.write "alert( ""错误：请选择类型为jpg,gif,png,bmp的上传文件!"");"& vbCrLf
response.write "location.href =""javascript:history.back();"" "& vbCrLf
response.write "</script>"& vbCrLf
    response.end
    end if
    
    filename="pic/"&rs("id")&fileExt

    file.SaveAs Server.mappath(filename) '保存文件
set file=nothing
else
filename = ""
end if
next


if filename <> "" then rs("img") = filename
rs.update


response.Redirect("product.asp?class="&upload.form("class"))
creaters(0)
set upload=nothing
%>

___________________________________________________________________

经过测验,除了下面一种情况基本上更新图片,或更新产品名后站内不会出现无用图片

--------------------------------------------------------
更新的图片格式和上次图片格式不一样
--------------------------------------------------------

creaters(1)建数据连接

creaters(2)=rs.close

creaters(0)关闭数据连接