用ASP操作數據庫時，很多人都使用記錄集，但我覺得用SQL語句更好些，于是就寫了這篇文章，希望對你有幫助。
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為連接數據庫和斷開連接(數據庫為Access格式，采用DSN來連接)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub connect()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb文件的dsn,在配置ODBC時建立，如果要上傳文件的話，可以把access.dsn一同上傳
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '打開當前目錄下的dsn文件（dsn為access文件的dsn）
response.write "數據庫連接成功:" & cnn.state & "<br>"
cnn.close '關閉連接
response.write"數據庫已經關閉" & cnn.state & "<br>"
set cnn=nothing '清除變量
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱數據庫(查詢內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub sel()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb文件的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '打開當前目錄下的dsn文件（dsn為access文件的dsn）
'送出操作，并得到結果
sql="select * from user" '構造SQL語句
set rs=cnn.Execute(sql) '送出SQL
'一個循環把記錄集中的記錄內容全部輸出
while not rs.eof
values=rs("name")
response.write values & "<br>"
rs.movenext
wend
rs.close
cnn.close
set cnn=nothing
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱數據庫(修改內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub modi()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb文件的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '打開當前目錄下的dsn文件（dsn為access文件的dsn）
sql="update user set name='這是程序' where name='A'" '構造修改SQL語句
cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱數據庫(刪除內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub del()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb文件的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '打開當前目錄下的dsn文件（dsn為access文件的dsn）
sql="delete from user where name='B'" '構造刪除SQL語句
cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段為操縱數據庫(添加內容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub add()
dsn="FILEDSN=acces.dsn" 'dacces.dsn為mdb文件的dsn
set cnn=server.createobject("ADODB.Connection") '建立ADO對象
cnn.open dsn '打開當前目錄下的dsn文件（dsn為access文件的dsn）
'sql="insert into user (name,sex,note) values ('tt','tt','tt')" '構造添加SQL語句
'cnn.Execute sql '送出SQL
cnn.close
set cnn=nothing
end sub
%>
文章來源于領測軟件測試網 http://www.kjueaiud.com/
