| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 602 人关注过本帖
标题:[求助]修改和删除页面功能实现
只看楼主 加入收藏
clarksjtv
Rank: 1
等 级:新手上路
帖 子:98
专家分:0
注 册:2007-5-28
收藏
 问题点数:0 回复次数:4 
[求助]修改和删除页面功能实现

各位,我做ASP有两个页面不会实现,很简单就是修改和删除页面。代码都有了。数据库文件也有。就是想请人帮忙改正确。

答谢金100元。我自己完全不会做,老板又想我做,我只好出此下策了。

如果有人愿意,我就把代码放上来。真的很简单,但是我只是只菜鸟,自己以后也不想朝网页制作方向发展。现在只是为了应付下目前的困境。

搜索更多相关主题的帖子: 网页制作 数据库 页面 删除 
2007-07-09 16:24
绝地逢生
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2007-7-8
收藏
得分:0 

哈哈 什么样的网页可以拿出来看一下!~


2007-07-09 16:59
jiushini50
Rank: 1
等 级:新手上路
帖 子:119
专家分:0
注 册:2007-4-3
收藏
得分:0 
拿出来看看啊,要不都不知道怎么搞定
2007-07-09 17:29
mjb115889
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-6-11
收藏
得分:0 
修改和删除
主要是传值和SQL语句
2007-07-09 19:42
qglove
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-6-30
收藏
得分:0 

这是我做的``简单了点``不过功能都能实现 你看看吧``


数据的删除
学生学号 学生姓名 学生性别 数学成绩 语文成绩 英语成绩 操作
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>


2007-07-10 10:37
快速回复:[求助]修改和删除页面功能实现
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017175 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved