<%
数据库连接...
dim pa:set pa=conn.execute("select * from [table] where A like '%"&a&"%'")
if pa.eof and pa.bof then
conn.execute("insert into A (a) values('"&a&"')")
else
conn.execute("update A set A='"&a&"'")
end if
pa.close
set pa=nothing
%>
sql = "select * from [table] where A like '%"&a&"%"
set rs = server.createobject("ADODB.Recordset")
rs.open sql,conn,3,2
if rs.eof and rs.bof then
rs.addnew
rs("name") = a /*insert */
else
rs("name") = a /*update*/
end if
rs.update
rs.close
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024