ASP中使用SQL語句操作資料庫

資料|資料庫|語句

用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
%>