从5楼的改的
<%
id=request("name")
'获取文章id
'path=server.mappath("文章/'"&id&"'.asp")
path=server.mappath("文章")
'得到文章asp文件文件夹的物理路径
path=path&"/"&id&"&".asp") ' 然后字符串连接得到asp文件的物理路径
Set conn=CreateObject("adodb.connection")
conn.open("driver={microsoft access driver (*.mdb)};dbq="&server.mappath("person.mdb"))
sql="delete * from arti where 文章列表='"&id&"'"
conn.execute(sql)
Set fso=server.CreateObject("scripting.filesystemobject")
set yu=fso.getfile(path)
//fso.deletefile path
yu.delete
response.write("成功删除")
conn.close
%>
DeleteFile 方法
删除指定的文件。
object.DeleteFile filespec[, force]
参数
object
必选项。应为 FileSystemObject 的名称。
filespec
必选项。要删除的文件名。filespec 在路径的最后一个组成部分中可包含通配符。
force
可选项。Boolean 值。如果要删除只读文件，则该值为 True；否则为 False（默认）。
说明
如果没有找到匹配文件，则会出现错误。DeleteFile 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。
下面示例说明如何使用 DeleteFile 方法：
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub
----------
Delete 方法
删除指定的文件或文件夹。
object.Delete force
参数
object
必选项。应为 File 或 Folder 对象的名称。
force
可选项。Boolean 值。如果要删除的文件或文件夹的属性设置为只读属性，则该值为 True；否则为 False（默认）。
说明
若指定文件或文件夹不存在，错误发生。有内容的文件夹和无内容的文件夹所使用的Delete方法无异。无论有无内容，指定文件夹皆被删除。
对 File 或 Folder 应用 Delete 方法的结果与使用 FileSystemObject.DeleteFile 或 FileSystemObject.DeleteFolder 执行的操作完全相同。
下面的示例说明了方法的用法 Delete：
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Delete
