asp取post值连接assecc数据库

您可以使用以下代码来获取 ASP 中 POST 方法提交的数据并连接到 Access 数据库：

<%
' 获取 POST 方法提交的数据
Dim username
username = Request.Form("username") ' 假设提交的表单中有名为 username 的字段

' 连接 Access 数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data\test.mdb"

' 查询数据库
Dim sql
sql = "SELECT * FROM users WHERE username='" & username & "'"
Dim rs
Set rs = conn.Execute(sql)

' 输出查询结果
While Not rs.EOF
    Response.Write(rs("id") & " - " & rs("username") & "<br>")
    rs.MoveNext
Wend

' 关闭数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

上述代码中的 `"D:\data\test.mdb"` 应该替换为您实际的 Access 数据库文件路径。请注意，此代码仅作为示例，您需要根据实际情况进行修改和完善。

相关问题

asp取post值连接assecc数据库，并添加数据，需要判断是否添加成功

好的，您的问题是如何使用 ASP 取 POST 值连接 Access 数据库，并添加数据，同时判断是否添加成功。

以下是一个简单的示例代码，供您参考：

<%
' 获取 POST 值
name = Request.Form("name")
age = Request.Form("age")

' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data.mdb"

' 添加数据
sql = "INSERT INTO users(name, age) VALUES('" & name & "', " & age & ")"
conn.Execute(sql)

' 判断是否添加成功
If Err.Number = 0 Then
    Response.Write "添加成功"
Else
    Response.Write "添加失败"
End If

' 关闭数据库连接
conn.Close
Set conn = Nothing
%>

在此示例中，我们首先通过 `Request.Form` 获取了 POST 值，然后使用 `ADODB.Connection` 对象连接了一个名为 `data.mdb` 的 Access 数据库。接着，我们使用 SQL 语句向 `users` 表中添加了一条记录，并通过判断 `Err.Number` 是否为 0 来判断是否添加成功。最后，我们关闭了数据库连接。

当然，这只是一个简单的示例，实际应用中还需要考虑很多情况，例如 SQL 注入、异常处理等等。希望能对您有所帮助。

asp取post值连接assecc数据库，并添加数据，需要判断是否添加成功！

您可以使用以下代码来获取 ASP 中 POST 方法提交的数据并连接到 Access 数据库进行添加操作，并判断是否添加成功：

<%
' 获取 POST 方法提交的数据
Dim username, password
username = Request.Form("username") ' 假设提交的表单中有名为 username 的字段
password = Request.Form("password") ' 假设提交的表单中有名为 password 的字段

' 连接 Access 数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data\test.mdb"

' 查询数据库，判断是否已存在该用户名
Dim sql
sql = "SELECT * FROM users WHERE username='" & username & "'"
Dim rs
Set rs = conn.Execute(sql)
If Not rs.EOF Then
    Response.Write("该用户名已存在！")
Else
    ' 添加数据到数据库
    sql = "INSERT INTO users(username, password) VALUES('" & username & "', '" & password & "')"
    conn.Execute(sql)
    If Err.Number <> 0 Then
        Response.Write("添加数据失败！")
    Else
        Response.Write("添加数据成功！")
    End If
End If

' 关闭数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

上述代码中的 `"D:\data\test.mdb"` 应该替换为您实际的 Access 数据库文件路径。请注意，此代码仅作为示例，您需要根据实际情况进行修改和完善。