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