在insert语句后面跟上这个语句
SELECT @@IDENTITY
就可以取到了！

示例

dim sql
sql="insert into products (a,b,c) values (1,2,3);"'这只是个示例
sql="SELECT @@IDENTITY; "
dim newid
newid=conn.execute(sql)(0)
AlertGoToUrl "操作完成","productshow.asp?p_id="&newid
rs.close