山药炭疽病:ASP问题,望高手解决

来源：百度文库编辑：高校问答时间：2024/04/28 23:10:55

下边是我朋友程序那的一段批量删除的信息的代码,我想增加第二段删除HTML功能要怎么加?

Sub Delarticle()
if Request("newsid") = "" then
Errmsg = "<li>请勾选你要删除的。"
call Qcdn.Err_List(errmsg,1)
Response.end
end if
newsid = Request("newsid")
sql = "Delete from 2s_list where s_id in ("& newsid &")"
conn.execute(sql)
Response.Write("<script>alert(""删除成功"");location.href=""admin_2s.asp"";</script>")
Response.End()
End Sub

第二段
set rrc=server.createobject("adodb.recordset")
Sql = "Select * from 2s_list where s_id in ("& newsid &")"
rrc.open sql,conn,1,1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../html")&"\"&rrc("filename1"),true '此处需要服务器支持FSO删除权限!
我同样用in ("& newsid &")",不行,只能删除掉一个HTML的,信息就全部删除了,,,要怎么改?

还是循环啊！
set rrc=server.createobject("adodb.recordset")
Sql = "Select * from 2s_list where s_id in ("& newsid &")"
rrc.open sql,conn,1,3
Set fso = Server.CreateObject("Scripting.FileSystemObject")
while not rrc.eof
fso.DeleteFile server.mappath("../html")&"\"&rrc("filename1"),true
rrc.delete
rrc.movenext
wend

楼上正解

ASP问题,望高手解决 asp问题求助高手解决 ASP递归赋值问题，望高手帮忙解决下 ASP出了问题,高手来解决 asp问题,跪求高手解决!!!!! 关于asp的问题，请求高手解决。请高手解决asp.net无限分类(树型)的问题 asp程序“超出系统资源”问题如何解决？请高手指点！ ASP问题，如何解决 ASP高手帮忙解决这个问题