<%@ 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)          '打开数据库连接文件
%>
<body>
<form name="form1" method="post" action="">
<p>用户名：
<input name="uname" type="text" id="uname">
</p>
<p>密&nbsp;&nbsp;码：
<input name="pwd" type="password" id="pwd"></p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" name="Submit" value="提交">
&nbsp;&nbsp;
<input type="reset" name="Submit2" value="重置"></p>
</form>
<%if request.Form("uname")<>"" then      '判断"用户名"文本框中是否有值
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语句
%>
<script language="javascript">
alert("用户信息添加成功！");      //应用Alert方法弹出提示对话框
history.back();         //退回前一页面
</script>
<%else%>
<%sub ontransactionabort()'当事务运行失败时将触发ObjectContext对象的OnTransactionAbort事件%>
<script language="javascript">
alert("用户信息添加失败！");     //应用Alert方法弹出提示对话框
history.back();        //退回前一页面
</script>
 <%End Sub%>
 <%end if%>