Asp使用SQL操作数据库实例

baacloud免费翻墙vpn注册使用

用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 & "

cnn.close '关闭连接
response.write”数据库已经关闭” & cnn.state & “

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 & “

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

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏