ASP连接MySQL数据库的五种方法

   近日在使用MySQL数据库时发现，数据库的连接是一件不容易的事，有时即使是一个字符的错误都会使整段的程序无法运行；即便是可以顺利使用MySQL数据库，我们也仍然有对多种方法的需求，因为有时只会用一种连接方法，这会对编程工作产生很大的限制；因此，经过查询，我总结出了多种连接的方法，这些方法可以使用于各种不同的场合。
     虽然是多种方法，其实归根结底都是大同小异，只是书写上的差异而已；但正是这些书写格式也仍然是我们不容忽视的。

   1、基本连接
<%
strconnection="driver={mysql odbc 3.51 driver};server=localhost;uid=root;password=luo;database=gaorui;stmt=set names gb2312"
set conn = server.createobject("adodb.connection")
conn.open strconnection
sql = "select * from user"
set rs = conn.execute(sql)
%>

2、定义变量连接
<%
dim myHost,myDB,myUID,myPWD
myHost = "localhost"
myDB = "gaorui"
myUID = "root"
myPWD = "luo"
myChareSet = "gb2312"

strconnection="driver={mysql odbc 3.51 driver};server=" & myHost & ";database=" & myDB & ";user name=" & myUID & ";password=" & myPWD
set conn = server.createobject("adodb.connection")
conn.open strconnection
conn.execute("set names '" & myChareSet & "'")

sql = "select * from user"
set rs = conn.execute(sql)
%>

3、最简单的连接
<%
set conn = server.createobject("adodb.connection")
Conn.Open "driver={MySQL ODBC 3.51 Driver};server=127.0.0.1;port=3306;database=gaorui;user=root;password=luo;stmt=set names gbk"
sql = "select * from user"
set rs = conn.execute(sql)
%>

4、变量连接字段输出
<%
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL
SQL = "SELECT * FROM user"
ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=gaorui;UID=root;PASSWORD=luo; OPTION=3;stmt=set names gbk"
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open ConnString
Recordset.Open SQL,Connection

If Recordset.EOF Then
Response.Write("No records returned.")
Else
Do While NOT Recordset.Eof
Response.write Recordset("username")
Response.write "&nbsp;&nbsp;&nbsp;"
Response.write Recordset("password")
Response.write "<br>"
Recordset.MoveNext
Loop
End If

Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing
%>

5、另类书写方式连接
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_
& " DATABASE=gaorui;"_
& "UID=root;PWD=luo; OPTION=3;stmt=set names gbk"
conn.Open
sql = "select * from user"
set rs = conn.execute(sql)
%>