asp连接mysql数据库增删查_asp连接sql数据库的增删改查完整代码

展开全部

dim conn,db

dim connstr

db="db.mdb" ' access数据库文件路径

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath(""&db&"")&";Persist Security Info=False;"

set conn=server.createobject("ADODB.CONNECTION")

'连接数据库

conn.open connstr 'open datebase

'数据库结构

'文件名db.mdb

'表名admin

'字段id，自动编号

'字段username，文本

'字段userpass，文本

' 增

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin"

Rs.open Sql,conn,1,3

Rs.addnew

Rs("username")="用户名"

Rs("userpass")="用户密码32313133353236313431303231363533e59b9ee7ad9431333365656564"

Rs.update

Rs.close

set Rs=nothing

response.Write ""

' 删

s_id=1 '假设有个用户数据的id为1

Sql="delete * from admin where id="&s_id&""

set Rs=server.CreateObject("ADODB.recordset")

rs.open Sql,conn,1,3

response.Write("")

rs.close

set Rs=nothing

' 改

s_id=1 '假设有个用户数据的id为1

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin where id="&s_id&""

Rs.open Sql,conn,1,3

if Rs.eof and Rs.bof then

Rs.close

set Rs=nothing

response.Write("")

else

Rs("Password")="新密码"

Rs.update

Rs.close

set Rs=nothing

response.Write ("")

End If

' 查单个

s_username="admin" '假设有个用户名为admin的用户数据

set Rs=server.createobject("adodb.recordset")

Sql="select * from admin where username='"&s_username&"'"

Rs.open Sql,conn,1,3

if Rs.eof and Rs.bof then

Rs.close

set Rs=nothing

response.Write("")

else

s_name=Rs("username")

s_pass=Rs("userpass")

Rs.close

set Rs=nothing

' 输出查询到的信息

response.Write ("")

End If

' 查列表

set Rs=server.CreateObject("Adodb.recordset")

sql="select * from admin order by id desc"

Rs.open sql,conn,1,1

if not Rs.eof then

' 循环输出查询到的信息

do while not Rs.eof

response.Write "id："&Rs("id")&",用户名："&Rs("username")&",密码："&Rs("userpass")&"
"

Rs.movenext

loop

end if

Rs.close

set Rs=nothing

' 使用完数据库后要关闭连接资源

conn.close

set conn=nothing

%>