主题:  请教老鸟,asp批量删除问题.

cloudsea
职务：普通成员
等级：2
金币：1.0
发贴：442
#12003/4/1 17:19:37
sql2="DELETE FROM info WHERE id IN ('" '批量删除
arrayid=Split(curid,",",-1,1)
m=UBound(arrayid)
For i=0 To m-1
sql2=sql2&arrayid(i)&"','"
Next
sql2=sql2&arrayid(m)&"')"
rs.Open sql2,conn,2,3 ----------(1)
-----------------------------------------------------
(1)处报告:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。

怎么解决？

编辑历史:[这消息被cloudsea编辑过(编辑时间2003-04-01 18:32:41)]
[这消息被cloudsea编辑过(编辑时间2003-04-01 18:33:07)]

Anjer
职务：普通成员
等级：1
金币：0.0
发贴：48
#22003/4/1 17:57:55
这个是我用的fso删除文件的代码，其实是类似的

    for each files in ListFolder.Files
        tem_Files=Replace(files,Path&"\","")
        temFilesArray=split(files,"_")
        temFiles = temFilesArray(UBound(temFilesArray))
        temFiles = Replace(tem_Files,temFiles,"")
        temFiles = Replace(temFiles,"_","")

        if filenum = temFiles then
            fso.DeleteFile files
            'response.write""
            Response.Redirect "default.asp"
        else
            'Response.Redirect "default.asp"
        end if

        Response.Write "




正在删除中……"&Mid(filenum,5)&"

"
    next



今晚在线
职务：普通成员
等级：3
金币：1.0
发贴：761
#32003/4/2 0:33:28
sql2="DELETE FROM info WHERE id IN ("&数组&")"

这样已经能实现批量删除了

你还可以
IDD = 获取数组 '一般表单提交的是1，44，13，44这样的格式
id = split(idd,",")
For each idd in id
sql = "执行代码 条件 where = "&id&""
next



cloudsea
职务：普通成员
等级：2
金币：1.0
发贴：442
#42003/4/2 8:36:33
多谢~
在第二种方法中:
不知是 sql = "执行代码 条件 where id= "&id&""
还是 sql = "执行代码 条件 where id= "&idd&""