请问！ASP连接MS Sql数据库最好的方法？

[jobscn]

各位大虾：

打扰了！

ASP连接MS Sql数据库有两种方法：

1、ODBC链接："Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"

2、OLEDB链接："Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"


请问，哪种方法最好呢？为什么？


麻烦了，非常感谢阿！

[webDreamsinger]

目前普通采用OLEDB，OLEDB的性能优于ODBC

ODBC以动态网站开发技术刚出来时用得比较多，当然以前的一些应用程序大多都是用ODBC。

[jobscn]

非常感谢阿！

[pcworld]

dim Connect_flag
dim Connect_DataBase_String ' 连接数据库字符串
dim Connect_DataBase ' 连接数据库
dim m_recordset
Dim m_command ' 主要为了执行存储过程

Connect_flag=False

'为了只执行一次连接，减小网络资源 用下面的逻辑判断
if Connect_flag=false Then

'数据库名称按照 SQL Server可以自行设置名称，不需要在ODBC里面注册
Connect_DataBase_String="Driver={SQL Server};Description=;SERVER=liulili;UID=sa;Password=1234;DATABASE=teacher_work"
Set Connect_DataBase=Server.CreateObject("ADODB.Connection")
Connect_DataBase.Open Connect_DataBase_String
'设置公有变量

set m_recordset = Server.createobject("adodb.recordset")
set m_command = Server.CreateObject("adodb.command") '执行存储过程使用的变量
set m_command.ActiveConnection=Connect_DataBase
Connect_flag=true
end if

[china_programmer]

<%
'##################
'修改目的:增加一个数据库
'Modify Date:2006-05-08 By china_programmer
'##################
dim Connect_flag
dim Connect_DataBase_String ' 连接数据库字符串
dim Connect_DataBase ' 连接数据库
dim m_recordset
Dim m_command ' 主要为了执行存储过程

Connect_flag=False

'为了只执行一次连接，减小网络资源 用下面的逻辑判断
if Connect_flag=false Then

'数据库名称按照 SQL Server可以自行设置名称，不需要在ODBC里面注册
Connect_DataBase_String="Driver={SQL Server};Description=;SERVER=liulili;UID=sa;Password=1234;DATABASE=teacher_work"
Set Connect_DataBase=Server.CreateObject("ADODB.Connection")
Connect_DataBase.Open Connect_DataBase_String
'设置公有变量

set m_recordset = Server.createobject("adodb.recordset")
set m_command = Server.CreateObject("adodb.command") '执行存储过程使用的变量
set m_command.ActiveConnection=Connect_DataBase
Connect_flag=true
end if

[china_programmer]

调用:<!--#include file="connect_database.asp"-->
直接使用:m_recordset.Open SqlStr,Connect_DataBase,1,1

[china_programmer]

在公用连接数据库文件里面还有两个常用的Function
'/*##########################################################
'函数 : getFieldValue
'创建日期: 2006-06-15 By china_programmer
'函数作用: 得到sql传递的字段值
'使用方法: 直接在vbscript脚本里面调用
' s_no=GetFieldValue(sql,0)
'##########################################################*/
function getFieldValue(m_sql,FieldIndex)
dim str
m_recordset.open m_sql,Connect_DataBase,1,1
if m_recordset.eof and m_recordset.bof then
getFieldValue=""
else
if isnull(m_recordset(FieldIndex)) then
getFieldValue=""
else
str=cstr(m_recordset(FieldIndex))
if str="" then
getFieldValue=""
else
getFieldValue=str
end if
end if
end if
m_recordset.close
end Function

'/*##########################################################
'函数 : ExecuteSQL(m_sql)
'创建日期: 2006-06-15 By china_programmer
'函数作用: 执行SQL语句 (例如:insert,update,delete,drop and so on)
'返回参数: 1 表示成功
' 0 表示失败
'使用方法: 直接在vbscript脚本里面调用
' GetFieldValue(sql)
'##########################################################*/
function ExecuteSQL(m_sql)
dim flag
flag =m_recordset.open(m_sql)
ExecuteSQL=flag
end Function

[张三大胖]

都很好的