萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> asp編程 >> asp連接sqlserver數據庫實現代碼

asp連接sqlserver數據庫實現代碼

 本文章介紹了利用asp連接sqlserver數據庫實例代碼,連接方法有三種分別為通過ODBC DSN建立連接,通過oledb建立連接 通過driver建立連接三種,下面我們來看看第一種。

 

通過driver建立連接

 代碼如下   <% 
Const DataBaseType=1 
If DataBaseType=0 then 
DBPath="/jb51/news.asp" 
SqlNowString = "Now()" 
ystr=true 
nstr=false 
suiji="rnd(id)" 
Else 
'如果是SQL數據庫,請認真修改好以下數據庫選項 
DataServer = "www111cnnet" '數據庫服務器IP 
DataUser = "jb51net" '訪問數據庫用戶名 
DataBaseName = "jb51net" '數據庫名稱 
DataBasePsw = "密碼" '訪問數據庫密碼 
SqlNowString = "getdate()" 
ystr=1 
nstr=0 
suiji="newid()" 
End if 
On Error Resume Next 
If DataBaseType = 1 Then 
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else 
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) 
End If 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.open ConnStr 
If Err Then Err.Clear:Set conn = Nothing:Response.Write "數據庫連接出錯,請檢查Conn.asp文件中的數據庫參數設置。":Response.End 
%>

通過driver建立連接

通過driver建立頁面與數據庫的連接,同樣不需要創建ODBC DSN數據源,但必須知道實際的數據庫文件路徑或者數據源名(例如,SQLserver的數據庫)。

 代碼如下   Set conn=Server.CreateObject("ADODB.Connection") 
conn.Open"driver={SQL Server};server=abc;DataSource=(test);uid=;pwd=;database=UserDB"

 
編寫腳本和數據庫源建立連接

ADO(ActiveX Data Objects ) 提供 Connection 對象,可以使用該對象建立和管理應用程序和 ODBC 數據庫之間的連接。Connection 對象具有各種屬性和方法,可以使用它們打開和關閉數據庫連接。編寫數據庫連接腳本,首先應創建 Connection 對象的實例,接著打開數據庫連接

 

 代碼如下  

'********************************************************************
' 與SQL Server2000有關的連接
' 可以參照它建立您的數據庫連接
'********************************************************************
'敬請注意: 
'請根據情況配置StrServer,StrUid,StrSapwd,StrDbName四個參數
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '數據庫服務器名
StrUid="testuser" '您的登錄帳號
StrSaPwd="12345" '您的登錄密碼
StrDbName="db_test_com" '您的數據庫名稱

Dim Conn '數據庫連接
Dim StrDSN '數據庫連接字符串
Dim Rs '命令字符串 
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和數據庫master的連接
set Conn = Server.CreateObject("ADODB.Connection") 
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN

copyright © 萬盛學電腦網 all rights reserved