怎样用asp连接mysql数据库

asp教程连接mysql教程数据库教程几款代码 strconnection = "dsn=hc188driver={myodbd driver}server=localhostuid=rootpwd=database=hc188" set adodataconn = server.createobject("adodb.connection") adodataconn.open strconnection 方法二 strconnection="dsn=MySQL(和PHP搭配之最佳组合)test driver={MySQL(和PHP搭配之最佳组合) odbc 3.51 driver} server=填入服务器地址uid=用户名pwd=密码database=mm" 看个实例 Dim sConnection, objConn , objRS 'SERVER为数据库主机名（本地主机用localhost,远程用IP地址）；DATABASE为数据库名；UID为用户名；PASSWORD为密码 sConnection = "DRIVER={MySQL ODBC 3.51 Driver}SERVER=localhostDATABASE=Your_Mysql_DBUID=mysql_usernamePASSWORD=mysql_passwordOPTION=3" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open(sConnection) '以下SQL语句为示例语句，请根据实际情况修改 Set objRS = objConn.Execute("SELECT FirstName, LastName FROM tblUsers") While Not objRS.EOF 'while...wend循环，用于读取所有的信息 Response.Write objRS.Fields("LastName") &", " &objRS.Fields("FirstName") &"《br》" objRS.MoveNext '记录集指针下移 Wend objRS.Close '关闭记录集 Set objRS = Nothing '清空记录集，释放内存 objConn.Close '关闭数据库链接 Set objConn = Nothing '清空数据库链接，释放内存 %> asp和mysql连接目前有两个办法：一个是使用组件，常用的是mysqlx收费组件；二就是使用myodbc来连接

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%Response.Buffer=True%>

<%

IsSqlDataBase=0 '定义数据库类别，0为Access数据库，1为SQL数据库

If IsSqlDataBase=0 Then

'''''''''''''''''''''''''''''' Access数据库 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''

datapath="include/" '数据库目录的相对路径

datafile="data.mdb" '数据库的文件名

Connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.mapPath(datapath&datafile)&""

SqlNowString="Now()"

SqlChar="'"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Else

'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]

SqlUsername="sa" '用户名

SqlPassword="1" '用户密码

SqlDatabaseName="MyDBname" '数据库名

ConnStr = "Provider=SqloledbUser ID=" &SqlUsername &"Password=" &SqlPassword &"Initial Catalog = " &SqlDatabaseName &"Data Source=" &SqlLocalName &""

SqlNowString="GetDate()"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End If

On Error Resume Next

Set conn=Server.CreateObject("ADODB.Connection")

conn.open ConnStr

If Err Then

err.Clear

Set Conn = Nothing

Response.Write "数据库连接出错，请检查连接字串。"

Response.End

End If

On Error GoTo 0

%>

dim Conn

dim Str

'SQL数据库链接

Set Conn=server.CreateObject ("ADODB.Connection")

Str="Provider=SQLOLEDB.1Password=mysql密码Persist Security Info=TrueUser ID=mysql帐号Initial Catalog=数据库地址Data Source=(local)"

Conn.Open Str

以上(local)是数据库地址的IP

---