sql增删改查代码

『壹』 asp连接sql数据库的增删改查完整代码

<%
dimconn,db
dimconnstr
db="db.mdb"'access数据库文件路径
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath(""&db&"")&";PersistSecurityInfo=False;"
setconn=server.createobject("ADODB.CONNECTION")

'连接数据库
conn.openconnstr'opendatebase

'数据库结构
'文件名db.mdb
'表名admin
'字段id，自动编号
'字段username，文本
'字段userpass，文本

'增
setRs=server.createobject("adodb.recordset")
Sql="select*fromadmin"
Rs.openSql,conn,1,3
Rs.addnew
Rs("username")="用户名"
Rs("userpass")="用户密码"
Rs.update
Rs.close
setRs=nothing
response.Write"<scriptlanguage='javascript'>alert('管理员增加成功!');'</script>"

'删
s_id=1'假设有个用户数据的id为1
Sql="delete*fromadminwhereid="&s_id&""
setRs=server.CreateObject("ADODB.recordset")
rs.openSql,conn,1,3
response.Write("<script>alert('帐号删除成功！');</script>")
rs.close
setRs=nothing

'改
s_id=1'假设有个用户数据的id为1
setRs=server.createobject("adodb.recordset")
Sql="select*fromadminwhereid="&s_id&""
Rs.openSql,conn,1,3
ifRs.eofandRs.bofthen
Rs.close
setRs=nothing
response.Write("<scriptlanguage='javascript'>alert('此用户不存在!');history.back();</script>")
else
Rs("Password")="新密码"
Rs.update
Rs.close
setRs=nothing
response.Write("<scriptlanguage='javascript'>alert('密码修改成功!');</script>")
EndIf

'查单个
s_username="admin"'假设有个用户名为admin的用户数据
setRs=server.createobject("adodb.recordset")
Sql="select*fromadminwhereusername='"&s_username&"'"
Rs.openSql,conn,1,3
ifRs.eofandRs.bofthen
Rs.close
setRs=nothing
response.Write("<scriptlanguage='javascript'>alert('此用户不存在!');history.back();</script>")
else
s_name=Rs("username")
s_pass=Rs("userpass")
Rs.close
setRs=nothing

'输出查询到的信息
response.Write("<scriptlanguage='javascript'>alert('你查询的用户名"&s_name&"的密码为："&s_pass&"');</script>")
EndIf

'查列表
setRs=server.CreateObject("Adodb.recordset")
sql="select*fromadminorderbyiddesc"
Rs.opensql,conn,1,1
ifnotRs.eofthen

'循环输出查询到的信息
dowhilenotRs.eof
response.Write"id："&Rs("id")&",用户名："&Rs("username")&",密码："&Rs("userpass")&"<br/>"
Rs.movenext
loop

endif
Rs.close
setRs=nothing


'使用完数据库后要关闭连接资源
conn.close
setconn=nothing
%>