程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp連接sqlserver數據庫實現代碼

asp連接sqlserver數據庫實現代碼

編輯:關於ASP編程

     本文章介紹了利用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

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved