asp入門之操作資料庫

代碼

asp操作資料庫常用的方式就是使用內建的組件adobd來實現，代碼簡潔，使用方便。
下面是讀取access資料庫的範例程式碼，使用了Connection對象和Recordset對象。
<%
    dim conn,connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
    conn.Open connstr
    
    dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "select * from info order by createtime desc",conn,1,3
    if not rs.EOF then
        for i=1 to rs.recordcount
            response.Write(rs("title") & "<br />")
            rs.movenext
            if rs.eof then exit for    
        next
    end if
    
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>

更改資料庫，添加一條資料庫記錄，使用recordset對象
<%

    dim title
    dim content
    
    title="我是第二個標題"
    content="我是第二個內容"
    
    dim conn,connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
    conn.Open connstr
    
    set rs=server.createobject("adodb.recordset")
    sql="select * from info where 0=1" 
    rs.open sql,conn,1,3
        rs.addnew
        rs("title")=title
        rs("content")=content
        rs("createtime")=date()
        rs.update
    rs.close
    set rs=nothing
    conn.close
    set conn = nothing
%>

更改資料庫，修改一條資料庫記錄，使用recordset對象
<%
    dim id
    dim title
    dim content
    
    id=2    '初始化id    
    title="修改我是第二個標題"
    content="修改我是第二個內容"
    
    
    dim conn,connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
    conn.Open connstr    
    
    set rs=server.createobject("adodb.recordset")
    sql="select * from info where ID="&id 
    rs.open sql,conn,3,3
        rs("title")=title
        rs("content")=content
        rs.update
    rs.close
    set rs=nothing
    conn.close
    set conn = nothing
%>
還可以只使用Connection對象,添加、修改、刪除等操作都可以使用下面的方法。
<%
    dim id
    
    id=2    '初始化id
    
    dim conn,connstr
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
    conn.Open connstr
    
    sql="delete from info where id="&id
    conn.Execute sql,stateflag
    
    if stateflag=1 then
        response.write "操作成功"
    else
        response.write "操作失敗"
    end if
%>
access資料庫連接字串還可以變換為
<%
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
%>
access資料庫如果有密碼的，只要將connstr更改為如下就可以了
<%
connStr="driver={microsoft access driver(*.mdb)};uid=admin;pwd=資料庫密碼;dbq=" & Server.MapPath("db.mdb")
%>

操作sql server資料庫只要將connstr更改一下就可以了
<%
connStr="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=mydb;Data Source=LBWIN7\SQLSERVER2005"
%>
其中Data Source是資料庫所在的電腦和資料庫庫樣本名稱，電腦名稱可以是ip地址，也可以是電腦名稱，電腦上如果安裝多個資料庫時的執行個體是不一樣的。
LBWIN7\SQLSERVER2005中，LBWIN7是電腦名稱，SQLSERVER2005是資料庫執行個體名稱。
Initial Catalog，資料庫名稱。
User ID，資料庫登入名稱稱。
Password，資料庫登入密碼。