最近了解了下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-1
    if 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>"
%>

至此：簡單的增刪改查就完成了！

有什麼問題都可以留言哦，樂意為你解決問題。後續更新搜尋功能和分頁！