为什么只能显示第一条信息??为什么不能删除???

fkueyga6 2008-12-07 05:10:42
为什么只能显示第一条信息??为什么不能删除???
<!--#include file="Ft_admin_conn.asp"-->
<!--#include file="Ft_admin_top.asp"-->
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="6" align="center" class="td_title">报 名 列 表</td>
</tr>
<tr class="tablebody">
<td width="8%"><div align="center">编号</div></td>
<td width="15%"><div align="center">学生姓名</div></td>
<td width="24%"><div align="center">就读学校</div></td>
<td width="25%"><div align="center">报名科目</div></td>
<td width="15%"><div align="center">报名时间</div></td>
<td width="13%"><div align="center">操作</div></td>
</tr>
<%
sql="select * from bmxx"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1
%>
<script>
function del(cs){
if (window.confirm("信息删除后将无法恢复!确定删除?")){
location.href='del_bmxx.asp?page=<%=page%>&id='+cs
}
}
</script>
<tr class="tablebody">
<td><div align="center"><%=rs("id")%></div></td>
<td><div align="center"><%=rs("user_name")%></div></td>
<td><div align="center"><%=rs("school_name")%></div></td>
<td><div align="center"><%=rs("father_name")%></div></td>
<td><div align="center"><%=rs("datetime")%></div></td>
<td><div align="center">查看 <a href="#" onMouseDown="del(<%=rs("id")%>)">删除</a></div></td>
</tr>
</table>
<!--#include file="Ft_admin_bottom.asp"-->

删除代码如下:
<!--#include file="Ft_admin_conn.asp"-->
<%
rs.open "delete * from bmxx where id="&request("id"),conn,1
response.write"<SCRIPT language=JavaScript>alert('报名学生信息删除成功!');"
response.write"location.href='bmxx_config.asp?page="&request("page")&"';</SCRIPT>"
%>
...全文
112 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fkueyga6 2008-12-08
  • 打赏
  • 举报
回复
太感谢了,
wusongping 2008-12-07
  • 打赏
  • 举报
回复
楼上正解

只有一条记录 是因为你没有做循环取记录集

<%
do while not rs.eof
%>
。。。。。。。
<%
rs.movenext
loop
%>


没有删除是你没有执行sql 的删除语句
<%
set sql="delete from table where 字段=xxx"
conn.execute (sql)
%>
sy_binbin 2008-12-07
  • 打赏
  • 举报
回复
<!--#include file="Ft_admin_conn.asp"-->
<!--#include file="Ft_admin_top.asp"-->
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="6" align="center" class="td_title">报 名 列 表 </td>
</tr>
<tr class="tablebody">
<td width="8%"> <div align="center">编号 </div> </td>
<td width="15%"> <div align="center">学生姓名 </div> </td>
<td width="24%"> <div align="center">就读学校 </div> </td>
<td width="25%"> <div align="center">报名科目 </div> </td>
<td width="15%"> <div align="center">报名时间 </div> </td>
<td width="13%"> <div align="center">操作 </div> </td>
</tr>
<%
sql="select * from bmxx"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1
%>
<script>
function del(cs){
if (window.confirm("信息删除后将无法恢复!确定删除?")){
location.href='del_bmxx.asp?page= <%=page%>&id='+cs
}
}
</script>
<%
do while not rs.eof
%>
<tr class="tablebody">
<td> <div align="center"> <%=rs("id")%> </div> </td>
<td> <div align="center"> <%=rs("user_name")%> </div> </td>
<td> <div align="center"> <%=rs("school_name")%> </div> </td>
<td> <div align="center"> <%=rs("father_name")%> </div> </td>
<td> <div align="center"> <%=rs("datetime")%> </div> </td>
<td> <div align="center">查看 <a href="#" onMouseDown="del( <%=rs("id")%>)">删除 </a> </div> </td>
</tr>
<%
rs.movenext
loop
rs.close
%>

</table>
<!--#include file="Ft_admin_bottom.asp"-->



删除代码
<!--#include file="Ft_admin_conn.asp"-->
<%
conn.execute("delete from bmxx where id="&request("id"))
response.write" <SCRIPT language=JavaScript>alert('报名学生信息删除成功!');"
response.write"location.href='bmxx_config.asp?page="&request("page")&"'; </SCRIPT>"
%>
本文基于中国A股上市企业数据,分析了逻辑型和学习型AI技术应用对企业创新的影响。通过机器学习生成AI词典并分析年报文本,测量AI应用水平。研究发现,AI应用通过增加知识多样性、打破组织惯例和提高资源配置效率促进企业创新,且企业的吸收能力增强了这一促进作用 参照李玉花(2024)的做法,团队对来自中国工业经济《人工智能技术应用如何影响企业创新》一文中的基准回归部分进行复刻 团队将原文数据更新至2023年,并对基准回归进行复刻。数据年份为2007-2023年,包括原始数据、处理dofile,基准回归代码 一、数据介绍 数据名称:人工智能技术应用如何影响企业创新 数据范围:A股上市公司 数据年份:2007-2023年 有效样本:33615条 数据说明:参考《管理世界》中姚加权(2024)的做法,测算人工智能水平 内含原始数据、dofile和基准回归 二、数据指标 股票代码 股票简称 年份 省份 城市 区县 省份代码 城市代码 区县代码 行业代码 行业名称 企业上市年龄_年 是否ST或金融类 总资产_万元 营业收入增长率_% 资产负债率_% 总资产收益率_% 研发投入占营业收入比例_% 人工智能词频和 人工智能词频和加1取对数 企业专利申请总量 企业发明专利申请量 企业专利授权总量 企业发明专利授权量 三、参考文献 李玉花,林雨昕,李丹丹.人工智能技术应用如何影响企业创新[J].中国工业经济,2024,(10):155-173.

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧