<%@ Transaction =REQUIRED %><%'说明该网页将以事务方式运行%>
<%
Dim conn           '定义变量
Set conn=Server.CreateObject("Adodb.Connection")   '创建Connection对象
sql="Driver={Microsoft Access Driver (*.mdb)};DBQ= "&Server.MapPath("database/db_uname.mdb") '创建数据库连接代码
conn.open(sql)          '打开数据库连接文件%>
<%uname=request.Form("uname")      '获取表单元素uname的值，并赋给变量uname
pwd=request.Form("pwd")       '获取表单元素pwd的值，并赋给变量pwd
Set rs=Server.CreateObject("Adodb.RecordSet")   '创建记录集
sql="insert into tb_uname (uname,pwd) values('"&uname&"','"&pwd&"')" '应用Insert into语句实现数据信息的添加
conn.execute(sql)        '执行SQL语句
sub ontransactioncommit() '当事务运行成功时将触发ObjectContext对象的ontransactioncommit事件%>
<script language="javascript">
alert("数据添加成功！");       //应用Alert方法弹出提示对话框
location='index.asp';        //跳转到指定的页面
</script><%End Sub%>