请各位高手进来看看,小弟实在搞不懂呀………………在线等!!

zjx1302 2005-05-03 10:23:59
以下的代码当我一个个删除时可以，当我选中多个时就不行呀（采用复选框）！我头都大了，请各位高手帮个忙！

当我选多个的时候出错如下：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 (逗号) 在查询表达式 'photo_id=1, 2' 中。

/test/admin/delecgal.asp，行8


请各位高手帮忙实现多个同时删除该怎么解决！！在线等



<%set conn=server.CreateObject("Adodb.Connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../sixstardate.mdb")
set rs=server.createobject("adodb.recordset")
if session("user")<>"" then
'删除
if request.form("aa")="删除" then
sql="select * from cgal where photo_id=" & request.form("id")
rs.open sql,conn
Set fso = CreateObject("Scripting.FileSystemObject")
filename=Server.MapPath("../cgalimage/"&rs("photo"))
fso.DeleteFile(filename)
set fso=nothing
'rs.delete
rs.close
set rs=nothing

sql="delete * from cgal where photo_id=" & request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
end if
'显示
sql="select * from cgal order by photo_id"
if rs.state<>0 then rs.close
rs.open sql,conn
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除行业动态信息</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<style type="text/css">
<!--
.style1 {font-size: 12px}
-->
</style>
</head>

<body>
<table width="629" height="256" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="629" height="256" valign="top"><form name="form1" method="post" action="delecgal.asp">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" height="179">
<tr valign="bottom">
<td height="45" colspan="3"> <div align="center"><span class="style1">删除六星产品相关资料
</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right" class="style1"><a href="../index.asp">首页</a>
｜ <a href="admin.asp"> 发布</a></div></td>
</tr>
</table>
</div></td>
</tr>
<tr valign="middle">
<td colspan="3" height="21"> <div align="center" class=ss></div></td>
</tr>
<%while not rs.eof %>
<tr>
<td width="9%" height="25" rowspan="3"> <div align="center"><font color="#000000" size="2"><a href="modihydd.asp?id=<%=rs("photo_id")%>">修改</a></font></div></td>
<td width="6%" rowspan="3"><input type="checkbox" name="id" value="<%=rs("photo_id")%>"></td>
<td width="85%" height="30" class="ss" ><span class="style1">
<p>案例名称：<%=rs("titles")%><span class="style1"><br>
案例简述 ：<%=rs("texts")%></span><br>
</p>
</span ></td>
</tr>
<tr>
<td height="2" bgcolor="#993333"></td>
</tr>
<tr>
<td height="12" class="ss" ><span class="style1">
<p> </p>
</span ></td>
</tr>
<%rs.movenext
wend
%>
<tr>
<td height="47" colspan="2" valign="bottom"> <div align="right"></div></td>
<td width="85%" height="47"> 　　　
<input type="submit" name="aa" value="删除" class="ww"> <input type="reset" name="ss" value="重选" class="ww">
</td>
</tr>
<tr>
<td colspan="2"> <div align="right"></div></td>
<td width="85%"> <div align="right"></div></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%end if%>
...全文
127 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
leo963258 2005-05-12
  • 打赏
  • 举报
 回复
不好意思..
下面

<%
dim Arr
sql="select * from cgal where "
Arr=split(request.form("id"),",")
for i=0 to ubound(Arr)
sql=sql&"photo_id="&Arr(i)&" or"
next
sql=left(sql,InstrRev(sql,"or")-1)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
%>
zjx1302 2005-05-12
  • 打赏
  • 举报
 回复
改完后，还是有错误呀！


错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'photo_id=10 or' 中。
/sixstar/admin/deleproduct.asp, 第 18 行
Ring1981 2005-05-03
  • 打赏
  • 举报
 回复
看看你的这个语句：
'photo_id=1, 2'

应该是 photo_id in (1,2)
这样才符合sql语法。
leo963258 2005-05-03
  • 打赏
  • 举报
 回复
你获取的id为空~~
zjx1302 2005-05-03
  • 打赏
  • 举报
 回复
： leo963258(读书之人) 你好我已经像你说的改过来了但还是不行是不是我写错了你看一下

出错提示如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'photo_id= or photo_id= or' 中。

/test/admin/deleproduct.asp，行15


改后的代码如下：<%set conn=server.CreateObject("Adodb.Connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../sixstardate.mdb")
set rs=server.createobject("adodb.recordset")
if session("user")<>"" then
'删除
if request.form("aa")="删除" then
dim Arr
sql="select * from cgal where "
Arr=split(request.form("id"),",")
for i=0 to ubound(Arr)
sql=sql & "photo_id=" &id& " or "
next
sql=left(sql,InstrRev(sql,"or")+1)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn

Set fso = CreateObject("Scripting.FileSystemObject")
filename=Server.MapPath("../product/"&rs("photo"))
fso.DeleteFile(filename)
set fso=nothing
'rs.delete
rs.close
set rs=nothing

sql="delete * from product where photo_id=" & request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
end if
'显示
sql="select * from product order by photo_id"
if rs.state<>0 then rs.close
rs.open sql,conn
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除行业动态信息</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<style type="text/css">
<!--
.style1 {font-size: 12px}
-->
</style>
</head>

<body>
<table width="629" height="256" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="629" height="256" valign="top"><form name="form1" method="post" action="deleproduct.asp">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center" height="179">
<tr valign="bottom">
<td height="45" colspan="3"> <div align="center"><span class="style1">删除六星产品相关资料
</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right" class="style1"><a href="../index.asp">首页</a>
｜ <a href="admin.asp"> 发布</a></div></td>
</tr>
</table>
</div></td>
</tr>
<tr valign="middle">
<td colspan="3" height="21"> <div align="center" class=ss></div></td>
</tr>
<%while not rs.eof %>
<tr>
<td width="9%" height="25" rowspan="3"> <div align="center"><font color="#000000" size="2"><a href="modihydd.asp?id=<%=rs("photo_id")%>">修改</a></font></div></td>
<td width="6%" rowspan="3"><input type="checkbox" name="id" value="<%=rs("photo_id")%>"></td>
<td width="85%" height="30" class="ss" ><span class="style1">
<p>产品名称：<%=rs("titles")%><span class="style1"><br>
产品简述 ：<%=rs("texts")%></span><br>
</p>
</span ></td>
</tr>
<tr>
<td height="2" bgcolor="#993333"></td>
</tr>
<tr>
<td height="12" class="ss" ><span class="style1">
<p> </p>
</span ></td>
</tr>
<%rs.movenext
wend
%>
<tr>
<td height="47" colspan="2" valign="bottom"> <div align="right"></div></td>
<td width="85%" height="47"> 　　　
<input type="submit" name="aa" value="删除" class="ww"> <input type="reset" name="ss" value="重选" class="ww">
</td>
</tr>
<tr>
<td colspan="2"> <div align="right"></div></td>
<td width="85%"> <div align="right"></div></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
<%end if%>
jekexys2004 2005-05-03
  • 打赏
  • 举报
 回复
sql="delete * from cgal where photo_id=" & request.form("id")
conn.Execute sql
leo963258 2005-05-03
  • 打赏
  • 举报
 回复
dim Arr
sql="select * from cgal where "
Arr=split(request.form("id"),",")
for i=0 to ubound(Arr)
sql=sql&photo_id="&id&" or "
next
sql=left(sql,InstrRev(sql,"or")+1)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
这样写，才对！！！
jekexys2004 2005-05-03
  • 打赏
  • 举报
 回复
顶一下先
慢慢看
newhandtoo 2005-05-03
  • 打赏
  • 举报
 回复
呵呵,我改动一下“读书人”的代码

dim Arr
sql="select * from cgal where "
Arr=split(request.form("id"),",")
for i=0 to ubound(Arr)
sql=sql&photo_id="&id&" or " =>>这里面不是&id&，应该是&Arr(i)&。如果是&id&的话就肯定是空值
next
sql=left(sql,InstrRev(sql,"or")+1)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
这样写，才对！！！
leo963258 2005-05-03
  • 打赏
  • 举报
 回复
不可能。
我的哪个语句是
结果是这样的
sql="delete * from cgal where photo_id=1 or photo_id=2"
SaForums v 1.0 Beta Build 0916 discuz修改版
去掉了发帖表情、图标、评分功能，用户资料去掉了性别、积分、来自什么地方、Yahoo Messages、 用户头像、头衔、还有等级的星星，帖子也去掉了图标、积分相关的，用户组的积分、上传等相关 设置、论坛公告等……、 ...
360是蓄谋已久的
360把腾讯分析得太透彻了，也只有在激怒天蝎座的小马哥的时候才会让他做出那样愚蠢的决定。 利用了恰好的政治时机，（国家... …………………………………………………………………………………… 再来看看http:/...
极简概率论-数据科学数学基础
看教材学概率论实在是看不懂，教材编写者一般会认为教材有老师来讲解，所以自学教材会备受打击。 本课程最大特色就是 简单易懂， “简单易懂”意味着我会用简单的语言，你容易听懂的语言教你概率知识，而...
【转贴】怎样冒充古典高手！
我喜欢这样的文章！刘天北送熊节一本关于摄影的书，熊节告诉...”被人这样说的你，虽然倍儿有受到崇拜的快感，也很可能让人认为你是一个守旧，古板，僵化，不懂时尚，不解风情，不谙世事……总之不讨人（尤指时髦...
19岁穷困潦倒选择进入富士康，今年21岁我自动离职了……
19岁穷困潦倒选择进入富士康，今年21岁我自动离职了…… 入职的第一天，线长就告诉我们“富士康是年轻人的最后一道底线”。 年轻人嘛，出身社会，总有着不如意，总有着穷困潦倒，甚至是出狱，身体不健全，在这里都能...
ASP

28,391

社区成员

357,060

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章