第五部分，frontpage+Access数据库的修改
现在进入最后一节了，经过几天的努力我要进入最后的章节了，是在是激动啊。接下来要说的就是如何利用frontpage进行access数据库中数据的修改了。
第一步，当然也是添加网页之类的了，着了我就不再详细复述如何添加了，因为前面几节都讲的十分的清楚了呵呵。这里就简单的讲下，要新建一个edit.htm网页，一个edit.asp网页和一个modify.asp网页。首先在这里和大家说下，不好意思，在前面的几个节里面有一个地方没有讲清楚，就是数据库的里面，先不要有自动编号的那一栏，有的可以重新删掉，然后重新添加下数据库就可以了，这个很快的。
按上面说的建完网页:
Edit.htm代码如下：
<body>
<form name="form1" method="post" action="edit.asp">
请输入要修改的学号：
<input type="text" name="id">
<br>
<input type="submit" name="submit" value="提交">
</form>
</body>
Edit.asp代码如下（这些多亏了网友的热热心帮助才有了这个结果啊，我也是个新手，为了大家一起进步才写的这些内容，希望对大家有帮助啊）
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("fpdb/lianxi1.mdb")
temp=Request.Form("id")
exec="select * from lianxibiao1 where 学号='"&temp&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="modify.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="16"><b>学号</b></td>
<td height="16"><b>姓名</b></td>
<td height="16"><b>学习类型</b></td>
<td height="16"><b>学院</b></td>
<td height="16"><b>专业</b></td>
<td height="16"><b>联系电话</b></td>
</tr>
<tr>
<td>
<input type="text" name="xuehao" value="<%=rs("学号")%>">
</td>
<td>
<input type="text" name="xm" value="<%=rs("姓名")%>">
</td>
<td>
<input type="text" name="xuexilx" value="<%=rs("学习类型")%>">
</td>
<td>
<input type="text" name="xueyuan" value="<%=rs("学院")%>">
</td>
<td>
<input type="text" name="zhuanye" value="<%=rs("专业")%>">
</td>
<td>
<input type="text" name="dianhua" value="<%=rs("联系电话")%>">
</td>
</tr>
<tr>
<td>
<input type="submit" name="Submit" value="提交">
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
最后是modify.asp代码
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("fpdb/lianxi1.mdb")
exec="select * from lianxibiao1 where 学号='"&Request.Form("xuehao")&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
if (rs.eof and rs.bof) Then
Response.Write "没有" & Request.Form("xuehao")
Else
rs("姓名")=Request.Form("xm")
rs("学习类型")=Request.Form("xuexilx")
rs("学院")=Request.Form("xueyuan")
rs("专业")=Request.Form("zhuanye")
rs("联系电话")=Request.Form("dianhua")
rs.update
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%response.write "修改成功!"%>
</body>
然后我们看看结果吧！
点击提交出现如下界面：
然后可以再框框里面进行修改了，改后点击提交就可以了。呵呵！！！修改成功后输出OK!!
终于结束了！！！祝大家好运！！！
记得分享要注明出处啊。我写的不容易啊~~~支持下啊~~~~LZM
426
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
