如下是ASP连接SQL数据库的代码实例：
<%
Dim conn
Dim rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};Server=myServerAddress;Database=myDatabase;Uid=myUsername;Pwd=myPassword;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM myTable", conn
Do While Not rs.EOF
Response.Write rs("columnName") & "<br>"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>在上面的示例中，首先创建了一个ADODB.Connection对象，并使用Open方法连接到SQL Server数据库。然后创建一个ADODB.Recordset对象，使用Open方法执行SQL查询，然后遍历结果集并输出结果。最后关闭结果集和连接，并将对象置为Nothing。
请注意，需要根据实际情况修改myServerAddress、myDatabase、myUsername、myPassword、myTable和columnName等变量的值。
在ASP中连接SQL数据库的代码示例如下所示：
<%
Dim conn
Dim rs
Dim sql
Dim strConnString
' 数据库连接字符串
strConnString = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword;"
' 创建连接对象
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnString
' SQL查询语句
sql = "SELECT * FROM YourTableName"
' 创建记录集对象
Set rs = conn.Execute(sql)
' 循环遍历记录集
Do Until rs.EOF
Response.Write(rs("ColumnName") & "<br>")
rs.MoveNext
Loop
' 关闭记录集和连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>在以上示例中，您需要替换YourServerName、YourDatabaseName、YourUsername、YourPassword和YourTableName为您自己的SQL服务器、数据库名称、用户名、密码和表名。您可以根据实际需求编写SQL查询语句，并通过记录集对象获取查询结果。最后，别忘记关闭记录集和连接对象以释放资源。
请注意，连接字符串中的Provider、Data Source、Initial Catalog、User ID和Password参数需要根据您的SQL数据库配置进行调整。在实际使用中，建议将连接字符串保存在配置文件中，以便管理和维护。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/152011.html
