基本创建网站的代码：添加，修改，删除_怎么在网站源码里面添加删除文字-CSDN博客

本文链接：https://blog.csdn.net/hong0jing/article/details/5662345

添加记录

</form>

添加保存记录：

<%
set rs=server.createobject("adodb.recordset")
sql="select name,xh,sex,nl,dh from form"'

rs.open sql,conn,1,3'
rs.addnew'添加记录
id=request.form("id")
name=request.form("name")
xh=request.form("xh")
sex=request.form("sex")

nl=request.form("nl")

dh=request.form("dh")'

rs("name")=name
rs("xh")=xh
rs("sex")=sex
rs("nl")=nl'
rs("dh")=dh'
rs.update'更新数据库中的数据
rs.close'关闭记录集
set rs=nothing'释放记录集
conn.close'关闭数据库链接
set coon=nothing'释放数据库链接这样可以节省服务器端的内存
%>
<meta http-equiv="refresh" content="1;url=xx.asp">

修改记录：

<%
id=request("id")'将表单中名为user的文本域的值传递给变量user

set rs=server.createobject("adodb.recordset")
Sql = "Select * From form Where id="&id
rs.open sql,conn,1,1

%>
<form id="form1" name="form1" method="post" action="xiugai2.asp">
<table width="31%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FF0000">
<tr>
    <td width="100">姓名</td>
    <td width="184">
<input type="hidden" name="id" value="<%=rs("id")%>" />
      <input type="text" name="name" value="<%=rs("name")%>" />    </td>
</tr>
<tr>
    <td>学号</td>
    <td><input type="text" name="xh" value="<%=rs("xh")%>"/></td>
</tr>
<tr>
    <td>性别</td>
    <td><input type="text" name="sex" value="<%=rs("sex")%>"/></td>
</tr>
<tr>
    <td>年龄</td>
    <td><input type="text" name="nl" value="<%=rs("nl")%>"/></td>
</tr>
<tr>
    <td>电话</td>
    <td><input type="text" name="dh" value="<%=rs("dh")%>"/></td>
</tr>

<tr>
    <td><input name="textfield" type="submit" value="提交" /></td>
    <td><input type="reset" value="取消" /></td>
</tr>
</table>

</form>

修改后保存记录：

<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select name,xh,sex,nl,dh from form where id="&id'

rs.open sql,conn,1,3'

id=request.form("id")
name=request.form("name")'
xh=request.form("xh")'
sex=request.form("sex")'

nl=request.form("nl")'
dh=request.form("dh")'

rs("name")=name
rs("xh")=xh
rs("sex")=sex
rs("nl")=nl
rs("dh")=dh
rs.update
rs.close'关闭记录集
set rs=nothing'释放记录集
conn.close'关闭数据库链接
set coon=nothing'释放数据库链接这样可以节省服务器端的内存
%>
<meta http-equiv="refresh" content="1;url=xx.asp">

删除记录：

<% '删除留言
id = Request("id")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From form Where id= "&id
Rs.Open Sql,conn,3,3

Rs.Delete
Rs.Update
Rs.Close
Set Rs = nothing
%>
<meta http-equiv="refresh" content="1;url=xx.asp">
<html>
<head>
<title>删除成功！</title>
</head>
<body>
删除成功
</body>
</html>