注册 登录
编程论坛 ASP技术论坛

代码错误,请指正

sofine888 发布于 2008-01-05 10:10, 1142 次点击
这是一段删除数据的代码,先从数据库里把文章题目给删除了,然后把文章目录下的,以文章题目命名的文件删除了,
数据库里的题目倒是删除去了,但是文件没有删除,请指正,先谢谢了
<%
id=request("name")
path=server.mappath("文章/'"&id&"'.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=CreateObject("scripting.filesystemobject")
fso.deletefile path
response.write("成功删除")
conn.close
%>

[[italic] 本帖最后由 sofine888 于 2008-1-5 10:14 编辑 [/italic]]
7 回复
#2
xiapi2008-01-05 11:47
Set fso=CreateObject("scripting.filesystemobject")这一句是不是应该这样写
Set fso=server.CreateObject("scripting.filesystemobject")
#3
gdk20062008-01-05 13:33
FSO代码问题,自己去看看就可以了1
#4
yms1232008-01-05 16:51
楼主要先确定是否开了FSO权限
#5
willam2008-01-06 12:58
用这个试一下
<%
id=request("name")
//path=server.mappath("文章/'"&id&"'.asp")
path=server.mappath("文章")
path=path&"/"&id&"&".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
%>
#6
wsx872008-01-06 13:23
willam你能不能写的每行代码注释,因为我是刚刚学ASP是个初学者,你上面写着有些看不懂是什么意思?谢谢
#7
multiple19022008-01-06 13:44
从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
#8
wsx872008-01-08 09:51
谢谢!版主
1