ASP用复选框删除的问题!
来源:百度知道 编辑:UC知道 时间:2024/05/14 16:30:28
<!-- #include file="conn.asp" -->
<% set rs=server.CreateObject("adodb.recordset")
exec="select * from news order by nclass asc,id desc"
rs.pagesize=10
rs.open exec,conn,3,2
%>
<%
do while not rs.eof
%>
是否删除:
<%if rs("delete")=-1 then%>
<input type="checkbox" name="<%=rs("id")%>" value="on">
<%else%>
<input type="checkbox" name="<%=rs("id")%>" value="off">
<%end if%>
<%
rs.movenext
loop
%>
<input type="submit" value="提 交" name="B1">
<input type="reset" value="清 除" name="B2">
</form>
-----------------------------------------------------------------
<% set rs=server.CreateObject("adodb.recordset")
exec="select * from news order by nclass asc,id desc"
rs.pagesize=10
rs.open exec,conn,3,2
%>
<%
do while not rs.eof
%>
是否删除:
<%if rs("delete")=-1 then%>
<input type="checkbox" name="<%=rs("id")%>" value="on">
<%else%>
<input type="checkbox" name="<%=rs("id")%>" value="off">
<%end if%>
<%
rs.movenext
loop
%>
<input type="submit" value="提 交" name="B1">
<input type="reset" value="清 除" name="B2">
</form>
-----------------------------------------------------------------
你的程序本身就不对吧?
rs("delete")=-1 代表什么呢???每删除了一条数据,再把delete字段写入"-1"???不可能吧....或者是代表默认删除的对象?
●附:如果你真的确认你的程序设计没问题,那么请尝试修改一些书写方式:
[01]
if request.form(n)="OFF" then
改成:
if tirm(ucase(request.form(n)))="OFF" then
[02]
<%
do while not rs.eof
%>
前面添加上一个<form>表签?
我的一个实例
-----------删除核心代码----------------
selectid=request.form("isDel")
if selectid<>"" then
selectid = Replace(selectid,",",",")
For Each selectid in Split(selectid,",")
set rs=server.CreateObject("adodb.recordset")
rsStr="select * from info where info_id ="&selectid
rs.open rsStr,MM_conn_STRING,1,3
rs.delete
rs.update
rs.close
set rs=nothing
next
response.Write "<script LANGUAGE='javascript'>alert('信息删除成功');window.