为何这样写无法删除纪录？

wawowawoo 2006-04-27 01:25:48

每条记录前有一个checkbox,我要实现如下的功能:
如果没有选择checkbox,点击删除的话会提示"请选择一条记录!"
如果选择了checkbox,点击删除会将此纪录删除,具体该怎么实现?下面的代码错在了哪里?多谢!

<script language="vbscript" runat="server">
function deleteuser()
dim sql,rs
set rs = server.CreateObject("adodb.recordset")
if request.form("checkbox") = "" then
response.write("请选择一个用户!")
else
sql = "delete from admin where username='" & request.form("checkbox") & "'"
rs.open sql,conn,1,3
'conn.execute(sql)
</script>

...全文

242 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

wawowawoo 2006-04-27

打赏
举报

在一个页面中选择了checkbox，选择的这个值在下一个页面中该如何调用？不是以表单的形式传送的

mhxz5680 2006-04-27

打赏
举报

处理页面:


<% dim sql,rs
set rs=server.CreateObject("adodb.recordset")
if request.querystring("checkbox")="" then
response.write"<script language='javascript'>alert('请选择一个用户!');history.go(-1);</script>"
else
sql="delete from admin where username='"&request.querystring("checkbox")&"'"
rs.open sql,conn,1,3
response.write"<script language='javascript'>alert('删除成功!');history.go(-1);</script>"
end if
%>

提交页面

<input type="button" value="删除" onclick="location.href='delete.asp?checkbox=表单.value';">

这样写,楼主你拿去稍微修改下吧!

晕死,今天的楼主全是复杂型了,想的累了,休息

basanovic 2006-04-27

打赏
举报

你也不说出了什么错误，而且给的代码太少，看不出什么
这段代码，我觉得vbscript中，应该是document.write吧，而且不符合条件，要终止程序运行
我猜你很有可能是参数传递出了问题

taochunsong 2006-04-27

打赏
举报

自己改改吧，还有一半不给我发了
分太少了，没意思

taochunsong 2006-04-27

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>推荐线路类型管理</title>
<link href="../style.css" rel="stylesheet">
<style type="text/css">

</style></head>

<script language="JavaScript">
//检查选择的推荐线路类型，并执行删除操作
function SelectChk()
{
var s = false; //用来记录是否存在被选中的复选框
var Cateid, n=0;
var strid, strurl;
var nn = self.document.all.item("Cate"); //返回复选框Cate的数量
for (j=0; j<nn.length; j++) {
if (self.document.all.item("Cate",j).checked) {
n = n + 1;
s = true;
Cateid = self.document.all.item("Cate",j).id+""; //转换为字符串
//生成要删除推荐线路类型编号的列表
if(n==1) {
strid = Cateid;
}
else {
strid = strid + "," + Cateid;
}
}
}
strurl = "jianxiupjgl.asp?Oper=delete&cid=" + strid;
if(!s) {
alert("请选择要删除的推荐线路类型!");
return false;
}
if (confirm("你确定要删除这些推荐线路类型吗？")) {
form1.action = strurl;
form1.submit();
}
}
function sltAll()
{
var nn = self.document.all.item("Cate");
for(j=0;j<nn.length;j++)
{
self.document.all.item("Cate",j).checked = true;
}
}
function sltNull()
{
var nn = self.document.all.item("Cate");
for(j=0;j<nn.length;j++)
{
self.document.all.item("Cate",j).checked = false;
}
}
</script>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST">
<%
'处理添加、修改和删除操作
dim Soperate
Soperate = Request.QueryString("oper")
Operid = Request.QueryString("cid")
'删除
If Soperate="delete" Then
sqldelt = "DELETE FROM JIANXIUPJ WHERE MYID In(" & CStr(Operid) & ")"
Conn.Execute(sqldelt)
Response.Write "推荐线路类型已经成功删除！"
'删除表Line中此线路类型的线路
' sql = "UPDATE JIANXIUMAIN SET CateId = 0 WHERE CateId In (" & CStr(Operid) & ")"
'Conn.Execute(sql)
'添加
ElseIf Soperate = "add" then
CateName = Request("txttitle")
'判断是否已经存在此类别名称
sql = "SELECT * FROM JIANXIUPJ WHERE MINGCHENG='" & CateName & "'"
Set rs = Conn.Execute(sql)
'如果没有此类别名称，则创建新记录
If rs.EOF Then
sql = "INSERT INTO JIANXIUPJ(MINGCHENG) VALUES('" & CateName & "')"
Conn.Execute(sql)
Response.Write"推荐线路类型已经成功添加！"
Else
Response.Write "已经存在此检修配件名称！"
End If
Set rs = Nothing
ElseIf Soperate = "edit" Then
CateName = Request("txttitle")
czhouqi = Request("jzhouqi")
cjxdw= Request("jjxdw")
ccxcz=Request("jcxcz")
cbz=Request("jbeizhu")
'如果新类别名称与旧名称不同，则判断是否存在此类别名称
'sql = "SELECT * FROM JIANXIUPJ WHERE MINGCHENG = '" & CateName & "'"
'Set rs = conn.Execute(sql)
'If Rs.EOF Then '如果原类别编号和新类别名称不存在，则表示类别名称发生变化
'Set rs = Nothing
'此时判断是否存在此类别名称
'sql = "SELECT * FROM JIANXIUPJ WHERE MINGCHENG='" & CateName & "'"
'Set rs = Conn.Execute(sql)
'If Rs.EOF Then '新类别不存在

spook768 2006-04-27

打赏
举报

你的CheckBox里的值能不能传进去

mhxz5680 2006-04-27

打赏
举报

我看上面的代码也没什么错啊,会不是请求方式错误啊?

mhxz5680 2006-04-27

打赏
举报

你是直接一个onclick="location.href='delete.asp?checkbox=checkbox';" 这样的吗?

yxxue 2006-04-27

打赏
举报

每一条记录前有checkbox，名字我估计也是一样的，比如(checkbox)
checkbox是可以多选的，并且会在每一个(checkbox)值后面加上(,)和(空格)
你要删除所选的checkbox，应该用split拆分后，再用循环删除，
你用Response.write Request("checkbox")先看看结果，应该就会有解决办法了

wawowawoo 2006-04-27