注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

网事

备忘录

 
 
 

日志

 
 

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

2008-04-26 22:27:39|  分类: ASP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
   近日在使用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)
%>

  评论这张
 
阅读(117)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018