第五部分,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