ASP中使用SQL语句操作数据库

用ASP操作数据库时，很多人都使用记录集，但我觉得用SQL语句更好些，于是就写了这篇文章，希望对你有帮助。

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段为连接数据库和断开连接(数据库为Access格式，采用DSN来连接)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
subconnect()
dsn="FILEDSN=acces.dsn"'dacces.dsn为mdb文件的dsn,在配置ODBC时建立，如果要上传文件的话，可以把access.dsn一同上传
setcnn=server.createobject("ADODB.Connection")'建立ADO对象
cnn.opendsn'打开当前目录下的dsn文件（dsn为access文件的dsn）
response.write"数据库连接成功:"&cnn.state&"<br>"
cnn.close'关闭连接
response.write"数据库已经关闭"&cnn.state&"<br>"
setcnn=nothing'清除变量
endsub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段为操纵数据库(查询内容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
subsel()
dsn="FILEDSN=acces.dsn"'dacces.dsn为mdb文件的dsn
setcnn=server.createobject("ADODB.Connection")'建立ADO对象
cnn.opendsn'打开当前目录下的dsn文件（dsn为access文件的dsn）
'送出操作，并得到结果
sql="select*fromuser"'构造SQL语句
setrs=cnn.Execute(sql)'送出SQL
'一个循环把记录集中的记录内容全部输出
whilenotrs.eof
values=rs("name")
response.writevalues&"<br>"
rs.movenext
wend
rs.close
cnn.close
setcnn=nothing
endsub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段为操纵数据库(修改内容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
submodi()
dsn="FILEDSN=acces.dsn"'dacces.dsn为mdb文件的dsn
setcnn=server.createobject("ADODB.Connection")'建立ADO对象
cnn.opendsn'打开当前目录下的dsn文件（dsn为access文件的dsn）
sql="updateusersetname='这是程序'wherename='A'"'构造修改SQL语句
cnn.Executesql'送出SQL
cnn.close
setcnn=nothing
endsub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段为操纵数据库(删除内容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
subdel()
dsn="FILEDSN=acces.dsn"'dacces.dsn为mdb文件的dsn
setcnn=server.createobject("ADODB.Connection")'建立ADO对象
cnn.opendsn'打开当前目录下的dsn文件（dsn为access文件的dsn）
sql="deletefromuserwherename='B'"'构造删除SQL语句
cnn.Executesql'送出SQL
cnn.close
setcnn=nothing
endsub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下段为操纵数据库(添加内容)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
subadd()
dsn="FILEDSN=acces.dsn"'dacces.dsn为mdb文件的dsn
setcnn=server.createobject("ADODB.Connection")'建立ADO对象
cnn.opendsn'打开当前目录下的dsn文件（dsn为access文件的dsn）
'sql="insertintouser(name,sex,note)values('tt','tt','tt')"'构造添加SQL语句
'cnn.Executesql'送出SQL
cnn.close
setcnn=nothing
endsub
%>