UC知道ASP删除问题！高手解决,谢谢~~~~~~~~~
来源：百度知道 编辑：UC知道 时间：2024/06/06 03:06:38
<%
cmd=request.Form("cmd")
id=request.Form("id")
if id="" then Call WriteErr("请选择要操作的信息！",1)
if cmd=1 then
Set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id in("&id&")"
rs.open sql,conn,1,3
do while not rs.eof
if rs("uploadfile")<>"" then Call DeleteFile(rs("uploadfile"),"../../uploadfile/")
htmlfiledel="../../html/"&id&".html"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(htmlfiledel))
Set fso = nothing
rs.delete
rs.movenext
loop
rs.close
set rs=nothing
response.Write("<script language=javascript>alert('删除成功！');window.location.href='"&request.ServerVariables("HTTP_REFERER"
cmd=request.Form("cmd")
id=request.Form("id")
if id="" then Call WriteErr("请选择要操作的信息！",1)
if cmd=1 then
Set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id in("&id&")"
rs.open sql,conn,1,3
do while not rs.eof
if rs("uploadfile")<>"" then Call DeleteFile(rs("uploadfile"),"../../uploadfile/")
htmlfiledel="../../html/"&id&".html"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(htmlfiledel))
Set fso = nothing
rs.delete
rs.movenext
loop
rs.close
set rs=nothing
response.Write("<script language=javascript>alert('删除成功！');window.location.href='"&request.ServerVariables("HTTP_REFERER"
id 你得到 id 的时候 处理 可能有问题
你response.write id 出来看看结果 是否是这样
'1','2','3' 记住 里面的字符 要带‘’号
而且要做逗号 的相应处理 才能批量 删除
if rs("uploadfile")<>"" then
注意在这里打个回车。
Call DeleteFile(rs("uploadfile"),"../../uploadfile/")