请问把管理上传文件页面中某一页文件全部选中然后删除如何写代码啊 (急啊)求救!!!

[hlchust]

请问把管理上传文件页面中某一页文件全部选中然后删除如何写代码啊

[jspadmin]

那一页的每个文件前面都加是复选框，记得复选框用for循环有规律生成，比如check1,check2...checkn
处理页面里：
for i=1 to n
fileid=check&i
fileid=request.form("check"&i) '这个地方写错。应该是for each request.variables in form忘记写法了
根据fileid取得相应文件路径名
fso.deletefile filepath,true
next

[z8h8y8]

<script language="javascript">
function check(obj)
{
for (i = 0;i < obj.form.NewsID.length;i++)
{
if (obj.form.NewsID[i].checked == false)
{
obj.form.NewsID[i].checked = true;
}
else
{
obj.form.NewsID[i].checked = false;
}
}
}
function checkBox(obj)
{
var result = 0
if(obj.length)
{
for(var i = 0;i < obj.length;i++)
{
if(obj[i].checked)
{
result++;
}
}
}
else
{
result = obj.checked?1:0
}
return result;
}
function DNews(obj,eventObj)
{
var selectNum
selectNum = checkBox(obj.NewsID)
if(selectNum == 0)
{
alert("请选择要删除的文件!")
return false;
}
if(confirm("{系统信息}\n\n确定要删除选中的[" + selectNum + "]个文件?\n\n注意:这是不可逆操作!"))
{
obj.Action.value = "deletefiles"
eventObj.disabled = true;
obj.submit();
}
}
</script>

下面是FSO循环删除数据：
Sub deletefiles()
Dim fileID,fileIDList
fileID = Request("fileID")
fileIDList = Split(fileID,",",-1,1)
Dim I
For I = 0 To UBound(NewsIDList)
call filedelete(文件的路径[带文件ID])
Next
Response.Write("<script>alert(""成功删除[" & UBound(fileIDList) + 1 & "]个文件!"");window.history.back();</script>")
Response.End()
End Sub

function filedelete(path)
'on error resume next
dim fso
set fso = server.createobject("scripting.filesystemobject")
path = server.mappath(path)
if fso.fileexists(path) then
fso.deletefile(path)
end if
end function

[yyjzsl]

学习下

[z8h8y8]

For I = 0 To UBound(NewsIDList) 这行写错

应该是

For I = 0 To UBound(fileIDList)

[chinastorm]

For each formName in request.Form
****
Next

[什么都不能]

差不多就是z8h8y8(小虾米)说的那样，循环控件数组，然后自己慢慢调试。

[竹林听雨2005]

楼上正解，

顺便提点的是(好象楼上都没提到吧)：：：

在做复选框时，设置一个VALUE值，程序里主要就是获取这个VALUE值(上面好象写成ID之类的)，然后再列目录进行删除。