UC知道asp 到底那里错了
来源：百度知道 编辑：UC知道 时间：2024/06/05 09:11:00
<!--#include file="lj.asp"-->
<%
Set rs= Server.CreateObject("ADODB.recordset") '创建打开对象
rs.open "ly",lj,1,1
Do until rs.eof
Response.Write(rs("nr")&"<a href='b.asp?id='<%=rs('id')%>' onclick=a()>删除</a><br>") '输出<a href="del.asp?id=<%=rsu("id")%>
Rs.movenext
Loop
rs.close '关闭对象
set rs=nothing '释放资源
lj.close
set lj=nothing %>
<script language="vbscript">
sub a()
x=msgbox ("您确定要删除？",1+32)
if x=vbok then
set rs=server.createobject("adodb.recordset")
sql="delete from ly where nr="&request("nr")
rs.open sql,lj,1,1
else
msgbox "取消"
end if
end sub
</script>
<%
Set rs= Server.CreateObject("ADODB.recordset") '创建打开对象
rs.open "ly",lj,1,1
Do until rs.eof
Response.Write(rs("nr")&"<a href='b.asp?id='<%=rs('id')%>' onclick=a()>删除</a><br>") '输出<a href="del.asp?id=<%=rsu("id")%>
Rs.movenext
Loop
rs.close '关闭对象
set rs=nothing '释放资源
lj.close
set lj=nothing %>
<script language="vbscript">
sub a()
x=msgbox ("您确定要删除？",1+32)
if x=vbok then
set rs=server.createobject("adodb.recordset")
sql="delete from ly where nr="&request("nr")
rs.open sql,lj,1,1
else
msgbox "取消"
end if
end sub
</script>
rs.open "ly",lj,1,1 '改为
rs.open "select * from ly",lj,1,1
Response.Write(rs("nr")&"<a href='b.asp?id='<%=rs('id')%>' onclick=a()>删除</a><br>") '改为
Response.Write(rs("nr")&"<a href='b.asp?id="&rs("id")&"' onclick=a()>删除</a><br>")
rs.open "ly",lj,1,1
其中的"ly"是sql语句么？
可页面代码里你没写sql语句呐，
你只创建了打开对象，但没些打开那个表。
要么是
rs.open "select * from 表名",lj,1,1
或者是
sql="select * from 表名"
rs.open sql,lj,1,1