Question

求一段批量删除HTML页面的代码？

数据库是 SQL的。。 网站是 ASP ， 记录在后台删除以后，空间里的 HTML 页面是存在的， 我现在求一段 批量删除 记录的时候，可以把 HTML 一起删除掉。。（空间支持 FOS 功能 ）

这是我现在 批量删除 记录的代码：

Sub Del2()
id=trim(request("id"))
if id="" then
response.Write("<script>alert(""ID参数发生错误"");history.back();</script>")
else
set rs=server.CreateObject("ADODB.RECORDSET")
ArrayID = Split(id,",")
For i=0 TO ubound(ArrayID)
Conn.Execute ("Delete [FeiInfo] Where id = " & CInt(ArrayID(i)))
Next
call Alert("删除成功！","Admin_Info.asp")
rs.close
set rs=nothing
end if
End Sub
----------------------
这段是 批量删除 HTML 的代码，谁给我组合一下呀！！
Sub Del()
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../H")&"\"&request("IN_Html"),true '此处需要服务器支持FSO删除权限!
sql="Delete From FeiInfo where IN_Html = '"&request("IN_Html")&"'"
conn.Execute(sql)
Call Alert("信息删除成功!","Admin_Info.asp")
End Sub

问题可以解决的话，可以追加分的呀！

Answer 1

在DREAMWEAVER里点击“编辑”——“查找和替换”——搜索范围设定为“文件夹”，搜索设定为“源代码”，然后把想删除的地方的源码粘贴到“查找”的位置，然后在“替换”的位置敲一个回车或空格，然后点“替换全部”就OK了~~~

Answer 2

request("id")