<%
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>密 码:
<input name="pwd" type="password" id="pwd"></p>
<p>
<input type="submit" name="Submit" value="提交">
<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%>