利用asp,编写一个按button1然后往数据库中添加记录
时间: 2024-01-28 11:04:51 浏览: 62
以下是一个简单的 ASP 程序,用于在点击 Button1 按钮时向数据库中添加记录。假设数据库连接字符串为 "Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;",数据表名为 "myTable",需要添加的字段为 "Name" 和 "Age":
```
<%@ Language=VBScript %>
<%
Dim conn, cmd, name, age
name = Request.Form("name") ' 获取表单提交的 Name 值
age = Request.Form("age") ' 获取表单提交的 Age 值
Set conn = Server.CreateObject("ADODB.Connection") ' 创建连接对象
conn.Open "Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;" ' 打开数据库连接
Set cmd = Server.CreateObject("ADODB.Command") ' 创建命令对象
cmd.ActiveConnection = conn ' 指定命令对象连接的数据库连接
cmd.CommandType = adCmdText ' 指定命令对象的类型为文本
cmd.CommandText = "INSERT INTO myTable (Name, Age) VALUES (?, ?)" ' 指定插入语句
cmd.Parameters.Append cmd.CreateParameter("@Name", adVarChar, adParamInput, 50, name) ' 指定 Name 参数
cmd.Parameters.Append cmd.CreateParameter("@Age", adInteger, adParamInput, , age) ' 指定 Age 参数
cmd.Execute ' 执行命令
conn.Close ' 关闭数据库连接
Set cmd = Nothing ' 释放命令对象
Set conn = Nothing ' 释放连接对象
%>
<html>
<head>
<title>Add Record</title>
</head>
<body>
<form method="post" action="">
Name: <input type="text" name="name"><br>
Age: <input type="text" name="age"><br>
<input type="submit" name="Button1" value="Add Record">
</form>
</body>
</html>
```
在上面的代码中,我们首先通过 `Request.Form` 获取表单提交的 Name 和 Age 值,然后创建连接对象,打开数据库连接。接着创建命令对象,指定插入语句和参数,执行命令,最后释放对象并返回表单页面。需要注意的是,上面代码中的 `adCmdText` 和 `adParamInput` 是常量,需要在代码中声明或者引用相应的类型库。
阅读全文