初学asp 简单增删改查小例子

来源：互联网发布：2016网络信息安全事件编辑：程序博客网时间：2024/05/18 00:08

一、创建conn.asp

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("db1.mdb")
%>

二、先做一个添加吧

1、首先做个添加页面addUser.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

2、addUser_pass.asp页面

<%
'接收表单传递过来的参数
sname=request.Form("sname")
sage=request.Form("sage")
saddress=request.Form("saddress")
'可以使用指针操作去实现
'set rs=server.CreateObject("adodb.recordset")
'sql="select * from stuinfo"
'rs.open sql,conn,1,3
'rs.addnew
'rs("sname")=sname
'rs("sage")=sage
'rs("saddress")=saddress
'rs.update
'rs.close
'也可以用sql语句去实现
sql="insert into stuinfo(sname,sage,saddress) values('"+sname+"',"+sage+",'"+saddress+"')"
conn.execute sql
conn.close
set conn=nothing
response.Redirect("UserList.asp")

三、现在把添加的数据查出来

1、UserList.asp页面用来显示信息，同时我们把删除和修改按钮加上

<%
sql="select * from stuinfo"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户信息显示</title>
</head>
<body>
<table width="98%" border="1" cellspacing="0" cellpadding="0">
<tr>
    <td>姓名</td>
    <td>年龄</td>
    <td>地址</td>
<td>操作</td>
</tr>
<%do while not rs.eof%>
<tr>
    <td><%=rs("sname")%></td>
    <td><%=rs("sage")%></td>
    <td><%=rs("saddress")%></td>
    <td>
<a href="delUser_pass.asp?id=<%=rs("id")%>">删除</a>
<a href="editUser.asp?id=<%=rs("id")%>">修改</a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html>

四、该做删除delUser.asp页面了

<%
id=trim(request.QueryString("id"))

'sql语句执行
sql="delete * from stuinfo where id="&id
conn.execute(sql)
conn.close
set conn=nothing

'指针操作

'set rs=server.CreateObject("adodb.recordset")
'sql="select * from stuinfo where id="&id
'rs.open sql,conn,2,3
'rs.delete
'rs.update
response.Write("<script>alert('删除成功！');window.location.href='UserList.asp'</script>")

%>
五、修改了

1、editUser.asp页面

<%
id =request("id")
'修改赋值
sql="select * from stuinfo where id="&id
set rs=conn.execute(sql)
if not rs.eof then
end if

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

</form>
</body>
</html>
2、editUser_pass.asp页面

<%
id =request.QueryString("id")

'修改提交
sname=request.Form("sname")
sage=request.Form("sage")
saddress=request.Form("saddress")
sqledit="update stuinfo set sname='"&sname&"',sage="&sage&",saddress='"&saddress&"' where id="&id
conn.execute sqledit
response.Write("<script>alert('修改成功');window.location.href='UserList.asp'</script>")
response.End()
%>