本例中db1.mdb中有一张test表，其中两个字段name和age，name为主键，代码如下：
<%
On error resume next
Dim conn,sqlstr
Set conn=server.createobject("ADODB.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("db1.mdb")
conn.open
If err then
err.clear
Response.write "<script>alert('数据库连接出错')</script>"
End if
Sqlstr="insert into test values('aaa',26)"
Conn.execute(sqlstr)
If err then
err.clear
Response.write "<script>alert('该用户本已被使用!')</script>"
Else
Response.write "<script>alert('恭喜您可以使用这个用户名!')</script>"
End if
On error goto 0
%>
评论（0）
暂无评论。