以下是一个简单的ASP数据库查询的源码示例：
<%
Dim conn
Dim rs
Dim strSQL
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb"
strSQL = "SELECT * FROM myTable"
Set rs = conn.Execute(strSQL)
Do While Not rs.EOF
Response.Write "Name: " & rs("name") & "<br>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>在这个示例中，我们首先创建一个名为conn的ADODB.Connection对象，然后打开指向我们的数据库的连接。接下来，我们定义一个包含我们要执行的SQL查询的字符串，并使用conn.Execute执行查询。然后，我们使用Do While循环遍历查询结果集，输出每条记录的名称。最后，我们关闭结果集和连接对象，并释放资源。
请注意，你需要根据自己的数据库设置正确的连接字符串和SQL查询语句。另外，这只是一个简单的示例，实际使用中可能需要更复杂的错误处理和安全措施。
下面是一个简单的示例，展示了如何使用ASP语言查询数据库：
<%
Dim conn
Dim rs
Dim strSQL
' 创建数据库连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
' 构建SQL查询语句
strSQL = "SELECT * FROM Users"
' 执行查询
Set rs = conn.Execute(strSQL)
' 循环遍历查询结果
Do While Not rs.EOF
Response.Write rs("username") & "<br>"
rs.MoveNext
Loop
' 关闭连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>在这个示例中，我们首先创建了一个数据库连接对象conn，并打开了一个Access数据库。然后，我们构建了一个SQL查询语句strSQL，查询了名为Users的表中的所有数据。接着，我们执行查询并使用Response.Write方法输出查询结果中的username字段值。
最后，记得关闭连接对象和结果集对象，释放资源。这样就完成了一个简单的ASP数据库查询操作。您可以根据具体情况，修改SQL语句和输出字段，以满足您的需求。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/153085.html
