dim conn,db

dim connstr

db="db.mdb" " access資料庫檔案路徑

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath(""&db&"")&";Persist Security Info=False;"

set conn=server.createobject("ADODB.CONNECTION")

"連線資料庫

conn.open connstr "open datebase

"資料庫結構

"檔名db.mdb

"表名admin

"欄位id，自動編號

"欄位username，文字

"欄位userpass，文字

" 增

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin"

Rs.open Sql,conn,1,3

Rs.addnew

Rs("username")="使用者名稱"

Rs("userpass")="使用者密碼"

Rs.update

Rs.close

set Rs=nothing

response.Write ""

" 刪

s_id=1 "假設有個使用者資料的id為1

Sql="delete * from admin where"

set Rs=server.CreateObject("ADODB.recordset")

rs.open Sql,conn,1,3

response.Write("")

rs.close

set Rs=nothing

" 改

s_id=1 "假設有個使用者資料的id為1

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin where"

Rs.open Sql,conn,1,3

if Rs.eof and Rs.bof then

Rs.close

set Rs=nothing

response.Write("")

else

Rs("Password")="新密碼"

Rs.update

Rs.close

set Rs=nothing

response.Write ("")

End If

" 查單個

s_username="admin" "假設有個使用者名稱為admin的使用者資料

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin where username=""&s_username&"""

Rs.open Sql,conn,1,3

if Rs.eof and Rs.bof then

Rs.close

set Rs=nothing

response.Write("")

else

s_name=Rs("username")

s_pass=Rs("userpass")

Rs.close

set Rs=nothing

" 輸出查詢到的資訊

response.Write ("")

End If

" 查列表

set Rs=server.CreateObject("Adodb.recordset")

sql="select * from admin order by id desc"

Rs.open sql,conn,1,1

if not Rs.eof then

" 迴圈輸出查詢到的資訊

do while not Rs.eof

response.Write "id："&Rs("id")&",使用者名稱："&Rs("username")&",密碼："&Rs("userpass")&""

Rs.movenext

loop

end if

Rs.close

set Rs=nothing

" 使用完資料庫後要關閉連線資源

conn.close

set conn=nothing

%>