各位,我做ASP有两个页面不会实现,很简单就是修改和删除页面。代码都有了。数据库文件也有。就是想请人帮忙改正确。
答谢金100元。我自己完全不会做,老板又想我做,我只好出此下策了。
如果有人愿意,我就把代码放上来。真的很简单,但是我只是只菜鸟,自己以后也不想朝网页制作方向发展。现在只是为了应付下目前的困境。
哈哈 什么样的网页可以拿出来看一下!~
这是我做的``简单了点``不过功能都能实现 你看看吧``
数据的删除
学生学号 学生姓名 学生性别 数学成绩 语文成绩 英语成绩 操作
ASP ASP ASP ASP ASP ASP 删除
<body>
<body>
<% set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
set rs=conn.execute("select * from grade")
%>
<table width="578" height="56" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="86"><div align="center">学生学号</div></td>
<td width="86"><div align="center">学生姓名</div></td>
<td width="86"><div align="center">学生性别</div></td>
<td width="86"><div align="center">数学成绩</div></td>
<td width="86"><div align="center">语文成绩</div></td>
<td width="86">英语成绩</td>
<td width="46"><div align="center">操作</div></td>
</tr>
<% while not rs.eof %>
<tr>
<td><div align="center"><%= rs("学号ID")%></div></td>
<td><div align="center"><%= rs("姓名")%></div></td>
<td><div align="center"><%= rs("性别")%></div></td>
<td><div align="center"><%= rs("数学")%></div></td>
<td><div align="center"><%= rs("语文")%></div></td>
<td><div align="center"><%= rs("英语")%></div></td>
<td><div align="center"><a href=006.asp?id=<%=rs("学号ID")%> > 删除 </a> </div></td>
</tr>
<%
rs.movenext()
wend
conn.close()
%>
</table>
</body>
006.asp
<body>
<%
set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
id=request.QueryString("id")
sql="delete from grade where 学号ID=" & id
conn.execute(sql)
conn.close()
response.write"删除成功请<a href=005.asp>返回</a>"
%>
</body>
用表单删除数据
删除数据代码:008.asp
<body>
<%
set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
set rs=conn.execute("select * from grade")
xhid=request.form("xhid")
sql="delete from grade where 学号ID=" & xhid
conn.execute(sql)
conn.close()
response.write"删除成功请<a href=007.asp>返回</a>"
%>
</body>
数据的更新
学生学号 学生姓名 学生性别 数学成绩 语文成绩 英语成绩 操作
ASP ASP ASP ASP ASP ASP 更新
<body>
<% set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
set rs=conn.execute("select * from grade")
%>
<table width="595" height="56" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="86"><div align="center">学生学号</div></td>
<td width="86"><div align="center">学生姓名</div></td>
<td width="86"><div align="center">学生性别</div></td>
<td width="86"><div align="center">数学成绩</div></td>
<td width="86"><div align="center">语文成绩</div></td>
<td width="86">英语成绩</td>
<td width="63"><div align="center">操作</div></td>
</tr>
<% while not rs.eof %>
<tr>
<td><div align="center"><%= rs("学号ID")%></div></td>
<td><div align="center"><%= rs("姓名")%></div></td>
<td><div align="center"><%= rs("性别")%></div></td>
<td><div align="center"><%= rs("数学")%></div></td>
<td><div align="center"><%= rs("语文")%></div></td>
<td><div align="center"><%= rs("英语")%></div></td>
<td><div align="center"><a href=010.asp?id=<%=rs("学号ID")%> > 更新 </a> </div></td>
</tr>
<%
rs.movenext()
wend
conn.close()
%>
</table>
</body>
更新界面:010.asp
%>
set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
id=request.QueryString("id")
set rs=conn.execute("select * from grade where 学号ID=" & id)
%>
<form name="form1" method="post" action="011.asp?id=<%=rs("学号ID")%>">
011.asp
<body>
<%
set conn=server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("student.mdb"))
id=request.QueryString("id")
sx=request.form("sx")
sql="update grade set 数学='" & sx & "'where 学号ID=" & id
conn.Execute(sql)
conn.close
response.write"更新成功请<a href=009.asp>返回</a>"
%>
</body>