<%

Dim db,connStr,conn,sql,rs

‘數據庫文件名

db = "test.mdb"

‘數據庫連接字符串

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

‘創建連接connection對象的實例

Set conn = server.createobject("ADODB.Connection")

‘調用conn的open方法打開連接

conn.open connStr

‘sql語句 tb_user為表名

‘修改 sql = "UPDATE tb_user Set username=‘test1‘ where userid=1"

‘刪除 sql = "DELETE from tb_user where userid=1"

‘添加 sql = "INSERT INTO tb_user (username,sex) VALUES(‘test1‘,‘女‘) "

sql="select username FROM tb_user where userid=1" ‘查詢

‘創建ADODB.RecordSet 數據記錄的對象實例 rs

Set rs = server.createobject("ADODB.Recordset")

‘執行sql語句獲取記錄集

rs.Open sql,conn,1,1

‘判斷是否有數據，有則輸出，無則提示

if not rs.EOF Then

response.write(rs("username"))

else

response.write("沒有該用戶")

%>

ps：

set rs = server.createobject("ADODB.recordset")

rs.open sql,conn

可以用替換為

set rs=conn.execute(sql)

效果一樣

asp連接數據庫和簡單crud