你提交了一个信息，但是你发现有错？该怎么办?难道删除掉，重新添加？
下面我们学学如何修改数据库资料：
首先我们在DEL.asp建立一个修改链接
“修改”链接到 edit.asp?id=<%=rs("id")%> ，这其中edit.asp是我们后面需要建立的文件。
接着我们就要建立edit.asp来接受del.asp赋值过来的数据库了。
我们要制作一个下面效果的页面
排版这样的布局相信大家都会了，那么就说一下主要的：
----------------------------------------------------------
这段代码放在网页代码头部：
<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db1.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
id=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from info where id="&id
rs.open sql,conn,1,1
%>
----------------------------------------------------------
前三行代码就不说了
id=request("id") 表示取得赋值过来的ID
set rs=server.CreateObject("adodb.recordset")
sql="select * from info where id="&id
rs.open sql,conn,1,1
表示查询info表id字段里面的某个ID
接着我们就要在表格对应的里面建立文本域用来显示信息
<body></body>里面代码如下：
----------------------------------------------------------------
<table width="350" border="0" cellpadding="6" cellspacing="1" bgcolor="#D6E0EF">
<tr>
<td colspan="2" bgcolor="#698CC3"><div align="center" class="STYLE9">数据修改</div></td>
</tr>
<form name="form1" action="editok.asp?id=<%=id%>" method="post">
<tr>
<td width="86" bgcolor="#FFFFFF"><div align="center"><span class="STYLE5">姓名</span></div></td>
<td width="237" bgcolor="#FFFFFF"><input name="name" type="text" id="name" value="<%=rs("name")%>" /></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center" class="STYLE5">地址</div></td>
<td width="237" bgcolor="#FFFFFF"><input name="addr" type="text" id="addr" value="<%=rs("addr")%>" /></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><div align="center">
<input type="submit" name="Submit" value=" 修改 " />
</div>
</td>
</tr>
</form>
</table>
----------------------------------------------------------------
要注意name值别出错
<%=rs("name")%> 和 <%=rs("addr")%> 是用来显示内容的.
<form name="form1" action="editok.asp?id=<%=id%>" method="post"> 表示把内容提交到editok.asp处理，并且注明 id=多少
现在我们就要建立editok.asp文件用来接收修改信息。
editok.asp只是代码，不需要建立表格之类的,代码如下：
----------------------------------------------------------------
<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("db1.mdb")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
id=trim(request("id"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from info where id="&id
rs.open sql,conn,1,3
rs("name")=request.form("name")
rs("addr")=request.form("addr")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script>
----------------------------------------------------------------
id=trim(request("id")) 取得要修改信息的ID
sql="select * from info where id="&id 取得与数据库ID的链接
rs("name")=request.form("name")
rs("addr")=request.form("addr")
rs.update
rs.close
表示将数据库现在的内容换成修改的内容
<script lanaguage="javascript">{window.alert('修改成功!请返回!');window.location.href='del.asp'}</script>
给与修改后的提示
到此为止，本教程完全结束。
|
http://127.0.0.1/test.asp
