ASP中的數據庫聯接Function-优快云博客

本文介绍了如何使用不同函数连接多种类型的数据库，包括CSV文件、SQL Server、Visual FoxPro和Access等。通过具体的函数实现，读者可以了解到连接过程及执行查询的基本方式。

<%
'聯接txt,csv檔案
Function Opendb_csv(csv_file_path)
Application.Lock
Dim csvconn
Set csvconn = Server.CreateObject("ADODB.Connection")
csvconn.ConnectionTimeout = 25
csvconn.CommandTimeout = 60
csvconn.open "Provider=MSDASQL.1;Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ="+csv_file_path
Set Opendb_csv = csvconn
Application.UnLock
End Function
'查詢是用下面的語句
set csvrs=conn_csv.execute("select * from ["+table+".csv]")

'sqlserver聯接
function SQLConn()
  Application.Lock
  '建立SQL Connection
  const strDB = "ASOVF" '數據庫名
  const strIP = "br002"  '聯接的IP地址，本地用localhost
  const strID = "sa"  '用戶名
  const strPW = "000000"  '密碼
  dim connsql
  Set connsql=Server.CreateObject("ADODB.Connection")
  'connsql.ConnectionTimeout = 25 'sql鏈接時間
  'connsql.CommandTimeout = 60 '命令執行時間
  connsql.open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID="+strID+";Password="+strPW+";Initial Catalog="+strDB+";Data Source="+strIP
  set SQLConn=connsql
  Application.unLock
end function

'visual foxpro聯接
function VFConn()
  Application.Lock
  '連接VF數據庫
  dim connvf
  set connvf = Server.CreateObject("ADODB.Connection")
  connvf.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=E:\A20050915_ord\usr\aso\data;Exclusive=No;"
  set VFConn=connvf
  Application.unLock
end function

'access聯接
Function Opendb()
Application.Lock
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 25
conn.CommandTimeout = 60
conn.open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID="+strID+";Password="+strPW+";Initial Catalog="+strDB+";Data Source="+strIP
'conn.open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb_path)
Set Opendb = conn
Application.UnLock
End Function
%>

转载于:https://www.cnblogs.com/Athrun/archive/2006/12/04/581538.html