28,406
社区成员
发帖
与我相关
我的任务
分享
<%
'找空缺ID
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from tzsh order by id"
rs.Open sql,conn1,1,1
if rs.eof then
newID = 1
else
for i=1 to rs.recorcount
if i<clng(rs("序号")) then
newID=i
exit for
end if
rs.movenext
next
end if
rs.close
set rs=nothing
'添加新记录
sql="INSERT INTO tzsh (ID,项目名称) VALUES('"&newID&"','"&Request("xmmc")&"')"
conn.execute(sql)
conn.close
set conn=nothing
%>