set rs = server.createobject("adodb.recordset")
'这里ProdId 是数据库里，你要做自增的字段
sql = "select * from bproduc where ProdId is not null"
rs.cursorlocation = 3
rs.open sql,conn,1,1
if rs.bof and rs.eof then'数据库没有数据，则设为1，暂时存到autoid
autoid=1
else
totalid=rs.RecordCount'有数据，根据数据库记录总数增1存到autoid

function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"