如何实现点击连接数据库加一 asp环境下！

听起来像计数器。
Public Function changeN()

'连接数据库
dim conn,connstr,val
set Conn = server.CreateObject("ADODB.Connection")
connstr="Provider=Sqloledb;Initial Catalog=tr;Data Source=;Integrated Security=SSPI;"
'tr为数据库名
conn.Open connstr
'查询记录
'td为表名
sql="select * from td"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,3,2
if(rs.eof=false)then
'd为td表种的元素名，类型为int
rs("d")=rs("d")+1
rs.update
changeN=true
else
changeN=false
end if
rs.close
End Function

你是说数据表列 还是数据表名自动加1？
表列用这样 conn.execute ("update d set d=d+1 where 条件")
如果是要表名自动加1 我就不知道了 没见过这么奇怪的做法
不知道你要实现个什么功能

数据库自动建表吗？
sql = "create table d" & i & "( id int,zd1 varchar(50),zd2 varchar(50))"