<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3 '输出查询结果 While NOT rs.EOF Response.Write(rs("id")&" "&rs("name")&" ") rs.MoveNext Wend '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>
以上代码实现了连接MySQL数据库,并输出了testtable表中的id和name字段。
二、ASP通过MySQL展示数据
接下来,我们可以利用ASP技术,通过MySQL将数据呈现给用户。以下是代码演示:
<% '连接MySQL Dim con Dim rs Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=testdb;Uid=root;Pwd=123456;Option=3;" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = con '执行SQL查询语句 rs.Open "SELECT * FROM testtable",con,3,3%>
编号
姓名
年龄
<% '关闭连接 rs.Close con.Close Set rs = Nothing Set con = Nothing%>