asp+access实现增删改查
生活随笔
收集整理的這篇文章主要介紹了
asp+access实现增删改查
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
最近了解了下asp,踩了不少坑,就想著記錄下,方便以后查看。誰說編程語言大部分一樣的,其實還是有區別的。作為小白的我就遇到很多語法問題,多虧了有兩位大佬知道。
后臺開發技術使用asp,數據庫采用access,實現增刪改查
1.添加
先寫一個添加頁面,如下圖
添加頁面的代碼如圖:
使用asp需要給input框起一個name值,如框內所示,后面后講到。
接下來,獲取用戶輸入的值,添加到數據庫。
第一步:與數據庫建立連接。
<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/Data21293/NYIKUGY5434231.mdb") '實際存放數據庫文件路徑 %> 第二步:獲取input值,執行sql語句。至此添加就已經完成了。 <% username=trim(request.form("username1")) password=trim(request.form("password1")) render=trim(request.form("render1")) Set Rs = Server.CreateObject("ADODB.Recordset") exec="insert into web_users(username,password,render) values('"+username+"','"+password+"','"+render+"')" conn.execute(exec) conn.close set conn=nothing </script>" %> 需要注意的是:sql語句中,參數'"+username+"',要用單引號以辨別是字符串類型。2.查詢
效果圖如下:
首先:與數據庫建立連接,添加的時候寫過了,就不再寫了。主要講如何查詢展示:
<%set rs=server.createobject("adodb.recordset")sql="select * from web_users" %> <%for i=0 to rs.pagesize-1if rs.bof or rs.eof then exit for %> <tr><td><p style="text-align: center;"><%=rs("id")%></p></td> </tr><%rs.movenext()next%><%conn.close()%>查詢循環展示以后,記得關閉數據庫連接。至此查詢展示完成
3.刪除
刪除比較簡單,只要獲取該數據的id就可以了。
<a style="color: #c06b6b;" href="javascript:if(confirm('確定刪除嗎')){location.href='/del_emp.asp?id=<%=rs("id")%>';}else{}">刪除 </a>這樣將該行id當參數帶入進來,獲得該id,執行sql語句就可以了。
<% id=request.QueryString("id") set rs1 = server.CreateObject("adodb.recordset") rs1.open "delete from web_users where id="&id&"",conn,1,1 response.Write "<script language='javascript'>location.href='/emp.asp';</script>" %>4.修改
? ? 修改比較復雜,首先需要獲取對應id,通過該id在數據庫里查詢出數據,放在類似于添加的一個表單里。然后獲取到input框的值,再執行update更新。
<%id=request.QueryString("id")set rs1 = server.CreateObject("adodb.recordset")rs1.open "select * from web_users where id="&id&"",conn,1,1 %>通過以上代碼獲取到該id數據,再放在input里。
上面步驟是獲得要修改的行對應的數據,現在開始修改,然后點擊修改。執行我們的修改action,類似于我們的添加,獲取表單數據,執行的sql語句換為修改即可:
<%id=request.QueryString("id")username=request.form("username")password=request.form("password")render=request.form("render")set rs = server.CreateObject("adodb.recordset") '打開數據庫表sql="update web_users set username='"&username&"',password='"&password&"',render='"&render&"' where id="&id&""rs.open sql,conn,1,3 response.Write "<script language='javascript'>location.href='/emp.asp'</script>" %>至此:簡單的增刪改查就完成了!
有什么問題都可以留言哦,樂意為你解決問題。后續更新搜索功能和分頁!
總結
以上是生活随笔為你收集整理的asp+access实现增删改查的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 手把手教你开发列举网自动发帖软件!神器哈
- 下一篇: SAP论坛收集